⌐5ó) ã1L!`⌐) ט0⌐ «ß⑤ìß⑤αNס⇨מß⑤ ™0 ⌐⑤α ≡②α⇨≡⇦ÿL±1⌐¢ó) ã1 Æ⑨L!BAD LOAD FILE¢LOAD 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 AREA¢CAUTION: A "Y" INVALIDATES MEM.SAV.¢⌐àF⌐⌠àE¡÷à!⌐ ì∙ +⑤⓪⇨L≡1⌐
ì⇧¡³ì³⌐✓ì⇩⌐ ì♪⇨⌐⇧ì
⇨`⓪*⌐ ì♪ 70 ¨2ì÷ ¨2ì¯⇦A} ™0¡÷ל¯≡.ó*⌐ך ã1 y0מ♪0)INSERT BOTH DISKS, TYPE RETURN¢⌐^ó, ã1 y0⌐❎ì╱⌐3ì◆¡σ⇩8ΘÇì⇦¡µ⇩Θ ì❎¡⇦ל╱¡❎ϕ◆ã
àPOSITÿ⇨⇦❎ó⇨❎X;¼⇨⑥X;Start of AssemblyÀ⇨❎X;ij⇨◆❎ 0ט⇨äCSET!äFAKEק⇨❎X;∧⇨"X;Tables for p ¥}roperty ownershipΦ⇨ X;rent, cost and double Xref.≥⇨❎X;ⁿ⇨②âWHO②✓$;;owners╱⇦⑧âIMP②✓$;;improvements⓪⇦①äRENT②✓$;;rentə⇦②äCOST②✓$; ß};value$⇦åREFTAB②✓$;;shadow table.⇦əäCASH②✓✓;;players money8⇦åRANTAB②✓$;;selling priceB⇦⑧àMONEY②✓(;;money lineL⇦⑨åPRPLIN②✓(; ƒ};prop. lineV⇦⑨äIBUF②✓⓪;;input buffer`⇦❎X;j⇦ X;Fetch the character set fort⇦⑥X;the Map of the US~⇦❎X;ê⇦◆❎@1Æ⇦④①>ÄD:CAPITAL3.M á}65£⇦❎X;ª⇦⑨X;Initial Table Valuesã⇦❎X;´⇦X;the initial rent valuesג⇦X;must be less than 32 sinceמ⇦X;inprovements are done by í}ן⇦X;multiplying by 8 (3 ASL's)Γ⇦❎X;∮⇦çRENTORG♪✓ =✓=✓=✓✓=✓⑨=✓⑤÷⇦⑤♪✓ =✓ =✓④=✓⑥=✓=✓ ❎⑤♪✓⇦=✓╱=✓=✓◆=✓❎=✓
(❎❎X;2❎#X;the initial cost of properties<❎❎X;F❎çCOSTORG♪✓ =✓⑦=✓%=✓⑨=✓E=✓AP❎⑤♪✓ ú}=✓)=✓<=✓I=✓T=✓ Z❎⑤♪✓ =✓=✓&=✓①=✓=✓ d❎⑤♪✓②=✓=✓$=✓%=✓ =✓⑥n❎⑤♪✓3=✓♪=✓ =✓5=✓0=✓8x❎⑤♪✓==✓ =✓ =✓d=✓/=✓*é❎❎X;î❎$X;initial status o ñ}f each propertyû❎X;128 =special, like TAXá❎$X;0=single,free - 1=single,bought¬❎$X;2=double,free - 3=double,boughtœ❎ X;4=LUCK Ñ}, including CAP GAINS®❎❎X;ז❎åREFORG♪✓Ç=✓ =✓ =✓ =✓⇩=✓⇩פ❎⑤♪✓⇦=✓ =✓ =✓⇩=✓⇩=✓Çץ❎⑤♪✓ =✓ =✓ =✓⇩=✓⇩=✓ǵ❎⑤♪✓ =✓⇩=✓⇩=✓ =✓⇦=✓ ≡❎⑤♪✓ =✓ ª} =✓Ç=✓⇩=✓⇩=✓ ·❎⑤♪✓⇩=✓⇩=✓⇦=✓ =✓⇩=✓⇩⇦╱③ ◆w⇧=◆w⇧=◆w⇧=◆w⇧╱❎X;⑧╱"X;these are the special squares"╱"X;which have scrolling message º}s,╱❎X;6╱④äSPLC♪✓ =✓♪=✓①=✓ə@╱②éX9♪✓ =✓ =✓②=✓J╱❎X;T╱!X;These cross reference tables^╱#X;identify the double propertiesh╱$X;by ¿}halves and allow the programr╱ X;to find the other half of a|╱X;property.å╱❎X;É╱əäXREF♪✓ =✓ =✓ =✓ =✓❎=✓⇦Ü╱⑤♪✓ =✓ =✓ =✓
=✓ =✓ ⌐} ñ╱⑤♪✓ =✓ =✓ =✓⓪=✓=✓ «╱⑤♪✓ =✓④=✓③=✓ =✓ =✓ Õ╱⑤♪✓ =✓ =✓ =✓=✓=✓ א╱⑤♪✓=✓=✓ =✓ =✓#=✓"כ╱❎X;ש╱!X;these are used to center theα╱ ¬}X;info on the money lineΩ╱❎X;⌠╱③åOFFSET♪✓=✓=✓
³╱⓪âXST♪✓❎=✓⇨=✓⇧✓◆❎X;②◆ X;Display List (Transactions)◆❎X;&◆⑤àDLTXT♪╱p=╱p=╱p ½}=╱F0◆
=╱=╱ ª❎X;ã②X;more messages´❎X;ג⑦åWINNER♪Aë has won!Aמ⑥♪âEOL=AèPress a keAןə♪AÉy to play again.A=✓ ג} ΓêDEAD_MES♪Aè is Broke!A=âEOL∮╱♪✓ ÷ àYNTXT♪AÉ property [Y/N]?A=✓ !çIMP_TXT♪âEOL=âEOL=AêImprove A
>;;info·④3;;y wa ן}s $FF⇦⑤⓪âFD2C;;plyr #⑤⇦,⑧⑤⑥O>╱①;;for screen IC"⑤④PàMONEY9;;show it,⑤Q>╱ə;; '$'6⑤PàMONEY②✓⇧9@⑤①&éXT;;save x,yJ⑤◆'éYTT⑤ C;;p ך}lyr #^⑤ T?;;x2h⑤⇦?r⑤QäCASH②✓⇧8;;get his cash|⑤①>;;x=high byteå⑤①QäCASH8;;a=lowÉ⑤⑧ çFORMNUM;;to ATASCIIÜ⑤①$éXT;;positionñ⑤ %> ם}╱¯;;now«⑤⑤âFD33;;change cashÕ⑤①Q@åINBUFF7;;toא⑤⑤FâFD4;;if '0' doneכ⑤ə åASC2IC;;internal codeש⑤⑦PàMONEY②✓⇩9;;show itα⑤⇦2Ω⑤④HâF ף}D3;;next digit⌠⑤⑨âFD4%äMAXP;;get offset³⑤⓪QéXT;;to next✓⑥①,;;plyr's info②⑥OåOFFSET③✓⇩8⑥⇦>&⑥◆%éYT0⑥3;;next plyr:⑥④)äMAXP;;l ץ}ast one?D⑥ HâFD2;;noN⑥♪:;;whew!X⑥❎X;b⑥④X;Format a numberl⑥❎X;v⑥əçFORMNUMPâFR0;;low byteÇ⑥&âFR0②✓⇧;;hiè⑥③LâFR0②✓⇧;;hello!ö⑥✓H §}âGFPß⑥⑥Q>4àBROKE;;if 0 you¿⑥⑧PåINBUFF;;are 'broke'Ø⑥ Q>5àBROKE¶⑥PåINBUFF②✓⇧ה⑥⇦:ס⑥⑦âGFP âIFP;;INT to FPם⑥⑧ äFASC;;FP to ATASC ∧}IIΣ⑥◆%>╱¯∈⑥③âFM13;;find last°⑥⑦Q@åINBUFF7;;inversed⇩⑦IâFM1;;digit ⑦②M>╱;;& make it⑥⑦⑥P@åINBUFF7;;regular ⑦3;;add a 'G'*⑦◆Q ∞}>
G4⑦⑨P@åINBUFF7;;and an EOL>⑦①Q>✓ ;;i.e. a 0H⑦⇦3R⑦P@åINBUFF7\⑦
:;;donef⑦❎X;p⑦X;Convert ASCII to ICODEz⑦❎X;ä⑦①åASC2IC àBITE α}RÄ⑦ LâA2I9ÿ⑦ $äXSV2ó⑦⇦:¼⑦❎X;À⑦⑨X;Convert ICODE to ASCij⑦❎X;ט⑦①åIC2ASC àBITERק⑦ LâI2A9∧⑦ $äXSV2Φ⑦⇦:≥⑦❎X;ⁿ⑦⑦X;Make char an index β}╱⑧❎X;⓪⑧
àBITER5ə⑧❎U?$⑧❎U?.⑧❎U?8⑧❎U?B⑧◆M>✓⇨L⑧ &äXSV2V⑧⇦>`⑧⇦7j⑧◆M>╱ƒt⑧⇦:~⑧❎X;ê⑧④①>ÄD:CAPITAL2.M65Æ⑧❎X;£⑧◆❎ pª⑧X;the screen da Γ}ta for theã⑧⑥X;map of the U.S.A.´⑧❎X;ג⑧④①>ÄD:CAPITAL6.M65מ⑧◆❎α⇩ן⑧ äCSETΓ⑧⇦④①>ÄD:CAPITAL2.M65Æ⑧❎X;£⑧◆❎ pª⑧X;the screen da M³³ d ⑧X;SAVE#D:CAPITAL2.M65n ❎X;x əX;--------------------;é əX; ;î əX; CAPITAL! part 2 ;û əX; ⓪Σ} ;á əX;by: Bryan Schappel ;¬ əX; ;œ əX;--------------------;® ❎X;ז ④X;Get a key pressפ ❎X;ץ àG⓪σ}ETCH$>╱¯µ ◆&éCH≡ äGETCQéCH· ◆R>╱¯⇦⇧ FäGETC⇧◆&éCH⑧⇧⇦:"⇧❎X;,⇧③X;Print a Number6⇧❎X;@⇧àPRNUM çFORMNUM;;to IC firstJ⇧⑨QåINBUFF⓪µ};;fall throughT⇧%åINBUFF②✓⇧^⇧❎X;h⇧③X;Eprint Routiner⇧❎X;|⇧åEPRINTPâEPL②✓⇧;;A= low byteå⇧⑧'âEPL②✓⇩;;Y = hi byteÉ⇧⑧âEPLQ❎¯¯;;⓪τ}print untilÜ⇧⑤FâEPO;;hitting a 0ñ⇧① äEPUT;;put it«⇧⑨QåPAUSE?;;fast or slowÕ⇧③HâEPN;;printing?א⇧⑥ äJIFF;;wait a jiffכ⇧əâEPN#âE⓪Φ}PL②✓⇧;;next byteש⇧✓HâEPLα⇧♪#âEPL②✓⇩Ω⇧✓HâEPL⌠⇧âEPO:;;exit³⇧❎X;✓⇩X;Intro DLI②⇩❎X;⇩⑦äIDLI5;;save all the&⇩A;;registers0⇩⇦5:⇩⓪Θ}⇦CD⇩⇦5N⇩②Q>╱ij;;green hueX⇩①%>✓◆;;dark lumb⇩ äIDLP$>✓⇩l⇩əäIDL1PåCOLPF2;;plyfld 2v⇩③N>╱;;switch lumÇ⇩⑤PåCOLPF1;;plyfld 1è⇩④N>╱⓪Ω};;swtich backö⇩⑤PàWSYNC;;wait syncß⇩0;;3 lines¿⇩ IäIDL1Ø⇩⇦,¶⇩⑤O>✓⇩;;increase lumה⇩1;;8 timesס⇩⑥IäIDLP;;more shadesם⇩②%>✓◆;⓪δ};now startΣ⇩④Q>╱כ;;with bright∈⇩⑦äIDL2$>✓⇩;;and shade°⇩⓪äIDL3PåCOLPF2⇩⇨◆N>╱ ⇨♪PåCOLPF1⑥⇨◆N>╱ ⇨
=╱ =╱ Ø◆♪╱ =╱ =╱ =╱ ¶◆♪╱⇩=╱⇩=╱ =╱ ה◆♪╱ =╱ =╱ =╱ ╱=╱?Ç◆♪╱≡=╱≡=╱≡=╱≡è◆♪╱ij=╱ij=╱ij=╱ijö◆♪╱¬=╱¬=╱ =╱ ß◆♪╱ =╱④ C³³ 3d ⑧X;SAVE#D:CAPITAL4.M65n ❎X;x ⑧X;------------------;é ⑧X; CAPTIAL! ;î ⑧X; ;û ⑧X; PMG & U.S.A. M⑨>}AP ;á ⑧X; ;¬ ⑧X; by: Barry Kolbe ;œ ⑧X; ;® ⑧X;------------------;ז ❎X;פ X;Set up PMGץ ❎X;⑨?}µ əåSETPMGQ>╱>;;enable PMG≡ ♪PåSDMCTL· ⑤Q>✓⇧;;set priority⇦⇧♪PåGPRIOR⇧⑥$>✓⇨;;set size to 0⑧⇧◆Q>✓ "⇧✓PâBDL,⇧⓪âPLSPåSIZEP096⇧⇦⑨@}0@⇧✓IâPLSJ⇧◆Q>✓⇨T⇧♪PåGRACTL^⇧⑧Q>5âPMB;;set PMG baseh⇧♪PåPMBASEr⇧❎X;|⇧#X;Initially put Players (Tokens)å⇧⑤X;beneath the DICEÉ⇧⑨A}❎X;Ü⇧◆$>✓⇨ñ⇧⑨âPPSQ>╱x;;vertical pos«⇧ PâPY09Õ⇧⑦QâIXP9;;initial horzא⇧③PâPX09;;positionכ⇧⇦0ש⇧✓IâPPSα⇧❎X;Ω⇧⑤X;Set Token Colors⌠⑨B}⇧❎X;³⇧◆$>✓⇨✓⇩âPC1QäPCLR9②⇩ PåPCOLR09⇩⑤Q>✓ ;;all begin at&⇩PàPTHP09;;'Stock Market'0⇩⇦0:⇩✓IâPC1D⇩①Q>✓ ;;player 1N⇩①PäPNUM;;⑨C}startsX⇩❎X;b⇩⑨åRSTPMGQ>╱>;;reset PMGl⇩④PåSDMCTL;;for MAPv⇩Q>✓⇧;;screenÇ⇩♪PåGPRIORè⇩⇦:ö⇩❎X;ß⇩"X;Initial X Positions of Tokens⑨D}¿⇩❎X;Ø⇩③âIXP♪╱`=╱h=╱p=╱x¶⇩❎X;ה⇩⑥X;Put P/M on screenס⇩❎X;ם⇩ åSHOWPMQàONBRD;;is '1' alive?Σ⇩FéJ1;;nope∈⇩④ àDEFP0;;show '1'°⇩⑨é⑨E}J1QàONBRD②✓⇧;;'2' on?⇩⇨FéJ2;;etc. ⇨
àDEFP1⑥⇨⓪éJ2QàONBRD②✓⇩ ⇨◆FéJ3*⇨
àDEFP24⇨⓪éJ3QàONBRD②✓⇨>⇨◆FéJ4H⇨
àDEFP3R⇨◆éJ4:\⇨❎X;f⇨⑨F}X;Entry Point While Playingp⇨❎X;z⇨⑧äFAKE-;;clear decimalä⇨④$>╱¯;;reset stackÄ⇨⇦Bÿ⇨⑧ åINITAB;;redo tablesó⇨⑤ åSNDOFF;;init snd⑨G}¼⇨⑥ àINTRO;;show introÀ⇨⑦ åSETPMG;;set up PMGij⇨ə åCLRPMG;;clear PMG memט⇨⑨ çFORMDOL;;show $ lineק⇨⑥ åRESROL;;DICE mesg∧⇨⑧ åSH⑨H}WPUR;;show 'free'Φ⇨❎X;≥⇨X;Entry point of MAP movesⁿ⇨❎X;╱⇦àENTRYQ>4éDL;;display list⓪⇦♪PåSDLSTLə⇦ Q>5éDL$⇦PåSDLSTL②✓⇧.⇦⑥Q>5⑨I}äCSET;;char. set8⇦
PàCHBASB⇦⑥ åRSTPMG;;reset PMGL⇦⓪$>✓⇦;;get MAPV⇦⑦âMC1QàMAPCL9;;colors`⇦ PåCOLOR09j⇦⇦0t⇦✓IâMC1~⇦①Q>✓ ;;DLI c⑨J}ntrê⇦✓PâBDLÆ⇦⑥PåAMOUNT②✓⇧;;safety£⇦⑥Q>4âDLI;;set up DLIª⇦♪PåVDSLSTã⇦
Q>5âDLI´⇦PåVDSLST②✓⇧ג⇦ə åSHOWPM;;put tokens onמ⇦❎X;ן⇦⑤$⑨K}äPNUM;;get plyr #Γ⇦③QàONBRD9;;alive?∮⇦HâMV1;;yes÷⇦④!âNXP;;no do next ❎əâMV1%>✓ ;;put plyr name
❎③QéX99;;on screen④❎✓PâSCR❎⑨L}Q>5çNAMEBUF(❎♪PâSCR②✓⇧2❎əâGNLQ@âSCR7;;get length<❎①FâGNE;;of nameF❎⇦3P❎✓HâGNLZ❎④âGNE'âSVY;;save Yd❎⑥Q>✓④;;20 bytes/linen❎②;;;⑨M}subt from 20x❎✓SâSVYé❎
V?;;1/2î❎②>;;use as indexû❎③%>✓③;;0 out lineá❎①Q>✓ ;;20 bytes¬❎âGNCPäPLRN8œ❎⇦1®❎✓IâGNCז❎⇦3פ❎②Q>✓;;;pu⑨N}t '[#]'ץ❎⑧PäPLRN③✓⇦9;;on screenµ❎◆Q>✓=≡❎PäPLRN③✓⇩9·❎⑤QäPNUM;;get plyr #⇦╱⇦,╱③O>╱①;;for screen⑧╱⑤PäPLRN③✓⇨9;;show #"╱âGNPQ@⑨O}âSCR7;;next the name,╱③FâGNU;;done on 06╱⑤ åASC2IC;;INT code@╱⑤PäPLRN9;;show charJ╱⇦2T╱⇦3^╱✓HâGNPh╱③âGNUQ>✓5;;' UP 'r╱PäPLRN⑨P}②✓⇧9|╱◆Q>✓0å╱PäPLRN②✓⇩9É╱⑨âSCCQåCONSOL;;wait forÜ╱R>✓⇨;;OPTIONñ╱✓HâSCC«╱⑤ åROLDIC;;roll 'emÕ╱❎X;א╱④X;Move the Tokensכ╱❎X;ש╱⑨Q}①QäPNUM;;plyr #α╱③T?;;x2 for tableΩ╱⇦>⌠╱⑦QäETAB9;;erase table³╱ PäEJSR②✓⇧✓◆QäETAB②✓⇧9②◆ PäEJSR②✓⇩◆⑧QäDTAB9;;define table&◆ ⑨R}PäDJSR②✓⇧0◆QäDTAB②✓⇧9:◆ PäDJSR②✓⇩D◆❎X;N◆⑨äMAIN"äSQRS;;# to moveX◆äEJSR àERSP0;;erase tokenb◆①$äPNUM;;plyr #l◆⑧#àPTHP09;;nex⑨S}t squarev◆⑧QàPTHP09;;all the wayÇ◆④R>✓$;;around yet?è◆ HâMOK;;noö◆⑦Q>✓ ;;yes reset to 0ß◆♪PàPTHP09¿◆⑨âMOKQàPTHP09;;find newØ◆⑨T}①?;;position of¶◆⑨QäPTHX8;;token(Player)ה◆ PâPX09ס◆
QäPTHY8ם◆ PâPY09Σ◆äDJSR àDEFP0;;show token∈◆⑦ äBEEP;;make a sound°◆①$äPN⑨U}UM;;plyr #⇩✓⑧QàPTHP09;;see if on $ ✓ HâMKK;;no⑥✓⑦$>✓ ;;scroll message ✓♪ åMESSAG*✓③Q>✓ ;;add 12G to4✓①%äPNUM;;player>✓✓ âADDH⑨V}✓âMKK äWAIT;;wait a littleR✓⑥ åSHWPRP;;show name\✓⑦QäSQRS;;done moving?f✓HäMAIN;;nop✓⑦$äPNUM;;get locationz✓♪QàPTHP09ä✓❎X;Ä⑨W}✓əX;dont wait on specialsÿ✓❎X;ó✓◆%>✓⇨¼✓əâSCMRäSPLC8;;is it LUCKÀ✓⑤FâNOW;;HILTON, TAXij✓1;;CAP GAINSט✓✓IâSCMק✓❎X;∧✓#X;This is ⑨X}a square that requiresΦ✓ X;a transaction, so we remove≥✓X;the P/M and call the TRANSⁿ✓"X;routine. Then we restore the╱ !X;M⑨Y}AP screen display and loop.⓪ ❎X;ə ⑨ çWAITKEY;;wait or key$ ⑧ åCLRPMG;; remove PMG. ⑦ àTRANS;;go to TRANS8 ❎X;B X;NOW is entr⑨Z}y spot from T_OKL ❎X;V âNOW åRESROL;;reset ROLL DICE` ①$äPNUM;;plyr #j ⑤QàPTHP09;;locationt ④FâCOV;;if it is $~ àCKMES;;ot⑨[}her specials?ê əâCOV åSHWPUR;;show nameÆ ⑧âNXP#äPNUM;;next plyr£ ③QäPNUM;;only 0-3ª ◆M>✓⇨ã ⑧PäPNUM;;next person's´ ⓪!àENTRY;;⑨\}moveג ❎X;מ ⑤X;Clear PMG Memoryן ❎X;Γ åCLRPMG$>✓ ∮ ⇦A÷ âCP1PéP09
àERSP38❎X;B❎X;L$X;Table of Define Player RoutinesV❎X;`äDTAB ⑨f}àDEFP0j
àDEFP1t
àDEFP2~
àDEFP3ê❎X;Æ!X;Change Character Sets in DLI£❎X;ª✓âDLI5ã④QâBDL;;which DLI?´①HâBL2;;not 1stג⑨g}⑥Q>5äMSET;;switch toמ⑧PåCHBASE;;our ROM setן
PàWSYNCΓ⑥Q>╱é;;change colors∮①PåCOLPF2;;blue÷⑤Q>╱ם;;bright green ♪PåCOLPF⑨q}⇩≤⇨ B% ⇦ DOS SYSB* ) DUP SYSB= S CAPITAL COMBS É CAPITAL1M65BB π CAPITAL2M65B⑧ %⇧CAPITAL3M65Bi =⇧CAPITAL4M65BU »⇧CAPITAL5M65B ⇦⇩CAPITAL6M65B !⇩GRAPHICSM65B◆ *⇩GUNTEST BASB 1⇩GUNVBIM COMB% ?⇩GUNVBIM M65B) d⇩IOMAC LIB⇨p ì⇩MOUNTAINBAS⇨A ²⇩PICTPERFBAS⇨⑤ >⇨PICTPERFM65⇨④ S⇨SYSEQU M65 1
③Q>╱µ;;Orng Green④♪PåCOLPF3②#âBDL;;next DLI(7;;routine2⇦9<⑥âBL2R>✓⇧;;next DLI?F HâBL3;;noP⑥Q>ëMONEY_CLR;;colorZ⑥⑨r}PàWSYNC;;for $ lined♪PåCOLPF2n①Q>✓ ;;backgrndx⑤PàCOLBK;;scan lineé②#âBDL;;next DLIî⇦7û⇦9áâBL3Q>ëMONEY_CLR;;bottom¬③P⑨s}àWSYNC;;all oneœ①PàCOLBK;;color®⇦7ז⇦9פ❎X;ץəX;Roll DICE with OPTIONµəX;stop them with SELECT≡❎X;·åROLDICQ>✓ ;;sqrs=# ⑨t}to move⇦⓪ PäSQRS⓪⑨ åGETRND;;get random #⑧⓪④$>✓ ;;now show it"⓪③%>✓ ;;on DIE # 1,⓪əâDR1Q@üL7;;move 3 bytes6⓪③PåDICPOS③╱'9;;to⑨u}@⓪①2;;screen:x isJ⓪ 3;;offsetT⓪◆)>✓⇨^⓪✓HâDR1h⓪④$>✓ ;;move 3 morer⓪⑨âDR2Q@üL7;;1 line down|⓪PåDICPOS②✓⇧9å⓪⇦2É⓪⇦3Ü⓪◆)>✓╱ñ⓪✓HâD⑨v}R2«⓪①$>✓ ;;& 3 moreÕ⓪ âDR3Q@üL7א⓪⑧PåDICPOS②╱)9;;anotherכ⓪2;;line downש⓪⇦3α⓪◆)>✓ Ω⓪✓HâDR3⌠⓪⑦ åGETRND;;now do 2nd³⓪ %>✓ ;;DIE✓⑨w}①④$>✓❎;;move x over②① âDT1Q@üL7①PåDICPOS③╱'9&①⇦20①⇦3:①⑤)>✓⇨;;3 bytes fromD①⑨HâDT1;;dice definitionN①$>✓◆;;tableX① âDT2Q@üL⑨x}7b①PåDICPOS③✓⇧9l①⇦2v①⇦3Ç①)>✓╱;;3 moreè①✓HâDT2ö①②$>✓❎;;next lineß① âDT3Q@üL7¿①PåDICPOS②╱)9Ø①⇦2¶①⇦3ה①◆)>✓ ס①✓HâDT3ם①⑨PåCONSO⑨y}L;;clear CONSOLΣ① äWAIT∈①⑤QåCONSOL;;wait for°①R>✓❎;;SELECT⇩②⑨HåROLDIC;;keep rollin' ②⇦:⑥②❎X; ②X;Get Random DICE Throws*②❎X⑨z};4②åGETRNDQåRANDOM;;only 0-5>②◆M>✓◆H②◆R>✓╱R②♪EåGETRND\②③>;;current throwf②⇦,p②OäSQRS;;0-5z② PäSQRSä②#äSQRS;;1-6Ä②⇦Aÿ②③T?;;⑨{}x2 for tableó②⇦>¼②⑤QäRTAB9;;get rightÀ②①PüL;;bytes forij②③QäRTAB②✓⇧9;;DICEט② PüL②✓⇧ק②⇦:∧②❎X;Φ②⑦X;Wait a few jiffies≥②❎X;ⁿ② äWA⑨|}ITQ>✓ ╱③♪PåRTCLOK⓪③éWAQåRTCLOKə③◆R>✓╱$③◆DéWA.③⇦:8③❎X;B③ X;Wait for 8 seconds or untilL③⑥X;a key is pressed.V③❎X;`③⑨çWAITKEY$⑨}}>╱¯;;clear CHj③◆&éCHt③⑥QéCH;;read keyboard~③⑦R>╱¯;;unitl releasedê③ HçWAITKEYÆ③②Q>✓ ;;set clock£③♪PåRTCLOKª③PåRTCLOK③✓⇧ã③⑧éW⑨~}KQéCH;;key pressed?´③◆R>╱¯ג③④HàWTDON;;yes-exitמ③⑨QåRTCLOK③✓⇧;;no see ifן③③R>✓⇩;;time is upΓ③◆DéWK∮③⑦àWTDON&éCH;;clear CH÷③⇦: ⑨}④❎X;
④X;Initialixe Sound Registers④④❎X;④åSNDOFF$>✓◆(④◆Q>✓ 2④âSN1PàAUDF19<④⇦0F④✓IâSN1P④◆P❎✓פZ④⇦:d④❎X;n④⑥X;Make a BEEP soun⑨Ç}dx④❎X;é④ äBEEPQ>╱àî④
PàAUDF1û④◆Q>╱¿á④PàAUDF1②✓⇧¬④ äWAITœ④◆Q>✓ ®④
PàAUDF1ז④PàAUDF1②✓⇧פ④⇦:ץ④❎X;µ④ X;Scroll Messages for Spec⑨ü}ial≡④əX;Properties. X = msg #·④❎X;⇦⑤åMESSAGQàSCTAB9;;how far to⑤ 5;;scroll⑧⑤②PäSCNT;;save it"⑤⑦ åRESROL;;reset line,⑤âSC4#⑨é}äTWIN;;coarse scroll6⑤✓HâSC1@⑤ #äTWIN②✓⇧J⑤âSC1"äSCNT;;decrease cntrT⑤⑦ äJIFF;;wait a jiffy^⑤④QäSCNT;;done yet?h⑤ HâSC4;;nor⑤⑨â}⑨ çWAITKEY;;wait 8 secs|⑤7;;amount toå⑤⑥PäSCNT;;scroll backÉ⑤əâSC3"äTWIN;;do the backÜ⑤⑧ äJIFF;;ward scollingñ⑤ QäTWIN«⑤◆R>╱⑨ä}¯Õ⑤✓HâSC2א⑤ "äTWIN②✓⇧כ⑤⑧âSC2"äSCNT;;countdownש⑤②HâSC3;;not doneα⑤⑦ åRESROL;;reset lineΩ⑤
:;;exit⌠⑤❎X;³⑤X;Number of bytes to ⑨à}scroll✓⑥❎X;②⑥②àSCTAB♪✓(=✓P=✓x⑥❎X;&⑥ X;reset the ROLL DICE message0⑥❎X;:⑥③åRESROLQ>4àRLMESD⑥ PäTWINN⑥ Q>5àRLMESX⑥ PäTWIN②✓⇧b⑥⑨å}⇦:l⑥❎X;v⑥X;Check for Scolling MessageÇ⑥❎X;è⑥⑦àCKMESQäPNUM;;plyr #ö⑥⇦>ß⑥❎T?¿⑥⇦?Ø⑥⑦QàPTHP09;;which prop¶⑥③$>✓⇧;;for scrollה⑥R⑨ç}>✓①;;taxes?ס⑥HäNTAX;;noם⑥④QäCASH8;;if taxesΣ⑥③PüL;;div cash by∈⑥④QäCASH②✓⇧8;;8 and°⑥③PüL②✓⇧;;subtract⇩⑦④VüL②✓⇧;;from cash ⑦②⑨ê}WüL;;if able to⑥⑦④VüL②✓⇧;;otherwise ⑦①WüL;;just exit*⑦ VüL②✓⇧4⑦①WüL;;this is a>⑦⑤QäCASH8;;tax breakH⑦②;;;for the poorR⑦╱SüL\⑦⑨ë}
PäCASH8f⑦QäCASH②✓⇧8p⑦ SüL②✓⇧z⑦PäCASH②✓⇧8ä⑦⑧ çFORMDOL;;show new $Ä⑦③$>✓⇧;;now scrollÿ⑦✓!âMJMó⑦⑤äNTAX2;;vacation=2¼⑦⓪R>✓♪;;H⑨è}OGG #1À⑦✓FâMJMij⑦⓪R>✓ə;;HOGG #2ט⑦✓FâMJMק⑦
⑨♪╱<=╱⑨Ä}<=╱<=╱<④⑨❎X;⑨⑤àP3DEF♪╱=╱=╱=╱(⑨②♪╱⇨=╱⇨=╱ =╱<=╱<2⑨♪╱<=╱<=╱<=╱<<⑨❎X;F⑨X;These are the HorizontalP⑨X;positions of the Pla⑨Å}yersZ⑨❎X;d⑨④äPTHX♪╱ÿ=╱ÿ=╱É=╱ên⑨♪╱Ç=╱x=╱p=╱hx⑨♪╱`=╱X=╱P=╱Pé⑨♪╱H=╱@=╱@=╱@î⑨♪╱@=╱@=╱H=╱Pû⑨♪╱X=╱`=╱h=╱pá⑨♪╱x=╱Ç=╱ê=╱ê¬⑨♪╱ê⑨É}=╱É=╱ÿ=╱áœ⑨♪╱¿=╱¿=╱¿=╱á®⑨❎X;ז⑨X;These are the Verticalפ⑨X;positions of the Playersץ⑨❎X;µ⑨④äPTHY♪╱x=╱ê=╱ê=╱ê≡⑨♪╱ê=╱ê=╱ê=╱ê⑨æ}·⑨♪╱ê=╱ê=╱ê=╱x⇦ə♪╱x=╱x=╱h=╱Xə♪╱H=╱8=╱8=╱8⑧ə♪╱8=╱8=╱8=╱8"ə♪╱8=╱8=╱8=╱H,ə♪╱X=╱X=╱X=╱X6ə♪╱X=╱h=╱x=╱x@ə❎X;JəX;The MAP co⑨Æ}lors and theTə①X;TOKEN colors^ə❎X;hə⑧àMAPCL♪╱N=╱á=╱⌠=╱α=╱érə④äPCLR♪╱⇩=╱B=╱z=╱ה|ə❎X;åə#X;These are the low and hi bytesÉə#X;of⑨ô} the screen position of eachÜəX;property square on the MAPñə❎X;«ə⑥âSCL♪╱·=╱J=╱H=╱F=╱DÕə②♪╱B=╱@=╱>=╱<=╱:אə②♪╱8=╱Φ=╱µ=╱Σ=╱öכə②⑨ö}♪╱D=╱⌠=╱ñ=╱ª=╱¿שə②♪╱¬=╱¼=╱«=╱ã=╱Øαə②♪╱œ=╱À=╱╱=╱V=╱XΩə②♪╱Z=╱\=╱^=╱«=╱³⌠ə╱♪╱ⁿ³ə❎X;✓⑥âSCH♪╱q=╱r=╱r=╱r=╱r②②♪╱r=╱r=╱r=╱r=╱r②♪╱⑨ò}r=╱q=╱q=╱q=╱q&②♪╱q=╱p=╱p=╱p=╱p0②♪╱p=╱p=╱p=╱p=╱p:②♪╱p=╱p=╱q=╱q=╱qD②♪╱q=╱q=╱q=╱q=╱qN╱♪╱qX❎X;bX;If a property is boughtl⑨û}X;show it with a thickervX;box or circle. Each symbolÇ"X;is 2 ANTIC 4 characters wide,è❎X;öåSHWPUR$>✓#;;go thru allß⑨ù}⑦âSHHQâSCL9;;36-first¿PüL;;get itsØəQâSCH9;;screen location¶ PüL②✓⇧הəQåREFTAB9;;find out itsס⑧GéFJ;;status: specialם◆H⑨ÿ}éFIΣ⑥%>✓ ;;0=single free∈⑥Q>╱9;;left side box°✓P@üL7⇩⇦3 ③Q>╱:;;right side⑥P@üL7;;box ⑥éFJ0;;next property*✓IâSHH4
:⑨Ö};;done>əéFIR>✓⇧;;1=singl,boughtH◆HéFKR⑦Q>╱-;;thick box,left\◆%>✓ f✓P@üL7p⇦3z④Q>╱.;;thick,rightä✓P@üL7Ä◆HéFJÿ⑧éFKR>✓⑨Ü}⇩;;double,free?ó♪HéFL;;no¼◆%>✓ ÀQ>╱+;;circleij③P@üL7;;left sideט⇦3ק③Q>╱,;;right side∧✓P@üL7Φ◆HéFJ≥⑨éFLR>✓⇨;;double,b⑨¢}oughtⁿ◆HéFJ╱◆%>✓ ⓪⑤Q>╱);;thick circleə③P@üL7;;left side$⇦3.③Q>╱*;;right side8✓P@üL7B◆HéFJL❎X;VX;Show the Property ⑨£}Name as`②X;you go by it.j❎X;tåSHWPRP åCLRPRP;;clear line~⑦Q>4åPRPLIN;;point toê②PäTWIN;;line inÆ⑥Q>5åPRPLIN;;display£⑨¥}②PäTWIN②✓⇧;;listª①$äPNUM;;plyr #ã⑦QàPTHP09;;get prop #´❎T?ג②>;;x2 for tableמ⑥QåPRPTAB9;;get nameן╱PüLΓQåPRPTAB②✓⇧9∮ ⑨ß}PüL②✓⇧÷◆%>✓ ②$>✓
åGRAFIXZ 5;;SAVE 'G'd&#} ②$>✓╱④╱⓪;;FILE 6n Q>åCCLOSEx ♪PàICCOM9y !X* First we must close IOCB #6é ✓ âCIOî "X* Ignore any errors from closeû ❎X*á
$>&$}✓╱④╱⓪í X* We will open this IOCB¬
Q>äCOPNœ ♪PàICCOM9® Q>4àSNAME™ X* We use the filename "S:"ז PåICBADR9פ Q>5àSNAMEצ ⑦X*&%} By pointing to itץ PåICBADR②✓⇧9µ ❎X*≡ X* All is setup for open, now· X* we tell CIO (& S:) what⇦⇧③X* kind of open.❎⇧❎X*╱⇧&&}X* Retrieve our saved 'G'◆⇧③X* graphics mode⇧⇦7⇧⑥X* Is given to 'S:'⑧⇧ PåICAUX29⑨⇧!X* (Note that S: ignores upperə⇧②X* bit&'}s of AUX2"⇧❎X*#⇧X* Now we get the upper bits,⇧◆M>╱≡-⇧④X* And flip bit 46⇧◆N>╱⓪7⇧#X* (S: expects it to be invertedJ⇧"X* from &(}the normal BASIC usage)K⇧❎X*L⇧!X* Allow read and write accessM⇧④X* for CIO and S:T⇧◆L>╱ ^⇧ PåICAUX19h⇧① âCIO;;OPEN S:m⇧ X* Gr&)}aphics mode 'G' now openr⇧⇦:|⇧⇦ëGRAPHICS å⇧
⑧X*ASM,,#D:GUNVBIM.COM④ ╱EI )X* Version 1.00, (c) 1989, Analog ( ⑥X* Computing 2 X*2@} By Matthew J. W. Ratcliff< ⑦X* Ratware SoftworksF ③X* Install a VBIP ⑤X* handler for theZ ⑥X* Atari light gun.d X* Each VB2A}In ⑤X* LPENV and LPENHx ②X* are read andé ②X* converted toî ⑦X* SCREEN COORDINATEû ⑧X* equivalents, basedá ④X* on the current2B}¬ ⑤X* graphics mode -œ ⑥X* found in DINDEX.® ❎X*ז ⓪X* Algorithm:פ ①X* X range forץ ②X* gun is 0-159µ ①X* Y range for≡ ①X* gun2C} is 0-95· ②X* These values⇦⇧X* are close⇧⑤X* approximations,⑧⇧X* and the"⇧⑥X* unusual readings,⇧④X* from the light6⇧④X* gu2D}n do require@⇧②X* adjustments.J⇧⑤X* However the 160T⇧①X* range for X^⇧②X* and 96 rangeh⇧④X* for Y work outr⇧③X* to be PERFECT2E}|⇧③X* multiples forå⇧②X* ALL graphicsÉ⇧⑦X* modes as follows:Ü⇧❎X*ñ⇧⑨X* GRAPHICS X-wd Y-ht«⇧⑧X* MODE - ConvertÕ⇧⑦X* 2F} factorא⇧⑨X* - ------- --------כ⇧⑧X* 0 40-1/4 24-1/4ש⇧⑧X* 1 20-1/8 24-1/4α⇧⑧X* 2 20-1/8 12-1/8Ω⇧⑧X* 3 80-1/22G} 24-1/4⌠⇧⑧X* 4 80-1/2 48-1/2³⇧⑧X* 5 80-1/2 48-1/2✓⇩⑧X* 6 160-1/1 96-1/1②⇩⑧X* 7 160-1/1 96-1/1⇩⑧X* 8 320-2/1 192-2H}2/1&⇩⑧X* 9 80-1/2 192-2/10⇩⑧X* 10 80-1/2 192-2/1:⇩⑧X* 11 80-1/2 192-2/1D⇩⑧X* 12 40-1/4 24-1/4N⇩⑧X* 13 40-1/4 12-1/8X⇩2I}⑧X* 14 160-1/1 192-2/1b⇩⑧X* 15 160-1/1 192-2/1l⇩❎X*v⇩❎X*Ç⇩⑤X* Note that EVERYè⇩③X* conversion isö⇩⑥X* a multiple of 2!ß⇩④X* 2J}What a stroke¿⇩⑤X* of luck (or wasØ⇩④X* it pure genius¶⇩④X* on the part ofה⇩⑧X* Atari 800 designerס⇩②X* Jay Miner?).ם⇩⑤X* The2K} current GR.Σ⇩⑥X* mode can be used∈⇩①X* as an index°⇩②X* into a shift⇩⇨③X* table. If the ⇨④X* entry is zero,⑥⇨④X* then no shi2L}ft. ⇨⑦X* If positive, then*⇨①X* shift right4⇨⓪X* to divide.>⇨⑥X* If negative thenH⇨③X* shift left toR⇨X* multiply.\⇨❎X*f⇨àL2M}PENH❎ קp⇨àLPENV❎קz⇨åVVBLKD◆$⇩ä⇨çDOSLOAD❎ 4Ä⇨❎Fÿ⇨ ③çDOSLOADó⇨③①>ìD1:SYSEQU.M65¼⇨②①>îD1:IOMAC.LIBÀ⇨❎X*ij⇨②X* The VBI co2N}deט⇨⑤X* for gun readingק⇨❎X*∧⇨①ëDOSOFFSET❎ 0Φ⇨åCASBUF❎ ⇦≥⇨⓪êBOTSTACK◆⇧⇧ⁿ⇨②äYGUNêBOTSTACK╱⇦⑤äXGUNêBOTSTACK②✓⇧⓪⇦②åXSHIFT2O}åCASBUFə⇦⑤åYSHIFTåXSHIFT②✓⓪$⇦❎X*.⇦②X* Actual YGUN,8⇦⑥X* XGUN, XSHIFT andB⇦⑥X* YSHIFT data thatL⇦④X* will be copiedV⇦④X* to p2P}age 4 - if`⇦③X* the VBI isn'tj⇦④X* already there.t⇦❎X*~⇦ àDUMMYê⇦♪✓⇩=✓⇨=✓⇨=✓⇧Æ⇦♪✓⇧=✓⇧=✓ =✓ £⇦⓪♪✓⇧=✓⇧=✓⇧=✓⇧ª⇦♪✓⇩=✓⇩=✓ =✓ ã2Q}⇦♪✓⇩=✓⇩=✓⇨=✓⇩´⇦♪✓⇧=✓⇧=✓ =✓ ג⇦③♪✓⇧=✓⇧=✓⇧=✓⇧מ⇦①♪✓⇩=✓⇨=✓⇧=✓⇧ן⇦❎X*Γ⇦②X* Start of VBI∮⇦①X* handler for÷⇦X* light gun ❎❎X*2R}
❎ àSTART④❎♪$åDINDEX❎
QàLPENH(❎◆R>✓(2❎ EäHCK2<❎◆O>✓πF❎ DäHCK2P❎◆Q>✓¯Z❎ äHCK2R>✓Zd❎ EäHCK3n❎◆Q>✓Zx❎ äHCK3;é❎◆S>✓Zî❎◆R>✓áû❎ Dä2S}HCK4á❎◆Q>✓ƒ¬❎äHCK4PäXGUNœ❎ QåXSHIFT9®❎⑤X* No shift reqdז❎ FçSETYGUNפ❎♪GåSHLEFTץ❎⇦?µ❎①çSHRIGHTVäXGUN≡❎⇦1·❎ HçSHRIGHT⇦╱ FçSE2T}TYGUN╱åSHLEFT%>✓ ⑧╱⑦X* In case of mode 8"╱əX* where x can be > 256,╱ 'äXGUN②✓⇧6╱ TäXGUN@╱ UäXGUN②✓⇧J╱②çSETYGUNQàLPENVT╱⇦;^╱2U}◆S>✓①h╱ EäSAVYr╱◆Q>✓ |╱äSAVYPäYGUNå╱ QåYSHIFT9É╱ GçSHYLEFTÜ╱ FçEXITNOWñ╱⇦?«╱②êSHYRIGHTVäYGUNÕ╱⇦1א╱HêSHYRIGHTכ╱ FçEXITNOWש╱①2V}çSHYLEFTTäYGUNα╱❎IΩ╱③X* If address at⌠╱⑥X* label LT480 must³╱əX* be at $47F or below!✓◆❎X*②◆③X* Modified code◆çEXITNOW!❎¯¯2W}&◆ àLT4800◆╱EI:◆⑤①>ÅD1:GRAPHICS.M65D◆❎X*N◆⑥X* VBI install codeX◆❎X*b◆êVBISTARTàSTART③ëDOSOFFSETl◆③çINSTALLQåVVBLKDv◆R>4êV2X}BISTARTÇ◆HêINSTALL1è◆QåVVBLKD②✓⇧ö◆R>5êVBISTARTß◆HêINSTALL1¿◆
HàCKST1` "◆åPRINT ✓ =Aæ|Gun in port 0 |Aj !çGUNEXITt ④àCKST1QåSTICK0②✓⇧~ ◆R>✓ê
HàCKST2Æ "◆åP2a}RINT ✓ =Aæ|Gun in port 1 |A£ !çGUNEXITª àCKST2ã "◆åPRINT ✓ =Aæ|Gun ∈∩⌠ found |A´ ♪çGUNEXITג "◆åPRINT ✓ =Aæ|RESET to remov2b}e|Aמ "◆åPRINT ✓ =Aæə②②②②②②②②②②②②②②②⇨Aן ◆åPRINT ✓ =AÅ ס≥σ≤≤áβáδσ∙«««AΓ ◆Q>✓¯∮ çVHOLDERR◆ⁿ⇩÷ FçVHOLDER
◆P◆ⁿ⇩
⇦:④
❎X*
⑨X* 2c}Code startup header(
❎X*2
◆❎α⇩<
çINSTALLF
❎X*P
④X* End of programZ
❎X*d
⇦ çVHOLDERR◆ⁿ⇩÷ FçVHOLDER
◆P◆ⁿ⇩
⇦:④
❎X*
⑨X* 0 M³³·③Φ⇨)╱AóIOMAC.LIB -- OSS system I/O macrosA≥⇨⑧✓Aæ Support MacrosAⁿ⇨♪⇧10äIOCB╱⇦2
A½You must include SYSEQU.M65 ahead of th6e}is!!A⓪⇦⇦⇨ə⇦❎X;$⇦6X; These macros are called by the actual I/O macros.⇦9X; to perform the rudimentary register load functions.6f}8⇦❎X;B⇦❎X;L⇦①X; MACRO: @CHV⇦❎X;`⇦6X; Loads IOCB number (parameter 1) into X register.j⇦❎X;t⇦<X; If parameter value is 0 to 76g}, immediate channel number~⇦③X; is assumed.ê⇦❎X;Æ⇦6X; If parameter value is > 7 then a memory location£⇦1X; is assumed to6h} contain the channel number.ª⇦❎X;ã⇦ ⇦ä@CH ´⇦
⇧ ✓⇧✓◆ג⇦◆Q ✓⇧מ⇦❎T?ן⇦❎T?Γ⇦❎T?∮⇦❎T?÷⇦⇦> ❎⇦⇩
❎♪$> ✓⇧④✓⓪④❎⇦⇨❎⇦❎(❎❎X;2❎❎X;<❎①X; MAC6i}RO: @CVF❎❎X;P❎:X; Loads Constant or Value into accumultor (A-register)Z❎❎X;d❎+X; If value of parameter 1 is 0-255, @CVn❎+X; 6j}assumes it's an (immediate) constant.x❎❎X;é❎'X; Otherwise the value is assumed toî❎+X; be a memory location (non-zero page).û6k}❎❎X;á❎❎X;¬❎❎X;œ❎ ⇦ä@CV ®❎♪⇧ ✓⇧◆ ⇧ז❎✓Q> ✓⇧פ❎⇦⇩ץ❎◆Q ✓⇧µ❎⇦⇨≡❎⇦❎·❎❎X;⇦╱❎X;╱❎X;⑧╱❎X;"╱①X; MACRO: @FL,╱❎X;6╱5X; @FL is used to e6l}stablish a filespec (file name)@╱❎X;J╱-X; If a literal string is passed, @FL willT╱'X; generate the string in line, jump^╱&X;6m} around it, and place its addressh╱/X; in the IOCB pointed to by the X-register.r╱❎X;|╱(X; If a non-zero page label is passed6n}å╱*X; the MACRO assumes it to be the labelÉ╱.X; of a valid filespec and uses it instead.Ü╱❎X;ñ╱❎X;«╱❎X;Õ╱ ⇦ä@FL א╱♪⇧ ✓⇧◆ ⇧כ╱6o} !② ✓⇧②✓⇦ש╱é@F♪♪✓⇧=✓ α╱ Q>4é@FΩ╱ PåICBADR9⌠╱ Q>5é@F³╱PåICBADR②✓⇧9✓◆⇦⇩②◆ Q>4 ✓⇧◆ PåICBADR9&◆ Q>5 ✓⇧0◆PåICBADR②✓⇧9:◆⇦⇨D◆⇦❎6p}N◆③✓Aî XIO macroAX◆❎X;b◆①X; MACRO: XIOl◆❎X;v◆/X; FORM: XIO cmd,ch[,aux1,aux2][,filespec]Ç◆❎X;è◆%X; ch is given as in the6q} @CH macroö◆3X; cmd, aux1, aux2 are given as in the @CV macroß◆+X; filespec is given as in the @FL macro¿◆❎X;Ø◆5X; performs f6r}amiliar XIO operations with/for OS/A+¶◆❎X;ה◆/X; If aux1 is given, aux2 must also be givenס◆8X; If aux1 and aux2 are omitted, 6s}they are set to zeroם◆1X; If the filespec is omitted, "S:" is assumedΣ◆❎X;∈◆ ⇦äXIO °◆①⇧ ✓ ✓⇩3 ✓ ✓❎⇩✓%
⇧ ✓ ə✓⇦>✓ ◆ä@CV ✓⇨H✓ PåICAUX19R✓ ◆ä@CV ✓⇦\✓ PåICAUX29f✓⇦⇩p✓6u}◆Q>✓ z✓ PåICAUX19ä✓ PåICAUX29Ä✓⇦⇨ÿ✓①⇧ ✓ ⑧✓⇩3 ✓ ⑧✓⇦ó✓◆ä@FL AéS:A¼✓⇦⇩À✓ ä@@IO ✓ ij✓①◆ä@FL ♪@ä@@IO:ט✓⇦⇨ק✓✓ âCIO∧✓⇦⇨Φ✓⇦❎≥✓④✓Aì 6v} OPEN macroAⁿ✓❎X;╱ ②X; MACRO: OPEN⓪ ❎X;ə (X; FORM: OPEN ch,aux1,aux2,filespec$ ❎X;. %X; ch is given as in the @CH macro8 16w}X; aux1 and aux2 are given as in the @CV macroB +X; filespec is given as in the @FL macroL ❎X;V 1X; will attempt to open the 6x}given file name on` /X; the given channel, using the open "modes"j X; specified by aux1 and aux2t ❎X;~
⇦àOPEN ê
⇧ ✓ ✓⇦Æ &6y}
AƒOPEN: wrong number of argumentsA£ ⇦⇩ª ♪⇧ ✓⇦◆ ⇧ã ◆äXIO äCOPN= ✓⇧= ✓⇩= ✓⇨=♪✓⇦´ ⇦⇩ג ◆äXIO äCOPN= ✓⇧= ✓⇩= ✓⇨= ✓⇦מ ⇦⇨ן ⇦⇨Γ ⇦6z}❎∮ ✓Aù BGET and BPUT macrosA÷ ❎X;
AáBGET: wrong number of parametersA^♪⇦⇩h♪◆ä@GP ✓⇧= ✓⇩= ✓⇨=åCGBINRr♪⇦⇨|♪⇦❎å♪❎X;É♪
⇦àBPUT Ü♪
⇧ ✓ ✓⇨ñ♪'
AáB6Ç}PUT: wrong number of parametersA«♪⇦⇩Õ♪◆ä@GP ✓⇧= ✓⇩= ✓⇨=åCPBINRא♪⇦⇨כ♪⇦❎ש♪❎X;α♪⑤✓AÄ PRINT macroAΩ♪❎X;⌠♪③X; MACRO: PRINT³♪❎6ü}X;✓ (X; FORM: PRINT ch[,buffer[,length]]② ❎X; !X; ch is as given in @CH macro& (X; if no buffer, prints just a RETURN0 %X;6é} if no length given, 255 assumed: ❎X;D 8X; used to print text. To print text without RETURN,N -X; length must be given. See6â} OS/A+ manualX ❎X;b 2X; EXCEPTION: second parameter may be a literall .X; string (e.g., PRINT 0,"test"), in whichv -X; case6ä} the length (if given) is ignored.Ç ❎X;è ♪⇦åPRINT ö ①⇧ ✓ ✓⇧3 ✓ ✓⇨ß (
â@IO♪╱¢H◆ä@GP ✓⇧=â@IO=✓⇧=åCPTXTRR⇦⇨\⇦⇨f⇦❎p❎X;z⑤✓AÄ INPUT macroAä❎X;Ä③X; MACRO:6ç} INPUTÿ❎X;óX; FORM: INPUT ch,buf,len¼❎X;À%X; ch is given as in the @CH macroij)X; buf MUST be a proper buffer address6ê}ט6X; len may be omitted, in which case 255 is assumedק❎X;∧,X; gets a line of text input to the givenΦ'X; buffer, maximu6ë}m of length bytes≥❎X;ⁿ♪⇦åINPUT ╱①⇧ ✓ ✓⇩3 ✓ ✓⇨⓪(
AíINPUT: wrong number of parametersAə⇦⇩$
⇧ ✓ ⑧✓⇩.◆ä@GP ✓⇧= ✓⇩=✓¯=å6è}CGTXTR8⇦⇩B◆ä@GP ✓⇧= ✓⇩= ✓⇨=åCGTXTRL⇦⇨V⇦⇨`⇦❎j⑤✓AÄ CLOSE macroAt❎X;~③X; MACRO: CLOSEê❎X;Æ⑥X; FORM: CLOSE ch£❎6ï}X;ª%X; ch is given as in the @CH macroã❎X;´⑦X; closes channel chג❎X;מ♪⇦åCLOSE ן
⇧ ✓ ✓⇧Γ(
AíCLOSE: wrong number of par6î}ametersA∮⇦⇩÷ ◆ä@CH ✓⇧ Q>åCCLOSE
♪PàICCOM9④✓ âCIO⇦⇨(⇦❎2❎X;<-X;;;;;;;;;;; END OF IOMAC.LIB ;;;;;;;;;;;;F❎X; of par4 v @⇧ ⇩!⇩9❎\7r7MAPñBACKñSPACEñSNOWñFONTñDX¿DY¿DR¿DZ¿FULñSבןךMךMןGרOהMדMנTחFכOõOØOøLשOœSCפSTפICדSHAגקMכעIJאCפQןQךרטהIעBןBךDכDEצL:Ä}ןLךZõZØXõYõGןGךTןTךRןRךIןIךCןCךVןVךAןAךשCנCרWIמGAñCזGAGדWןWךUןUךG¿חCHR¿OIJOתOŒסBY¿לMELקMõOÀRגQבQשIQõOÃFרBלAמםDLISק Ç Ç⇧ :Å} Ç⇩ Ç⇨ Ç⇦ @❎ @╱ @◆ @✓ Ç
♪ ⓪ :É} ① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ə :æ} ! " # $ % & ' ( ) * + , - . / 0:Æ} 1 2 3 4 5 6 7 8 9 : ; < = > ? :ô} @ A B C D E ÇF G H I J K L @M N @O :ö} P Q R S @T U V W X Y Z [ \ ] ^ :ò}_ ` a b ⇧ $$ ******************************¢⇩ $$ * NUCLEAR MOUNTAIN *¢⇨ $$ * BY BRAD TI:û}MMINS *¢⇦ $$ * *¢❎ $$ * COPYRIGHT 1989 *¢╱ $$ * BY ANALOG COMPUTING *¢◆ $:ù}$ ******************************¢
Φ⇨"X; PICTURE PERFECT Copy Routine≥⇨⑥X; Assembly Listingⁿ⇨ X; Written by Joe D. Brzuszek╱⇦❎X;⓪⇦əX; Call from BASIC withə⇦C?}.X; A=USR(23253,S1,X1,Y1,X2,Y2,S2,X3,Y3,CEL)$⇦❎X;.⇦⑤X; program equates8⇦ éX1╱נB⇦ éX3╱סL⇦åGRABIT╱עV⇦❎X;`⇦⑦❎רZ;;=23253 decC@}imalj⇦❎X;t⇦!7;;pull accumulator from stack~⇦⇦7ê⇦əP╱כ;;hi byte, copy fromÆ⇦⇦7£⇦əP╱י;;lo byte, copy fromª⇦⇦7ã⇦⇦7´⇦◆PéX1ג⇦PâAX1CA}②✓⇧;;backup storageמ⇦⇦7ן⇦⇦7Γ⇦
PéY3②✓⇧á❎⇦7¬❎⇦7œ❎(PâCEL②✓⇧;;indicates transparent color®❎❎CC}X;ז❎əX;find row to copy fromפ❎
$éY1②✓⇧ץ❎+FåNOPLUS;;if Y1=0, no addition is neededµ❎
âDW1Q╱י≡❎⇦,·❎+O>✓(;;each mode 14 line is CD}40 bytes wide⇦╱╱P╱י╱✓DâNX1⑧╱╱#╱כ"╱✓âNX10,╱✓HâDW16╱❎X;@╱⑧X;find row to copy toJ╱1åNOPLUS$éY3②✓⇧;;if Y3=0, no addition is needCE}edT╱♪FåNOPLUZ^╱
âDW2Q╱לh╱⇦,r╱+O>✓(;;each mode 14 line is 40 bytes wide|╱╱P╱לå╱✓DâNX2É╱╱#╱מÜ╱✓âNX20ñ╱✓HâDW2«╱②åNOPLUZQâCEL②✓⇧ÕCF}╱◆R>✓⇨א╱ HçNEWPLOTכ╱⑦!çFSTCOPY;;fast copyש╱❎X;α╱"X;begin copying the image pixelΩ╱⓪X;by pixel...⌠╱X;find column to copy fromCG}³╱çNEWPLOTQéX1✓◆②V?;;divide by 4②◆❎V?◆?;;Y = horizontal offset&◆◆QéX10◆◆M>✓⇨:◆⇦>D◆⇦2N◆❎X;X◆⑨X;locate pixel to copyb◆✓Q@╱י7CH}l◆
àSHIFT0v◆
FàANDITÇ◆❎T?è◆❎T?ö◆
!àSHIFTß◆àANDITM>✓ij¿◆'PåGRABIT;;store bit pattern of pixelØ◆❎X;¶◆"X;make pixel color transpCI}arent?ה◆♪âCELR>✓¯ס◆♪FåNOPLOTם◆❎X;Σ◆&X;find horizontal column to copy to∈◆◆QéX3°◆②V?;;divide by 4⇩✓❎V? ✓?;;Y = horizontal offCJ}set⑥✓&)>✓(;;screen is only 40 bytes wide! ✓⑨EçENDLINE;;off screen?*✓ QéX3;;no.4✓◆M>✓⇨>✓⇦>H✓⇦2R✓❎X;\✓⑤X;adjust copy dataf✓QàHCK}BITS③✓⇧9p✓
àRIGHT0z✓ FçSTOREITä✓♪VåGRABITÄ✓♪VåGRABITÿ✓
!àRIGHTó✓çSTOREITN>✓¯¼✓✓M@╱ל7À✓♪LåGRABITij✓⑨P@╱ל7;;pixel is storedט✓åCL}NOPLOTQéX1ק✓
éX2R>✓ ∧✓ FçENDLINEΦ✓◆#éX3≥✓◆#éX1ⁿ✓♪QâCEL②✓⇧╱ ◆R>✓⇨⓪ HçNEWPLOTə FçZIPCOPY$ 'çENDLINE#éY1②✓⇧;;end of line reachCM}ed.
éY1Q>✓ 8
éY2R>✓ B
HàBELOWL əäEXIT:;;return to BASICV ⓪àBELOW#éY3②✓⇧`
éY3Q>✓ j R>✓ij;;off bottom of screen?t EäEXIT~ CN}!âAX1Q>✓ ;;No, carriage return.ê ◆PéX1Æ ♪âAX3Q>✓ £ ◆PéX3ª ⑥Q>✓(;;40 bytes wideã ,;;next line to copy from´ ╱O╱יג ╱P╱ימ DäFRCO}OMן ╱#╱כΓ +äFROMQ>✓(;;mode 14 line is 40 bytes wide∮ ə,;;next line to copy to÷ ╱O╱ל
╱P╱ל
DäJUMP④
╱#╱מ
⓪äJUMPQâCEL②✓⇧(
◆R>CP}✓⇨2
FçZIPCOPY<
!çNEWPLOTF
"çFSTCOPYQéX1;;fast copy routineP
V?;;divide all X values by 4Z
❎V?d
◆PéX1n
♪PâAX1②✓⇧x
QéX2②✓⇧éCQ}
❎V?î
❎V?û
PéX2②✓⇧á
◆QéX3¬
❎V?œ
❎V?®
◆PéX3ז
♪PâAX3②✓⇧פ
çZIPCOPY%éX1ץ
⑧Q@╱י7;; load 4 pixelsµ
◆%éX3≡
⑨P@╱ל7;; store 4 pixelsCR}·
/!åNOPLOT;;increment and check X and Y values⇦♪⑤àHBITS♪✓ij=✓0=✓ =✓⇨1ץ
⑧Q@╱י7;; load 4 pixelsµ
◆%éX3≡
⑨P@╱ל7;; store 4 pixels@ D³³» ⑥X*SAVE#D:SYSEQU.M65
X* IOCB and other important④ $X* system equates, from Compute's &X* mapping the Atari and the MGT}ac/65( #X* reference manual from ICD/OSS2 &X* --------------------------------< X* I/O CONTROL BLOCK EQUATESF ❎X*P ✓äIOCBZ ❎GU}X*d X* Device handler, set by OSn àICHID❎@⇨x X* Device number, set by OSé àICDNO❎A⇨î ①X* I/O Commandû àICCOM❎B⇨á $X* GV}I/O Status, same as error code¬ àICSTA❎C⇨œ X* Buffer address, 2 bytes® åICBADR❎D⇨ז X* Disk handler put routine,פ X* adGW}dress - 1, goes hereץ àICPUT❎F⇨µ X* Buffer length, 2 bytes≡ åICBLEN❎H⇨· X* Auxillary control bytes⇦⇧⑤åICAUX1❎J⇨;;AUX 1GX}⇧⑤åICAUX2❎K⇨;;AUX 2⑧⇧⑤åICAUX3❎L⇨;;AUX 3"⇧⑤åICAUX4❎M⇨;;AUX 4,⇧⑤åICAUX5❎N⇨;;AUX 56⇧⑤åICAUX6❎O⇨;;AUX 6@⇧⑧X* Length of one GY}IOCBJ⇧çIOCBLEN✓⓪T⇧❎X*^⇧ X* IOCB COMMAND VALUE EQUATESh⇧❎X*r⇧②X* Open channel|⇧♪äCOPN✓⇨å⇧⑦X* Get binary recordÉ⇧åCGBINR✓◆GZ}Ü⇧⑤X* Get text recordñ⇧åCGTXTR✓❎«⇧⑦X* Put binary recordÕ⇧åCPBINR✓♪א⇧⑤X* Put text recordכ⇧åCPTXTR✓ ש⇧X* Open IOCBα⇧åCCG[}LOSE✓ Ω⇧②X* Check status⌠⇧ àCSTAT✓³⇧❎X*✓⇩X* DEVICE DEPENDENT COMMAND②⇩X* EQUATES FOR FILE MANAGER⇩❎X*&⇩③äCREN✓ ;;RENAMG\}E0⇩②äCERA✓!;;ERASE:⇩④äCPRO✓#;;PROTECTD⇩⑥äCUNP✓$;;UNPROTECTN⇩④åCPOINT✓%;;POINTX⇩②àCNOTE✓&;;NOTEb⇩❎X*l⇩X* AUX1 VALUES REQG]}D FOR OPENv⇩❎X*Ç⇩⑦äOPIN✓⇦;;OPEN INPUTè⇩⑨àOPOUT✓✓;;OPEN OUTPUTö⇩⑨àOPUPD✓ ;;OPEN UPDATEß⇩əåOPAPND✓ ;;OPEN APPEND¿⇩àOPDIR✓G^}╱;;OPEN DIRECTORYØ⇩❎X*¶⇩❎X*ה⇩❎X*ס⇩əX* MISC ADDRESS EQUATESם⇩❎X*Σ⇩åCPALOC╱
∈⇩⑧X* Warm start, 0=cold°⇩åWARMST╱✓⇩⇨$X* Store G_}here,wait for horiz sync ⇨àWSYNC◆
ק⑥⇨X* Available memory, low ⇨àMEMLO❎τ⇩*⇨X* Available memory, high4⇨åMEMTOP❎σ⇩>⇨$X* G`}Upper limit of application RAMH⇨åAPPMHI╱R⇨əX* Atari load/init addr\⇨çINITADR❎Γ⇩f⇨⑧X* Atari Load/Go addrp⇨àGOADR❎α⇩z⇨XGa}* Cartridge RUN locationä⇨çCARTLOC❎·™Ä⇨⑦X* CIO Entry addressÿ⇨♪âCIO❎VΣó⇨X* End of line character¼⇨
❎④X* Timer counter:④❎⑨àJIFFY✓④;; 60Hz clock❎X* CassGf}ette buffer at $400(❎"X* use as general filename buff2❎⓪êFILENAME❎ ⇦<❎əX* Display list pointerF❎àDLIST❎0⇩z clock❎X* CassD l ⇧¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯Ö
