@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} A |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED325 FREE SECTORS COPYING---D1:PLOT4}2.DSK# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 2.?}D2:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u0100 ;0110 ; Sir Toot! WORK PART-SIR1.ASY0120 ;0130 ; by0140 ;0150 ; Itay & Nitzan0160 ; Chamiel0170 ;0180 ;V} (c) 1990-19910190 ; Logic ltd.0200 ;0210 ; Finished all but Magnify!0220 ;0230 .OPT NOLIST0240 ;0250 *=$800260 ;W}0100 ;0110 ; Sir Toot! WORK PART-SIR1.ASY0120 ;0130 ; by0140 ;0150 ; Itay & Nitzan0160 ; Chamiel0170 ;0180 ; X} (c) 1990-19910190 ; Logic ltd.0200 ;0210 ; Finished all but Magnify!0220 ;0230 .OPT NOLIST0240 ;0250 *=$800260 ; Y}0270 COLORSAV .BYTE $28,$CA,$94,$46,00280 XOLD .BYTE 00290 GR .BYTE 120300 X .BYTE 00310 Y .BYTE 0,00320 COLOR .BYTE 1 Z}0330 TEMP .BYTE 00340 NUML .BYTE 00350 NUMH .BYTE 00360 HPOS .BYTE 00370 YOLD .BYTE 00380 MIR .BYTE 0,0,0,0,00390 MEM . [}BYTE 0,0,0,0,0,0,00400 FLASH .BYTE 10410 SCLO .BYTE 00420 SCHI .BYTE 00430 CP .BYTE 00440 MEMX .BYTE 0,159,0,1590450 ME \}MY .BYTE 0,0,191,1910460 ABRUSH .WORD BRADR10470 COUNTER .BYTE 00480 SX .BYTE 00490 SY .BYTE 00500 MENUX .BYTE 510510 P ]}RY .BYTE 00520 PRX .BYTE 00530 INV .BYTE 00540 MAIN .BYTE 00550 EOR .BYTE 00560 ONOFF .BYTE 00570 WAIT .BYTE 00580 SCL ^}X .BYTE 800590 SCLY .BYTE 950600 SL .BYTE 00610 CT .BYTE 00620 DRX .BYTE 00630 DRY .BYTE 00640 ADX .BYTE 00650 ADY .BY _}TE 00660 DLX .BYTE 00670 DLY .BYTE 00680 TXRMH .BYTE 00690 TXRM .BYTE 00700 TXLO .WORD TEXT0710 TXHI=TXLO+10720 CTR1 . `}BYTE 00730 CTR2 .BYTE 00740 CTR3 .BYTE 00750 WHN .BYTE 00760 GET .BYTE 00770 PUT .BYTE 00780 FX .BYTE 00790 FY .BYTE 0 a},00800 OLDC .BYTE 00810 ;0820 OPEN=30830 CLOSE=120840 LOCATE=70850 TEXT=$B8000860 TRADX=$B8000870 TRADY=$B9000880 M0 b}=$BB000890 PM0=$BC000900 PM1=$BD000910 PM2=$BE000920 PM3=$BF000930 XTAB=PM20940 YTAB=PM30950 PM0X=532480960 PM1X=5324 c}90970 PM2X=532500980 PM3X=532510990 M0X=532521000 M1X=532531010 M2X=532541020 M3X=532551030 PM0S=532561040 PM1S=53257 d}1050 PM2S=532581060 PM3S=532591070 MISS=532601080 ;1090 STIMER=$141100 SETVBV=$E45C1110 XITVBV=$E4621120 ICCOM=$3421 e}130 ICBAL=$3441140 ICBAH=$3451150 ICBLL=$3481160 ICBLH=$3491170 ICAX1=$34A1180 ICAX2=$34B1190 CIOV=$E4561200 STICK=632 f}1210 STRIG=6441220 VCOUNT=$D40B1230 ;1240 ; Variables from main program1250 ;1260 MAINLOOP=$2D751270 NOY=$2D981280 PA g}INT=$2E031290 KEYCHECK=$2E3A1300 SCALE=$2F511310 CH.SX=$2FDC1320 CLEAR=$30C61330 PRINT=$30F61340 MENU=$313A1350 POINT= h}$32861360 GET.KEY=$32F11370 NUMBERS=$33011380 MIRROR=$334A1390 BRUSH=$33C01400 ;1410 LINE1=$33EA+401420 LINE2=$3412+40 i}1430 LNPRN=$34F9+401440 CIPRN=$3521+401450 REPRN=$3549+401460 FLPRN=$3571+401470 GRPRN=$3599+401480 WRPRN=$35C1+401490 j} MGPRN=$35E9+401500 BRPRN=$3611+401510 MIPRN=$3639+401520 OOPRN=$3661+401530 DPRN=$36E5+401540 DLOAD=$370D+401550 DSAVE k}=$3735+401560 QUPRN=$375D+401570 IPRN=$3785+401580 CPRN=$37AD+401590 EPRN=$37D5+401600 BRADR1=$385C+401610 BRADR2=$3898 l}+401620 BRADR3=$38D4+401630 DUMMY=$3820+40 same as STUPID1640 FNAME=$384D+401650 DLIST=$6001660 CHARSET=$A0001670 SCALI m}NE=$6FF-401680 ;1690 *=$3C001700 TBJMP1710 .WORD PAINT-1,LINE-1,CIRCLE-11720 .WORD RECT-1,FILL-1,GRED-11730 .WORD W n}RITE-1,MAGNIFY-11740 .WORD CHBRUSH-1,CHMIRRORS-11750 .WORD OOPS-1,SCALE-1,CLEAR-11760 .WORD DISK-1,HELP-1,INSTRUCT-117 o}70 .WORD COLORS-1,BREDIT-11780 RECT LDX #REPRN/2561790 LDY #REPRN&2551800 JSR PRINT1810 RLOOP1820 LDA #11830 STA M p}AIN1840 JSR MAINLOOP1850 LDA 7641860 CMP #2551870 BEQ PRE1880 JSR KEYCHECK1890 JMP RLOOP1900 PRE LDA STRIG1910 q} BEQ PRE1920 LDX X1930 STX PRX1940 LDY Y1950 STY PRY1960 LDX #01970 STX MAIN1980 INX1990 STX EOR2000 RLOOP2 r}JSR MAINLOOP2010 LDA X2020 STA SX2030 LDA Y2040 STA SY2050 JSR XDRAWTO2060 JSR YDRAWTO2070 JSR XDRAWTO2080 JS s}R YDRAWTO2090 LDA SX2100 STA X2110 LDA SY2120 STA Y2130 LDA 7642140 CMP #2552150 BNE KCHEK2160 LDA STRIG2170 t} BNE RLOOP22180 FIRE LDA STRIG2190 BEQ FIRE2200 LDA #02210 STA EOR2220 LDA COLOR2230 STA CP2240 JSR XDRAWTO225 u}0 JSR YDRAWTO2260 LDA SX2270 STA X2280 LDA SY2290 STA Y2300 JSR POINT2310 JMP RLOOP2320 KCHEK JSR GET.KEY2330 v} CMP #322340 BEQ CANCEL2350 CMP #1202360 BEQ BOX2370 JSR ARROWS2380 JSR CHNUM2390 JMP RLOOP22400 CANCEL LDA PRX w}2410 STA X2420 LDA PRY2430 STA Y2440 LDA #02450 STA EOR2460 JMP RLOOP2470 BOX2480 LDA X2490 PHA2500 STA SX x}2510 LDA Y2520 PHA2530 STA SY2540 LDA PRX2550 CMP X2560 BEQ SAMEASFIR2570 LDA PRY2580 CMP Y2590 BEQ SAMEASFI y}R2600 LDA #02610 STA EOR2620 LDA COLOR2630 STA CP2640 JSR XDRAWTO2650 LDA SX2660 STA X2670 LDA SY2680 STA Y z}2690 JSR POINT2700 BXLOOP2710 LDA SX2720 STA X2730 JSR YDRAWTO2740 LDA SX2750 CMP PRX2760 BEQ ENDBX2770 INC {}PRX2780 CMP PRX2790 BEQ ENDBX2800 DEC PRX2810 CLC2820 ADC ADX2830 STA SX2840 LDA PRX2850 SEC2860 SBC ADX28 |}70 STA PRX2880 JMP BXLOOP2890 ENDBX2900 PLA2910 STA Y2920 PLA2930 STA X2940 JMP RLOOP2950 SAMEASFIR2960 PLA }}2970 PLA2980 JMP FIRE2990 GMENU JMP MENU3000 GDIR JMP DIR3010 GKOALA JMP KOALA3020 GSAVE JMP SAVE3030 DISK3040 LDX ~}#DPRN/2563050 LDY #DPRN&2553060 JSR PRINT3070 GKEY3080 LDA 7643090 CMP #2553100 BEQ GKEY3110 JSR GET.KEY3120 C }MP #323130 BEQ GMENU3140 CMP #763150 BEQ LOAD3160 CMP #833170 BEQ GSAVE3180 CMP #153190 BEQ GKOALA3200 CMP #6 }83210 BEQ GDIR3220 JMP GKEY3230 LOAD3240 LDX #DLOAD/2563250 LDY #DLOAD&2553260 JSR PRINT3270 JSR PROMPT3280 LD }X #$203290 LDA #OPEN3300 STA ICCOM+$203310 LDA #FNAME/2563320 STA ICBAH+$203330 LDA #FNAME&2553340 STA ICBAL+$20 }3350 LDA #43360 STA ICAX1+$203370 LDA #03380 STA ICAX2+$203390 JSR CIOV3400 LDX #$203410 LDA #73420 STA ICCOM+ }$203430 LDA 893440 STA ICBAH+$203450 LDA 883460 STA ICBAL+$203470 LDA #7680/2563480 STA ICBLH+$203490 LDA #7680 }&2553500 STA ICBLL+$203510 JSR CIOV3520 LDX #$203530 LDA #73540 STA ICCOM+$203550 LDA #COLOR/2563560 STA ICBAH+ }$203570 LDA #COLOR&2553580 STA ICBAL+$203590 LDA #03600 STA ICBLH+$203610 LDA #53620 STA ICBLL+$203630 JSR CIOV }3640 LDX #43650 MOVCL3660 LDA COLORSAV,X3670 STA 708,X3680 DEX3690 CPX #2553700 BNE MOVCL3710 LDX #$203720 L }DA #CLOSE3730 STA ICCOM+$203740 JSR CIOV3750 JMP DISK3760 SAVE LDX #DSAVE/2563770 LDY #DSAVE&2553780 JSR PRINT379 }0 JSR PROMPT3800 LDX #$203810 LDA #OPEN3820 STA ICCOM+$203830 LDA #FNAME/2563840 STA ICBAH+$203850 LDA #FNAME&25 }53860 STA ICBAL+$203870 LDA #83880 STA ICAX1+$203890 JSR CIOV3900 LDX #$203910 LDA #113920 STA ICCOM+$203930 }LDA 893940 STA ICBAH+$203950 LDA 883960 STA ICBAL+$203970 LDA #7680/2563980 STA ICBLH+$203990 LDA #7680&2554000 } STA ICBLL+$204010 JSR CIOV4020 LDX #$204030 LDA #114040 STA ICCOM+$204050 LDA #708/2564060 STA ICBAH+$204070 L }DA #708&2554080 STA ICBAL+$204090 LDA #04100 STA ICBLH+$204110 LDA #54120 STA ICBLL+$204130 JSR CIOV4140 LDX #$ }204150 LDA #CLOSE4160 STA ICCOM+$204170 JSR CIOV4180 JMP DISK4190 PROMPT LDA #64200 STA PRX4210 GETK LDX PRX4220 } LDA #95-324230 STA DUMMY,X4240 GETK14250 LDA 7644260 CMP #2554270 BEQ GETK14280 JSR GET.KEY4290 CMP #1554300 } BEQ RETURN4310 CMP #1264320 BEQ DELETE4330 CMP #484340 BCC GETK14350 CMP #914360 BCS GETK14370 CMP #584380 B }CS WELL4390 BAKWELL4400 SEC4410 SBC #324420 LDX PRX4430 STA DUMMY,X4440 INC PRX4450 LDA PRX4460 CMP #144470 }BNE GETK4480 DEC PRX4490 JMP GETK14500 WELL CMP #654510 BCS BAKWELL4520 JMP GETK14530 RETURN LDX PRX4540 LDA #04 }550 STA DUMMY4560 STA DUMMY+14570 STA DUMMY+24580 STA DUMMY+34590 LDA #68-324600 STA DUMMY+44610 LDA #46-324620 } STA DUMMY,X4630 LDA #84-324640 STA DUMMY+1,X4650 STA DUMMY+3,X4660 LDA #85-324670 STA DUMMY+2,X4680 LDX #44690 } RETLOOP LDA DUMMY,X4700 CLC4710 ADC #324720 STA FNAME-4,X4730 INX4740 CPX #184750 BNE RETLOOP4760 LDA #584770 } STA FNAME+54780 RTS4790 DELETE LDX PRX4800 BEQ NOBAK4810 CPX #144820 LDA #04830 STA DUMMY,X4840 DEX4850 CPX }#54860 BEQ BACKH4870 STX PRX4880 NOBAK LDA #95-324890 STA DUMMY,X4900 JMP GETK14910 BACKH PLA4920 PLA4930 JMP D }ISK4940 DRAWTO4950 LDX #04960 STX CT4970 INX4980 STX ADX4990 STX ADY5000 LDA DRY5010 SEC5020 SBC Y5030 BCS } SKIP15040 DEC ADY5050 DEC ADY5060 LDA Y5070 SEC5080 SBC DRY5090 SKIP1 STA DLY5100 LDA DRX5110 SEC5120 SBC X }5130 BCS SKIP25140 DEC ADX5150 DEC ADX5160 LDA X5170 SEC5180 SBC DRX5190 SKIP2 STA DLX5200 CMP DLY5210 BCS X }LINE5220 LDA DLY5230 LSR A5240 STA SL5250 LOOPY5260 JSR POINT5270 LDA DLY5280 CMP CT5290 BEQ END5300 LDA Y5 }310 CLC5320 ADC ADY5330 STA Y5340 INC CT5350 LDA SL5360 CLC5370 ADC DLX5380 STA SL5390 BCS FIXY5400 LDA SL }5410 CMP DLY5420 BCC LOOPY5430 LDA SL5440 FIXY SEC5450 SBC DLY5460 STA SL5470 LDA X5480 CLC5490 ADC ADX5500 } STA X5510 JMP LOOPY5520 XLINE LDA DLX5530 LSR A5540 STA SL5550 LOOPX JSR POINT5560 LDA DLX5570 CMP CT5580 BEQ } END5590 LDA X5600 CLC5610 ADC ADX5620 STA X5630 INC CT5640 LDA SL5650 CLC5660 ADC DLY5670 STA SL5680 BCS } FIXX5690 LDA SL5700 CMP DLX5710 BCC LOOPX5720 LDA SL5730 FIXX SEC5740 SBC DLX5750 STA SL5760 LDA Y5770 CLC }5780 ADC ADY5790 STA Y5800 JMP LOOPX5810 END RTS5820 XDRAWTO5830 LDA SX5840 STA X5850 LDA #15860 STA ADX5870 } LDA PRX5880 CMP X5890 BEQ LEND5900 BCS XLREC5910 DEC ADX5920 DEC ADX5930 XLREC5940 LDA X5950 CLC5960 ADC AD }X5970 STA X5980 LDA SY5990 STA Y6000 JSR POINT6010 LDA PRY6020 STA Y6030 JSR POINT6040 LDA PRX6050 CMP X60 }60 BNE XLREC6070 LEND RTS6080 YDRAWTO6090 LDA SY6100 STA Y6110 LDA #16120 STA ADY6130 LDA PRY6140 CMP Y6150 }BEQ LEND6160 BCS YLREC6170 DEC ADY6180 DEC ADY6190 YLREC6200 LDA Y6210 CLC6220 ADC ADY6230 STA Y6240 LDA SX }6250 STA X6260 JSR POINT6270 LDA PRX6280 STA X6290 JSR POINT6300 LDA PRY6310 CMP Y6320 BNE YLREC6330 RTS634 }0 LINE LDX #LNPRN/2566350 LDY #LNPRN&2556360 JSR PRINT6370 LDA #POINT&2556380 STA LOOPX+16390 STA LOOPY+16400 LDA } #POINT&2556410 STA LOOPX+26420 STA LOOPY+26430 LNLOOP6440 LDA #16450 STA MAIN6460 JSR MAINLOOP6470 LDA 7646480 } CMP #2556490 BEQ LNST6500 JSR KEYCHECK6510 JMP LNLOOP6520 LNST LDA STRIG6530 BEQ LNST6540 LDX X6550 STX DRX65 }60 LDY Y6570 STY DRY6580 LDX #06590 STX MAIN6600 INX6610 STX EOR6620 LNLOOP2 JSR MAINLOOP6630 LDA X6640 STA S }X6650 LDA Y6660 STA SY6670 JSR DRAWTO6680 LDA STIMER6690 WL CMP STIMER6700 BEQ WL6710 LDA SX6720 STA X6730 L }DA SY6740 STA Y6750 JSR DRAWTO6760 LDA SX6770 STA X6780 LDA SY6790 STA Y6800 PUTJSR6810 NOP6820 NOP6830 NO }P6840 LDA 7646850 CMP #2556860 BNE KCHEL6870 LDA STRIG6880 BNE LNLOOP26890 FIRL LDA STRIG6900 BEQ FIRL6910 LDA } #06920 STA EOR6930 LDA COLOR6940 STA CP6950 JSR DRAWTO6960 LDA SX6970 STA X6980 LDA SY6990 STA Y7000 JMP L }NLOOP7010 KCHEL JSR GET.KEY7020 CMP #327030 BEQ CANCELL7040 CMP #1167050 BEQ GTRACE7060 CMP #1147070 BEQ RAY708 }0 CMP #1077090 BEQ GKLINE7100 JSR ARROWS7110 JSR CHNUM7120 JMP LNLOOP27130 GTRACE JMP TRACE7140 GKLINE JMP KLINE7 }150 CANCELL LDA DRX7160 STA X7170 LDA DRY7180 STA Y7190 LDA #07200 STA EOR7210 JMP LNLOOP7220 RAY7230 LDA #$4C } JMP7240 STA PUTJSR7250 LDA #RYPRO&2557260 STA PUTJSR+17270 LDA #RYPRO/2567280 STA PUTJSR+27290 LDA DUMMY+187300 } AND #1277310 STA DUMMY+187320 LDA DUMMY+197330 AND #1277340 STA DUMMY+197350 JMP LNLOOP27360 RYPRO7370 LDA 764 }7380 CMP 2557390 BNE RGETK7400 RGETF LDA STRIG7410 BNE RNOFIR7420 LDA #07430 STA EOR7440 LDA COLOR7450 STA CP }7460 JSR DRAWTO7470 LDA SX7480 STA X7490 LDA SY7500 STA Y7510 LDA #17520 STA EOR7530 RNOFIR JMP LNLOOP27540 RG }ETK JSR GET.KEY7550 CMP #327560 BEQ RCANC7570 JSR CHNUM7580 JSR ARROWS7590 LDA X7600 STA SX7610 LDA Y7620 STA } SY7630 JMP RGETF7640 RCANC7650 LDA #$EA7660 STA PUTJSR7670 STA PUTJSR+17680 STA PUTJSR+27690 LDA DUMMY+187700 } ORA #1287710 STA DUMMY+187720 LDA DUMMY+197730 ORA #1287740 STA DUMMY+197750 JMP CANCELL7760 KLINE7770 LDA #$4C }7780 STA PUTJSR7790 LDA #KPRO&2557800 STA PUTJSR+17810 LDA #KPRO/2567820 STA PUTJSR+27830 LDA DUMMY+227840 AND }#1277850 STA DUMMY+227860 LDA DUMMY+237870 AND #1277880 STA DUMMY+237890 LDA DUMMY+247900 AND #1277910 STA DUMM }Y+247920 LDA DUMMY+257930 AND #1277940 STA DUMMY+257950 LDA DUMMY+267960 AND #1277970 STA DUMMY+267980 JMP LNLO }OP27990 KPRO8000 LDA STRIG8010 BEQ KFIRE8020 LDA 7648030 CMP #2558040 BEQ KKEY8050 JMP LNLOOP28060 KFIRE LDA ST }RIG8070 BEQ KFIRE8080 LDA #08090 STA EOR8100 LDA COLOR8110 STA CP8120 JSR DRAWTO8130 LDA SX8140 STA X8150 S }TA DRX8160 LDA SY8170 STA Y8180 STA DRY8190 LDA #18200 STA EOR8210 JMP LNLOOP28220 KKEY8230 JSR GET.KEY8240 }CMP #328250 BEQ KCANC8260 JSR ARROWS8270 JSR CHNUM8280 JMP LNLOOP28290 KCANC8300 LDA #$EA8310 STA PUTJSR8320 S }TA PUTJSR+18330 STA PUTJSR+28340 LDA DUMMY+228350 ORA #1288360 STA DUMMY+228370 LDA DUMMY+238380 ORA #1288390 S }TA DUMMY+238400 LDA DUMMY+248410 ORA #1288420 STA DUMMY+248430 LDA DUMMY+258440 ORA #1288450 STA DUMMY+258460 L }DA DUMMY+268470 ORA #1288480 STA DUMMY+268490 LDA SX8500 STA X8510 LDA SY8520 STA Y8530 LDA #08540 STA EOR85 }50 JMP LNLOOP8560 TRACE8570 LDA DUMMY+298580 AND #1278590 STA DUMMY+298600 LDA DUMMY+308610 AND #1278620 STA DU }MMY+308630 LDA DUMMY+318640 AND #1278650 STA DUMMY+318660 LDA DUMMY+328670 AND #1278680 STA DUMMY+328690 LDA #T }RJ/2568700 STA LOOPY+28710 STA LOOPX+28720 LDA #TRJ&2558730 STA LOOPY+18740 STA LOOPX+18750 LDA #08760 STA XOLD }8770 STA EOR8780 JSR DRAWTO8790 LDA #2558800 LDX XOLD8810 STA TRADX,X8820 STA TRADY,X8830 LDA #POINT/2568840 }STA LOOPY+28850 STA LOOPX+28860 LDA #POINT&2558870 STA LOOPY+18880 STA LOOPX+18890 LDA #08900 STA MAIN8910 STA }XOLD8920 TLOOP8930 LDX XOLD8940 LDA TRADX,X8950 STA X8960 LDA TRADY,X8970 STA Y8980 JSR NOY8990 LDA STRIG9000 } BNE TNOPL9010 JSR POINT9020 TNOPL9030 LDA #49040 BIT STICK9050 BNE NO1009060 LFT LDA XOLD9070 SEC9080 SBC ADX }9090 JMP DUN9100 NO1009110 LDA #89120 BIT STICK9130 BNE NO10009140 RT LDA XOLD9150 CLC9160 ADC ADX9170 JMP DU }N9180 NO1000 LDA STICK9190 CMP #149200 BNE NO149210 UP LDA XOLD9220 SEC9230 SBC ADY9240 JMP DUN9250 NO149260 C }MP #139270 BNE ONE9280 DWN LDA XOLD9290 CLC9300 ADC ADY9310 JMP DUN9320 ONE LDA XOLD9330 DUN9340 TAX9350 CMP # }2559360 BNE NO2559370 INX9380 NO2559390 LDA TRADX,X9400 CMP #2559410 BNE NOLIM9420 DEX9430 NOLIM9440 STX XOLD }9450 JSR EORPLOT9460 TW1 LDA VCOUNT9470 BNE TW19480 JSR EORPLOT9490 TW2 LDA VCOUNT9500 BNE TW29510 LDA 7649520 }CMP #2559530 BNE PRESS9540 JMP TLOOP9550 PRESS JSR GET.KEY9560 CMP #329570 BNE NOCANCEL9580 LDA DUMMY+299590 ORA } #1289600 STA DUMMY+299610 LDA DUMMY+309620 ORA #1289630 STA DUMMY+309640 LDA DUMMY+319650 ORA #1289660 STA DUM }MY+319670 LDA DUMMY+329680 ORA #1289690 STA DUMMY+329700 JMP LNLOOP9710 NOCANCEL9720 JSR CHNUM9730 CMP #429740 } BEQ GLFT9750 CMP #439760 BEQ GRT9770 CMP #459780 BEQ UP9790 CMP #619800 BEQ DWN9810 JMP TLOOP9820 GLFT JMP LF }T9830 GRT JMP RT9840 EORPLOT LDA X9850 PHA9860 LDA Y9870 PHA9880 LDA DRX9890 STA X9900 LDA DRY9910 STA Y9920 } LDA #19930 STA EOR9940 JSR POINT9950 LDA SX9960 STA X9970 LDA SY9980 STA Y9990 JSR POINT010000 LDA #001001 }0 STA EOR010020 PLA010030 STA Y010040 PLA010050 STA X010060 RTS010070 CHNUM010080 CMP #48010090 BCC NBAK0101 }00 CMP #52010110 BCS NBAK010120 STA TEMP010130 SEC010140 SBC #48010150 STA COLOR010160 STA CP010170 ASL A0101 }80 ASL A010190 CLC010200 ADC #192010210 STA M1X010220 LDA TEMP010230 NBAK RTS010240 TRJ010250 LDX XOLD010260 L }DA X010270 STA TRADX,X010280 LDA Y010290 STA TRADY,X010300 INC XOLD010310 RTS010320 ARROWS010330 STA TEMP010340 } CMP #43010350 BEQ MLEFT010360 CMP #42010370 BEQ MRIGHT010380 CMP #45010390 BEQ MUP010400 CMP #61010410 BEQ MD }OWN010420 ABAK LDA TEMP010430 RTS010440 MLEFT LDA X010450 CMP #0010460 BEQ ABAK010470 DEC X010480 JMP ABAK010490 } MRIGHT LDA X010500 CMP #159010510 BEQ ABAK010520 INC X010530 JMP ABAK010540 MUP LDA Y010550 CMP #0010560 BEQ AB }AK010570 DEC Y010580 JMP ABAK010590 MDOWN LDA Y010600 CMP #191010610 BEQ ABAK010620 INC Y010630 JMP ABAK010640 }CIRCLE010650 GRED010660 WRITE010670 CHBRUSH010680 CHMIRRORS010690 OOPS010700 HELP010710 INSTRUCT010720 COLORS010730 }BREDIT010740 ;010750 KOALA010760 DIR010770 ;010780 JMP MENU010790 MGFD LDA X010800 CLC010810 ADC #2010820 AND #2 }52010830 SEC010840 SBC #20010850 BCS NOLEFT010860 LDA #0010870 BEQ NORIGHT010880 NOLEFT010890 CMP #120010900 B }CC NORIGHT010910 LDA #120010920 NORIGHT STA CTR1010930 CLC010940 ADC #44010950 STA SX010960 LDA Y010970 SEC0109 }80 SBC #19010990 BCS NOUP011000 LDA #0011010 BEQ NODOWN011020 NOUP011030 CMP #154011040 BCC NODOWN011050 LDA #1 }54011060 NODOWN STA CTR2011070 CLC011080 ADC #22011090 STA SY011100 RTS011110 MAGNIFY011120 LDX #MPRN/256011130 } LDY #MPRN&255011140 JSR PRINT011150 LDA #0011160 STA MAIN011170 STA 53257011180 STA 53259011190 STA TXLO011200 } LDX #0011210 ERPLR011220 STA PM0,X011230 STA PM1,X011240 STA PM2,X011250 STA PM3,X011260 INX011270 BNE ERPLR01 }1280 LDA #TEXT/256011290 STA TXHI011300 LDA #3011310 STA 53258011320 LDA #15011330 STA 705011340 STA 706011350 } STA 707011360 JSR MGFD011370 TAX011380 LDY #0011390 INX011400 MOR INX011410 LDA #16011420 STA PM1,X011430 LSR } A011440 STA PM3,X011450 INY011460 CPY #38011470 BNE MOR011480 MAGLOOP011490 JSR MAINLOOP011500 JSR MGFD011510 } TAX011520 LDA #0011530 STA PM1,X011540 STA PM2,X011550 STA PM3,X011560 INX011570 LDA #255011580 STA PM2,X0115 }90 LDA #248011600 STA PM3,X011610 LDA #31011620 STA PM1,X011630 INX011640 LDA #0011650 STA PM2,X011660 LDA #8 }011670 STA PM3,X011680 ASL A011690 STA PM1,X011700 TXA011710 CLC011720 ADC #37011730 TAX011740 LDA #16011750 } STA PM1,X011760 LSR A011770 STA PM3,X011780 LDA #0011790 STA PM2,X011800 INX011810 LDA #255011820 STA PM2,X01 }1830 LDA #248011840 STA PM3,X011850 LDA #31011860 STA PM1,X011870 INX011880 LDA #0011890 STA PM1,X011900 STA P }M2,X011910 STA PM3,X011920 LDA SX011930 STA 53249011940 CLC011950 ADC #8011960 STA 53250011970 CLC011980 ADC }#32011990 STA 53251012000 MW LDA VCOUNT012010 BNE MW012020 LDA STRIG012030 BEQ MFIRE012040 LDA 764012050 CMP #25 }5012060 BNE MKEY012070 BMKEY JMP MAGLOOP012080 MKEY JSR GET.KEY012090 CMP #32012100 BNE BMKEY012110 LDA #0012120 }STA HPOS012130 STA 53248012140 STA 53249012150 STA 53250012160 STA 53251012170 JMP MENU012180 MFIRE012190 LDA 88 }012200 STA SCLO012210 LDA 89012220 STA SCHI012230 LDA #0012240 STA Y+1012250 LDA CTR2012260 ASL A012270 ROL Y }+1012280 ASL A012290 ROL Y+1012300 ADC CTR2012310 BCC CLEAR1012320 INC Y+1012330 CLEAR1012340 ASL A012350 ROL }Y+1012360 ASL A012370 ROL Y+1012380 ASL A012390 ROL Y+1012400 ADC SCLO012410 BCC CLEAR2012420 INC Y+1012430 CL }EAR2 STA NUML012440 LDA Y+1012450 CLC012460 ADC SCHI012470 STA SCHI012480 STA NUMH012490 LDA CTR1012500 LSR A0 }12510 LSR A012520 CLC012530 ADC NUML012540 BCC CLEAR3012550 INC SCHI012560 CLEAR3 STA SCLO012570 ;012580 LDA #0 }012590 TAX012600 DEL STA TEXT,X012610 STA TEXT+$100,X012620 STA TEXT+$200-8,X012630 STA PM0,X012640 INX012650 BNE } DEL012660 STA 53248012670 STA 53249012680 STA 53250012690 STA 53251012700 LDX #40012710 ERSC STA SCALINE,X012720 } DEX012730 CPX #255012740 BNE ERSC012750 LDA #0012760 STA M2X012770 LDA NUML012780 STA LMS1012790 LDA NUMH012 }800 STA LMS1+1012810 LDA SY012820 SEC012830 SBC #20012840 STA XOLD012850 LDX #1012860 LDA #14012870 DODL STA K4 },X012880 INX012890 CPX #40012900 BNE DODL012910 LDA #94012920 SEC012930 SBC XOLD012940 BEQ NO4K012950 CMP #38 }012960 BCS NO4K012970 TAX012980 LDA #64+14012990 STA K4,X013000 LDA #0013010 STA K4+1,X013020 LDA #$90013030 }STA K4+2,X013040 JMP MAGN013050 NO4K LDA #1013060 STA K4+37013070 LDA #K4+40&255013080 STA K4+38013090 LDA #K4+40/ }256013100 STA K4+39013110 MAGN LDY #0013120 STY CTR1013130 STY CTR2013140 STY CTR3013150 STY WHN013160 B38 LDA TX }LO013170 STA TXRM013180 LDA TXHI013190 STA TXRMH013200 B10 LDA (SCLO),Y013210 STA TEMP013220 B4 LDA (TXLO),Y013230 } ASL TEMP013240 ROL A013250 ASL TEMP013260 ROL A013270 STA (TXLO),Y013280 LDA TXLO013290 CLC013300 ADC #10133 }10 STA TXLO013320 BCC NOCR1013330 INC TXHI013340 NOCR1 INC CTR1013350 LDA CTR1013360 CMP #4013370 BNE B4013380 }STY CTR1013390 LDA SCLO013400 CLC013410 ADC #1013420 STA SCLO013430 BCC NOCR2013440 INC SCHI013450 NOCR2 INC CTR }2013460 LDA CTR2013470 CMP #10013480 BNE B10013490 STY CTR2013500 LDA SCLO013510 CLC013520 ADC #30013530 STA }SCLO013540 BCC NOCR3013550 INC SCHI013560 NOCR3 LDA WHN013570 EOR #1013580 STA WHN013590 BEQ TXLINE013600 LDA TX }RM013610 STA TXLO013620 LDA TXRMH013630 STA TXHI013640 TXLINE INC CTR3013650 LDA CTR3013660 CMP #38013670 BNE B3 }8013680 ;013690 LDA #MCHARS/256013700 STA 756013710 LDA #MDLIST/256013720 STA 561013730 LDA #MDLIST&255013740 ST }A 560013750 LDY #MGPRN&255013760 JSR PRINT013770 JSR MGMLOOP013780 WK LDA 764013790 CMP #255013800 BEQ WK013810 }JSR GET.KEY013820 LDA #0013830 STA 53258013840 LDA #10013850 STA 705013860 LDA #DLIST/256013870 STA 561013880 L }DA #DLIST&255013890 STA 560013900 LDA #46013910 STA M2X013920 LDA ONOFF013930 BEQ NOSCAL013940 JSR CH.SX013950 N }OSCAL013960 LDA #CHARSET/256013970 STA 756013980 LDA 89013990 STA SCHI014000 LDA 88014010 STA SCLO014020 JMP ME }NU014030 MPRN014040 .BYTE "MAGNIFY: "014050 .BYTE " 0123"014060 MDLIST .BYTE $70,$60,""0140 }70 .WORD SCALINE014080 .BYTE "N"014090 LMS1014100 K4=LMS1+1014110 .BYTE ""014120 .BYTE " }"014130 .BYTE $00,68014140 .WORD TEXT014150 .BYTE "N"014160 .WORD LINE1014170 .BYTE } "D"014180 .WORD DUMMY014190 .BYTE "N"014200 .WORD LINE2014210 .BYTE "A"014220 .WORD MDLIST014230 MGMLOOP RTS01 }4240 *=$B000014250 MCHARS014260 .BYTE ""014270 .BYTE "***???"014280 .BYTE " }"014290 .BYTE "***???"014300 .BYTE "******"014310 .BYTE "*********???"014320 .BYTE "???? }??"014330 .BYTE "???***??????"014340 .END014350 FILL LDX #FLPRN/256014360 LDY #FLPRN&255014370 JSR PRINT01 }4380 FLOOP014390 LDA #1014400 STA MAIN014410 JSR MAINLOOP014420 LDA 764014430 CMP #255014440 BEQ FLST014450 JSR } KEYCHECK014460 JMP FLOOP014470 FLST014480 LDX #0014490 STX GET014500 INX014510 STX PUT014520 LDA SCHI014530 S }TA NUMH014540 LDA SCLO014550 STA NUML014560 LDA X014570 STA XTAB014580 TAX014590 LDA Y014600 STA YTAB014610 T }AY014620 LDA #$60014630 STA RET014640 JSR DO014650 RL CPX #3014660 BEQ FRL014670 LSR A014680 BCC CR1014690 CLC }014700 ADC #128014710 CR1 LSR A014720 BCC CR2014730 CLC014740 ADC #128014750 CR2 INX014760 JMP RL014770 FRL TAX }014780 LDA CTBL,X014790 STA OLDC014800 LDA #$C5014810 STA RET014820 NP014830 LDX GET014840 LDY YTAB,X014850 LDA } XTAB,X014860 TAX014870 INX014880 JSR DO014890 DEX014900 DEY014910 JSR DO014920 INY014930 DEX014940 JSR DO }014950 INX014960 INY014970 JSR DO014980 INC GET014990 LDA GET015000 CMP PUT015010 BNE NP015020 NOT015030 RTS }015040 DO015050 CPY #192015060 BCS NOT015070 TXA015080 CMP #160015090 BCS NOT015100 STA FX015110 AND #3015120 } TAX015130 STY FY015140 LDA #0015150 STA FY+1015160 LDA NUML015170 STA SCLO015180 LDA NUMH015190 STA SCHI01520 }0 TYA015210 ASL A015220 ROL FY+1015230 ASL A015240 ROL FY+1015250 ADC FY015260 BCC CE1015270 INC FY+1015280 C }E1 ASL A015290 ROL FY+1015300 ASL A015310 ROL FY+1015320 ASL A015330 ROL FY+1015340 ADC SCLO015350 STA SCLO015 }360 LDA SCHI015370 ADC FY+1015380 STA SCHI015390 LDA FX015400 LSR A015410 LSR A015420 CLC015430 ADC SCLO01544 }0 BCC CE2015450 INC SCHI015460 CE2 STA SCLO015470 LDA OLDC015480 AND XTBL,X015490 STA TEMP015500 LDY #0015510 L }DA (SCLO),Y015520 AND XTBL,X015530 RET CMP TEMP015540 BNE NPL015550 LDA (SCLO),Y015560 AND ANTBL,X015570 CLC01558 }0 ADC TEMP015590 STA (SCLO),Y015600 LDX PUT015610 LDA FY015620 STA YTAB,X015630 TAY015640 LDA FX015650 STA XTA }B,X015660 TAX015670 LDA PUT015680 INC PUT015690 CMP GET015700 BNE OK015710 PLA015720 PLA015730 INC GET015740 !} JMP NP015750 OK RTS015760 NPL LDX FX015770 LDY FY015780 RTS015790 CTBL .BYTE $00,$55,$AA,$FF015800 XTBL .BYTE 192,4 "}8,12,3015810 ANTBL .BYTE 63,207,243,252015820 *=$B000015830 MCHARS015840 .BYTE ""015850 .BYTE "** #}*???"015860 .BYTE ""015870 .BYTE "***???"015880 .BYTE "******"015890 .BYTE $}"*********???"015900 .BYTE "??????"015910 .BYTE "???***??????" & Nitzan0160 ; Chamiel0170 ;0180 ; U