10REM Program Spline1 20REM Version B1.0 30REM Author David James 40REM BEEBUG June 1990 50REM Program Subject to copyright 60: 100adr=&70:len=&76:dots=&77 110S%=&2C00:C%=&2F00 120FOR I%=0 TO 2 STEP 2 130P%=C%:[ 140OPT I% 150.setadr LDA adr:STA asl+1 160LDA adr+1:STA asl+2:RTS 170: 180.asl ASL &FFFF,X:RTS 190: 200.block16 LDA #0:LDX #0 210.L1 JSR asl:ROL A 220CPX #&06:BNE L2 230PHA:LDA #&78:CLC 240ADC asl+1:STA asl+1 250LDA #&02:ADC asl+2:STA asl+2 260PLA 270.L2 INX:INX 280CPX #&10:BNE L1 290.endblock16 LDY &78 300STA (&74),Y:INY 310STY &78:BNE rts 320INC &75:.rts RTS 330: 340.block48 LDA #0:TAX:TAY 350.L3 JSR asl:BCC L4 360CLC:ADC (&72),Y 370.L4 INX:INY 380CPY dots:BNE L3 390JMP endblock16 400: 410.data 420EQUD &030C30C0 430EQUD &10204080 440EQUD &01020408 450: 460.blockdo LDA dots:CMP #&10 470BNE not16 480LDA #&07:.loop16 PHA 490JSR setadr:JSR block16 500PLA:SEC:SBC #1 510BPL loop16:RTS 520.not16 530LDA#data MOD256:STA &72 540LDA#data DIV256:STA &73 550LDA dots:CMP #8 560BNE not8 570LDA &72:CLC 580ADC #&04:STA &72 590.not8 LDA #7 600.loop48 PHA:JSR setadr 610JSR block48 620PLA:SEC:SBC #1:BPL loop48 630RTS 640: 650.main 660LDA #&00:STA &74:STA &78 670LDA #S% DIV 256:STA &75 680.mainloop JSR blockdo 690LDA #&08:CLC:ADC adr:STA adr 700LDA #&00:ADC adr+1:STA adr+1 710DEC len:BNE mainloop:RTS 720] 730NEXT 750A%=0:X%=&FF:IF USR&FFF4 DIV&100 AND 7>2 CHAIN"BANNER4":END 760*KEY0"LO.""BANNER4""|M*T.|MFOR L%=0 TO &1700 STEP 4:L%!&E00=L%!PAGE:NEXT:PA GE=&E00|MO.|MRUN|M" 770*FX 138 0 128