@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 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;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u00!.4)#02%3%.43coarsescrolling/n9our!tari"9T}9/52.!-% ppppppppF0ppppGpBK0ppppFs0pppppA0/001"/* 0 * 0 00HU}hL00 1000`0GpBK0ppppFs0pppppA0/001"/* 0 * 0 00H0 ; COARSE SCROLLING, LISTING 210 ; BY MARK ANDREWS20 ; ANTIC PUBLISHING0190 ;0240 LINE1 .BYTE $00,$00,$00,$21,$2E,$34,$2 W}9,$23,$000245 .BYTE $30,$32,$25,$33,$25,$2E,$34,$33,$00,$00,$000250 LINE2 .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00 X},$000255 .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$000260 .BYTE $00,$00,$00,$00,$63,$6F,$61,$72,$73,$6 Y}5,$00,$73,$63,$720265 .BYTE $6F,$6C,$6C,$69,$6E,$67,$00,$00,$00,$00,$00,$00,$00,$000270 LINE3 .BYTE $00,$00,$00,$00,$00 Z},$00,$00,$00,$00,$00,$00,$00,$000275 .BYTE $2F,$6E,$00,$39,$6F,$75,$720280 .BYTE $00,$21,$74,$61,$72,$69,$00,$00,$0 [}0,$00,$000285 .BYTE $00,$00,$00,$00,$00,$00,$00,$00,$000290 LINE4 .BYTE $00,$00,$00,$22,$39,$00,$08,$39,$2F,$35,$32029 \}5 .BYTE $00,$2E,$21,$2D,$25,$09,$00,$00,$00,$00,$00,$000290 LINE4 .BYTE $00,$00,$00,$22,$39,$00,$08,$39,$2F,$35,$32029 00 ; COARSE SCROLLING, LISTING 110 ; BY MARK ANDREWS20 ; ANTIC PUBLISHING30 ;40 *= $300045 JMP INIT50 ;60 ^}SDMCTL = $022F70 ;80 SDLSTL = $023090 SDLSTH = $02310100 ;0110 COLOR0 = $02C4 ;OS COLOR REGISTER0120 COLOR1 = $02C5_}0130 COLOR2 = $02C60140 COLOR3 = $02C70150 COLOR4 = $02C80160 ;0170 TCKPTR = $20000180 ;0190 .OPT OBJ0200 ;0210 `}; DISPLAY LIST DATA0220 ;0230 START0240 LINE1 .SBYTE " ANTIC PRESENTS "0250 LINE2 .SBYTE " "0a}260 .SBYTE " coarse scrolling "0270 LINE3 .SBYTE " On Your"0280 .SBYTE " Atari "b}0290 LINE4 .SBYTE " BY (YOUR NAME) "0300 ;0310 ; DISPLAY LIST0320 ;0330 HLST NOP ;('HELLO' LIST)0340 .BYc}TE $70,$70,$700350 .BYTE $70,$70,$70,$70,$700360 .BYTE $460370 .WORD LINE10380 .BYTE $70,$70,$70,$70,$47d}0390 SCROLN NOP ;(THIS IS THE LINE WE'LL SCROLL)0400 .WORD $00 ; A BLANK TO BE FILLED IN LATER0410 .BYTE $70e},$420420 .WORD LINE30430 .BYTE $70,$70,$70,$70,$460440 .WORD LINE40450 .BYTE $70,$70,$70,$70,$700460 f} .BYTE $410470 .WORD HLST0480 ;0490 ; RUN PROGRAM0500 ;0510 INIT NOP ;PREPARE TO RUN PROGRAM0520 LDA COLg}OR3 ; SET COLOR REGISTER0530 STA COLOR10540 LDA COLOR40550 STA COLOR20560 ;0570 LDA #0 ; TELL ANTIh}C WHERE DISPLAY LIST IS0580 STA SDMCTL0590 LDA #HLST&2550600 STA SDLSTL0610 LDA #HLST/2560620 STA SDi}LSTH0630 LDA #$220640 STA SDMCTL0650 ;0660 ; COARSE-SCROLLING ROUTINE0670 ;0680 LDA #42 ; # OF CHARACTEj}RS IN SCROLL LINE0690 STA TCKPTR0700 JSR TCKSET0710 ;0720 COARSE0730 LDY TCKPTR ; NUMBER OF CHARACTERS IN Sk}CROLL LINE0740 DEY 0750 BNE SCORSE ; LOOP BACK UNTIL FULL LINE IS SCROLLED0760 LDY #42 ; NUMBER OF CHARACl}TERS TO SCROLL0770 JSR TCKSET0780 SCORSE NOP ;DO COARSE SCROLL0790 STY TCKPTR0800 INC SCROLN ; LOW BYTEm} OF ADDRESS0810 BNE LEAP0820 INC SCROLN+1 ; HIGH BYTE OF ADDRESS0830 ;0840 ; DELAY LOOP0850 ;0860 LEAP0870 n} TYA 0880 PHA ; SAVE Y REGISTER0890 LDX #$FF0900 XLOOP0910 LDY #$800920 YLOOP0925 DEY 0930 o} BNE YLOOP0940 ;0950 DEX 0960 BNE XLOOP0970 PLA 0980 TAY ; RESTORE Y REG0990 ;1000 JMP COp}ARSE1010 ;1020 TCKSET1030 LDA #LINE2&2551040 STA SCROLN1050 LDA #LINE2/2561060 STA SCROLN+11070 RTq}S 1080 *= $02E01090 .WORD INIT2&2551040 STA SCROLN1050 LDA #LINE2/2561060 STA SCROLN+11070 RT*&&L'Destination #Format Destination ?Verify Writes ?Continue on Errors ?Reading...Writing...Insert DESTINATION disk-Ps}ress Insert SOURCE in Drive 1-Type Another copy ?Formatting...Remove Cartridges First!Program only runs on a t}130 XE!!&' ҠҠŠ By Ernie NegusK:S:&EIHD B V`Bu}HI VhhL'`BD'E JK V` B V` B V` L'`v}Ӎ@ӭ@'( Ӣ L'`0j ' 'LT(--------U,՝?- ` N'`?& N'H'w}   L' g'1DTQ9L(H'I'1A'K' B(A'80A' L' g' B(B'$ L' g' B(G'Ӣx}3 L' g' B(J'$() L' g'NI G L' (E'  RD'@' D* ?* ?* ?*өT@' D*ӭA' y}%] L' g'B'Y4 L'!A' ( * S䠭NJ' * R L' (A'E'  WD'G'YPD'@' D* ?*z} ?* ?*өT@')* D*ӭH'A'i0K'H'LL) L' g' B(YH'I'H'A'1K'LL)L'@'?{}E'D' i  i  *ii S *-J'YhhL*@'н`---i-`72-|}(#** `'*-J'YhhL*@'н`---i-`72-802 ; COPY13004 ; BY ERNIE NEGUS06 ; (c) 1985, ANTIC PUBLISHING10 *= $2600 ;ROOM FOR DOS XL20 JMP START30 ~}DBUFHI = $0305 ;O.S. EQUATES40 DBUFLO = $0304 ;FOR OS I/O AND50 DAUX2 = $030B ;DIRECT DISK I/O60 DAUX1 = $030A}70 DCOMND = $030280 DUNIT = $030190 ICCOM = $03420100 ICBADR = $03440110 ICBLEN = $03480120 ICAUX1 = $034A0130 IC}AUX2 = $034B0140 CARTR = $A000 ;MESSAGE AREA0150 DES .BYTE "Destination #"0160 FMT .BYTE "Format Destination ?"0170 VER} .BYTE "Verify Writes ?"0180 STE .BYTE "Continue on Errors ?"0190 RDG .BYTE $9B,"Reading..."0200 WRT .BYTE $9B,"Writing...}"0210 IND .BYTE $9B,"Insert DESTINATION disk-Press "0220 INS .BYTE "Insert SOURCE in Drive 1-Type "0230 ANC .B}YTE $9B,$FD,"Another copy ?"0240 FRM .BYTE $9B,"Formatting..."0250 REM .BYTE "Remove Cartridges First!",$9B0260 O130 .BYTE} "Program only runs on a 130 XE!!",$9B0270 TIT1 .BYTE $1D," ҠҠŠ",$1D,$9B0280 TIT2 .BYTE " } By Ernie Negus",$1D,$1D,$1D,$9B0290 KEY .BYTE "K:"0300 SCR .BYTE "S:"0310 SECNT .BYTE 0 ;VARIABLES0320 DEST .BYTE 0} ;USED BY PROGRAM0330 FRMT .BYTE 00340 SOUR .BYTE 00350 DCOM .BYTE 00360 DTEM .BYTE 00370 SAVA .BYTE 00380 VERI .BYT}E 00390 SPEC .BYTE 00400 SAVSPE .BYTE 00410 CERR .BYTE 00420 DRIVE .BYTE 00430 BPUT LDA #$26 ;OUTPUT TEXT0440 BPUU ST}A ICBADR+1 ;SUBROUTINE0450 LDA #00460 STA ICBLEN+10470 STX ICBLEN0480 STY ICBADR0490 LDX #00500 } LDA #$0B0510 STA ICCOM0520 JSR $E4560530 RTS 0540 BGET LDX #$10 ;INPUT BYTE FROM0550 LDA #7 ;KEY}BOARD SUB.0560 STA ICCOM,X0570 LDA #00580 STA ICBLEN,X0590 STA ICBLEN+1,X0600 JSR $E4560610 STA} $06000620 CMP #$1B ;ESCAPE RERUNS0630 BNE RET2 ;THE PROGRAM.0640 PLA 0650 PLA 0660 JMP START}0670 RET2 RTS 0680 OPEN LDX #16 ;OPEN CHANNELS0690 LDA #3 ;1 FOR KEYBOARD0700 STA ICCOM,X ;6 FOR SCREEN.0}710 LDA # KEY0740 STA ICBADR+1,X0750 LDA #40760 STA ICAUX1,X07}70 JSR $E4560780 LDX #$600790 LDA #30800 STA ICCOM,X0810 LDA # SCR0840 STA ICBADR+1,X0850 LDA #120860 STA ICAUX1,X0870 LDA #00880 STA ICAUX2,X0890 JSR $E}4560900 RTS 0910 CLOSE LDX #$10 ;INSURES THOSE0920 LDA #12 ;FILES CLOSED.0930 STA ICCOM,X0940 JSR $}E4560950 LDX #$600960 LDA #120970 STA ICCOM,X0980 JSR $E4560990 RTS 1000 START LDA CARTR ;THIS IS A}1010 INC CARTR ;CARTRIDGE TEST1020 CMP CARTR1030 BNE NOCARTS1040 LDX #251050 LDY # TIT11570 JSR BPUU ;PRINT TITLE1580 LDA #01590 STA SPEC1600 }LDA #1481610 STA 7101620 STA 7121630 LDA #121640 STA 7091650 LDX #131660 LDY # :,7 @6-C:,}nn104,173,132,2,240,12,173,207,6,240,20,169,0,141,207,6,240,13,173,207,6,208,8,173,120,2,41,3,141,207,6,96SOUND DATA}7 #A0!-@As%"367<,.>:,7 gg0,60,3,70,3,80,3,90,3,100,3,100,3,0,0,108,10,108,10,108,10,81,20,6}4,10,108,10,108,10,108,10,81,20hh64,10,0,30,53,10,85,10,53,10,96,10,53,10,96,10,53,10,91,20,102,10,108,10,108,10,85,20,72},10,108,10WW108,10,108,10,85,20,72,10,0,50,53,15,47,5,53,10,60,10,64,10,72,10,81,20,40,20,0,0hh121,40,91,30,91,10,91,}80,121,40,81,30,96,10,91,80,121,40,91,30,72,10,60,40,72,30,91,10,91,40,96,30FF91,10,81,80,0,0,243,40,243,40,243,10,243,40},204,40,217,10,217,40YY243,10,243,40,255,10,243,60,0,0,47,10,72,10,60,10,64,10,72,10,64,10,60,10,72,10,0,0"d6-P:C:,'}AV,#A 66-C:,&$AVBAd2@,6-@6DD$ IS SCREEN DATA}@|67@,.@%67AH,.@467@,.L67AI,.>:,d67A(,.>:,|67AP,.7AI,J}M6-C:,%A%6-P:'AV,56-&$AVA@M@THAY*AF:A@,4 A@}> A0H A0^C +AY3-B2HB2P?@C csAV'AV! A3}AYEA`WAa@iAY@4s Ahb6-?:Ap,6-@( A4@}@@R-@V(b6-rA@h'A AT9A@KA@D}]A@ro-@@( courting crickets |W-@#( dif level-#AA-@@}E"S67<,.>:,W ~228,36,4,230BB67A<AR,.'YYYYYYXXXXXYYYYYYXXXXXYYYYYYXXXXXYYYYYYBB67AS<}A,.'YYYYYYXXXXXYYYYYYXXXXXYYYYYYXXXXXYYYYYY867A,. _`XX_`XX_`867Ai,. abXXabXXabXo6-6-}'6-36-Q67AR,.XXXXXXXXXXXXXXo67A,.XXXXXXXXXXXXXX3A"@$67A,}.367A,.>-@@,(SELECT dif or FIRE>@w T:,"AP/6-F:B2}y,/T:,"A@A`)6-%@!@)6-@--@(# }A- A`[-@@-( COURTING CRICKETS 7 AI67A,.XX[67A,.XX6-?:C:,,}A-"@*"A*!A* A47 A A A$F:AC,"$6-"@A&}y6-F:AC,("@)"@46-@=67,.OB7gApaA@u-@@ y 0o}"@*!-Ag%667,.D6-&@M67,.[6-&@oAg%@:o"@* @}-Ag%667,.D6-%@M67,.[6-%@oAg%@DF6-F:A,(!A) @}`<Ag%F ANB2xX-@@ b6F:B2R,!,Ag%}6 AlA#"@Y*!A* A47Ag%A A@v, 6-%!) 6-6,6-%@$}B2Pt6-&@ @=6-@%@$+@&,I6-@PS A P\67,.h6-@tB2Q}M"@67,. 6-%)67,.M2@&@@@@%!A@ A %6-@P6F:}B2`,"@,Ag%6 A AFALLING CRICKET A W 67,.6-%@#67,}.?2@@S-@@0W k 67,.6-%@#67,.?2@@S-@}@0W k A@A %%2%6-%@%"@A0[6-@}$+&@,;67A%<A%,.XXXX[67Ai%<Ar%,.\]^XG6-@ A+AA =A}"@G A ERASE NEXT GIFT_6-6-%@' AC67A%$@,.XX_67A%$}@,.XX $*ELIMINATE DROP4O%2@.67,.@B2QL6-O$>R}EACHED FEMALEH A AAR" A \"@Af(-@@(67&@},.pm -@6@<2@ @@ Q67&@,.e-@@i m z T:},"@A3 67,.67&@,.)6-@3 A`PRINT GIFT6-@;67AR,.7@}<+%@,$@,g67A,.7@<+%@,$@,s"@6-@$PICK A WEAPONu6-}P:H:,$@,1#A `%@$E-@@I"W67<,.>:,[ uA@:7%@,,$--20,7}2,34,20,74,40,8,127,127,62,62,28,28//0,0,80,112,112,112,112,112,120,126,94,0,0++0,0,48,96,64,127,127,64,224,224,0,0,0}3360,24,24,24,60,126,223,215,247,255,127,126,60PICK ANOTHER GIFT~A"AU'A@CB2Q}A$%@$W-@@f67A,.z-@@0~ 167A,.&-@@0* . 1$}NO MORE BROTHERSA"A1'B2w;-B2aB2dGK U+@g-@@ }(@ All Brothers+-@@+(@are GoneZ-@@1(@PRESS start TOC-@ }@Z(@ try again$ F:B2y,@A`. AP8MARRAIGE OCCURSBA"@)- }@=-@U6-@d$%@$w67%@,.XXXXcdXXXXcdXXXX{  L-@A } VqB2w)-B2aB2d59 C+@U-@@q(@And They Lived`?-@ }@5(@Happily Ever After? APjCHANGE CHARACTER SETtB;@2,#AP.-@@2}2">67,.>:,B ~EE104,104,133,204,104,133,203,104,133,206,104,133,205,162,4,160,0@@177,203,145,205,136,208,249,2}30,204,230,206,202,208,240,96A AF:A,&@A6-+F:A,%@,$AVI6-?:C:,<BsD<,##A};-%A%A?"EI $MM0,0,0,0,0,0,0,170,0,63,58,57,58,63,63,170,0,252,172,108,172,252,252,170}YY0,255,170,85,170,255,255,170,0,51,33,18,33,255,85,170,0,191,239,251,254,255,255,170WW0,255,215,215,215,190,235,170,}0,254,251,239,191,255,255,170,0,1,32,184,32,12,3,16VV64,208,64,224,184,224,192,192,116,28,3,0,0,0,0,0,200,238,248,192,192},192,192,192GG0,0,0,0,2,2,3,3,0,0,0,0,128,128,192,192,13,55,219,222,223,55,13,3VV112,220,247,247,247,220,112,192,0,0,}0,58,234,234,233,229,0,0,0,40,234,170,154,86TT233,233,57,58,58,14,14,13,86,90,90,104,104,160,160,128,0,3,12,48,192,192,48},12GG48,204,3,3,3,12,48,12,12,3,12,48,14,2,2,0,3,3,3,12,32,160,160,128``0,0,0,0,0,0,0,0,233,181,173,183,222,122,94,10}7,2,10,2,4,16,16,4,1,128,160,128,16,4,4,16,64 NN0,0,3,15,15,204,63,15,0,0,0,207,204,255,255,195,0,0,240,48,48,48,240,240}@@0,0,84,5,17,5,1,5,0,0,21,80,68,80,64,80,17,65,1,4,4,20,0,0OO68,65,64,16,16,20,0,0,40,190,179,176,176,44,11,2,80,244,5}2,52,52,208,64,0(VBI ROUTINE2P;@u,#A@.-@@u2"@67<,.>:,D M6-C:,P$<MM216,16}2,0,160,0,222,240,6,16,42,189,224,6,157,240,6,189,232,6,240,10,24FRR173,255,6,125,248,6,141,255,6,24,185,16,6,125,216,6,15}3,16,6,221,208,6,208,6Pdd189,200,6,153,16,6,200,200,200,232,224,7,144,201,173,255,6,141,0,208,32,57,6,32,88,6,76,98,228Z}DISPLAY LIST IN PAGE 6d/ #A!-A6Ay%"+/ naa112,112,112,70,0,0,68,20,0,68,60,0,69,100,0,69,}0,0,69,80,0,69,128,0,69,208,0,69,0,0,69,80,0x 69,128,0,69,140,0,68,180,068,0,0,70,40,0,65,0,6FF0,0,0,0,0,0,172,}55,6,240,23,206,56,6,16,18,177,208,141,6,210,20000177,208,240,5,141,56,6,200,152,141,55,6,96ff0,0,172,86,6,240,40,206},87,6,48,17,169,13,205,87,6,144,3,173,87,6,9,160,141,5,210,208,18,177,208^^141,4,210,200,177,208,240,5,141,87,6,200,152,1}41,86,6,96,104,160,0,162,0,169,7,76,92,2289 #Ap)-AAA@-"5%9 ##2,2,2,2,0,0,0,0,1,1, }1,2,2,3,3/ #A!-A6A%"+/ MM0,80,128,208,0,80,128,0,16,64,144,192,16,64,144,0,1,255,1,255,1!},255,1,0[[20,12,9,12,15,18,21,0,0,0,0,0,0,0,0,0,20,12,9,12,15,18,21,0,252,4,252,4,252,4,252,12066-P:'AV, A"}t6Ar&AV$$PM IMAGES7 #A@!-@@%"367<,.>:,7 ,,231,60,90,60,24#},60,90,153,24,36,36,1027 #A`!-@@%"367<,.>:,7 ,,66,36,60,90,60,153,126,24,24,60,66,195"$}B67@,.>:,367@,.>:,B67@,.,7 #A!-@@%"367<,.>:,7 6++1%}95,36,60,90,60,25,62,88,156,36,38,96@7 #A!-@@%"367<,.>:,7 J,,195,36,60,90,60,152,124,26,5&}7,36,100,6T7 #A0!-@@%"367<,.>:,7 ^..66,165,60,90,36,24,126,153,60,126,36,102h7 #AP'}!-@@%"367<,.>:,7 r**0,216,248,248,112,32,0,27,31,31,14,4|7 #Ap!-@@%"367(}<,.>:,7 **0,27,31,31,14,4,0,216,248,248,112,327 #A!-@@%"367<,.>:,7 1168,238,25)}4,254,254,254,254,124,124,56,56,16PM INIT.W67@,.>:,367AV,.>:,B67@,.N6-A*}W67,.67@,.>:,367AV,.>:,B67@,.Z67@,.>:,r67AV,.>:,+}67@,.67@,.>:,367AV,.>:,B67@,.Q67@`,.`67@D,.l6-Ax6,}-@6-A6-@P6-@{BBy!AY@b3B2w@EB2HA WA-}AiB2IA&{A@KB2PA'A@ 9AKA#@$.}PACKAGES ON BELTS467@,.@%67AH,.@467@,.`-A`AfF6-H:,$+@ &,$/}@%+@&,R!@`6-$@  C-@+#AP%@$/"C-@0},6-@d$%@$,67%@,. !@ 67%@ ,.0  $: ACBD ›N DDDX 1}Ǜb EFGl ěv EFGD1:CRICKETS.BAS@ 67%@ ,.0  $: ACBD ›N DDDX 4; 8-QUEENS SOLUTION; BY DAVE OBLAD; (c) 1985, ANTIC PUBLISHINGBYTE ARRAY T(96),P(8),I(8),O(8),M(8)BYTE A,B,C,D,X,Y,L1,L2!3},L3,OPT=53279PROC SEARCH() FOR X=0 TO D DO Y=X*8 B=1 FOR A=0 TO 7 DO IF T(Y+A)#O(A) THEN B=0 FI OD !4} IF B=1 THEN RETURN FI ODRETURNPROC ROTATE() FOR A=0 TO 7 DO B=7-O(A) M(B)=A OD FOR A=0 TO 7 DO O(A)=M(A)!5} ODRETURNPROC TEST() FOR A=0 TO 7 DO O(A)=P(A) OD FOR L1=0 TO 1 DO FOR L2=0 TO 1 DO FOR L3=0 TO 3!6} DO SEARCH() IF B=1 THEN RETURN FI ROTATE() OD FOR A=0 TO 7 DO M(A)=O(A) OD !7} FOR A=0 TO 7 DO O(7-A)=M(A) OD OD FOR A=0 TO 7 DO O(A)=7-O(A) OD OD B=0RETURNPROC KEEP() X=D*8 FOR !8}A=0 TO 7 DO T(X+A)=P(A) ODRETURNPROC DISPLAY();REMOVE 5 SEMI-COLONS BELOW;FOR UNIQUE SOLUTIONS ONLY!;IF D#0 THEN TES!9}T(); IF B=1 THEN RETURN; ELSE KEEP(); FI;FI FOR Y=0 TO 7 DO FOR X=0 TO 7 DO POSITION(X+15,Y+8) I!:}F P(Y)=X THEN PRINT("Q") ELSE PRINT("+") FI OD OD POSITION(18,18) D==+1 PRINTB(D)RETURNPROC TRY() FOR Y=0 TO!;} 6 DO FOR X=Y+1 TO 7 DO A=P(X)-P(Y) B=X-Y IF A>7 THEN A=255-A+1 FI IF A=B THEN RETURN FI OD OD!<} DISPLAY()RETURNPROC SWAP() C=0 I(C)==+1 WHILE I(C)=C+2 DO I(C)=0 C==+1 I(C)==+1 IF C<7 THEN FOR B=0 TO C !=} DO A=P(B) P(B)=P(B+1) P(B+1)=A OD FI OD A=P(0) P(0)=P(1) P(1)=ARETURNPROC MAIN()BYTE CONSOLE=53279!>}DO GRAPHICS(0) POKE(752,1) POSITION(8,0) PRINTE(" 8-QUEENS SOLUTIONS") PRINTE(" BY DAVE OBLAD") FOR A=0 TO 7 D!?}O P(A)=A I(A)=0 OD FOR A=0 TO 96 DO T(A)=0 OD D=0 DO TRY() SWAP() FOR A=0 TO 7 DO IF A#P(A) THEN EXIT FI !@} OD IF A=8 OR OPT#7 THEN EXIT FI OD IF A=8 THEN POSITION(15,20) PRINTE("COMPLETE") PUTE() PRINTE("PRESS !A}Ԡ TO RE-RUN") FI DO UNTIL CONSOLE < 7 ODODRETURNTION(15,20) PRINTE("COMPLETE") PUTE() PRINTE("PRESS ;$0 (c)1983 Action Computer Services  B JKIHiDiELV`L=$%C} =$ BLV`L$$l L$ &` Fj`8冨凪` $EӅӥ%D} $`ʆǪƩ Ɛee` $ƦʆǢ &Ɛeǐ % %L$ $'&&&8儨児%E}祂*L$&&*ń8&&L$ [%`hihiHHȱȱL$c !#3`%F}L$JJJJ`H $h`Hȩh r$L% {$L% %$L% -$L% 3$H8%G}`HhHh _&L% BHI V䅠L% L& =$L%Ԇ ؠPIPP`%H} &P -$L% &L& &L& 'L&H- &8塪墨hL' 'L& &'L& &ȹP`%I}텠8堨塪 &芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H %J}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护%K}°ڱ%ȱ%E &L`(担CS R&L`(I 'L`(H (L`( &L`( &B V %NLMȑ%L}` MLN%B VL%S:)E:)H L& ) ) & L&h)0I))L&[\ZUVT` @)))%M}` G)L& :)L& @)L&) ` G)L& &%` 0d $ҥ `2)2%N}ҩ`p`0)9*`@0)ӈJJJJ)`Ѕ`ȱ`` 5*ȥ`Hh%O}ƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡`%P}`ťƤe8夰L* Ƥ8`ŦeѠe桊L*`%Q}%R}L++++++LH,+ &%++++L7,+m+J++]+L1,++L ,+ILB,`+L+`LL%S},++Lv,8+++++++LQ,++L,+++++L{,`L,++L,+++++L,++%T}Ly-++LO-++L- ++IL,` I,+L,++L!-+++++L-++LI-8++++%U}+L&-+L,++Ls-8+++++LT-+L,+`L-+ &%+++L-+m+++J++L-`L-%V}++L2.++L,.+i+i :)++M+L.L.Q. R&L&.L.+. R&+L-+L- :)+%W}+ &`LH.++L.+i++L.8+++++8++++L.8+i++M+L.`+L`.+LM. -`L%X}.++++i++ELD/++++++LA/++//+LA/++++i++++i+%Y}++L/L.++++++`LZ/ ) 5* :)L/ 8-QUEENS SOLUTIONS/t ?&L/ BY DAVE OBLAD/ ?&%Z}++L/++++++L/+`+L/+J++L/+ E. .++L&0++]+L 0L&0+L0+I I%[}L:0L=0L/+IL0 :)L\0COMPLETE0S ?& &L0PRESS Ԡ TO RE-RUN0i ?&L0LZ/``W/+L0+I I$j./~YTOYSTARDLMEMTOHIGLOCNADRADRSADRSX)]} d REFLECTBY DAVID PLOTKIN, (c) 1985, ANTIC PUBLISHING AF:A@,)^}9+@%@'A 9AL*6-F:A,$AV&@$A$06->6-&AL6-&@)_}\6-P:'AV,$6-&$AV0AA<ABHA\%@Ah%@A+%)`}@@y<6-P:'AV,L6-&$AVZ%@h%@W@@/-@A=)a}%@A W6-%@$@@@-AA@06-P:'AV,@6-&$AV1%@y!%)b}%@1%%@$6-&@@ .T%A@e(6-P:'AV,86-&$AVF%AT%A)c}8?A`Aa-A A?BBr@4B @>:A%,L)-@A@)d})@V;-A@+,@7/; `M )-A@=,&@@)e}I/M j  AD1:REFLECT.BAS; `M )-A@=,&@@(=`ة٠)ӱH h٥ܢ ڠ___  `ߨ)-g}`ة٠)ӱH h٥ܢ ڠ___  `ߨ),B%DOS SYSB*)DUP SYSBSCOARSE EXEBVCOARSE FIXB]COARSE M65B rCOPY130 EXEBX}COPY130 M65B]CRICKETSBASB2QUEENS8 ACTBBQUEENS8 EXEB \REFLECT BASBfREVB2C EXEBqREVB2C M65BREVB2C OBJB#SOUND BASBSOUND16 BASBSURPRISEBASBTICFLIP BASBTIMER1 BASBTIMER2 ASMBTIMER3 BASB%TIMER4 ASMB 8TIMER5 BAS0250 ; REV.B TO REV.C CONVERTER0260 ; BY MATTHEW RATCLIFF0270 ; (c) 1985, ANTIC PUBLISHING0280 *= $06000290 .OPT1r} OBJ0300 ;0310 ; PUT CODE INTO PAGE 60320 ;0330 CASINI = $02 ;VECTOR WE WILL STEAL0340 BOOT = $09 ;CASS/DISK BOO1s}T FLAG0350 ; SET BIT 1 AND SYSTEM LOOKS FOR0360 ; POST RESET HANDLER CODE POINTED0370 ; TO BY CASINI VECTOR. THIS IS0380 1t}; HOW RESET ALWAYS GIVES YOU REV.C0390 ; RAM-BASIC.0400 GINTLK = $03FA ;EXTERNAL CART? DO NOTHING0410 RMPNT = $D8 ;R1u}OM/RAM POINTER0420 COUNT = $DA ;BUG FIX COUNT LOC0430 PORTB = $D301 ;CONTROL ROM/RAM THRU HERE0440 BEGBAS = $A000 ;1v}BASIC ROM STARTS HERE0450 ;0460 ; STEAL CASSETTE RESET VECTOR0470 ; AND POINT HERE FOR NEXT RESET.0480 ;0490 STEAL LDA #1w} STEAL ;EVERY TIME RESET IS PRESSED0520 STA CASINI+1051x}30 LDA GINTLK ;EXTERNAL CART?0540 BEQ CNTNU ;IF YES, CONTINUE0550 RTS ; IF NO, ABORT0560 CNTNU LDA 1y}# BEGBAS0590 STA RMPNT+10600 BCOPY LDY #1z}0 ;COPY IT TO RAM0610 LDA PORTB ;BASIC ROM ON PLEASE0620 AND #$FD ;RESET CONTROL BIT=ON0630 STA PORTB 1{} ;GOT IT0640 LDA (RMPNT),Y ;GET ROM BYTE0650 PHA ;SAVE IT0660 LDA PORTB ;NOW ENABLE THE RAM INSTEAD1|}0670 ORA #$02 ;SET CONTROL BIT=OFF0680 STA PORTB ;ROM OFF, RAM ON0690 PLA ;GET ROM BYTE0700 1}}STA (RMPNT),Y ;RAM VERSION UPDATED0710 INC RMPNT0720 BNE BCOPY0730 INC RMPNT+10740 LDA RMPNT+1 ;DONE COPY1~}ING?0750 CMP #$C0 ;END OF BASIC?0760 BNE BCOPY ;NOT YET!0770 ; NOW GO FIX THE BUGS!0780 FIXBUGS LDX #0 ;BUG1} TABLE INDEX0790 LDA #12 ;12 BUGS TO FIX0800 STA COUNT0810 FXLOOP LDY #0 ;SETUP RAM POINTERS0820 LDA FX1}TBL,X ;GET ADDR LO BYTE0830 STA RMPNT ;SETUP RAM POINTER0840 INX 0850 LDA FXTBL,X ;GET ADDR HI BYTE0860 1} STA RMPNT+10870 INX 0880 LDA FXTBL,X ;GET CORRECT BYTE0890 STA (RMPNT),Y ;TO FIX THE BUG0900 INX 1} ;POINT TO NEXT FIX0910 DEC COUNT0920 BNE FXLOOP0930 LDA BOOT ;ALL DONE WITH FIXED RAM-BASIC0940 ORA #1}$02 ;RE-HOOK INTO BOOT0950 STA BOOT ;FOR NEXT RESET KEY-PRESS0960 RTS 0970 ;0980 ; ADDRESS,BYTE FIXUP TABLE1} FOR0990 ; REV.B TO REV.C CONVERSION!1000 ;1010 FXTBL .WORD $A8DF ;ADDRESS1020 .BYTE 234 ;WAS 202, NOW 234 IN REV.C1}1030 .WORD $A8E01040 .BYTE 240 ;WAS 2081050 .WORD $A8E11060 .BYTE 17 ;WAS 101070 .WORD $A8E2101}80 .BYTE 234 ;WAS 961090 ;1100 ; PEEK (43234)=96 FOR REV.B1110 ; THAT IS ADDR $A8E21120 ;1130 .WORD $BB2911401} .BYTE 0 ;WAS 161150 .WORD $BFF31160 .BYTE 0 ;WAS 441170 .WORD $BFF41180 .BYTE 0 ;WAS 551}1190 .WORD $BFF51200 .BYTE 0 ;WAS 1051210 .WORD $BFF61220 .BYTE 0 ;WAS 1101230 .WORD $BFF7121}40 .BYTE 0 ;WAS 1101250 .WORD $BFF81260 .BYTE 0 ;WAS 1011270 .WORD $BFF91280 .BYTE 0 ;WAS1} 1141290 ;1300 ; ONLY 12 BYTES DIFFERENCE BETWEEN1310 ; REV.B & REV.C!1320 ;1330 .END FF91280 .BYTE 0 ;WAS0``ة٠)ӱH h٥ܢ ڠ___  `ߨ)5}`ة٠)ӱH h٥ܢ ڠ___  `ߨ)4 /0ADELATONONTWTHREFOUTIMERUMBLPITC9}  SPECTACULAR SOUNDBY TIMOTHY BANSE (c) 1985, ANTIC PU9}BLISHING(;@$,21 +#A.(AVAILABLE SOUNDS:1(<-@@F"P(() Z9} d__FACTORY WHISTLE,STEAM LOCOMOTIVE,BUZZER,FALLING OBJECT,SPACE SHIP,ARTIFICIAL INTELLIGENCEnSSOLD AIRPLANE,SINGING 9}BIRD,LASER WEAPON,OCEAN SURF,BUSY SIGNAL,EXPLOSION,ALARMx>>GALAXY CANTINA MUSIC,CRASHING PLANE,PLAY A CHORD,THUNDER( 9}@P($(Your Selection(3AU@30@+&@,@AA`APA9}APAA@AAPA0A@A @AApA@A@A0 @PFACT9}ORY WHISTLE%%2@`@@%%2@@p@@%%2@@@@9}-@A G%2G2@(%2@9}($STEAM LOCOMOTIVE-@A%%2@@@-@@" 9},%%26-@@@ J   $T BUZZER^%%2@@@@9}h-@Ar |(%2($FALLING OBJECT-@0A29}@@ (%2($SPACE SHIP-@ AU2@9}@-@@ , )2,$ARTIFICIAL INTELLIGENCE-@9}A332P:H:@,$@u,@@, )2,$OLD AIRPLANE9}-@A&%%2@@@0%%2:   $DBIRD SINGINGN9}-@@X-@@0b2@@l v, )2,9}$LASER WEAPON-@@-@@u2@@ %%29}-@@P    $OCEAN SURF-@P2@@9}-@@0    -@6@2@@ -@A*9} 4, )2,$>TELEPHONE BUSY SIGNALH-@@R%%2@P@9}@\%%2@f-@A p%%2z%%2@@9}@@@-@A  (%2@($EXPLOSION -@9}6@2@%@-@@   (%2($9}WARNING ALARM-@@-@5@2@@ -@@9}, )2,$$GALAXY CANTINA MUSIC.-@8 -@6? B9}2@@L-@@ V `, )2,$jPLANE CRASHI9}NGt -AU@@6@~2@@-@@     -@69}@2@%@-@@     #A`$PLAY A CHORDGET NOTES TO P9}LAY "100,200,50,150! #A`!-@@EACH NOTE GETS OWN VOICE 2@@9}2@@@2@@@(2@@@2HOLD NOTES FOR A BEAT9}<-@A FTURN OFF EACH VOICE/NOTEP%%2Z%%2@9}d%%2@n%%2@xREPEAT THE CHORD 3 TIMES   $ 9}THUNDER-@@%%6-P:AU$H:@,%@ ,6-H:@,$AP-@29}@@ -@ , )2,$ D:SOUND.BAS28m:;" 8 S16MBYTNFREQBOTOCTAVPITCSFRELOWOCWAIVOJHOL@=}  SIXTEEN-BIT SOUND DEMOBY JERRY WHITE=} (c) 1985, ANTIC PUBLISHINGd#nh+@%@ (@>(@ 16-BIT SOUNDI(@h(@ =} BY JERRY WHITEx&;@V,&HOLDS ML SUBROUTINE--@@V")67<,.>:,- 7%2=}7B7hA L#;@$,9@<@,B6.B A#A G#G F#F E D#D C#C L A DISPLAY SUBROUT=}INEK-@@A(@ OCTAVES: &%@K A.-@@.(@OCTAVE: =}1-@@1(@PITCH:  Q6-$@&@+-@@ N(@NOTE: 7<%@=},Q$CREATE FREQUENCY ARRAY= -@@6@=-@@6@"68<,-  '6=}-6-@'6-@MAIN SOUND LOOPS7-@6@7-@@6@90@=}! A-6-@9A@'(6-?:C:,<8<,<,' A"))6-?:C:,<8<,<<8%@<,<,,=}(A 66-F:A@, A@ AJ   T*(6-@ 6-@* A`^J-@@=} @+-@F(@ J rI6-@6-@'6-@36-@?6-@I A=}0|16-@6-@'6-1 A0=6-@6-@'6-@36-= A0=6-@=}6-@'6-@36-= A016-@6-@'6-@1 A016-@6-@=}'6-@21 A016-@6-@'6-@1 A016-@6-@2'6-1 A0=} +TIME DELAYA@F:A@,A$SUBROUTINE TO CONTROLTWO 16-BIT SOUNDS=}5A@56-?:C:,<8<,<<8%@<,<,F:A@,A@&556-?:C:,<8<,<<8%@<,<=},0 A NDATA FOR M-L SUBROUTINE*N44104,201,2,240,33,201,4,240,12,170,224,0,240,414N99202,104,104,240,247,20=}8,245,104,141,2,210,104,141,0>N55210,104,104,41,15,9,160,141,3,210,104,141,6,210HN44104,141,4,210,104,104,41,15,9,160,141=},7,210,960u FREQUENCIES FOR FREQ ARRAY:uMM27357,25821,24372,23003,21712,20493,19342,18256,17231,16264,15351,14489DuGG1=}3675,12907,12182,11498,10852,10243,9668,9125,8612,8128,7626,7241NuAA6834,6450,6088,5746,5423,5118,4830,4559,4303,4061,3832,=}3617XuAA3414,3222,3040,2869,2708,2555,2412,2276,2148,2027,1913,1805bu??1703,1607,1517,1431,1350,1274,1202,1134,1070,1010,=}953,899lu55848,800,755,712,672,634,598,564,532,501,473,446vu55421,397,374,353,332,313,295,278,262,247,233,219D1:S=}OUND16.BAS5848,800,755,712,672,634,598,564,532,501,473,446vu55421,397,374,353,332,313,295,278,262,247,233,219D1:S<  ABCADWAI A} ##̠ŠӠŠ##Ҡàˠӡ##A}ĠŠ##٠ĠנZ+@%@/0@N@A}@KZ6-A?6-@6-'6-36-?6- (@ FiD hE PeA}%%6-P:@$H:@,,%@-@A (.-@@.(@ A b 2-@A}A <-@(@[]F-@(@[]P-@(@[]R2-@@A}2(@by brad KershawU'6-6-'6-Z<"@!-@@0(@.<6-@A}_<"@!-@@0(@.<6-@a<"@!-@@0(@.<6-@A}b-@$@ d6-@i'-@&@'(@ j'-@&@'(@ k'A}-@&@'(@ n-@(@[]x-@(@[]-@(@A}[]-@ C-@(@ 3-@%@C(@[]-@ < -@A}@6@&-8(@[] < -@ C-@%@'(@ 3-@C(@A}[] 6-3"@6-@'6-36-3"@6-@'6-36-A}-@ C-@(@ 3-@%@C(@[]-@ 3-@@A}-/(@ []3 -@ C-@%@'(@ 3-@C(@[] 6A}-3"@6-@'6-36-3"@6-@'6-36-  A@B-A}@@5(@WHICH BOX A/B/C ?B)@O>:,4A*"@*-@@;(@YESE AA}O A0"O>:,4B*"@*-@@;(@YESE A O A0,O>:,4C*"@*-@A}@;(@YESE A0O A0@0-@@&(@ NO0 ApJK-@$@ 3A} @>:A%,A6-&@K @TC-@(@ 3-@&@C(@[]^-@A}A hB -@@6@&->(@ [] [] B m-@A r;-@@A}%-&@7(@ []; |C-@&@'(@ 3-@C(@[] 6-6-6A}-3"@6-@'6-36-3"@6-@'6-36-3"@6-A}@'6-36-6-%@ @ A Apa-@(@ 3-@A}&@C(@[]O-@^(@.a$a-@(@ 3-@&@C(@[]A}O-@^(@.a$ a-@(@ 3-@&@C(@[]O-@^(@.A}a$D:SURPRIZE.BAS.a$ a-@(@ 3-@&@C(@[]O-@^(@.@56HH1DELATLFRIBOTOXVD@2AU@u@@A`@@x@@w@E} @# @$ @ @ @E@P@@vTIC-TOC-FLIPBY GENE LEVINE (c) 1985, AE}NTIC PUBLISHING "AF:A@," A ANIMATION LOOP]-@@-Aa&7 @@E}; ]2@%@@e-@q@5Aa%@%? @@C e2@3@E}@@w @ 'SPEED SET & ESC(R%23-@HF:AdE}, @)R @P-   $2C"F:Ad,"@* @p06-%?0C'-' TO SLOW DOWN7B"F:Ad,"@*E}!06-&? B'+' TO SPEED UP<. F:Ad,"@(A.ESC TO STOPAAdAU$cSCREEN DRE}AW SETUPdA&#+@%@5AY@4JAF:B7p,V6-@b6-@cn6-@Gz6-E}6-%@DRAW BOXM-@@+-@@/5,;/A/G/M/S6-&@E}6-%@'6-%/6-&3 7 E6-%?2S6-&?2+DRAW TICK-TOCKER,I @,@8%/@AE}1/@A=/@8I/@81S,@9&@+/@@&@?,@9%@S/@@%@6"E}6-%@6-%@"$D.L. HIGH BYTESJ A@),@9;/@@J6-F:Aa,E}%-@@! A% @ @,@9@G1/@@@G@6-F:Aa,!!SET COLORS & TURN E}ON SCREENgA'AAF9A @fKAA]AY@4g @ INITIALE}IZE VARIABLES|6-F:Aa,!6-F:A,-6-96-@E6-@R6-6?`f6-@%?`r6-@E}| A' EXIT'DAaA%+DRESET DL HIGH BYTE & MEM TOPD1:TICFLIP.BAS@q@E} A' EXIT'DAaA%+DRESET DL HIGH BYTE & MEM TOPD1:TICFLIP.BAS@q@D OPSECSEJFJFYHJFYLTXTWTMTMRHTMRLI} TIMERS, LISTING 1BY FRED PINHOI} (c) 1985, ANTIC PUBLISHING , +@;@,,Ai A -@@7(@ COUNT DI}OWNB(@M(@i(@ TIMER DEMOb%(TOTAL SECONDS DESIRED(1-250))26-A:,H!AP) @I}X( TRY AGAIN!b @0#&&(TIMER DISPLAYS MINUTES:SECONDS(^6-$@`"6-P:'AV,46-&+$AV,@A%I}LA&^A!2b%6-F:A`,%AV$F:Aa,36-%AUD6-P:'AV,V6-&+$AV,bAI}<!A !AR@F^BB'AH9AI@L( TIMER STARTED^BBI}@dP-@@ Z6-F:AX,@d( TIMED OUT!n-@AP %x I} #AP%-A6A"!% $GG216,173,253,3,208,24,169,1,141,4,4,169,255,141,253,3,141,46,2,172I}@@1,4,174,2,4,169,5,32,92,228,206,4,4,208,117,169,10,141,4,4DD173,32,2,141,254,3,173,33,2,162,8,14,254,3,42,201,60,144,I}5,233GG60,238,254,3,202,208,240,141,255,3,162,8,169,0,14,254,3,42,201,60GG144,5,233,60,238,254,3,202,208,240,141,255,I}3,162,8,169,0,14,255,3GG42,201,10,144,5,233,10,238,255,3,202,208,240,141,0,4,24,160,0,173NN254,3,105,16,145,208,200,1J}69,26,145,208,200,173,255,3,105,16,145,208,200EE173,0,4,105,16,145,208,173,46,2,240,3,76,98,228,169,98,141,36,2 169,J}228,141,37,2,76,98,228 D1:TIMER1.BAS,76,98,228 169,228,14173,46,2,240,3,76,98,228,169,98,141,36,2 169,HL0100 ;TIMER 20110 ;BY FRED PINHO0120 ;(c) 1985, ANTIC PUBLISHING0160 *= $0600 ;RELOCATABLE0170 ;SINCE MAC/65 USES N}PAGE 6, ASSEMBLE TO DISK. RECOVER FILE WITH DOS.0180 ;FOR DEBUGGING, ASSEMBLE WITH AN OFFSET VIA THE .SET AND .OPT DIRECTIVEN}S.0190 .TITLE "LISTING 2"0200 .TAB 14,18,260210 .SET 1,40220 SETVBV = $E45C0230 XITVBV = $E4620240 CLD N} ;MUST BE DONE0250 LDA 1021 ;TIMER ACTIVATED?0260 BNE GOON ;YES. SKIP AROUND0270 LDA #1 ;NO.N} SET DELAY FOR IMMEDIATE DISPLAY0280 STA 10280290 LDA #255 ;SET TO INDICATE ACTIVE TIMER0300 STA 10210310 N} STA 558 ;SET TIMER FLAG0320 LDY 1025 ;DESIRED TIME,LOW0330 LDX 1026 ;HIGH0340 LDA #5 ;TIMERN} 5 TO BE ENABLED0350 JSR SETVBV ;DOES THE JOB0360 GOON DEC 1028 ;CALCULATE TIME?0370 BNE EXIT ;NOT YET. BYPAN }SS ROUTINE0380 LDA #10 ;YES. RESET DELAY COUNTER0390 STA 10280400 LDA 544 ;GET TIMER LO BYTE0410 N }STA 10220420 LDA 545 ;HI BYTE0430 DIVIDE LDX #8 ;DIVIDE BY 600440 LOOP1 ASL 1022 ;TO GET TOTAL SECONDS0450 N } ROL A0460 CMP #600470 BCC BRCH10480 SBC #600490 INC 10220500 BRCH1 DEX 0510 BNE LOOP10520 STAN } 10230530 ;TOTAL SECONDS STORED IN REGISTER 10220540 LDX #8 ;DIVIDE BY 600550 LDA #0 ;TO GET MINUTES056N }0 LOOP2 ASL 10220570 ROL A0580 CMP #600590 BCC BRCH20600 SBC #600610 INC 10220620 BRCH2 DEX 0630 N} BNE LOOP20640 STA 10230650 ;MINUTES IN 1022,REMAINING SECONDS IN 10230660 ;NOW DIVIDE BY 10 TO GET HI AND LO DIGITSN} OF DECIMAL NUMBER0670 LDX #80680 LDA #00690 LOOP3 ASL 10230700 ROL A0710 CMP #100720 BCC BRCH3073N}0 SBC #100740 INC 10230750 BRCH3 DEX 0760 BNE LOOP30770 STA 10240780 ;SECONDS(TENS PLACE) IN 10230790 ;N}SECONDS(UNIT PLACE) IN 10240800 DISPLAY CLC ;STORE 3 DIGITS INTO DISPLAY AREA0810 LDY #00820 LDA 1022 ;MINUN}TES0830 ADC #16 ;CONVERT TO SCREEN CODE0840 STA (208),Y ;STORE0850 INY 0860 LDA #26 ;SCREEN CODE N}FOR ':'0870 STA (208),Y0880 INY 0890 LDA 1023 ;SECONDS(HI)0900 ADC #160910 STA (208),Y0920 IN}NY 0930 LDA 1024 ;SECONDS(LO)0940 ADC #160950 STA (208),Y0960 LDA 558 ;TIMER DONE?0970 BEQ DIN}SABLE ;YES0980 EXIT JMP XITVBV ;NO. JUST RETURN TO VBI0990 DISABLE LDA #$62 ;RESTORE ORIGINAL VBI VECTOR1000 STA 5481N}010 LDA #$E41020 STA 5491030 JMP XITVBV ;EXIT1040 .END 2 ;RESTORE ORIGINAL VBI VECTOR1000 STA 5481LL78DTMTMRHTMRLDDDDD2HDD2LBi`BAUA'A(?iWqYyT5qcR} A Bgp B ABP`%fcTIMERS, LISTING 3BY FRED PINHO (c) 1985, ANTR}IC PUBLISHING U +@/6-F:A`,%AV$F:Aa,C%@v@UAA8-@4R}%@x%F:%@%,8 y @,@p1/AY@pC,@@qU/AY@qg,R}@ry/@y@r3%6-F:@,%AV$F:@,36-%A(@(L6-%@"6-P:'AV,46-&+$AVR},@ALA 2C AA!1A'CAU7&&(TIMER DISPLAYS MINUTES:R}SECONDS<bBB'AH9AI@KBB@dX(TIMING!b@FI"-R}AY?P36-E:@$,>6-$E:,I6-$G:,P73,P:+$@5,%@y,P:+$@0,%@4,7 Z7A'AR}U4( TASK COMPLETED!7d #A0n%-A6A"!% x$GG216,173,253,3,208,18,169,R }1,141,4,4,169,0,133,18,133,19,133,20,169GG255,141,253,3,206,4,4,208,115,169,10,141,4,4,165,20,141,254,3,165HH19,162,8R!},14,254,3,42,201,60,144,5,233,60,238,254,3,202,208,240,141EE255,3,162,8,169,0,14,254,3,42,201,60,144,5,233,60,238,254,3,2R"}02GG208,240,141,255,3,162,8,169,0,14,255,3,42,201,10,144,5,233,10,238II255,3,202,208,240,141,0,4,24,160,0,173,254,3,1R#}05,16,145,208,200,169LL26,145,208,200,173,255,3,105,16,145,208,200,173,0,4,105,16,145,208,173DD3,4,208,3,76,98,228,16R$}9,98,141,36,2,169,228,141,37,2,76,98,228 D1:TIMER3.BASAY?PF,105,16,145,208,173DD3,4,208,3,76,98,228,16PN0100 ;TIMER 40110 ;BY FRED PINHO0120 ;(c) 1985, ANTIC PUBLISHING0160 *= $0600 ;RELOCATABLE0170 ;SEE LISTING 2 FOR V&}REMARKS ON PAGE 6 ASSEMBLY0180 .TITLE "LISTING 4"0190 .TAB 14,18,260200 .SET 1,40210 XITVBV = $E4620220 V'}CLD ;MUST BE DONE0230 LDA 1021 ;TIMER ACTIVATED?0240 BNE GOON ;YES. SKIP AROUND0250 LDA #1 V(};NO. SET DELAY FOR IMMEDIATE DISPLAY0260 STA 10280270 LDA #0 ;SET LOCATIONS TO 00280 STA 180290 STA V)}190300 STA 200310 LDA #255 ;SET TO INDICATE ACTIVE TIMER0320 STA 10210330 GOON DEC 1028 ;CALCULATE TIME?V*}0340 BNE EXIT ;NO. BYPASS ROUTINE0350 LDA #10 ;YES. RESET DELAY COUNTER0360 STA 10280370 LDA 20 V+} ;GET TIMER COUNT0380 STA 1022 ;LO BYTE0390 LDA 19 ;HI BYTE0400 DIVIDE LDX #8 ;DIVIDE BY 600410 LOOP1V,} ASL 1022 ;TO GET TOTAL SECONDS0420 ROL A0430 CMP #600440 BCC BRCH10450 SBC #600460 INC 10220470 BV-}RCH1 DEX 0480 BNE LOOP10490 STA 10230500 ;TOTAL SECONDS STORED IN REGISTER 10220510 LDX #8 ;DIVIDE BY 60V.}0520 LDA #0 ;TO GET MINUTES0530 LOOP2 ASL 10220540 ROL A0550 CMP #600560 BCC BRCH20570 SBC #60V/}0580 INC 10220590 BRCH2 DEX 0600 BNE LOOP20610 STA 10230620 ;MINUTES IN 1022, REMAINING SECONDS IN 10230630V0} ;NOW DIVIDE BY 10 TO GET HI AND LO DIGITS OF DECIMAL NUMBER0640 LDX #80650 LDA #00660 LOOP3 ASL 10230670 ROLV1} A0680 CMP #100690 BCC BRCH30700 SBC #100710 INC 10230720 BRCH3 DEX 0730 BNE LOOP30740 STA 102V2}40750 ;SECONDS(TENS PLACE) IN 10230760 ;SECONDS(UNIT PLACE) IN 10240770 DISPLAY CLC ;STORE 3 DIGITS INTO DISPLAY AREAV3}0780 LDY #00790 LDA 1022 ;MINUTES0800 ADC #16 ;CONVERT TO SCREEN CODE0810 STA (208),Y ;STORE0820 V4} INY 0830 LDA #26 ;SCREEN CODE FOR ':'0840 STA (208),Y0850 INY 0860 LDA 1023 ;SECONDS(HI)0870 V5} ADC #160880 STA (208),Y0890 INY 0900 LDA 1024 ;SECONDS(LO)0910 ADC #160920 STA (208),Y0930 V6} LDA 1027 ;TIMER DONE?0940 BNE DISABLE ;YES0950 EXIT JMP XITVBV ;NO. JUST RETURN TO VBI0960 DISABLE LDA #$62 ;RESTV7}ORE ORIGINAL VBI VECTOR0970 STA 5480980 LDA #$E40990 STA 5491000 JMP XITVBV ;EXIT1010 .END 2 ;RESTTv bc#DTMTMRHTMRLDDDDD2HDD2LJIFSECMIMINTSECSETSEBi`B?Z9}tbt(H Bgp B AYP?ucuB)W@@Z:}@TIMERS, LISTING 5BY FRED PINHO (c) 1985, ANTIC PUBLISHING U +@/6-F:A`,%Z;}AV$F:Aa,C%@v@UAA8-@4%@x%F:%@%,8 y @Z<},@p1/AY@pC,@@qU/AY@qg,@ry/@y@r({%6-F:@Z=},%AV$F:@,36-%A(@E@W@i@ {AR@2_&(TIMER DISPLZ>}AYS MINUTES:SECONDS3(TIMING!=@K6-%@_%@@&<""-AY?PFj86-F:@ Z?},%AV$F:@,%BU6$F:@,I6-P:'@`,Z6-P:'@`,j6-&@`$P$6-P:'@,$6-&@Z@}$Z=%@'%@%@=%@%@d*6-E:@$,6-$E:,*6-$G:,n73,P:+$@5,%ZA}@y,P:+$@0,%@4,7 x%"( TASK COMPLETED!% D1:TIMER5.BAS20,141,254,3,165HH19,162,8ZB},@y,P:+$@0,%@4,7 x%"( TASK COMPLETED!% D1:TIMER5.BAS20,141,254,3,165HH19,162,8X