10REM>mbsrc0 V.1.02 20IFPAGE<>&2F00 THEN PAGE=&2F00:CHAIN ":0.mbsrc0" 30maxcol=&120:hicol=&121:coldiff=&123 40vlag=&125 50locol=&126:mask=&128:jxc=&129:jyc=& 12F 60xmon=&135:xmin=&149:ymin=&14F 70size=&155:lowestcol=&15B:REMbij elk aar houden! 80lwin=&15D:llox=&15E:lloy=&15F 90acvl=&160:dest=&161:address=&162:cl ock=&178:REM dummy! 100mstr=&B00:jstr=&B0C:xword=&B18:tab7 =&B24:tab8=&B2A:tab9=&B30:table0=&B36:ta ble1=&B40:table2=&B4A:table3=&B54:table4 =&B64:table5=&B74:initmix=&B84:fork=&B94 :offsets=&BD4:adrs=&BF4:madrs=&C00:REM C 14-C93 vrij 110mess=&C10:cursoff=&C50:okstr=&C74-8 :inktab=&C8C-8 130method=&C94-8:muad2=&CA0-10:muad3=& CAB-15:muad4=&CC6-30:muad5=&CE9-50:muad6 =&CF4-55:jumptab0=&CD0-12:jumptab1=&CDC- 12:jumptab2=&CE8-12:jumptab3=&CE8:tabs20 =&CF4 140buffer=&4000:work=&4000:start=&4400 :top=work+&4000:z=&FFEE 150mix=&700:line=&900:palette=&3100 160qlo=&900:qhi=&3000:qhi256=&700:q2m= qhi+512 170q2m=qhi+512 180qmpp=q2m:REM +768 190qpmp=qmpp+768:qppm=qpmp+768 200qmppp=q2m:qpmpp=qmppp+1024 210qppmp=qpmpp+768:qpppm=qppmp+1024:q5 p=q2m:q6p=q2m 220q6m0=q6p+1536:q6m1=q6m0+512:q6m2=q6 m1+768 230q5m0=q5p+1280:q5m1=q5m0+512:q5m2=q5 m1+768 240e=&C:b=&13:x=&1A:c=&21:d=&28:y=&2F: REMmandel t/m6X6 250itctr=&60:REMitload=&5F 260dir=&38:ccol=&39:vgl1=&3A:vgl2=&3B: vgl3=&3C:addr=&3D:offs1=&3F:offs2=&41:of fs3=&43:space=&45:REM algo t/m k18 270lin=&48:van=&4A:vorigelin=&4A:vanaf =&4C:i=&4E:getal=&50:k=&50:oorspr=&52:ad d=&53:incr=&53:j=&54:arg=&55:last=&56:xr eg=&57 280yy=&58:yreg=&5A:cc0=&5B:cc1=&5C:cc2 =&5D:ccol1=&5E:REMfna 290xxmin=&48:yymin=&4E:ssize=&54:win=& 5A:lox=&5B:loy=&5C:olox=&5D:oloy=&5E:owi n=&5F:blk=&60:ptr=&6A:REM main,tot mainl oop 300refa=&40:refb=&42:ref1=&48:ref128=& 4A:ref129=&4C:ref127=&4E:p=&50:q=&52:m=& 54:n=&55:ref=&56:end=&57:REMdiv 310boven=&62:na=&64:voor=&66 320ymin1=&68:colour=&6E 330help=&70:help2=&80 340FORpass=4TO6STEP2:P%=&E00 350O%=&800:REMcode: 360[OPT pass 370JMP&8023½vervangen door z5 380.preosb LDA mess+62:CMP#ASC"S":BEQp oa:INY:.poa LDX &2FF4,Y 390½key 'K' eor't de message met enkel e bytes, de rest gaat vanzelf 400.osb LDY#255:LDA#129:JMP&FFF4 410.surr1:LDAq:LSRA:TAX:LDA#0:TAY:RORA :ADCp:STArefa:TXA:ADC#work DIV256:STAref a+1:½LDY#0:LDA(refa),Y:STAcolour:RTS 420.surround 430JSR surr1:LDX#0:.s000 TXA:LSRA:LDAr efa:BCSs1 440.s0 :SBCref1,X:STArefb:LDArefa+1:SB Cref1+1,X:JMPs00 450.s1 :ADCref1-1,X:STArefb:LDArefa+1: ADCref1,X:.s00 STArefb+1: 460AND#&40:EOR#&40:BNE s1a:LDAcolour:C MP(refb),Y:BNEs1a 470.s2 INX:CPX#8:BNE s000:.s1a RTS ½EQ is niet-uitrekenen 480.deel 490JSRsurr1 500LDAp:STArefb+2:CLC:ADCn:STArefb:STA refb+4 510LDAq:STArefb+1:CLC:ADCn:STArefb+3:S TArefb+5 520LDX#0:.s3 530TXA:TAY:PHA:LDX refb,Y:LDArefb+1,Y: ASLA:½TAY:JSRmandel6 540.s3cc LDAclock+7:AND#248:CMPitctr:B EQ s3d:.s3da STAitctr 550LDX#&8F:JSRosb:BCC s3d ½Esc 560½pressed pla 3x,vul vierkantjes in, spring 570CLC:LDA ref:ADCn:STAq 580.s3e CLC:LDAref:ADCn:STAp 590.s3f JSR surr1 ½centr in colour 600LDXn:.s3g DEX:BMI s3k:LDYn 610.s3i DEY:BMI s3g 620CLC:TXA:ADCq:LSRA:ORA#&40:STArefb+1 :LDA#0:RORA:ADCp:STArefb:LDA colour:STA( refb),Y 630JMP s3i:.s3k 640SEC:LDAp:SBCn:STAp:BCS s3f 650SEC:LDAq:SBCn:STAq:BCS s3e:PLA:PLA: PLA:JMPs20 660.s3d PLA:TAX 670½*LDY#0:JSRs3a: 680BPL s3l:BMIs3 690.s3a LDY#0½*:LDAref1,X:STArefb:LDAr ef1+1,X:LSRA:STA refb+1:ROR refb 700CLC:LDArefa:ADCrefb:STArefb:LDArefa +1:ADCrefb+1:STArefb+1 710LDAcolour:STA(refb),Y 720INX:INX:CPX#6:.s3l RTS 730.div CMP#3:BNE s4c:JMP &0½special 740.s4c:JSR &0½ymtym1:LDA#128:STAm:STA end:STA ref1:STAref127:STAref129:LSRA:ST An:STAref127+1:STA ref128+1:STAref129+1: STXref1+1:STXref128½X=0 van ymtym1:DEC r ef127+1 750TXA:½TAY:JSRmandel6:STAwork 760.s5 LDA m:CMP #2:BMIs20:.s5a SEC:LD Aend:SBCm:STAref:STAq 770.s5b LDAref:STAp 780.s5d JSR surr1½ref value 790½*LDY#0:LDX#0:.s5c JSR s3a:BMI s5c 800SEC:LDAp:SBCm:STAp:BCS s5d 810SEC:LDAq:SBCm:STAq:BCS s5b 820½======= 830.s13 LDAref:STAq:LDA#0:.s15 STAq+1 840 LDAref:STAp:LDA#0:.s16 STAp+1 850LDAvlag:AND#4:BNEs16a:JSRsurround 860BEQ s17b 870.s16a JSRdeel 880.s17b SEC:LDAp:SBCm:STAp:LDAp+1:SBC #0:BCS s16 890.s18 SEC:LDAq:SBCm:STAq:LDAq+1:SBC# 0:BCS s15 900.s19 LSRm:LSRn 910LDX#6:.s19a LSRref1+1,X:ROR ref1,X: DEX:DEX:BPLs19a:BMI s5 920.s20 930LDX#0:STXrefa:JSRomkeer 940:LDA#&40:STArefa+1 950LDX#128:.s23a TXA:PHA 960LDY#127:.s23b LDA(refa),Y:STA&3000, Y:DEY:BPL s23b 970INY:.s23c LDA &3000,Y:STAq:LDA&3001 ,Y:STAp:TYA:PHA:LDY#3 980.s23e LDXp-1,Y:LDAacvl:LSRA:BCSs24: LDApalette,X:TAX:.s24 990LDAmix,X:TAX:ASLA:AND#56:STAp,Y:TXA :LSRA:LSRA:AND#56:DEY:STAp,Y:DEY:BPLs23e 1000LDAq+1:LSRA:LSRA:LSRA:ORAp:TAX:LDAf ork,X:STAp: 1010LDAq:LSRA:LSRA:LSRA:ORAp+1:TAX:LDAf ork,X:STAq 1020PLA:TAX:LSRA:TAY: 1030LDAp:STA(refa),Y:TYA:ORA#&40:TAY 1040LDAq:STA(refa),Y:TXA:TAY 1050INY:INY:BPL s23c :PLA:TAX 1060LDArefa:EOR#&80:STArefa:BMIs23f:INC refa+1:BMIs23d:.s23f 1070DEX:BNE s23a 1080.s23d JMPa40c 1090.omkeer CLC:LDAtabs20,X:STA help:AD Ctabs20+2,X:STAhelp+2:LDAtabs20+1,X:STA help+1:ADCtabs20+3,X:STA help+3 1100.s21 ½SEC:LDAhelp:CMPhelp+2:LDAhelp +1:SBChelp+3:BMIs22a:RTS½** 1110.s22a LDYtabs20+4,X:.s22 LDA(help), Y:PHA:LDA(help+2),Y:STA(help),Y:PLA:STA( help+2),Y:DEY:BPL s22 1120CLC:LDAhelp:ADCtabs20+5,X:STAhelp:B CCs22b:INChelp+1:.s22b 1130SEC:LDAhelp+2:SBCtabs20+5,X:STAhelp +2:BCS s21:DEChelp+3:BCCs21 1140.mandel6 TAY:TXA:PHA 1150ASLA:JSRmul6 1160CLC:LDAhelp:ADCxmin:STAx:STAe:LDAhe lp+1:ADCxmin+1:STAx+1:STAe+1:LDAhelp+2:A DCxmin+2:STAx+2:STAe+2:LDAhelp+3:ADCxmin +3:STAx+3:STAe+3:LDAhelp+4:ADCxmin+4:STA x+4:STAe+4:LDAhelp+5:ADCxmin+5:STAx+5:ST Ae+5: 1170TYA:PHA:JSRmul6 1180CLC:LDAhelp:ADCymin1:STAy:STAb:LDAh elp+1:ADCymin1+1:STAy+1:STAb+1:LDAhelp+2 :ADCymin1+2:STAy+2:STAb+2:LDAhelp+3:ADCy min1+3:STAy+3:STAb+3:LDAhelp+4:ADCymin1+ 4:STAy+4:STAb+4:LDAhelp+5:ADCymin1+5:STA y+5:STAb+5 1190STXcolour+1:INX:STXcolour 1200LDAvlag:AND#1:BEQc10:LDX#5:.jpat LD Ajxc,X:STAx,X:LDAjyc,X:STAy,X:DEX:BPLjpa t 1210.c10 CLC:.jump0 LDAe:ADCb:STAc:LDAe +1:ADCb+1:STAc+1:LDAe+2:ADCb+2:STAc+2:LD Ae+3:ADCb+3:STAc+3:LDAe+4:ADCb+4:STAc+4: LDAe+5:ADCb+5:STAc+5:LDX#e:JSR c20 1220LDX#b:JSRc20 1230LDX#c:JSRc20 1240CLC:.jump1 LDAe:ADCb:STAd:LDAe+1:AD Cb+1:STAd+1:LDAe+2:ADCb+2:STAd+2:LDAe+3: ADCb+3:STAd+3:LDAe+4:ADCb+4:STAd+4:LDAe+ 5:ADCb+5:STAd+5:RORA:AND#&E0:BNEc13 1250TAX:TAY:.c11 SEC:.jump2 LDAe,X:SBCb ,X:STAb:LDAe+1,X:SBCb+1,X:STAb+1:LDAe+2, X:SBCb+2,X:STAb+2:LDAe+3,X:SBCb+3,X:STAb +3:LDAe+4,X:SBCb+4,X:STAb+4:LDAe+5,X:SBC b+5,X:ASLb:ROLb+1:ROLb+2:ROLb+3:ROLb+4:R OLA:STAb+5 1260CLC:.jump3 LDAb:ADCx,X:STAe,Y:LDAb+ 1:ADCx+1,X:STAe+1,Y:LDAb+2:ADCx+2,X:STAe +2,Y:LDAb+3:ADCx+3,X:STAe+3,Y:LDAb+4:ADC x+4,X:STAe+4,Y:LDAb+5:ADCx+5,X:STAe+5,Y 1270TXA:BNE c11a:LDX#21:LDY#7:BNEc11 1280.c11a:INCcolour:BNE c12a:INCcolour+ 1:.c12a ½SEC:LDAcolour:CMPhicol:LDAcolou r+1:SBChicol+1:BCS c13:JMP c10 1290.c13 1300LDXcolour:CPXlowestcol:LDAcolour+1: TAY:SBClowestcol+1:BCSc13c:STXlowestcol: STYlowestcol+1:.c13c 1310CPXlocol:TYA:SBClocol+1:BCSc13d:LDX locol:STXcolour:LDAlocol+1:STAcolour+1:. c13d LDYpalette,X 1320LDAacvl:LSRA:BCCc13e:STYcolour:.c13 e PLA:TAY:PLA:TAX:LDAcolour:RTS 1340.c20 ASL5,X:LDY#0:BCCjump4-4:DEY:TY A:STXdest:.jump4 EOR0,X:ROLA:STAd:TYA:EO R1,X:ROLA:STAd+1:TYA:EOR2,X:ROLA:STAd+2: TYA:EOR3,X:ROLA:STAd+3:TYA:EOR4,X:ROLA:S TAd+4:TYA:ROLA:EOR5,X:STAd+5 1350TXA:INY:BNEc20b+1:.jump5 LDX#255:IN X:CPX#6:BEQc20b:INCd,X:BEQjump5+2:.c20b TAX:JMP(address) 1360½------ 1370.d1 LDY d+5:BNEd1a:STY4,X:STY5,X:RT S 1380.d1a LDXd+4:LDA#0:CMPq2m,X:LDAq2m,Y :SBCq2m+256,X:PHA:LDAq2m+256,Y:SBCq2m+51 2,X:STAd+4:LDAq2m+512,Y:SBC#0:STAhelp 1390TXA:LDXdest:CLC:ADCd+5:TAY:PLA:BCS d2 1400ADC qlo,Y:LDAd+4:ADCqlo+256,Y:STA4, X:LDA#0:ADChelp:STA5,X:RTS½BEQ d2a 1410.d2 CLC:ADCqlo,Y:LDAd+4:ADCqhi,Y:ST A4,X:LDAqhi256,Y:AND#3:.d2a ADChelp:STA5 ,X:RTS 1420½---- 1430.d3 CLC:LDAd+3:TAY:ADCd+4:TAX:TYA:B CSd3b 1440ADCd+5:TAY:LDAqlo,Y:BCSd3a 1450ADCqlo+256,X:STAhelp+2:LDA#0:BEQd3b 1 1460.d3a CLC:ADCqlo+256,X:STAhelp+2:LDA #0:BEQd3c1 1470.d3b CLC:ADCd+5:TAY:LDAqlo,Y:RORhel p+3:CLC½BCS d3c 1480ADCqhi,X:STAhelp+2:LDAqhi256,X:AND# 3:LDXhelp+3:BMId3c1:.d3b1 ADCqlo+256,Y:S TAhelp+3:LDA#0:BEQ d5 1490.d3c1 ADCqhi,Y:STAhelp+3:LDAqhi256, Y:AND#3:.d5 ADC#0:STAhelp+4 1500LDAd+4:ADCd+5:TAX:LDAqlo,X:BCS d5a 1510ADChelp+3:STAhelp+3:LDAqlo+256,X:AD Chelp+4:STAhelp+4:LDA#0:BEQd6 1520.d5a CLC:ADChelp+3:STAhelp+3:LDAqhi ,X:ADChelp+4:STAhelp+4:LDAqhi256,X:AND#3 :.d6 ADC#0:STAhelp+5 1530LDX d+3:LDYd+4:½CLC:½LDA#0:LDAqppm, X:STAhelp+6:LDAqlo,Y:ADCqppm+256,X:STAhe lp+7:LDAqpmp,Y:ADCqppm+512,X:STAhelp+8:L DAqpmp+256,Y:ADCqppm+768,X:STAhelp+9:LDA qpmp+512,Y:ADC#0:STAhelp+10 1540LDXd+5:CLC:LDAhelp+8:ADCqlo,X:STAhe lp+8:LDAhelp+9:ADCqmpp,X:STAhelp+9:LDAhe lp+10:ADCqmpp+256,X:STAhelp+10:LDA#0:ADC qmpp+512,X:STAhelp+11 1550JMP d14 1560½4x4 1570.d7 LDX#0:STXhelp+2:STXhelp+3:STXhe lp+4:STXhelp+5 1580CLC:LDAd+2:ADCd+3:TAY:LDA#128:BCSd7 a 1590ADCqlo+256,Y:STAhelp:TXA:BEQd8 1600.d7a ADCqhi,Y:STAhelp:LDAqhi256,Y:A ND#3:.d8 ADC#0:STAhelp+1 1610LDY#0:.d8a TYA:PHA:LDXtab7,Y:LDAd,X :LDXtab8,Y:ADCd,X:LDXtab9,Y:JSRd7c 1620.d9 PLA:TAY:INY:CPY#5:BNE d8a 1630LDXd+3:LDYd+2:CLC:LDAqpppm,Y:ADCqpp mp,X:STAhelp+6:LDAqpppm+256,Y:ADCqppmp+2 56,X:STAhelp+7:LDAqpppm+512,Y:ADCqppmp+5 12,X:STAhelp+8:LDA#0:ADCqppmp+768,X:STAh elp+9 1640LDXd+4:CLC:LDAqlo,X:ADChelp+6:STAhe lp+6:LDAqmppp,X:ADChelp+7:STAhelp+7:LDAq pmpp,X:ADChelp+8:STAhelp+8:LDAqpmpp+256, X:ADChelp+9:STAhelp+9:LDAqpmpp+512,X:ADC #0:STAhelp+10 1650LDXd+5:CLC:LDAqlo,X:ADChelp+7:STAhe lp+7:LDAqmppp,X:ADChelp+8:STAhelp+8:LDAq mppp+256,X:ADChelp+9:STAhelp+9:LDAqmppp+ 512,X:ADChelp+10:STAhelp+10:LDAqmppp+768 ,X:ADC#0:STAhelp+11 1660.d14 LDXdest:SEC:LDAhelp+2:SBChelp+ 8:STA2,X:LDAhelp+3:SBChelp+9:STA3,X:LDAh elp+4:SBChelp+10:STA4,X:LDAhelp+5:SBChel p+11:STA5,X:RTS 1670.d7c TAY:LDAqlo,Y:BCS d7d:ADChelp,X :STAhelp,X:LDAqlo+256,Y:ADChelp+1,X:STAh elp+1,X:LDA#0:ADChelp+2,X:STAhelp+2,X:RT S 1680.d7d CLC:ADChelp,X:STAhelp,X:LDAqhi ,Y:ADChelp+1,X:STAhelp+1,X:LDAqhi256,Y:A ND#3:ADChelp+2,X:STAhelp+2,X:RTS 1690½ 1700.d15 1710LDX#15:LDY#0:.d15a STYhelp,X:DEX:BN Ed15a 1720.d16b ½LDY#0:TYA:PHA:LDXtable0,Y:LD Ad,X:LDXtable1,Y:CLC:ADCd,X:LDXtable2,Y: JSR d7c 1730.d16d:PLA:TAY:INY:CPY#10:BNE d16b 1740JSRgar 1750INX½LDX#1:.d17 LDYd,X 1760CLC:LDAhelp2+1,X:ADCqlo,Y:STAhelp2+ 1,X:LDAhelp2+2,X:ADCq5p,Y:STAhelp2+2,X:L DAhelp2+3,X:ADCq5p+256,Y:STAhelp2+3,X:LD Ahelp2+4,X:ADCq5p+512,Y:STAhelp2+4,X:LDA help2+5,X:ADCq5p+768,Y:STAhelp2+5,X:LDA# 0:ADCq5p+1024,Y:STAhelp2+6,X 1770INX:CPX#6:BNEd17:BEQd23 1780.d26:LDX#11:LDY#0:.d26a STYhelp,X:D EX:BPL d26a 1790½LDY#1:INY:.d27 TYA:PHA 1800CLC:LDXtable3,Y:LDAd,X:LDXtable4,Y: ADCd,X:LDXtable5,Y:JSR d7c 1810.d28 PLA:TAY:INY:CPY#15:BNE d27 1820JSRgar 1830½LDX#0:.d29 LDYd,X:CLC: 1840LDAq6p,Y: ADChelp2,X: STAhelp2, X 1850LDAq6p+256,Y:ADChelp2+1,X:STAhelp2+ 1,X 1860LDAq6p+512,Y:ADChelp2+2,X:STAhelp2+ 2,X 1870LDAq6p+768,Y:ADChelp2+3,X:STAhelp2+ 3,X 1880LDAq6p+1024,Y:ADChelp2+4,X:STAhelp2 +4,X 1890LDAq6p+1280,Y:ADChelp2+5,X:STAhelp2 +5,X 1900LDAq6p+1536,Y:ADC#0: STAhelp2 +6,X:INX:CPX#6:BNE d29 1910.d23:LDAhelp+3:CMPhelp2+3:LDAhelp+4 :SBChelp2+4:LDAhelp+5:SBChelp2+5:LDXdest :LDAhelp+6: 1920SBChelp2+6:STA &0,X:LDAhelp+7:SBChe lp2+7:STA &1,X:LDAhelp+8:SBChelp2+8:STA &2,X:LDAhelp+9:SBChelp2+9:STA&3,X:LDAhel p+10:SBChelp2+10:STA&4,X:LDAhelp+11:SBCh elp2+11:BCS d23c:LDYhelp+15:BNEd23c:TYA 1930½STA&5,X:½BCS rts½LDAhelp+15½BNErts :½LDAhelp+15:½SBC#0:½BCC d23b:½RTS½>=0 1940.d23b ½LDA#0:STA0,X:STA1,X:STA2,X:S TA3,X:STA4,X:.d23c STA5,X 1950RTS 1960½==== 1970.gar ½get and rotate 1980LDYd+1:LDAqlo+256,Y:ASLA:STAhelp2+3 1990LDYd+2:LDAqlo,Y:ROLA:STAhelp2+4:LDA qlo+256,Y:ROLA:STAhelp2+5 2000LDYd+3:LDAqlo,Y:ROLA:STAhelp2+6:LDA qlo+256,Y:ROLA:STAhelp2+7 2010LDYd+4:LDAqlo,Y:ROLA:STAhelp2+8:LDA qlo+256,Y:ROLA:STAhelp2+9 2020LDYd+5:LDAqlo,Y:ROLA:STAhelp2+10:LD Aqlo+256,Y:ROLA:STAhelp2+11:ROLA:AND#1:P HA 2030CLC:LDY#8:LDX#3:.gara 2040LDAhelp,X:ADChelp2,X:STAhelp,X:INX: DEY:BPLgara:PLA:ADC#0:STAhelp+15 2050LDX#7:LDA#0:.d28a :STAhelp2-1,X:DEX :BNE d28a 2060RTS 2070.algo SEC:LDA #top MOD256:SBCboven: STA space:LDA #top DIV 256:SBC boven+1:S TA space+1:JMPk1 2080.k2a LDX#6:JSRk18:STAvgl3 2090LDX#2:JSRk18:STAvgl1 2100LDX#0:JSRk18:STAccol 2110JSRk18a:STAvgl2 2120CMPmask:BEQk8 2130.k3:LDA vgl3:CMP mask:BEQk10:.k4 CM P vgl2:BNEk1 2140.k5:LDA ccol:CMP vgl3:BNE k6 2150LDY#3:LDX#4:BNEk12a:.k6 ½k16 2160LDAvgl1:CMP vgl2:BNEk1:.k7:LDX#0:LD Y#1:BNE k12a 2170.k8:LDY#4:JSR k8a 2180JSRk18a:LDAcolour:STA(help),Y:STAvg l2 2190LDAvgl1:CMP vgl2:BEQ k9 2200LDY#3:LDX#4:JSR k15 ½k16 2210.k9:LDA vgl3:CMPmask:BNE k11 2220.k10:LDY#6:JSRk8a 2230LDX#6:JSRk18:LDAcolour:STA(help),Y: STAvgl3 2240LDA ccol:CMP vgl3:BEQ k11 2250LDY#1:LDX#0:JSR k15 ½k15 2260.k11 2270LDA vgl2:CMP vgl3:BEQk1:.k12 2280LDY#0:LDX#6:.k12a JSRk15 2290.k1 ½SEC:LDX na:CPXvoor½A:LDAna+1:S BCvoor+1:BCS k13c 2300LDY #buffer MOD256:½LDA na:STX help ½A:CLC:LDA na+1:AND#3:ADC#buffer DIV256: STA help+1:INCna:INCna:BNE k13a:INCna+1: .k13a LDA(help),Y:STA addr:INY:LDA (help ),Y:STA addr+1:CMP#255:BNE k13b:EORaddr: BNEk13b:.k13c RTS:.k13b 2310LDA#255:STA(help),Y:DEY:STA(help),Y 2320LSR addr+1:ROR addr:RORA:LSR addr+1 :ROR addr:ROLA:ROLA:AND#3:STA dir 2330LDY#6:.k2 TYA:ASLA:ORAdir:ASLA:TAX: LDAoffsets,X:½CLC:ADCaddr:STAaddr,Y:LDAo ffsets+1,X:ADCaddr+1:STAaddr+1,Y:BMIk1 2340½CLC:LDAspace:CMPaddr,Y:LDAspace+1: SBCaddr+1,Y:BMI k1 2350DEY:DEY:BNE k2:JMPk2a 2360: 2370.k8a LDA addr,Y:TAX:ASLA:LDAaddr+1, Y:ROLA:AND#127:½TAY:JMP mandel6 2380.k15 LDAaddr+1,X:ASL addr,X:ROLA:AS L addr,X:ROLA:STAhelp+1:CLC:TYA:ADC dir: AND#3:ORA addr,X:½STA help:JMP k14 2390.k18a LDX#4:.k18 LDY boven:LDA addr ,X:STA help:CLC:LDA boven+1:ADC addr+1,X :STA help+1:LDA(help),Y:RTS 2400.mem JSRcolroutine 2410LDAvlag:LSRA:AND#3:BEQ a1:JMP div 2420.a1 LDA#255:STAgetal:BCSa3:INCgetal 2430LDAymin+5:BPL a3:LDA#128:STAadd 2440.a2 LDAgetal:CLC:ADCadd:JSR mul6½na mul6 is X=0,C onbepaald 2450CLC:½LDX#0:STXhelp+6:LDY#5:.a2aa LD Aymin,X:ADChelp,X:STAhelp2,X:ORAhelp+6:S TAhelp+6:INX:DEY:BPL a2aa:LDYhelp2+5:BMI a2a 2460TAY:BNEa2b 2470.a2a CLC:LDAgetal:ADCadd:STAgetal:. a2b 2480LSR add:BNEa2 2490.a3 LDYgetal:BNE a4a:DEY½*LDY#255:S TYgetal:.a4a STYoorspr:TYA:INY:BEQa4 2500JSRmul6:LDY#5:½LDX#0:SEC:.a4b LDA#0 :SBChelp,X:STAymin,X:INX:DEY:BPL a4b 2510.a4 LDAvlag:ORA#16:STAvlag 2520LDY#255:STYincr:INY:STYlin:STYlin+1 :STYvanaf 2530LDA#(start DIV256):STAvanaf+1:STAyy +1 2540.a5½----- 2550LDAvlag½acvl:AND#16:BEQ a5a½JMPa32: LDAlin+1:BEQa6:.a5a JMPa32½****!! 2560.a6 :LDAoorspr:CMPgetal:BCC a8 2570LDAincr:CMP#1:BNE a8 2580LDAvlag:AND#16:BEQ a5a½a8 2590½condities incr=+1,getal<=oorspr,li n<yext 2600½ lijn kopieren 2610LDAgetal:BMIa8:ASLA:STAhelp:SEC:LDA lin:SBChelp:STAhelp:LDAlin+1:SBC#0:STAhe lp+1:LDA#0:STAhelp+6:STAhelp+5:LDA#48:ST Ayy+1:STAhelp+4:JSRm11 2620CLC:LDAhelp:STAvan:LDA#(start DIV25 6):ADChelp+1:STAvan+1 ½van+48*(lin-2*get al) --> vanaf 2630LDY#47:.a7 2640LDA(van),Y:STA(vanaf),Y:DEY:BPLa7:. a7a 2650CLC:LDAvanaf:ADC#48:STAvanaf:BCC a7 c:INCvanaf+1:.a7c JSRa7aa:JMPa6 2660.a7aa INClin:BNE a7b:INClin+1:BEQ a 7b:LDAvlag:AND#(255-16):STAvlag:.a7b:CLC :LDAgetal:ADCincr:STAgetal:RTS 2670½if yy+1 niet neg, lin en getal ver minderen 2680.a8 LDAyy+1:BPL a8a:LDAlin:BNEa8b:D EClin+1:.a8b DEClin:SEC:LDAgetal:SBCincr :STAgetal ½**** 2690.a8a LDAlin:STAvorigelin:LDAlin+1:S TAvorigelin+1 2700LDA#&80:STAboven+1:ASLA:STAboven 2710½LDA#0:½STAyy+1½* nog niet 2720.a9 2730SEC:LDAboven:SBCvanaf:TAX:LDAboven+ 1:SBCvanaf+1:TAY:SEC:TXA:SBC#128:TYA:SBC #0:BMI a11 ½if (boven-vanaf-128)>=0... 2740LDAvlag½acvl:AND#16:BEQa11:LDAlin+1 :BNE a11 2750½SEC:LDAoorspr:CMPgetal:BCC a10 2760LDAincr:CMP#1:BEQ a11 2770.a10 LDYgetal:BNE a10a:INY:STYincr: .a10a 2780LDAboven:EOR#128:STAboven:BPLa10c:D ECboven+1:.a10c LDAmask:LDY#0:.a10cc STA (boven),Y:INY:BPL a10cc:JSRa7aa:JMP a9 2790.a11 2800LDAvorigelin:JSRmul6 2810LDY#6:.a13a LDAhelp,X:ADCymin,X:STA ymin1,X:INX:DEY:BNE a13a 2820STYvoor:STYvoor+1:STYna:STYna+1:STY last:STYarg:STYxreg:STYyreg:CLC:LDAlin:S BCvorigelin:STAyy:LDAlin+1:SBCvorigelin+ 1:½STAyy+1 2830BCC a31c ½Y=0 2840.a14 JSRborder2 2850INCxreg:BPLa14:DECxreg 2860.a15 :LDAyy:CMP#2:BCC a16 :LDA#3:ST Aarg: 2870.a15a :LDAyreg:CMPyy:BCS a16:INC yr eg:JSRborder2:JMP a15a 2880.a16 :LDA#0:CMPyy:BCS a27 2890LDA#2:STAarg:.a16a LDA#0:CMPxreg:BC Sa17:DECxreg:JSRborder2:JMPa16a 2900.a17 LDAyy:CMP#2:BCC a27:LDA#1:STAa rg 2910.a17a DECyreg:BEQ a17b:JSRborder2:J MP a17a:.a31a LDA&7F80,Y:STA&4080,Y:INY: BPLa31a:.a31 STY yy+1:.a31c JMPa5 ½Y=0 o f 128 2920.a17b JSRalgo 2930.a27:LDAboven:LDYyy+1:BNEa27b:INCvo rigelin:EOR#128:STAboven:BMIa27b:INCbove n+1:.a27b:STAi:LDAboven+1:STAi+1 2940.a27a :LDAi+1:LDY#0:CMP#top DIV256: BPLa31a 2950SEC:LDAi:SBCboven:STAhelp+9:ASLA:RO LA:EORhelp+9:EORvorigelin:STAhelp+9 2960.a30 LDA(i),Y:CMPmask:BEQa28:STAcco l1:.a28 LDXccol1:LDAacvl:LSRA:BCSa28a1:L DApalette,X:TAX:.a28a1 2970TYA:EORhelp+9:LSRA:PHP:LDAmix,X:LSR A:LSRA:PLP:BCSa28b:LSRA:LSRA:LSRA:.a28b 2980LDX#2:.a28c LSRA:RORcc2:RORcc1:RORc c0:DEX:BPLa28c 2990INY:CPY#8:BCCa30:CLC:TYA:ADCi:STAi: BCC a28d:INCi+1:.a28d LDY#0:LDAcc0:STA(v anaf),Y:INY:LDA cc1:STA(vanaf),Y:INY:LDA cc2:STA(vanaf),Y:INY:TYA:CLC:ADCvanaf:ST Avanaf:BCCa27a:INCvanaf+1:BNEa27a½JMP a2 7a 3000.a32 3010LDX#6:JSRomkeer 3020LDX#33:JSR&8023 ½block van 4400-740 0 naar 5000-8000 3030.a40 JSR &8023 ½ 12K-->16K 3040.a40c 3050LDA #0:STAhelp+6:LDA #&30:STA help+ 7:LDA#&3E:STAhelp+8 3060LDX#31:.s124 TXA:PHA:CLC:LDAhelp+8: ADC#2:STAhelp+8:LDX#93:.s125 JSR&8023½bl ockmove,help aut.incr.,uit X en Y = 0 3070.s127 LDA line,X:STA(help+6),Y:INY 3080LDAline+&40,X:STA(help+6),Y:INY 3090LDAline+&80,X:STA(help+6),Y:INY 3100LDAline+&C0,X:STA(help+6),Y:INY 3110LDAline+&100,X:STA(help+6),Y:INY 3120LDAline+&140,X:STA(help+6),Y:INY 3130LDAline+&180,X:STA(help+6),Y:INY 3140LDAline+&1C0,X:STA(help+6),Y:INY:BN E s131:INC help+7:.s131 3150INX:CPX#64:BNE s127 3160PLA:TAX:LDAhelp+6:EOR#&80:STAhelp+6 :BMIs129:INChelp+7:BMI s130:.s129 DEX:BP L s124:.s130 RTS 3170.border2 LDAyreg:LDYyy+1:BPLbrd1:LD X&4000,Y:INCyy+1:STXcolour:JMPbrd2:.brd1 LDXxreg:JSRmandel6 3180TYA:.brd2 LSRA:PHA:LDA#0:RORA:ADCbo ven:STAhelp:PLA:ADCboven+1:STAhelp+1 3190LDAcolour:LDYxreg:STA(help),Y:CMPla st:BEQk14a:STAlast 3200LDAyreg:STAhelp+1:TYA½LDAxreg:ASLA: ASLA:ROLhelp+1:ORAarg 3210.k14 :TAX½STAhelp:LDY voor½buffer M OD256:LDA#0½voor:STA help+2:½CLC:LDA voo r+1:AND#3:EOR#&40½ADC#buffer DIV256:STAh elp+3:TXA:½LDAhelp:STA(help+2),Y:INY:LDA help+1:STA(help+2),Y:INY:STYvoor:BNE k14 a:INCvoor+1:.k14a RTS 3220½--------------- 3230½hier stond jumptab 3240½----------- 3250.mul6 ½STAhelp+6:LDX#0:STXhelp:STXh elp+1:STXhelp+2:STXhelp+3:STXhelp+4:STXh elp+5:LDX#8 3260.e1 LSRA½help+6:BCC e2:PHA:CLC:LDAs ize:ADChelp:STAhelp:LDAsize+1:ADChelp+1: STAhelp+1:LDAsize+2:ADChelp+2:STAhelp+2: LDAsize+3:ADChelp+3:STAhelp+3:LDAsize+4: ADChelp+4:STAhelp+4:LDAsize+5:ADChelp+5: STAhelp+5:PLA 3270.e2 RORhelp+5:RORhelp+4:RORhelp+3:R ORhelp+2:RORhelp+1:RORhelp:DEX:BNEe1:RTS 3280.colroutine 3290LDA#64:STAhelp+3:ASLA:STAhelp+1:ASL A:STAhelp:STAhelp+2:STAhelp+4 3300.m0 LDAlocol:TAY:DEY:STYmask:CLC:AD Ccoldiff:STAhicol:STAhelp+5:LDYmaxcol:ST Aqlo,Y:LDAlocol+1:ADC#0:STAhicol+1:STAhe lp+6 3310STAqlo+256,Y: 3320.m1 LDAhelp+1:PHA:LDAhelp:PHA:JSR m 11:PLA:STAhelp:PLA:STAhelp+1;//deY 3330LDAhelp+4:ASLA:TXA½X uit m11:ADChel p+5:STAqlo-1,Y:TXA:ADChelp+6:STAqlo+255, Y 3340SEC:DEY:BNEm2 3350JSRm6a:BCCm2a 3360LDAhelp+4:ASLA:JSRm6a:BCCm4 3370DEX:BNEm3 3380.m2 JSRm6a:BCSm1 3390.m2a ½LDX#0:.m3 TXA:EORhelp+2:ADChe lp:STAhelp:TXA:EORhelp+3:ADChelp+1:STAhe lp+1 3400LSRhelp+3:BNEm0:RORhelp+2:BNEm0½in 'help2..3'is slechts 1 bit <>0 3410.m4 LDY#0:LDAlocol:STAhelp:LDAlocol +1:STAhelp+1 3420.m4a ½SEC:LDAhicol:CMPhelp:LDAhicol +1:SBChelp+1:BCC m5a 3430½SEC:LDAqlo,Y:CMPhelp:LDAqlo+256,Y: SBChelp+1:BCSm5 3440CPYmaxcol:BCS m5:INY 3450.m5 LDXhelp:TYA:STApalette,X:INChel p:BNEm4a:INChelp+1:BNE m4a½*JMP m4a 3460.m5a LDAvlag:AND#96½sidwscr:BNEm5b: LDAhicol:STAlowestcol:LDAhicol+1:STAlowe stcol+1:.m5b LDAacvl:LSRA:BCCinvullen½m6 :LDA#255:STAmask:½RTS 3470½========== 3480.invullen:½CLD:LDY#0:LDX#128:STYqlo :STYqlo+256 3490.b0a TYA:INY:BEQb1a:STXhelp:ASLA:RO Lhelp:½SEC:ADCqlo-1,Y:STAqlo,Y:LDAhelp:A DCqlo+255,Y:STAqlo+256,Y:BCCb0a 3500.b1a INX:STYqhi:LDAqhi256:AND#252:O RA#1:STAqhi256 3510.b1b TYA:INY:BEQb1c:STXhelp:ASLA:RO Lhelp:ADCqlo-1,Y:LDAhelp:ADCqhi-1,Y:STAq hi,Y:LDAqhi256,Y:AND#252:STAhelp:LDAqhi2 56-1,Y:AND#3:ADChelp½#0:½ORAqhi256,Y:STA qhi256,Y:BCCb1b:.b1c 3520LDX#5:.b12 LDAsize,X:STAhelp2+10,X: DEX:BPL b12 3530LDY#2½hoevaak:.b12a LDX#5:CLC:.b12b RORhelp2+10,X:DEX:BPLb12b:DEY:BPL b12a 3540LDAvlag:AND#8:LSRA:LSRA:TAX:½LDX#0: .b13 ½STX itload:LDAmethod,X:STA help+14 :INX:LDA method,X:STAhelp+15:½BPL b13esc :½RTS beveiliging onnodig:.b13esc INX:CP X#10:BCSb15 3550½=== itload is 0=2 8=6 3560LDAhelp2+15:BNE b15 3570LDY#5:CLC:.b25b LDAhelp2+9,Y:RORA:S TAhelp2+10,Y:DEY:BNEb25b 3580BEQb13 ½X niet gebruiken!! 3590½=== 3600.b15 TXA 3610LDX#10:.b15a LDYjumptab0,X:STYhelp2 :LDYjumptab0+1,X:STYhelp2+1 3620PHA:CMP#8:BCC b15ab:LDAjumptab2,X:P HA:LDAjumptab2+1,X:BCS b15b 3630.b15ab CMP#4:BCC b15ac:LDAjumptab1, X:PHA:LDAjumptab1+1,X:BCS b15b 3640.b15ac LDAjumptab3,X:PHA:LDAjumptab 3+1,X 3650.b15b LDY#1:STA(help2),Y:DEY:PLA:ST A(help2),Y 3660PLA:DEX:DEX:BPLb15a 3670LDY#0:LDA (help+14),Y:STAaddress:IN Y:LDA(help+14),Y:STAaddress+1:INY 3680.b16 3690LDA(help+14),Y:½CMP#128:BNE b25esc: RTS:.b25esc:STAhelp2:INY 3700LDX#1:.b17 LDA(help+14),Y:STAhelp2, X:INY:INX:CPX#3½8:BNE b17 3710TYA:PHA 3720LDY#0 3730½============= 3740.b18 LDAhelp2+2½7!:STAhelp+8:LDAhe lp2½0!:STAhelp+9 3750LDA#0:STAhelp+5:STAhelp+6:STAhelp+7 3760LDX#6:.b21 TXA:PHA 3770LDX#0:.b21a LDAhelp+1,X:STAhelp,X:I NX:CPX#7:BNEb21a 3780LSRhelp+8:BEQb21d 3790LDX#0:LSRhelp+9:BCCb21b:DEX:.b21b: 3800TXA:EOR qlo,Y:ADChelp+5:STAhelp+5 3810TXA:EORqlo+256,Y:ADC help+6:STAhelp +6: 3820TXA:ADChelp+7:STAhelp+7 3830.b21d PLA:TAX:DEX:BNEb21 3840.b21c: 3850LDAhelp2+2½7!:STAhelp+9 ½stuur2,8-1 3 weer vrij 3860LDAhelp2+1½6:STAhelp+11:½LDX#0:STXh elp+10 ½en adres waarnaartoe 3870.b23 LSR help+9:BCC b24:LDAhelp,X:S TA(help+10),Y:INC help+11:.b24 INX:CPX#7 :BNE b23 3880INY:BNE b18 3890½=============== 3900PLA:TAY:JMP b16 3910½========== 3920.m6a LDAhelp+5:SBClocol½zo laten:LD Ahelp+6:SBClocol+1:.m6 RTS 3930.m11 LDX#3:.m11a LDAhelp+3,X:STAhel p+6,X:LDA#0:STAhelp+3,X:DEX:BNEm11a 3940LDX#17:CLC:BNEm13 3950.m12 CLC:LDAhelp+4:ADChelp+7:STAhel p+4:LDAhelp+5:ADChelp+8:STAhelp+5:LDAhel p+6:ADChelp+9:STAhelp+6 3960.m13 RORhelp+6:RORhelp+5:RORhelp+4: RORhelp+1:RORhelp:DEX:BEQm6:BCSm12:BCCm1 3 3970½============== 3980½Lengte targetfile te halen uit (ei ndstand &8A,8B½72,&73)-&4000.½Nog invull en source voor decompr,nl.&8000-lengte g ecompr file. Neemt aan 16K op&4000. 3990.compr JSRinit:½&4000 voor source e n target:JSRpop 4000.z270 STY&8D½75½counter:LDX&8C½74½b ite 4010.z290 LDA&89½71½eind msb:BMIz390:JS Rpop 4020TXA:AND#63:EOR&8C½74½bite:BNEz360 4030TXA:CLC:ADC#64:BCS z340:TAX:BCCz290 4040.z340 LDA&8D½75½counter:CMP#254:BCS z360:INC&8D½75½counter:BCCz290 4050.z360 JSRpush2:BCCz270:JSRpush:BNEz 270 4060.z390 JSRpush2:BCCpop1:BCSpush½*JMP push 4070.init LDY#0:STY&88½70:STY&8A½72:LDA #&40½voor source(compr)of targ(decompr): STA&8B½73:STA&89½71:RTS 4080.push3 LDA&8C½bite:AND#63:JSRpush:L DA#&7F½einde msb:CMP&8B:RTS 4090.push2 TXA:JSRpush:CMP#192:LDA&8D½7 5½counter:RTS 4100.pop LDA(&88),Y½70:STA&8C½74½bite:I NC&88½70:BNEpop1:INC&89½71:.pop1 RTS 4110.push STA(&8A),Y½72:INC&8A½72:BNEpu sh4:INC&8B½73:.push4 RTS 4120.decompr PHA:JSRinit:PLA:STX&88½70: STA&89½71½VAN in X(lsb) en A(msb):BNEz50 0 4130.z480 JSRpush3:BCCpush4:LDA&8C½74½b ite:SBC#64:BCCz500:STA&8C½74½bite:BCSz48 0 4140.z500 JSRpop:CMP#192:BCCz480:TAX:JS Rpop:STX&8C½74½bite:TAX 4150.z540 BEQz480:JSRpush3:BCCpush4:DEX :BCSz540 4160.cold 4170]: C%=P%:D%=O% 4180P%=&3000:O%=&2A00 4190[OPTpass 4200.mstr0:EQUS"M aJnudleila DDeepptth h" 4210.xword0:EQUS" e zXYi S" 4220.tab70:EQUD&3030202:EQUW&4 4230.tab80:EQUD&5040504:EQUW&5 4240.tab90:EQUD&2010100:EQUW&3 4250.table00:EQUD&4030302:EQUD&5040504: EQUW&505 4260.table10:EQUD&1020101:EQUD&2030102: EQUW&403 4270.table20:EQUD&5050403:EQUD&7070606: EQUW&908 4280.table30:EQUD&3020201:EQUD&4030403: EQUD&4050405:EQUD&50505 4290.table40:EQUD&0010000:EQUD&1020001: EQUD&3010200:EQUD&40302 4300.table50:EQUD&3030201:EQUD&5050404: EQUD&7060605:EQUD&90807 4310.initmix0:EQUW&3F07*4:EQUW&090F*4:E QUW&360E*4:EQUW&1232*4:EQUW&1B13*4:EQUW& 241C*4:EQUW&2D25*4:EQUW&0028*4 4320.fork0:EQUD&0A080200:EQUD&2A282220: EQUD&B090301:EQUD&2B292321:EQUD&E0C0604: EQUD&2E2C2624:EQUD&0F0D0705:EQUD&2F2D272 5:EQUD&1A181210:EQUD&3A383230:EQUD&1B191 311:EQUD&3B393331:EQUD&1E1C1614:EQUD&3E3 C3634:EQUD&1F1D1715:EQUD&3F3D3735 4330.offsets0:EQUD0:EQUD0:EQUD&0080FFFF :EQUD&FF800001:EQUD&0081007F:EQUD&FF7FFF 81:EQUD&00010080:EQUD&FFFFFF80 4340.sprmess0 EQUS"Sprite(Y/N)?":½EQUD0 4350.madrs0 :EQUW&4000:EQUW&0002:EQUW&4 1F8:EQUW&7E80:EQUW&7E00:EQUW&07FF:EQUW&4 000:EQUW&FFF7 4360.mess0:EQUS"k r B ccssEEt elReHDS,L IKCRMTYMRJGPBIWCNF,X Z //::c p S-tsfyheS K" 4370.cursoff0 EQUD&01170216:EQUD&0:EQUD &0:EQUD&60313:EQUD&6130000:EQUD&03:EQUD& 1300001C:½EQUD0 4380.okstr0 :EQUD&3F280000:EQUD&3F3F3F0 0:EQUD&FFFFFF3F:EQUD&3F3F3FFF:EQUD&3F3F3 F3F:EQUD&3F3F3F 4390.inktab0 EQUD&BBACCCAA:EQUD&DEAD9A9 B 4400] 4410P%=&318C:O%=&2B8C 4420[OPTpass 4430.method0:EQUW muad2 4440 EQUW muad3 4450 EQUW muad4 4460 EQUW muad5 4470 EQUW muad6 4480 ½EQUW -1 4490½------------- 4500.muad20:EQUW d1:EQUB129:EQUB q2m DI V256:EQUB 7 4510EQUB0 4520½============== 4530.muad30:EQUW d3 4540EQUB132:EQUB qmpp DIV256:EQUB 14 4550EQUB130:EQUB qpmp DIV256:EQUB 14 4560EQUB129:EQUB qppm DIV256:EQUB 15 4570 EQUB0 4580½==================== 4590.muad40:EQUW d7 4600EQUB136:EQUB qmppp DIV 256:EQUB 30 4610EQUB132:EQUB qpmpp DIV256:EQUB 28 4620EQUB130:EQUB qppmp DIV256:EQUB 30 4630EQUB129:EQUB qpppm DIV256:EQUB 28 4640EQUB0 4650.muad50 ::EQUWd15 4660EQUB128:EQUB q5p DIV256:EQUB 62 4670EQUB0 4680.muad60:EQUWd26 4690EQUB128:EQUB q6p DIV256:EQUB 127 4700EQUW0½EQUD0 4710½===== 4720.jumptab00 EQUWjump0:EQUW jump1:EQU W jump2:EQUW jump3:EQUW jump4:EQUW jump5 4730.jumptab01 EQUW&0A90:EQUW&0A90:EQUW &0AB0:EQUW&0C90:EQUW&0AD0:LDX#1 4740.jumptab02 LDAe:LDAe:LDAe,X:LDAb:EO R0,X:LDX#255½SBCd 4750.jumptab03 EQUW&1690:EQUW&1690:EQUW &16B0:EQUW&1A90:EQUW&16D0:LDX#3 4760.tabs020 EQUW work:EQUW&3F80:EQUB12 7:EQUB128 4770 EQUW start:EQUW&2FD0:EQUB47 :EQUB48 ½en X is 6 4780] 4790IFpass=6 PRINT"JMP(address) at &"÷c 20b 4800IF P%>&3200 PRINT"Code requires too much space":END 4810NEXT 4820A%=mem:B%=mul6:E%=mandel6:F%=invull en 4830H%=osb:I%=s125:J%=a40:K%=colroutine :M%=s3cc:S%=preosb:T%=s4c:U%=compr:V%=de compr 4840OSCLI("save :0.fasttmp 800 "+STR$÷O %):PRINT 4850CHAIN":0.mbsrc1" 4860END