ўїїџџџџџџџџџџџћWORDRACE2 а DSK (џџ?ќџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћCOMUTL € aP fРїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћBANKCODE €6P[@їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћASSM2 B їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћDATA €#RP#s їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћBANKROM €hP`PїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћBANK1TEST €PUPїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћASSM1  "№їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћROMHDR €PPяїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћMUSIC €КPеїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћGPLLNK € RP Т їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћEDIT1 –pїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћSUBS €2ЙP2ёїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћNUMS € lP ц€їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћINITS €:PЭpїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћFROM €•PЎ0їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћUTILITIES €дP#AїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћWORDS €†PfСїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћWORDO "Pf>їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћWORDROM €P`QїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћWORD €ЏP8Qїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћџџ ЊU  (Š€€PP ‹€€Шƒ* Шƒ,рџи ц!Є"N"` Ѕ ­9шЌшRLXS : 99/4 ASSEMBLER ASїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћSEMBLER RUNNING V1.5P (C) COPYRIGHT 1981 BY TEXAS INSTRUMENTS, INC.Ш џкƒ*Ш џмƒ,р!v -vР$ !2 n)ІШ!xˆ !vџиW +ђ)ЌРQ -‚€)ЌP  VERSION 1.5P PAGE  END SYMBOL TABLE OVERFLOїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћTBTEXT TITL UNL X‚XIT XOP,XOR( THE FOLLOWING SYMBOLS ARE UNDEFINED: !†!‹!w!|  1 MЅ* :5ИЌl5іƒ(’Ш ƒі(Žи ˜(и ˜(‘ (ƒ ёƒBќƒ2(|Ьr‚(Šќ ЊЦ јр(^р7ўр­р ШтШЊŒ Џ ЏЖШ Џ–5(РУ=R0їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DCA,DCS,BDDBDECDECTBDEF DEND DIV<DORG DR BDSEG DXOP END EQU EVEN IDLE@IDT INC‚INCTТINVBJEQJGTJHJHEJLJLEJLTJMPJNCJNEJNOJOCJOPLD‚LDCR0LDDТLDS‚LILIIM,ŽLIMILIST LMF,LOїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћCATION -   ***** UNDEFINED SYMBOL - )z ***** COM TABLE OVERFLOW - "˜р ***** PEND ASSUMED - +О ***** DEND ASSUMED - ( ***** CEND ASSUMED - "œ ***** END ASSUMED - № ***** COPY ERROR - ‚ Тр ERRORS їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћW CANT GET COMMON р-ASSIGN ERROR ѓ-ILLEGAL PATHNAME ƒр-I/O ERROR- Ш ƒі и jи k j[ƒ|  %Ж#(ƒр Ф6з6А6А6Њџ "h"№## #"#)#?#F#`#g##ˆ#Ѓ#Њ#Р#Ч#с#ш$$ $%$,$H$O$e$l$‚$‰$Ÿ$І$Л$Т$ж***** SYNїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћФТЅ*ЭХЭФз'џќШƒ. 6Р 5Т џрТ 5ВиˆРж 5і 5ИСХ‚…‚‚ /‚ $R1‚в ШЅ  Ѕ\"U"WмБд‘[рƒ р$юр(jрЄ$р­!Eо (nˆ!˜ћШ Ѕ:6`(^Ш (T:8Ш (V:@Ш (X:8Ш (Z:@р(hр(fрЄ8рЌў :.р9Јр9Њи ц цр<ФрЅŒр5 р5р5С`5(ˆЏ–їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћAD LR ‚LREXрLWPIшMDMOVРMOVBаMPY8MR NEGNEGR NOPORIdPAGE PEND PSEG REF RORG RSET`RT[RTWP€S`SBpSBOSBZSDТSETOSLA SOCрSOCB№SR ТSRA SRC SREF SRL STCR4STDТSTR ТSTSTХSTWPЅSWPBТSZC@SZCBPїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ A ABАABSBADBAI$ANDIDAORG AR BBBBES BL‚BLWPBSS BYTE C€CBCDE CDI CED CEND CER CI„CID‚CIR ‚CKOFРCKON CLRТCOC COPY CRE CRI CSEG CZC$DATAїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћTAX ERROR - "˜ ***** INVALID REF - "šТA ***** OUT OF RANGE -  ***** MULTIPLE SYMBOLS - "Њˆ ***** INVALID MNEMONIC -  ***** BAD FWD REFERENCE - "Ќ ***** INVALID TERM - Тр/Є ***** INVALID REGISTER - /М ***** SYMBOL TRUNїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџће%љр Ж` Ш ­Ў р9Ор Црƒ  ЄЄ  АрЅ` ШС`9ОСр<Иuр(nр9ОШ ЪШ ІЅŠ ЌЎ  &‚*рƒ м‚ P‚$ ‚@` ШG ЄDD Ѕ  6 Р`5Ж ` Ш- ЄP0 њ €РУР 0 5фр 5Д` Ш ЄTР 5Т џаРУ Т 5Во ƒ'Ржїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ ЈFр ˆ` Шx ШрЏ’и < !@ 4ЦС ЅŒ!Aƒ( /О !@м`(lТ ƒ(мHШмH!Eџјмh!˜ˆќЬС 5 5 . С 5Œ 5 . Т`5( ˆ Џ–ŒС9 . јШ:6 ­ЎА`)И`(^ † Ш:6 ;№Р`:6Ц†ѕ†СЫм`(zƒ( /Ом`ƒ(м`ƒ)мy§ƒ8 /Ом`ƒ8м`ƒ9Wїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ‚"ТнТіьСи Šш ЈBх ˆ`* 4Ц (h 4Рр=HС =(С`9О` Ш 4Ќ Ђў1 4ЦУ  &‚  4шС 5 ч :. Ђў :Z :. 3№` Ш С`9ОШ <И5ВТЦ Ђў  :. Ђў :Z :. 3№wШ Ъ (j =Jр(jС`=.gР =(` Ша ?Ш@џ Ѕ6ƒ "ZШ (n"Z Ђў„ < `(bїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ5>ОС 5&Рр5БСШ 55& 5єа‚жB‚'Дх` Ш, Ѕ $Р`:6!l ;№Р`:6UмF`(^ЦмFмF0мFмFмFмFбWмwћ FШ:6 ` Ш ЄDџў`1дХРУЗСE` Ш ЄxС`9О` Ш 4Ќ 4Ц ЂўС ЅŒуƒџџХы` Шш Єtх…у` Шр ЄpнТK 4С`=.їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ9Њ(tˆ 9Ј9А 9ф 9ф`*Х Ѕ  6 ` ШР 5Ж€  ЄH Р 5Т СE Т 5ВРж 4р` Шњ ЄDї 4ЦРУС ЅŒ :. ƒџџС 5 С ЅŒСCE 5Т`5(ЂEС  &‚   4Р =H˜ ƒ%ƒ'С =(` ШС`9О 4Ќ Ђў`*\`-–` Шя ЄDьС‚-‚'їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћˆ :6Ѕ& ;№!@  &‚ 1 Ѕ O 6LС 5Ж†GР`:6м`(vF С 5ВХбV…џ8М`(u5М /О!AТ 5МмHШмH!EШ:6 ;№ 6z ЄЄ`(` 8В­ЎZШ Є$Ѕ  Ѕ\$рШ 9ІЌшШ 9І/Ќ ЊЦ­Ъ ­­Ђ ЄDм`(^ Ш/вШ/а Ѕ6!Ы[ 4С`9О`-–Т <ИШ5Вгїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ`(f (f 4в 4^Ш Ъ =J Ѕ6=("Z ЂўФС`=. 4†Ш =H:R :V`(d`(f (f 4п Ѕ  6` Ш ЄP 4ђ` Ш ЄTїТ 5В f ё` Шю ЄDы` Ш ЄD`*\ Ѕ і 6 ` Шˆ 5Ж Т  ЄPюУ 5Т,џш ŒТ 5Вж ‚,нр ^ ЃРрƒ СХ  vзШ ˆ ˆїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћСХ„Т 5ВШ<И 9О‚ ` ШЂ ЄDŸ  &‚ š Ѕ -Ш Ѕ†<АС`Ѕ. <Ъ‚  ` Ш ЄDШ '><Вр<Дˆ <Д(r 4^  †`* 6 ˆ 5Ж(p 4^ Ѓђ` Шт ЄTпрƒ а`<В qРa+ЂQ,N,j,œ,В--T-Є-ђ/о0v0м0ш0ђ11j1ш0~2X,$3”2Ž3†2^3Œ2€3&1+мШ ˆ ˆ`-–С ‹‚"їїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћю Ѕ Ѕ Р Ѕ†Ра 46`(\ (f ЅŠ  &‚'ъ ЅŠчРA 46‚ ` Ш ЄDр(f`*р Ўљ 4ЦС 5џўС`9О` Ш 4Ќ ЂўЊ 4ЦС ЅŒяЅ 4Цр5‚ 6‚'є Ѕ Ѕ*Ю`(nЮ`(nЦ`(n)џќ Ѕ Р Ѕ†и ƒ%ƒ%"ЮBє‚'‚ г` Ш Єl Ѕ*Ш 5  їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ` ШСШ=(# Ф-ХбXХ%џ и Ќч"^!и Ќц"^и Ќх"^С`=.Р 4†# <К€ 0 5ф  5Д €Ц =HиˆжСХ =( Ѕ6=("Z 4^`*\!˜Р То (nќ‚'`-– Ѕ Ѕ Р Ѕ†нРРанРѓ‚'` Ш ЄLрЅврЅ!ЯСC ЏРХС` Ў ˆ їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ†Ё =(Y Ц =Jр Ц[‚  ‚, ` Ш ЄDС` АА[`2P Ѕ6ƒ "ZШ (n"ZУ  Ђў„Ш Ъ < `(f\„DџўШ Ъ` Ш С`9ОШ <И5ВСХ„р<[Р =H"џ и Ќч"^и Ќх"^и Ќц"^[Ср<ИШ5ВUр<Пнрƒ'СХ„[`(hРУƒ 5C 3Т`5(ЂCЦD :.р(h[ƒџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџће˜ 9Є"^Е 9Ѓ˜ Ќх"^Е :P˜ Ќч"^Е :Q„"Z`(^ ;bн7н7н7н7˜ Ќч"^Ш;L Ѕ6:R`(^СФ ;b$€ ТаwA!џљ!џа B  ѓнТн[9Ш Ѕ&Ќш`(^н  !@СТаМТ B њШ;И Ѕ6:0$е $ю`(^Ш $юЅ  Ѕ\!Œ ­Ў4!@Э 9Є„!ћ!@[:.;є` ШїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћШ ЌшУ Ьо 5АŠ" ћ 5кз"9|˜9} ТаАТ"џз 9з 9ŒЬ 6  вГп Œ љЬШ 9\ 6 Ѕ65М,$ ˆ7ўЏЧ 5в ­­Ъ 9Ј€D'D D'D XUUUEESS"+Z ZZ ZZyyysjvv  $о ц<Ќш!˜­Ѕ\Ѕ !ц9Ш PASS 1 ERRORS 9м 9І9ь9І9ј9І9ў 9Ј` Ш`їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ Ѕ65М, п 5А ќ,џњ 6  вГп Œ јЃ С„ўФ`(^п 5Кп 5ЛШ 7X Ѕ65К, 6CРˆЄ‘ˆ5иШ :6 ;№€„џ 3› X˜ 4• V’`5ж  5ж (* 9рШ Ќш ­­Ъ 6  "_ 9рШ ЌшТژ5АоГо 5Аƒіо 5во 5гж 5Б 9рШ Ќш ­­ЪВїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ ЅŒє 5ё 5 ю$DATA $BLANKЅ*Џ–55BР…РˆЏ–С2УŒrƒƒњЮ€ТТЅ*€€}ч€}С Џ–& Ср8aр7ў‡ ђЬБЬБЬБШЏ–Фм` Ш Єl€ `ƒР2B[5В5ш 5ю€РPA[5В5њїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ ;Œ€ A"\"Z00:V9Є"W"X<<$`(h?С :.а@   ХФХФдХˆ€С“ХФХwЗХФЦа@ ы шСр:6`(^Цв3H(љ(а FЁˆѕеЦGнѓегШ€A&Њ<Њ<ЮХР ?ТŒ3„  РССDDџ№EЮ€УРїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ ШХ 9к­ЪХƒ‚Ц‚!к­Ъ` ШХ 9Ц­ЪХ‡­ЪРE€6 9!wFB!|7  :.:ъ:.:^ :d€Ш :T` Шњ`(hїр<Р4РD ;ŒеУ ƒ& Е 9ЁŒЕ :NŒЕ :O„"U`(^ ;bн7н7н7н7Ш ƒ&ƒ&Ш:а Ѕ6ƒ&`(^СФ ;b$Тр:T[ :d :њШ :T‚DФїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ7њ8Р‚РЬ#џє. СBР РE  $  С€  РРТP)џњСрƒ.Žw ћШ5ВЮ€С$ DнСF%џєз#џє` ШР `Р@€CШQџє јР Џ”`ФР" Ш5В€5В8ЖФ 7ў^Р 8 џєРР 8` џєРЧ 5в ­­Ъ 9Ј 9ш`9Ј "Nїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ 6€С‹ 6 CСSVСЫ 5юРР`СCџўW5В6 Р Џ” 8 5кЮ€` Ш(X Ф 6 С ƒ.мє§ 6CШЄˆЏ–Т 9М Ўрƒ `/В€5В6~Р Џ”Т 7ўz !@р5ж 5кТ 5В ФбФи"9Ž6Љџ„џ 5 W 6ŠWŒ!hŒ!l  6п `(^ п 5Мп 5НШ :6 ;№ !@юШ 7їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ:Vш Ѕ6ƒ("U[ dЃ р ^, 5іР 5М `сРФ ‚ `+H Ё`ЂVТKХЬ  &‚@)р ЪС„ Ё„Ё =.Ьр=(  &‚ ƒТ‚(Х‚)` Ш ЄD ЅŠYХY‚*Y  &‚+…YY Ѕ  6Р`5ЖA  5іР`5МР`Ѕ†У` Шїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ Ё* ЅсХ lсЬDТ Ц Ѓ:Ш $    " Ё* EсХсЬXС =H †ўж`Ќчж`Ќцж`ЌхЦдF[ Ё' `ЂdР =.` Ш ЄDР =( ?ШpсР ` Ш ЄDгС„ Ё„bсЬƒТ№р ЪФр=(„Ё =.    " Ё*NсЬK ЁƒТ lсЬBр d€ (jр(jР =(@` ƒ( ?ШpсР/`їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ5ИЦ` ЪТ`5ВТ™Jџ У ƒ&о`=;*РA**`ЪжJЁР Ѕ†ЮУЯЯh?>&Ё‡р=H Р` Ш ЄL`>ra‡р=H`Рјђ`>` ?Є8РРУ` Ш ЄLРФУЯшЯх ?ЄСУРк<Рѓ` ШС†сСЧпƒџџO€џџO[` ШР@Р€€@ ЄL[1111)11#;;;;[їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ‚C@СР‚    €($ьл€=(=Nр="Я…УФЦр=HŽЧ  :‚ w‚_tаb$а и!?о=‡џУŽj ЅŠС†f†cСEaр=(€СEоСEOкСEU Т…ЮгХ Ѕ Ѕ   :‚'EрЅР Ѕ†РаР`?0 ЅŠСEЫХ Ѕ >їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ Є`Ь[ Ѕ6 ЌшЏ”ЅŠ :­Є8 9ш dш**ЄЄœЄЄšЄЄ˜ЄЄ–ЄЄ”ЄЄ’ЄЄЄЄŽЄЄŒЄЄŠЄЄˆЄЄ†ЄЄ„ЄЄ‚ЄЄ€€€€€€€€€€€€€€€€Ро@-ЄЄЈ Є8Ра#ж`Є6Р ŠРРШ#"ВЄаШ ЖЅ  Ѕ\ 9ЈХ#"АР˜0ЄB§ШЄю ЊЦ­Ъ‰к їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ Ш3 ЄD0` Ш- Є\*Ч сХ%У =(LсЬсЬƒТуУ =.пУ =(мŒй` „Œй LсЬ‚ ‚ Ъ  Ђў Ѕ6 l"Z Ќlрƒ( :VЂц ЂоЂШ   "и$ЄЂџ••—•œ”•‘œіœїœј№ёђС‹ Ђў Ќlрƒ(У‚Vи"^и:SШЂю Ѕ6Ђю"ZС‹ Ђў їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ ЅŠ *Й/4 A: џ 1.4 2P  VРа’ ‚‚ РŠ[  >‘СB‚‚‘‚‚ќР…‘ЫB€ :ЃР=J,T  d Šр ^р „Ф Ср<ВР <Д РЂ ЈRЂd ЮЁNЁ\Ё’ЁКЁРЁиЁœЂ(+”ЁT ЦЂЂ  „`Ђ( ЁƒТRЦ Ѓ:Т` $С†     "  ! #їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ 6Т 5Жи*?ш> џ` Ш ` Ц ` Ш` Ц ЄXТр5В Ъв›Ъˆ =HТр=HШ =H‡ 5іР 5Мn` Ш  Єh` Ш ЄDУЦ—Ю`=fZ` Ші ЄHѓУŽј  &‚ ‚,‚(э` ШC`(jч` ЦфУЯт 5іРр5МСŠС&џє†F Т`5В Ъв™ЪШ =HШ :R`(hУ ЪУ ƒ&Т`їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћЄ8€‚Т‚,‚ їР€ !MџќB!@0р(jЅЅ:С>ССDСўСƒ E… ЁBЁIнХ DСD†ѕ€ЅЅ`СўФ=&Є0 „Ё нФFї …ЁIеХ€ЄLІКІјЅ€ЅЄТEЅ*—!џћ{ Ш!Ї$ЅР`ЅО‚$ —`Ї$ѓѓг#џќ  ‚мТ—їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ`ЌіЌіШЉ ЊЮ ЉŒ€ Љ ЉђрЉ€ Љ.ЮУ`Љ.рЉ.  ШЊvШЉxР €ШЊ: ШƒVР` ŠШЉ„ ЊЮ  ЊЮ Š Њ0€РM!бР@џР€(`Љ[`Љ.Щиƒ"ШЉь Ѕ6ЉьЉц ЊЦЉкШ ЉЮ ЊЦ ЊЦЉю`­Є**DSR ERROR:ASCI   Шїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ—€EТ\Ррƒ&CџШ=H =0р=0Ррƒ(€ЅТІ4ІрЇІfммм У` Ш : Ь[  В Ё њР’’рƒ€Ш ЈЇrSрЇирƒрР`ƒVШЇ† ЊОбР ‡ƒJ†Ц ШЇЂ ЊОм€˜Ј7ѓС†>†;рƒа ƒVЈƒVШƒTС ,рƒаŒ (Ш ƒа@˜Ј6№"Р ƒвР’їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћСШС€ ЋўРУ€L СЌєЎШ-Ў ЊЦ€С Юб ЋїХ ЋўРУ€С Юб ЋіХ!@PТ ЋўРУ€O `­С Юб ЋіХ!@PТРFд` т! œРГ РСмr§Сє $юШ $юЅ  Ѕ\!ŒУ ЋўРУв€Ы€У иЎоР ЎриЎпа Ўо Р ЎриЎоР м Ўпд Ўо\@№ @€   0[ !ўїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћџ ЌLЌрЌшУХРDAџ ЈJ" ЈR˜Ћї б Ћј ЈN ЊЮЋєС Ћє ЈN "<" ЎД ЎрЌL€Ќ ЂЌp` ШС† 9Ј 9ЈЧСЧЦ  Ѕ\"PШ"`Ш"PШ"RЧ­аи"^€ ЂЌВЧРЬ€" ќ­Š"š„@€"`њ€”д€ЬФ€'"+PїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћЊ,ШЊvР `Ј@ШЊ*ШЊt€ШЊ:ШЊb ШƒV ЊЮ ЇnК ЊОФбФ$ Њ|а@ бЈ` ˆ @ ЊТ ­УСиЌю ЊЪ[рт[р qррт$эЋДЊ~ЊмЊ~ЊшЊ~ЊєЊ~Ћ~Њ~ЋšЊ~ЋЖ Р> Ћтз`ˆ€Р> ЋоиŒ€и ЊйЊлїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћшШƒвТТRТСFХ”…ђХƒJ‚”Гьћ™чрЈ€рЈѓрЇи€Њ.ƒJ‚”Г" (Љ0 (Љ ЈV HЈЦ hЈжУрЈ@` ˆ Ј@ ЉŒрЈ@РУр ˆяР` ˆШЈ ЊОиЈЉаD  ЊЪ€"`˜ "`Ј> "`"aмr˜Ј>ќв€ ЊЮ€!@P ЉŒ€Ш ЌшЈј` ЎШ ЌіЈњ Њв€ P ЊЮ€їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ їєТIЩ` Ш Єd )Ш 5ТЅ*Шƒ.Ю€VРТ#џа—!џњРA10€"џа  ƒ # Тя` ШьъУ—!џћи!Ї3Іyџ—!џћси!Ї.І‹џ‚F "џљ"џа C` Ш Тш` Ш ЄDУ€аЕ ‚‚  ‚ ю‚_аb$а [С[—€šРТ—€š ƒрТ€У їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ€'"+$оЌш­Т>XТЫ С Ьб ЋїШ ­­б Ћєр­ ЋўС Ьб Ћѕ Ћў˜Ћќ€Ы ­ "` <Ю  фIќ "`* !тЮЙЦ™` Ш` ˆ Є|€S и"I "<Р ЎД Ўрƒр рƒрЫи ƒ|Тр(Žи (œи (‘œ[С ЎС аб ЋіХС€ЧШ‡ˆˆP˜6ЋђјˆPPїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћР~Р ЋоТаБ‚ т ‚ч‚ ђиŒ‡‡§ёыФХТ $ Р ЋтЊž Ћ Р ЋоЊž ЋЌ% ш€€ р Ћо ЋЬРJПР>Р~РОА Ћт Ћ€м`ˆќ[Р>Р~РОЂ Ћо ЋЌ€и1Œќ[Р>Р~РО Ћо‚Bџў ЋЬ€иŒСиŒСBј[`@РиŒРиŒ[, їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ`Џ†ЌюЏШ 5дЏœр Ў(\ё(fќ вЏlœWЏ|њ‡іиЏ5џ[Р ЊО Рє  Ўё (\ю (^ы (`ш (bх (dтУр RSC LT BD "$Р ЎД Ў ­­ЂЏњЏІЏЏД€ЏЏКџРa‰ Х=H9HТ( XРЩ# Р‰ †Ш8BШЄС СH Eє§€їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ COPY "DSK1.INITS"*============================== LIST* SUBS STARTS HERE UNL COPY "DSK1.SUBS"*============================== LIST* FROM STARTS HERE UNL COPY "DSK1.FROM"џE UNLџ LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ*============================== LIST* DATA STARTS HERE UNL COPY "DSK1.DATA"*============================== LIST* WORDS STARTS HERE UNL COPY "DSK1.WORDS"*============================== LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ Ѕ Р Ѕ†Ра 46`(\ (f ЅŠ  &‚'ъ ЅŠчРA 46‚ ` Ш ЄDр(f`*р Ўљ 4ЦС 5џўС`9О` Ш 4Ќ ЂўЊ 4ЦС ЅŒяЅ 4Цр5‚ 6‚'є Ѕ Ѕ*Ю`(nЮ`(nЦ`(n)џќ Ѕ Р Ѕ†и ƒ%ƒ%"ЮBє‚'‚ г` Ш Єl Ѕ*Ш 5  їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ# Р‰ †Ш8.BШ9ФС СH Eє§€їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ*============================== LIST* UTILITIES STARTS HERE UNL COPY "DSK1.UTILITIES"*============================== LIST* GPLLNK STARTS HERE UNL COPY "DSK1.GPLLNK"*==============================џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ* NUMS STARTS HERE UNL COPY "DSK1.NUMS"*============================== LIST* MUSIC STARTS HERE UNL COPY "DSK1.MUSIC"*============================== LIST* INITS STARTS HERE UNLџ LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ* FILE IS >> BANK1TEST <<**============================== LIST* ROMHDR STARTS HERE UNL COPY "DSK1.ROMHDR"*============================== LIST* BANKROM STARTS HERE UNL COPY "DSK1.BANKCODE"џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ* FILE IS >> BANKROM << EVEN&**************************************&* THIS IS THE ROUTINE THAT WILL *&* SWAP BANKS FOR THE CARTRIDGE. *&**************************************BANKAD DATA EDITOR DATA NEWWRD DATA NUMMSCџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ! B *R0 GO THERE&**************************************&* BANK SWITCH RETURN ROUTINE. *&**************************************%BANKRT B @$+>6000+4 SWITCH BANKS/ MOV @BANKRA,R11 RESTORE RETURN ADDRESSџ WHERE TO GOџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ DATA GPL DATA JPLLNK) DATA 0 FUTURE EXPANSION&**************************************&* PRIOR TO CALLING THIS ROUTINE, YOU *&* MUST LOAD R0 WITH THE NUMBER OF THE*&* ROUTINE YOU WISH TO CALL. *џ DATA NUMMSCџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ LIST* COMUTL STARTS HERE UNL COPY "DSK1.COMUTL"*============================== LIST FINITO EQU $ ENDџ= LIST* GPLLNK STARTS HERE UNL COPY "DSK1.GPLLNK"*==============================џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ DATA GPL DATA JPLLNK) DATA 0 FUTURE EXPANSION&**************************************&* PRIOR TO CALLING THIS ROUTINE, YOU *&* MUST LOAD R0 WITH THE NUMBER OF THE*&* ROUTINE YOU WISH TO CALL. *џ DATA NUMMSCџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ) RT RETURN TO CALLER EVENџ******************&* BANK SWITCH RETURN ROUTINE. *&**************************************%BANKRT B @$+>6000+4 SWITCH BANKS/ MOV @BANKRA,R11 RESTORE RETURN ADDRESSџ WHERE TO GOџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ&**************************************;BANKSW MOV R11,@BANKRA SAVE RETURN ADDRESS OF CALLING RTN- B @$+>6000+4 JUMP TO OTHER "BANK" MOV R0,R1 COPY$ SLA R1,1 MAKE A WORD) MOV @BANKAD(R1),R0 WHERE TO GOџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ* FILE IS >> BANKCODE << EVEN&**************************************&* THIS IS THE ROUTINE THAT WILL *&* SWAP BANKS FOR THE CARTRIDGE. *&**************************************BANKAD DATA EDITOR DATA NEWWRD DATA NUMMSCџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ&**************************************;BANKSW MOV R11,@BANKRA SAVE RETURN ADDRESS OF CALLING RTN+ MOV R11,@>6002 JUMP TO OTHER BANK MOV R0,R1 COPY$ SLA R1,1 MAKE A WORD) MOV @BANKAD(R1),R0 WHERE TO GOџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ* FILE IS COMUTL************************** RANDOM NUMBER ROUTINE **************************RANDNO LI R9,28645 MPY @SEED,R9 AI R10,31417 MOV R10,@SEED B *R11%*************************************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ) RT RETURN TO CALLER* EVEN*$* IF POWERED UP IN THIS BANK, RETURN* TO BANK0 TO START PROGRAM*&WRONGO LWPI >8300 SET WORKSPACE5 LI R0,>6AB6 ADDRESS OF BANK0 ENTRY POINTџORE RETURN ADDRESSџ WHERE TO GOџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ%* THIS ROUTINE ASSUMES THAT THE *%* PARAMETERS ARE PASSED FOLLOWING *%* THE BL @RDVCL STATEMENT. I.E.: *%* BL @RDVCL *%* DATA SAL,2,MYWS+2 *%*************************************џR O M V D P ROUTINE *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ MOVB @INTFLG,@INTFLG JNE SKYRTN$ LIMI 2 ENABLE INTS)SKYRTN B *R11 RETURN TO CALLER&**************************************&* ROUTINE TO CLEAR THE SCREEN *&**************************************џPI MYWSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ%* DEBOUNCE ROUTINE *%*************************************DEBOUN MOV R11,R10 CLR @KEYBRDDEBL1 BL @SCANKY CB @KEY,@HFF JNE DEBL1DEBL2 BL @SCANKY CB @KEY,@HFF JEQ DEBL2 B *R10џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ+ MOV R0,@BANKRA SET RETURN ADDRESS- JMP BANKRT AND GO BACK TO BANK0* EVENџ0 TO START PROGRAM*&WRONGO LWPI >8300 SET WORKSPACE5 LI R0,>6AB6 ADDRESS OF BANK0 ENTRY POINTџORE RETURN ADDRESSџ WHERE TO GOџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ! B *R0 GO THERE&**************************************&* BANK SWITCH RETURN ROUTINE. *&**************************************%BANKRT MOV R11,@>6002 SWITCH BANKS/ MOV @BANKRA,R11 RESTORE RETURN ADDRESSџ WHERE TO GOџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћCLEAR MOV R11,R12 CLR R3 LI R4,>2020CLEARL MOV R3,VDPADD BL @WRTCL DATA 2,MYWS+8 INCT R3 CI R3,>0300 JL CLEARL B *R12%*************************************%* R E A D F R O M V D P ROUTINE *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ%*************************************%* STANDARD KEYBOARD SCAN ROUTINE *%*************************************%SCANKY LIMI 0 DISABLE INTS( LWPI GPLWS GPLWS EQU >83E0' BL @SCAN SCAN EQU >000E LWPI MYWSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ/RDVCL MOV *R11+,VDPADD VDPADD EQU 0 (R0)/RDCL MOV *R11+,RCOUNT RCOUNT EQU 2 (R3)/RDL MOV *R11+,RLOC RLOC EQU 1 (R4)%READ LIMI 0 DISABLE INTS SWPB VDPADD' MOVB VDPADD,@VDPWA SEND LO BYTEџ ROUTINE *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ* FILE IS DATA(****************************************(* WORD LIST MENU AND EDITOR *(* *(* WRITTEN BY: JOHN PHILLIPS *(* DESIGNED BY: JOHN PHILLIPS *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ MOVB VDPADD,@VDPWA >8C02( NOP WASTE SOME TIME+W00010 MOVB *WLOC+,@VDPWD VDPWD EQU >8C00 DEC WCOUNT JGT W00010 LI WCOUNT,>4000' S WCOUNT,VDPADD RESTORE VDPADD MOVB @INTFLG,@INTFLGџ3)џџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ%* THE BL @WRTVCL STATEMENT. I.E.: *%* BL @WRTVCL *%* DATA SAL,2,MYWS+2 *%*************************************/WRTVCL MOV *R11+,VDPADD VDPADD EQU 0 (R0)/WRTCL MOV *R11+,WCOUNT WCOUNT EQU 2 (R3)џџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ( SWPB VDPADD WASTE SOME TIME( MOVB VDPADD,@VDPWA SEND HI BYTE( NOP WASTE SOME TIME+R00010 MOVB @VDPRD,*RLOC+ VDPRD EQU >8800 DEC RCOUNT JGT R00010 MOVB @INTFLG,@INTFLG JNE RDEXITџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ(* DATE STARTED: 5/31/87 *(* *(****************************************'***************************************'* MEMORY MAPPED E Q U A T E S *'***************************************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ JNE WTEXIT$ LIMI 2 ENABLE INTS)WTEXIT B *R11 RETURN TO CALLERџWD VDPWD EQU >8C00 DEC WCOUNT JGT W00010 LI WCOUNT,>4000' S WCOUNT,VDPADD RESTORE VDPADD MOVB @INTFLG,@INTFLGџ3)џџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ/WRTL MOV *R11+,WLOC WLOC EQU 1 (R4)%WRITE LIMI 0 DISABLE INTS SWPB VDPADD' MOVB VDPADD,@VDPWA SEND LO BYTE( SWPB VDPADD WASTE SOME TIME* ORI R0,>4000 SET FLAG TO WRITEџNT EQU 2 (R3)џџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ$ LIMI 2 ENABLE INTS)RDEXIT B *R11 RETURN TO CALLER%*************************************%* W R I T E T O V D P ROUTINE *%* THIS ROUTINE ASSUMES THAT THE *%* PARAMETERS ARE PASSED FOLLOWING *џ JNE RDEXITџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ'*======================================** CPU EQUATES >83A0 AND ABOVE*'*======================================* FILE IS FROMEQU'*======================================*'* THESE ARE THE EQUATES FROM BANK 0 **џ RANDOM # SEEDџ********џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ'***************************************%MYWS EQU >8300 MY WORKSPACE)KEYBRD EQU CPURAM+>74 KEYBOARD TO SCAN%KEY EQU CPURAM+>75 KEY RETURNED#JOYY EQU CPURAM+>76 JOYSTICK Y#JOYX EQU CPURAM+>77 JOYSTICK Xџ************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ/VDPWA EQU >8C02 VDP READ/WRITE ADDRESS1SCAN EQU >000E ADDRESS OF KSCAN ROUTINE+SIT EQU >0000 SCREEN IMAGE TABLE.SAL EQU >0300 SPRITE ATTRIBUTE LIST$CT EQU >0380 COLOR TABLEџ****************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћCPURAM EQU >8300 CPURAM/DISINT EQU >83C2 DISABLE INTERRUPT BYTE>EXTINT EQU >83C4 ADDRESS OF EXTERNAL INTERRUPT ROUTINE.SNDPNT EQU >83CC POINTER TO SOUND LIST#STRTSD EQU >83CE START BYTEџ****************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ'*======================================-BOPINF EQU >8320 BOPPIE'S STATUS BYTE'BOPDLY EQU >8321 BOPPIE'S DELAY2BOPPIX EQU >8322 BOPPIES PIXEL MOVED COUNT&SCSTRT EQU >8324 THROUGH >8329џ*џ RANDOM # SEEDџ********џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ#TIMER EQU CPURAM+>79 TIMER BYTE$STATUS EQU CPURAM+>7C STATUS BYTE$MOTION EQU CPURAM+>7A MOTION BYTE-INTWS EQU CPURAM+>C0 INTERRRUPT WORKSPACE&GPLWS EQU CPURAM+>E0 GPL WORKSPACE&SEED EQU INTWS RANDOM # SEEDџ********џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ.SVT EQU >0780 SPRITE VELOCITY TABLE/SDL EQU >0400 SPRITE DESCRIPTOR LIST1PDT EQU >0800 PATTERN DESCRIPTOR TABLE'***************************************'* C P U R A M E Q U A T E S *џџ****************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ$SVVDP1 EQU >83D4 SAVE VDP R10SCNTIM EQU >83D6 SCREEN TIME OUT COUNTER/RAMFLG EQU >83FD VDP RAM FLAG FOR SOUND&VDPRD EQU >8800 VDP READ DATA'VDPWD EQU >8C00 VDP WRITE DATAџ START BYTEџ****************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ+SCEND EQU SCSTRT+5 END OF SCORE BYTES(HISTRT EQU >832A HIGH SCORE AREA/HIEND EQU HISTRT+5 END OF HIGH SCORE AREA.MBOP EQU >8330 BOP'S DIR FROM KB RTN9BOPSPD EQU >8331 SPEED OF BOPPING WHEN STATIONARYџ****џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ(SKILL EQU >8348 SKILL LEVEL 0-3-MAXLET EQU >8349 MAX LETTERS TO GUESS)GUESSP EQU >834A GUESSING PATTERN&GUESSW EQU >8352 GUESSING WORD7ARWPNT EQU >835A SCREEN SPOT FOR POINTING ARROWџ47)џ DEBOUNCE FLAGџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ2NUMFAC EQU >8337 NUMBER OF FACES DEPOSITED1SPNPOS EQU >8338 LAST POSITION OF SPINNER@FACPOS EQU >833A LAST POSITION OF CURRENT PICKED UP FACE6FACCHR EQU >833C WHICH CHAR FACE WAS PICKED UPџ8336 DEBOUNCE FLAGџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ5INTFLG EQU >8396 1 BYTE 0=NOT IN AN INTERRUPT*(WRDNUM EQU >83A0 0-23 CPU WORD NUMBER&LETNUM EQU >83A1 0-7 LETTER NUMBER+CURPOS EQU >83A2 VDP ADDR OF CURSORCLETPOS EQU >83A4 VDP ADDR OF NEXT LETTER ECHO (@CURPOS->20)џ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'*======================================3****** EQU >8380 2 BYTES RESERVED FOR KSCAN,SNAPIN EQU >8382 SNAPPER INFORMATION** 0=NOT ON 1=UP 2=DOWN 3=RIGHT 4=LEFT,SNPDLY EQU >8387 SNAPPER DELAY BYTES * 1 BYTE @џ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћBWHCHLT EQU >835C ARRAY POINTER FOR CURRENT LETTER TO MATCH*SAVEW EQU >835D SAVED RANDOM WORD.MAXSNP EQU >835E MAXIMUM # OF SNAPPERS+FALDLY EQU >835F FALL DELAY COUNTER,FIRFLG EQU >8360 FIRE FLAG 0=NO FIREџGџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ*SPNCHR EQU >833D SPIN CHAR # (0-7)/NUMBOP EQU >833E NUMBER OF BOPPIES LEFT,NUMUMB EQU >833F NUMBER OF UMBRELLAS,SAVETH EQU >8340 2 SAVED THRONE SPOT.TEMPSC EQU >8342 TEMP SCORE (THRU >47)џ DEBOUNCE FLAGџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ0FBOP EQU >8332 BOP FIRE FLAG 0=NO FIRE9ACTFLG EQU >8333 ACTION FLAG FOR FALLING, JUMPING2STARF EQU >8334 0=NOT CARRYING 1=CARRYING2FACEF EQU >8335 0=NOT CARRYING 1=CARRYING&DBF EQU >8336 DEBOUNCE FLAGџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ/SAVEYX EQU >838C SAVED SNAPPER POSITION1SNPNUM EQU >838E WHICH SNAPPER TO PROCESS#LEVEL EQU >838F GAME LEVEL4SNPPIX EQU >8390 SNAPPERS' PIXEL MOVED COUNT4FCFLSH EQU >8395 1 BYTE FOR FACE FLASH COUNTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ*SNDFLG EQU >8361 SOUND OFF/ON FLAG*,BANKRA EQU >836E BANK RETURN ADDRESS'*======================================'* *'* EQUATES >80 AND ABOVE *** *'* *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ7LOADED EQU >83A6 0-NO WORD LIST LOADED OR VALID*;STARTC EQU >83A8 VDP ADDRESS FOR START OF THIS WORD4WRDPNT EQU >83AA VDP WORD ARRAY BYTE POINTER'***************************************'* R E G I S T E R E Q U A T E S *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ&BEEP EQU MSCOFF+6 BEEP FOR GATE%RISE EQU BEEP+32 RISING SOUND+GONG EQU RISE+49 GONG FOR NEW LEVEL* EQU GONG+29'***************************************'* D A T A S T A T E M E N T S *џP+512 ALL GENS OFFџE WORDSџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ5SAVCPU EQU >1100 TO SAVE CPU DURING SAVE LOADPABBUF EQU >2000)NUMWRD EQU >2000 TOTAL # OF WORDS2WRDCNT EQU NUMWRD+2 # OF WORDS OF EACH LENGTH,WRDLEN EQU WRDCNT+6 LENGTH OF EACH WORD(WORDS EQU WRDLEN+24 24 8-BYTE WORDSџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћR6LB EQU MYWS+13 R6R7LB EQU MYWS+15 R7R8LB EQU MYWS+17 R8R9LB EQU MYWS+19 R9R10LB EQU MYWS+21 R10R11LB EQU MYWS+23 R11R12LB EQU MYWS+25 R12R13LB EQU MYWS+27 R13џQU MYWS+11 R5џ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************VDPADD EQU 0 R0!RCOUNT EQU 2 R3 F V!WCOUNT EQU 2 R3 O D!RLOC EQU 1 R4 R PWLOC EQU 1 R4'***************************************џT E S *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************ZEROES DATA 0,0,0,0#SPACES DATA >2020,>2020,>2020,>2020'***************************************'* PAB DEFINITION *'***************************************џ *џP+512 ALL GENS OFFџE WORDSџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************'* S O U N D L I S T E Q U A T E S *'***************************************,MSCBUF EQU >3800 START OF MUSIC LIST&MSCSNP EQU MSCBUF SNAPPER MUSIC%MSCOFF EQU MSCSNP+512 ALL GENS OFFџE WORDSџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћR14LB EQU MYWS+29 R14R15LB EQU MYWS+31 R15'***************************************'* VDP EQUATES *'***************************************FREVDP EQU >1000PAB EQU >1000џWS+27 R13џQU MYWS+11 R5џ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'* WORKSPACE E Q U A T E S *'***************************************R0LB EQU MYWS+1 R0R1LB EQU MYWS+3 R1R2LB EQU MYWS+5 R2R3LB EQU MYWS+7 R3R4LB EQU MYWS+9 R4R5LB EQU MYWS+11 R5џ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ UЊ    r !4 "Ў(C) COPYRIGHT 1981 TEXAS INSTRUMENTS, INC. H z H мр lр а "PџиШƒ* Шƒ,рџи -†€ P !ФР‚ ‚` l€`"  -~€)ЌP +t)ЌР€с`"  lТ-ТHژ9 pŠŠљ`" їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'MENU5 TEXT '5) RETURN TO GAME' 18'MENUP TEXT 'ENTER YOUR SELECTION' 20-INSTR1 TEXT 'INSERT YOUR WORD LIST DISK' 26-INSTR2 TEXT 'IN DRIVE 1, THEN PRESS ENTER' 28'INFO1 TEXT 'LOADING WORD LIST ' 18'INFO2 TEXT 'SAVING WORD LIST' 16џ14џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћH0F BYTE 15D23 BYTE 23HC0 BYTE >C0HD0 BYTE >D0HFF BYTE >FF+VDPREG BYTE >00,>E2,>00,>0E,>01,>06,>00,>01'***************************************'* T E X T S T A T E M E N T S *'***************************************џE BYTE 14џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ)* 0 1 2 3 4 5 6 7 8 9)PABDEF DATA >0500,>2000,>0000,>0100,>000A TEXT 'DSK1.WORDS'*LOADBY DATA >0500SAVEBY DATA >0600 '***************************************'* B Y T E S T A T E M E N T S *џALL GENS OFFџE WORDSџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћШ ! !Ъж Ш! -‚!* -‚  !ФИ€P H!8р n "PШ џкƒ*Ш џмƒ,р!v -vР$ !2 n)ІШ!xˆ !vџиW +ђ)ЌРQ -‚€)ЌP` nP )ќ )Ќ˜ pї -‚ e !ФР‚а$ -‚ H ШƒV ,† -vТа€ вЂРl` l[їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'BACKM TEXT 'PRESS BACK TO RETURN' 20'LISTM TEXT 'ENTER LIST # (0-9)' 18 џSTR1 TEXT 'INSERT YOUR WORD LIST DISK' 26-INSTR2 TEXT 'IN DRIVE 1, THEN PRESS ENTER' 28'INFO1 TEXT 'LOADING WORD LIST ' 18'INFO2 TEXT 'SAVING WORD LIST' 16џ14џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'MENUH1 TEXT 'WORD LIST MENU' 14'MENUH2 TEXT '--------------' 14'MENU1 TEXT '1) LOAD WORD LIST' 18'MENU2 TEXT '2) EDIT WORD LIST' 18'MENU3 TEXT '3) SAVE WORD LIST' 18'MENU4 TEXT '4) USE DEFAULT WORDS ' 22џ*џE BYTE 14џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'*************************************** H00 BYTE 0 H01 BYTE 1 H02 BYTE 2 H03 BYTE 3 H04 BYTE 4 H05 BYTE 5 H06 BYTE 6 H07 BYTE 7 H08 BYTE 8 H09 BYTE 9H0A BYTE 10H0B BYTE 11H0C BYTE 12H0D BYTE 13H0E BYTE 14џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ -‚ H` lсТиƒ"р*V иƒ|Р *Vѓƒ|д`!2Ш ƒ*џкШ ƒ,џмрƒрТр hи jœи kœ[Ш ƒі hи ˜ jи ˜ k j[џ "h"ВР џиџиШџк ШџмШ џкƒ*Ш џмƒ, "P "žр/Єи ƒд&АиŒШиŒр/Мрїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ $:р&BШ%ВШ%Д`0^р&B`0|Рриƒд иŒШиŒр&Bр" Р`"`" `/Є "˜Ш&V +J[ "œ $: &j`#`/Єє "˜ )Ќ PоH§Ш&Ž +t)ЌРс`%ИШ"ž $4С "žр"ž ‡м "œ $:€С"џЊр"˜`#РУСРСљ -;Oџџџџџџџџџџџџџџџџџџџџџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ‰qр"” *$Тš #РZ'N%*'ъ(%Ж&Z&D)B)z&š&Ў%‚$:'Ќ%ИСТaр"ŒШ $ЈТр/Є[ "˜р"”ˆџи<Ш$hШ "Œ$j`$р +О`&B`"œˆџи&Т(‚`$рр"˜ '~Р "ŒбRр"œр$р`ƒˆџиёР`џиРС`&B№ &j`(nцƒф`"œхТ(‚юƒьТр/Є‹0І[‹4И[ їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћСTб• ††[УТEТ Ђ ƒ оxƒ§Р‰џиXf H€Hњ[Р‰§ТBЂFŽy€I[р HР +H`" ƒ(+N *ъ€D0Т† +ТDТHЦXHI€Hћё џиƒ(+x *ъ * +.ТТHI ЮxќA џиХТTУ ЃРŒУТоx §ЮТ ƒBи€Т ƒB€ƒ(+Т`"–и *ъ€Dѓ *г ŒŒŒТТEс +.ТŒ +дƒ(+і)ќїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћШ )Ш)Ш )  -‚6Њ()((Vи`"ž №иƒдиŒШиŒр"žд…р"˜[Ш"’Тˆ"Œˆ"Š$џь`/Є`" р"  " ФШ"’Тˆˆ"ˆ„$Ш"’Р "’`# 0љїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ #Тb "ŽТHbШ&јˆ([Ф`" $Т('‚ „($ѕШ &ј‰Lh&ј!.њр"”ТBb`"Œ&вЦ † Шˆ&іјТXТ Ђ "ŒРˆС&вїФ`" $ЩТb V: )6ЊШ "Ž)Ш "ŒТb "Žb$„/Ф`" ЂЂ "ŽРˆ[Т "ŽУЂШ"Š('Ш"ˆ[р"” $рС "Œ&Oїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ$рр"˜б`ƒu`"” Т`"Œ)OС‚Т ˆжX њд…`)z`/Є "œ $:Т(`/ЄHˆџи  РH#`/ЄCРH "˜%РH`/ЄРС '~Р "ŒРС '~ю`/Є "œ $:Т "˜`HУ(џшТ`/ЄШ HРШ`#/`/МР`%ВР %ДРр/ЈС /ЌШ /І" р/Мр/Єр&B`0^Тр/Єр/Є‹0ІТЫ  &Bїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ"ЌУС "˜6АШ"Œ 'Š &ў (pаРа "šТAbC (:LЂ &ј`/М*PŠРЪШ #nр"Њи "Њƒy˜ ƒy"Ђ  "Ќ "Њˆ "Њ"Єё -zРърƒр р"hи ƒ|ƒ| ˜ ƒu"Ѓнˆ "Ќ"ЈйШ "І"Ќр"Ќр"h ўв ƒu ŠТр/Є -†(  7Юр(bЮр(bЮр(b`/МŠЎŠŠŠїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ€   dш Ш>,*` ˆ(0оˆLі ‰)0о‰о *Xо *X[ТСШ'P)ќТCй֘*Yж *XШ *T*VвИ–J† С†ў`*R†ЦжFЦШ‰жJШхС†ђС‰aƒЦдЦЦ†[žС>Ш*^ $џиїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћТBТˆˆоxќж`(b[ "”[ *EOF (VERSION 1.2) Ш(n`/Є ˆџиР`џиТ‹ '~ТЪР "ŒТ`(Ў ‰>К'оHћ`"˜!р(nШ(Ќ6Њ`/ЄF Ќ`/М"ЌШ(Ўˆ (ЌџиЪ +ђРФє6ЊЩТ (nЂбRд "š`/М†bШ)Ђ‚† `/Є† (їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ *ъ€DкТУТCоx §ТžТ`*^ *fЧŠТ^)§УСЩ'PЦЪвИ& *RJбИЦ оJЩћ юЯ‡Џ-6,ŠSр,№рƒрР`ƒVШ,ž -vбС ‡ƒJ†Ц Ш,К -vм€˜-OѓС†>†;рƒа ƒVЈƒVШƒTС ,рƒаŒ (Ш ƒаїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћˆ 4 ˆ 4 4Ш 44 ˆ 4Ш 4˜8/АТHP‰˜/Ањ`0МУ Ш /Ў3`Ш 44 У`џиШ/Њ)ІШ3b +ђ)ІР<Т 4 ТHŠ)ќчˆ 4фШ 3–˜/Аˆ 4мžzјТ 3–Šыbр4вШ 44  Š)ќЫТр4‚Ъђ‹‚ЪФШ 4  3`Ш 4 4bHШ 4УŠc†c‰Ш/ЊУ`3`Ш 44 ˆ џи`/К Љр/МїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћЫУ џи˜85 5(УLШ а vn6АРр/ЈС /ЌРCШ /І" "С /ЌШ /І" `" р" „-$  " С$џњШ /І" С /ЌР`/ЎРр/ЈР /Њ`/Мр/Є "˜ 4ќ.Ы'1’Ш/Є€ 5Њ- 4ќ/' 1ЌШ/Є`0’ 5(УL 4ќ/11ЪШ/Є-`0М 5(УЬУL 5,УŒcѕŽШ 1ц +JРїУO6АРMРЭїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћEFORE LINE, FILE NAME?REPLACE STRING (Y/N/A)?SHOW LINE?DELETE START LINE, STOP LINE? TABS 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 / VYNA()€ Ÿїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ@˜-N№"Р ƒвР’шШƒвТТRТСFХ”…ђХƒJ‚”Гьћ™чр-6€р-6ѓр,№€Њ.т-V-Š-V-–-V-Ђ-V-М-V-жР> .з`ˆ€Р> -ўиŒ€Р>Р~РО . -В€м`ˆќ[Р>Р~РО -ў -Ь€и1Œќ[Р>Р~РО -ў‚Bџў -ь€иŒСиŒСBїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћР /Њ"6Њ`1іЃ†Ш4 Ш 4`/М Ш 4Ш4 4ИШ /Є 4ь/мУ 4 Ш 44  4  /Т)Ќƒ‡оw‰0#љСр4‰0˜/АоwјСЩ /ТaЪ')ЌШ4 Ср4‡)ќ‰0оwј‰0о`/БњШ 4В +О/ТТ 4У`4У 4в ƒu˜ /Гʘ /Др/̘ /ЕВ /М 0У`4‡6Њ7 VїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћФ " ‚6њЕр" $А 4ќ.Є'2$Ш/Є`0’ 5ЊУLСЧеЃGУ‡е 4ќ.Z2€Ш/Єэ7 P˜8/А њС†i7р/̘/В  /Мˆ˜85р/К7 /И )ЌШ 4Ј 4  )ќƒ 4 Ш 44  /Ў Ш 4ݘ8/А4˜8/Ж  5,УL˜8/А'˜8/Ж, 5,,)Ќˆ 4%Ш 4 5,,)Ќˆ 4їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ „з /Оз /Пз /Р  ўз /С[FF24EE1ZMM2CC1€DD1ДRR0аSS1˜II0ъHH1AA1,TT6(Ш " /ІШ/Њ` "ŒШ4 Ш/ЎШ/ЈШ/Ќ 4ќ.JРCФ0ІШ/Є7р"˜ " р/И`#в ƒu02—Ъ /0^љ 0 4ђ.xфЯУп_ 4ќ.~&0тШ/Єи /К`2F 4ќ.ђ0ќШ/Єїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћј[`@РиŒРиŒ[E(DIT,F(IND,R(EPLACE,M(OVE,I(NSERT,C(OPY,S(HOW,D(ELETE,A(DJUST,T(AB,H(OME?FIND ()/STRING/?ERROR REPLACE ()/OLD/NEW/?MOVE START LINE, STOP LINE, AFTER LINE?COPY START LINE, STOP LINE, AFTER LINE?INSERT Bїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ) MOVB @MAXLET,R0 WHAT WORD LENGTH* SRL R0,8 OFFSET INTO TABLE( AI R0,-3 MAKE ZERO BASEDC AI VDPADD,WRDCNT LET'S SEE IF WE HAVE ANY WORDS THIS LENGTH BL @RDCL READ IT DATA 1,3*2+MYWSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ& LI R1,>2020 SPACES TO ALL* LI R2,8 16 BYTES TO CLEAR%PRESET MOV R1,*R0+ CLEAR A BYTE DEC R2 DONE? JNE PRESET NOT YET&**************************************џING ARRAYSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћЊ?џ ХDIT1 їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ6Њ ЌТFн /Б ќТ;СЛоx§[`0М,E dш7ЧТHЬ֘850††ы˜/Б ˜/А ˜5˜/З˜8/Жэ†йF ЬТ вx ‰)џа‰ ЮТIЬ:f5 Ѓ Fђёˆ џи`/ИУ џиУ  ˆ[Ш 6&7 5,УL 5,УŒ 5,ŒСЧЬУЬУc ЄŒЧƒСЬƒOœШ 5іШ6 )ІШ5ј +ђ)Іїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ# MOVB R3,R3 ANY WORDS?: JEQ MVSKLB NONE OF THAT LENGTH. USE BUILT-IN= CB R3,@H03 AT LEAST THREE WORDS OF THAT LENGTH?. JL MVSKLB NO. USE REGULAR WORDS*(LDRNDS BL @RANDNO GET RANDOM WORDџWSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ&* IF VDP WORD LIST LOADED, TRY TO USE*&* IT FIRST *&************************************** *======== START OF CODE ADDITION) MOVB @LOADED,R0 WORD LIST LOADED3 JEQ MVSKLB NOT NOW. USE REGULAR WORDS*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ* FILE IS FROM&**************************************&* GET A NEW MATCHING WORD TO GUESS *&**************************************%*NEWWRD MOV R11,R13 SAVE RETURN NEWWRD EQU $1 LI R0,GUESSP START OF GUESSING ARRAYSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћР СЧ 5і +t)ЌР ьУ УOˆ џиУ`џи` 4ќ/NV &вТ:(7ж 0ZŠ&ії6RШ/Є`0’7ТH)P )ЌЦ†‚H ˜8/Бњ˜80ZЮ†Š)ќђ`0М )Ќƒ њ:bŒŠ$є &в$ЮМF§`1Zїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ ANDI R10,31 CI R10,24 JHE LDRNDS: MOV R10,VDPADD LET'S SEE THE LENGTH OF THIS WORD AI VDPADD,WRDLEN( BL @RDCL READ THE LENGTH DATA 1,3*2+MYWS' CB R3,@MAXLET NEEDED LENGTH?џ WORDџWSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ9 MOVB @R10LB,@SAVEW NO THE SAME WORD TWICE IN A ROW9 MOVB @MAXLET,R9 GET MAXIMUM # OF LETTERS ALLOWED SRL R9,8 ADJUST' MOV R9,R4 SAVE FOR LATER, DEC R4 AND MAKE ZERO BASEDџES, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ+* SET UP NEEDED REGISTERS FOR EXISTING CODE* MOVB @MAXLET,R4 SRL R4,8 DEC R4*. B @INGESW AND USE EXISTING CODE* *========== END OF CODE ADDITION*-MVSKLB MOVB @SKILL,R8 RETRIEVE SKILL LEVELџџ LENGTH?џ WORDџWSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ/ CB @R3LB,@MAXLET DONE WITH ALL LETTERS? JNE RSPOT NOT YET* CLR R3 COUNTER/SWAPCH MOVB @GUESSP(R3),R4 GET GUESSING CHAR SRL R4,8 ADJUST& SLA R4,3 MULTIPLY BY 8џ, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ$RSPOT BL @RANDNO RAND AGAIN!# ANDI R10,>0700 MASK AGAIN SRL R10,8 ADJUST# C R10,R4 >MAXLET-1?* JH RSPOT YES, SO TRY AGAIN/ CB @GUESSP(R10),@SPACES THIS SPOT EMPTY?џџES, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћM MPY R9,R10 R11 HAS OFFSET INTO WORD LIST BASED UPON WORD LENGTH/ A @WRDLST(R8),R11 POINTING TO THE WORD!!$ MOV R11,R8 SAVE IT OUT*& LI R12,GUESSW CPU SAVE SPOTџ AND MAKE ZERO BASEDџES, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ SRL R8,8 TO LSB2 SLA R8,1 WORD OFFSET FOR WORD LIST&GETWRD BL @RANDNO RANDOM NUMBER( ANDI R10,31 SET UPPER LIMIT+ CB @R10LB,@SAVEW SAME AS LAST WORD?* JEQ GETWRD YES, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ, JNE LDRNDS THIS WORD NOT RIGHT* FOUND A WORD THE RIGHT LENGTH MOV R10,VDPADD" SLA R0,3 MULT BY 8+ AI VDPADD,WORDS POINTS TO THE WORD BL @RDCL# DATA 8,GUESSW TO CPU RAM*џ LENGTH?џ WORDџWSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ- JNE RSPOT NO, IT'S BEEN FILLED% MOV R3,R5 COPY COUNTER5 AI R5,>18 FIRST VALUE OF SPECIAL CHARS0 MOVB @R5LB,@GUESSP(R10) GETS THE SEQUENCE* INC R3 INCREMENT COUNTERџ?џџES, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ6PUTIN MOVB *R11+,*R12+ COPY A BYTE FROM WORD TO CPU+ DEC R9 DONE WITH LETTERS? JNE PUTIN NOT YET*?* AT THIS POINT, THE SELECTED WORD HAS BEEN PLACED INTO @GUESSW* INGESW CLR R3 COUNTERџES, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ3 AI R4,PDT POINTS TO DESTINATION SPOT/ MOVB @GUESSW(R3),R5 GET ACTUAL LETTER SRL R5,8 ADJUST& SLA R5,3 MULTIPLY BY 8. AI R5,PDT POINTS TO SOURCE SPOT*џ MULTIPLY BY 8џ, SO TRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ5*****************************************************7GPL LI R3,>0300 START SCANNING ABOUT >300 GROM*+GPLP LIMI 0 DISABLE INTERRUPTS& MOVB R3,@GRMWA SET HIGH BYTE SWPB R3$ MOVB R3,@GRMWA SET LO BYTEџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ* FILE IS > G P L L N K <4GRMWA EQU >9C02 GROM WRITE ADDRESS REGISTER1GRMRD EQU >9800 GROM READ DATA REGISTER%XML EQU >8366 TEMP ADDRESS5*****************************************************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ- B @BANKRT RETURN TO FIRST BANK'***************************************'* LOAD MUSIC AND BIG NUMBERS *'* THESE USED TO BE IN THE MAIN PROGRM *'***************************************NUMMSC BL @WRTVCL DATA PDT+>380,320,NUMSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ. MOV R5,VDPADD READ THE SOURCE BYTES BL @RDCL& DATA 8,MYWS+14 INTO 7,8,9,10, MOV R4,VDPADD WRITE INTO THE DEST BL @WRTCL& DATA 8,MYWS+14 FROM 7,8,9,10$ INC R3 NEXT LETTERџTRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ SWPB R3 RESTORE*' CLR R4 CLEAR REGISTER+ MOVB @GRMRD,R4 GET DATA FROM GROM CI R4,>0F00 >0F?- JNE INCR NO, SO TRY NEXT BYTE5 MOVB @GRMRD,R4 GOT THE >0F, SO NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ5* START SCANNING FOR A >0FF0 IN GROM FOR XML RETURN *5* THIS FIRST PIECE OF CODE MUST BE EXECUTED BEFORE *5* ANY CALLS TO @GPLLNK CAN BE MADE. YOU ONLY HAVE TO*5* EXECUTE THIS TOP CODE, ONCE! *џ******џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BL @WRTVCL DATA MSCBUF,512,SNPMSC BL @WRTVCL" DATA MSCBUF+>200,116,OFFMSC- B @BANKRT RETURN TO FIRST BANK џHE MAIN PROGRM *'***************************************NUMMSC BL @WRTVCL DATA PDT+>380,320,NUMSџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ/ CB @R3LB,@MAXLET DONE WITH ALL LETTERS? JNE SWAPCH NOT YET*/ LI R0,23*32+15 START ARROW OVER AGAIN MOV R0,@ARWPNT7 MOVB @H00,@WHCHLT AND TIME TO GUESS FIRST LETTER * B *R13џ NEXT LETTERџTRY AGAINџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ/* RT RETURN TO MAIN PROGRAM B @BANKRT RETURN џ ALWAYS BE >8300!!+ LWPI >83E0 LOAD GPL WORKSPACE+ B @>006A BRANCH TO GPL CODE-GPLRTN LWPI MYWS RESTORE MY WORKSPACEџ NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ3 MOVB R0,@GRMWA SET UP GPL PROGRAM COUNTER1 SWPB R0 SENDING HIGH BYTE FIRST. MOVB R0,@GRMWA FOLLOWED BY LOW BYTE3 LI R0,GPLRTN GET DESIRED RETURN ADDRESSџETCH GPL ROUTINE ADDRESSџ *џF, SO NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ&* ALTERED. SO IS >8300 CPU RAM. *&************************************** JPLLNK LIMI 03 MOVB @>8373,R1 FETCH GPL SUBSTACK POINTER' SRL R1,8 MAKE IT A WORD' AI R1,>8302 ADD PAD OFFSETџ *џF, SO NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ CI R4,>F000 >F0?- JNE INCR NO, SO TRY NEXT BYTE- JMP GOTGRT FOUND RETURN ADDRESS*.INCR INC R3 TRY NEXT SET OF BYTES JMP GPLP*(GOTGRT MOV R3,@XML SET XML ADDRESSџF, SO NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ* FILE IS INITS EVENWHERE DATA START DATA LOAD DATA EDIT DATA SAVE DATA USE DATA RETURN'***************************************'* INITIALIZATION ROUTINES FOR DUCK *'***************************************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ8 MOV R0,@>8300 PUT RETURN ADDRESS IN XML TABLE+* NOTE: THIS ADDRESS MUST ALWAYS BE >8300!!+ LWPI >83E0 LOAD GPL WORKSPACE+ B @>006A BRANCH TO GPL CODE-GPLRTN LWPI MYWS RESTORE MY WORKSPACEџ NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ= MOV @XML,*R1 PUT XML INSTRUCTION ADDRESS ON STACK; SWPB R1 HIGH BYTE CONTAINS OFFSET INTO PAD4 MOVB R1,@>8373 UPDATE GPL SUBSTACK POINTER2 LI R0,>18 GETCH GPL ROUTINE ADDRESSџ *џF, SO NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ)* RT RETURN TO CALLER B @BANKRT RETURN&**************************************&* THIS IS THE SUBROUTINE CODE TO *&* REPLACE GPLLNK. REGISTERS 0 AND 1 *&* OF YOUR CALLING WORKSPACE ARE *џF, SO NEED THE >F0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ START EQU $ EDITOR EQU $* LIMI 0 MOVB @H01,@INTFLG' BL @WRTVCL DELETE SPRITES DATA SAL,1,HD0************************ INIT PAB AREA ************************ BL @WRTVCL DATA PAB,20,PABDEFџ*******џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ CI R3,>35 5 KEY?! JH MASK14 TOO HIGH# AI R3,->30 ASCII BIAS2 SLA R3,1 TIMES TWO FOR WORD OFFSET5 MOV @WHERE(R3),R3 HAVE ADDRESS WHERE TO BRANCH& BL *R3 GO TO ROUTINEџTOO LOWџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 2*32+9,14,MENUH2 BL @WRTVCL DATA 4*32+5,18,MENU1 BL @WRTVCL DATA 6*32+5,18,MENU2 BL @WRTVCL DATA 8*32+5,18,MENU3 BL @WRTVCL DATA 10*32+5,22,MENU4 BL @WRTVCLџVCLџ0,PABDEFџ*******џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ* SIXNTH EQU 8 EIGHTH EQU 16 QUARTR EQU 32 HALF EQU 64WHOLE EQU 128*+SNPMSC EQU $ SNAPPER MUSIC** PICKUPS MEASURE 1 BYTE 3,>94,>BF,>DF,1 BYTE 2,G2H,G2L,EIGHTH BYTE 2,A2H,A2L,EIGHTHџ EQU >CBC4L EQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************'* M U S I C L I S T S *'***************************************G2H EQU >8DG2L EQU >11A2H EQU >8EA2L EQU >0FB2H EQU >82B2L EQU >0EC3H EQU >86C3L EQU >0DD3H EQU >8Eџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ JMP MENU%*************************************%* *%* CASE STATEMENT BRANCH ENTRY POINTS*%* *%**************************************USE MOVB @H00,@LOADED NO MORE WORD LISTџ LOWџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 12*32+5,18,MENU5 BL @WRTVCL DATA 15*32+5,20,MENUP*%MASK14 BL @DEBOUN WAIT FOR KEY& MOVB @KEY,R3 GET KEY VALUE SRL R3,8 TO LSB*NOSKEY CI R3,>31 1 KEY? JL MASK14 TOO LOWџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************'* CREATE OPTION SCREEN. *'*************************************** MENU EQU $% BL @CLEAR CLEAR SCREEN BL @WRTVCL DATA 1*32+9,14,MENUH1 BL @WRTVCLџ0,PABDEFџ*******џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћD3L EQU >0BD3H2 EQU >AED3L2 EQU >0BE3H EQU >AAE3L EQU >0AE3H1 EQU >8AE3L1 EQU >0AF3H EQU >A0F3L EQU >0AF3H1 EQU >80F3L1 EQU >0AG3H EQU >CFG3L EQU >08A3H EQU >AFA3L EQU >07C4H EQU >CBC4L EQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ RT-RETURN B @BANKRT RETURN TO FIRST BANK*џ *%* CASE STATEMENT BRANCH ENTRY POINTS*%* *%**************************************USE MOVB @H00,@LOADED NO MORE WORD LISTџ LOWџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 2,B2H,B2L,EIGHTH * MEASURE 2 BYTE 3,C3H,C3L,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,G2H,G2L,>94,EIGHTH BYTE 1,>9F,1џ,A2L,EIGHTHџ EQU >CBC4L EQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 2,>BF,>DF,1 BYTE 3,C3H,C3L,>94,SIXNTH BYTE 1,>9F,SIXNTH BYTE 3,>94,>BF,>DF,1 BYTE 2,C3H,C3L,EIGHTH BYTE 2,B2H,B2L,EIGHTH BYTE 2,A2H,A2L,EIGHTH * MEASURE 6 BYTE 3,G2H,G2L,>94,EIGHTHџIGHTHџQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ, BYTE 6,A3H,A3L,C4H,C4L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1" BYTE 3,F3H1,F3L1,>94,SIXNTH BYTE 1,>9F,SIXNTH BYTE 3,>94,>BF,>DF,1 BYTE 2,F3H1,F3L1,EIGHTH BYTE 2,E3H1,E3L1,EIGHTH BYTE 2,D3H,D3L,EIGHTHџQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,C3H,C3L,>94,SIXNTH BYTE 1,>9F,SIXNTH BYTE 3,>94,>BF,>DF,1 BYTE 2,C3H,C3L,EIGHTH BYTE 2,D3H,D3L,EIGHTHџTHџ1,>9F,1џ EQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,C3H,C3L,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,G2H,G2L,>94,EIGHTH BYTE 1,>9F,1џ EQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 1,>9F,1. BYTE 6,D3H2,D3L2,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,B2H,B2L,>94,EIGHTH BYTE 1,>9F,1. BYTE 6,D3H2,D3L2,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,G2H,G2L,>94,SIXNTHџQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ * MEASURE 5 BYTE 3,C3H,C3L,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,G2H,G2L,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTHџ,D3H,D3L,EIGHTHџQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 2,E3H1,E3L1,EIGHTH * MEASURE 4" BYTE 3,F3H1,F3L1,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,A3H,A3L,C4H,C4L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,C3H,C3L,>94,EIGHTH BYTE 1,>9F,1џH,D3L,EIGHTHџTHџ1,>9F,1џ EQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 * MEASURE 3 BYTE 3,C3H,C3L,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,G2H,G2L,>94,EIGHTHџ1,>9F,1џ EQU >06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ9NUMS DATA >0000,>3F7F,>E1C3,>C3C7 DATA PER '0'# DATA >0000,>80C0,>E0E0,>6060# DATA >CECE,>DCD8,>F8F0,>7F3F# DATA >6060,>6060,>60E0,>C080*9 DATA >0000,>060E,>1E06,>0606 DATA PER '1'џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ% BYTE 4,>9A,>BF,>DF,>FF,1 29+ BYTE 3,>86,>0D,>90,5 BYTE 1,>92,5 BYTE 1,>94,5 BYTE 1,>96,5 BYTE 1,>98,5 BYTE 1,>9A,5 BYTE 1,>9F,0џ3,>84,>0A,>90,12 BYTE 3,>83,>0A,>90,9 BYTE 1,>9F,0*џ6џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ% BYTE 4,>9A,>BF,>DF,>FF,1 32+ BYTE 3,>8B,>06,>90,5 BYTE 1,>9F,5 BYTE 1,>90,5 BYTE 1,>9F,5 BYTE 1,>90,5 BYTE 1,>9F,5 BYTE 1,>90,5 BYTE 1,>9F,0*% BYTE 4,>9A,>BF,>DF,>FF,1 49+џIGHTHџ06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 1,>9F,SIXNTH BYTE 3,>94,>BF,>DF,1 BYTE 2,G2H,G2L,EIGHTH BYTE 2,A2H,A2L,EIGHTH BYTE 2,B2H,B2L,EIGHTH * MEASURE 7 BYTE 3,C3H,C3L,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTHџ06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ# DATA >0000,>0000,>0000,>0000# DATA >0606,>0606,>0606,>3F3F# DATA >0000,>0000,>0000,>C0C0*9 DATA >0000,>3F7F,>E0C0,>0000 DATA PER '2'# DATA >0000,>80C0,>E060,>60E0# DATA >0307,>1E3C,>70E0,>FFFFџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ(****************************************(* *(* SPECIAL CHARACTERS FOR SCORE ROUTINE *(* *(*****************************************џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 3,>8A,>0A,>90,30 BYTE 3,>89,>0A,>90,27 BYTE 3,>88,>0A,>90,24 BYTE 3,>87,>0A,>90,21 BYTE 3,>86,>0A,>90,18 BYTE 3,>85,>0A,>90,15 BYTE 3,>84,>0A,>90,12 BYTE 3,>83,>0A,>90,9 BYTE 1,>9F,0*џ6џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BYTE 2,>BF,>DF,1 BYTE 3,G2H,G2L,>94,EIGHTH BYTE 1,>9F,1, BYTE 6,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTH BYTE 2,>BF,>DF,1 BYTE 3,C3H,C3L,>94,EIGHTH*$OFFMSC BYTE 4,>9F,>BF,>DF,>FF,0 6+*џ,E3H,E3L,G3H,G3L,>B5,>D5,EIGHTHџ06џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ# DATA >C080,>0000,>0000,>F0F0*9 DATA >0000,>7FFF,>E0C0,>0001 DATA PER '3'# DATA >0000,>C0E0,>7030,>E0C0# DATA >0F0F,>0000,>C0E0,>7F3F# DATA >80C0,>E070,>3070,>E0C0*џ DATA >0307,>1E3C,>70E0,>FFFFџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ9 DATA >0000,>3F7F,>E0C0,>E070 DATA PER '8'# DATA >0000,>C0E0,>7030,>70E0# DATA >3F3F,>70E0,>C0E0,>7F3F# DATA >C0C0,>E070,>3070,>E0C0*9 DATA >0000,>3F7F,>E0C0,>C0C0 DATA PER '9'џ0,>C0E0,>7F3Fџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ# DATA >0000,>F0F0,>0000,>00C0# DATA >FF00,>0000,>C0E0,>7F3F# DATA >E070,>3030,>3070,>E0C0*9 DATA >0000,>3F7F,>E0C0,>C0DF DATA PER '6'# DATA >0000,>C0E0,>7030,>00C0# DATA >FFF0,>C0C0,>C0E0,>7F3Fџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ/ BL @WRTVCL PROMPT FOR WORD LIST # DATA 18*32+7,18,LISTM*LOADLN BL @DEBOUN MOVB @KEY,R3 GET KEY SRL R3,8 CI R3,'0' ZERO?$ JL LOADLN INVALID KEY CI R3,'9' ENTER?џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA WRONGO BYTE 19! TEXT 'THE GREAT WORD RACE' EVENџA R D R O M H D R *(**************************************** AORG >6000ROMHDR BYTE >AA,1,1,0,0,0 DATA PROG DATA 0,0,0,0 PROG DATA 0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ# DATA >0000,>C0E0,>7030,>3030# DATA >E07F,>3F00,>C0E0,>7F3F# DATA >70F0,>B030,>3070,>E0C0џF3F,>70E0,>C0E0,>7F3F# DATA >C0C0,>E070,>3070,>E0C0*9 DATA >0000,>3F7F,>E0C0,>C0C0 DATA PER '9'џ0,>C0E0,>7F3Fџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ# DATA >E070,>3030,>3070,>E0C0*9 DATA >0000,>FFFF,>0000,>0103 DATA PER '7'# DATA >0000,>F0F0,>70E0,>C080# DATA >070E,>1C38,>3030,>3030# DATA >0000,>0000,>0000,>0000*џ DATA >FFF0,>C0C0,>C0E0,>7F3Fџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ9 DATA >0000,>0103,>070F,>1D39 DATA PER '4'# DATA >0000,>8080,>8080,>8080# DATA >71E1,>FFFF,>0101,>0101# DATA >8080,>F0F0,>8080,>8080*9 DATA >0000,>FFFF,>C0C0,>C0FF DATA PER '5'џC,>70E0,>FFFFџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ* FILE IS >> SUBS <<'***************************************'* LOAD WORD LIST. RETURN IS IN R13 *'***************************************LOAD MOV R11,R13 SAVE BL @WRTVCL$ DATA SAVCPU,>836E->834A,>834A*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ* FILE IS >> ROMHDR <<(****************************************(* S T A N D A R D R O M H D R *(**************************************** AORG >6000ROMHDR BYTE >AA,1,1,0,0,0 DATA PROG DATA 0,0,0,0 PROG DATA 0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ$ JH LOADLN INVALID KEY' BL @WRTVCL ECHO TO SCREEN DATA 04*32+3,1,R3LB( BL @WRTVCL AND REWRITE PAB DATA PAB+19,1,R3LB* BL @WRTVCL DATA 18*32+3,26,INSTR1 BL @WRTVCLџENTER?џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ SRL R3,8 CI R3,'0' ZERO?$ JL SAVELN INVALID KEY CI R3,'9' ENTER?$ JH SAVELN INVALID KEY' BL @WRTVCL ECHO TO SCREEN DATA 08*32+3,1,R3LBџN MOVB @KEY,R3 GET KEYџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ JMP LRESTR*&LERROR MOVB @H00,@LOADED BAD WORD LISTLRESTR BL @RDVCL$ DATA SAVCPU,>836E->834A,>834A*LOADRT B *R13 RETURN'***************************************'* SAVE WORD LIST. RETURN IS IN R13 *џD WORD LIST LOADEDџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ. BL @WRTVCL SET TO LOAD RAM IMAGE DATA PAB,2,LOADBY LIMI 0! BLWP @DSRLN$ CALL DSR DATA 8*( BL @RDVCL CHECK FOR ERROR DATA PAB+1,1,3*2+MYWS ANDI R3,>E000џ,13 ENTER?џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 19*32+2,28,INSTR2 BL @WRTVCL DATA 21*32+6,20,BACKM*LOADL BL @DEBOUN MOVB @KEY,R3 GET KEY SRL R3,8 CI R3,15 BACK?% JEQ LOADRT YES, SO EXIT CI R3,13 ENTER?џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ( BL @WRTVCL AND REWRITE PAB DATA PAB+19,1,R3LB* BL @WRTVCL DATA 18*32+3,26,INSTR1 BL @WRTVCL DATA 19*32+2,28,INSTR2 BL @WRTVCL DATA 21*32+6,20,BACKM*SAVEL BL @DEBOUNџB @KEY,R3 GET KEYџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************SAVE MOV R11,R13 SAVE BL @WRTVCL$ DATA SAVCPU,>836E->834A,>834A*/ BL @WRTVCL PROMPT FOR WORD LIST # DATA 18*32+7,18,LISTMSAVELN BL @DEBOUN MOVB @KEY,R3 GET KEYџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ8 JNE LERROR GOT AN ERROR, SO NOT YET LOADED3 BL @RDVCL CHECK FOR A VALID WORD LIT DATA NUMWRD,2,3*2+MYWS# MOV R3,R3 ANY WORDS? JEQ LERROR NO.) MOVB @H01,@LOADED WORD LIST LOADEDџџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ JEQ LOADGO YES$ JMP LOADL INVALID KEY*,LOADGO BL @WRTVCL TELL WHAT I'M DOING DATA 23*32+7,18,INFO1*$ LI R0,PAB+9 NAME LENGTH MOV R0,@>8356 POINTERџ CI R3,13 ENTER?џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ8EDLOOP BL @POSCUR PUT CURSOR ON SCREEN & SET VARSEDKEYL CLR @KEYBRD' BL @DEBOUN WAIT FOR A KEY MOVB @KEY,R3 TO LSB SRL R3,8" CI R3,15 BACK KEY? JNE NOBACK NOџ ZERO IT ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ JEQ NONELD NO.5 BL @DISPWD DISPLAY WORDS IN VDP ALREADY$ JMP EDITIT AND GO EDIT*+NONELD LI VDPADD,WORDS START OF VDP WORDS* LI R4,24 24 WORDS TO CLEAR(NCLOOP BL @WRTCL ZERO IT ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ! BLWP @DSRLN$ CALL DSR DATA 8* BL @RDVCL$ DATA SAVCPU,>836E->834A,>834A*SAVERT B *R13 RETURN&**************************************&* EDIT WORD LIST. IF WORD LIST IN RAM*&* DISPLAY THOSE WORDS BEFORE EDIT. *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ MOVB @KEY,R3 GET KEY SRL R3,8 CI R3,15 BACK?% JEQ SAVERT YES, SO EXIT CI R3,13 ENTER? JEQ SAVEGO YES$ JMP SAVEL INVALID KEY*џL BL @DEBOUNџB @KEY,R3 GET KEYџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ1 B @EDEND YES, SO END EDIT SESSION*NOBACK CI R3,13 ENTER JNE NOENTR NO BL @DOWN JMP EDLOOP*NOENTR CI R3,11 UP JNE NOUP NO BL @UP JMP EDLOOP*џO IT ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 8,SPACES AI VDPADD,8 DEC R41 JNE NCLOOP ZEROES IN NUMERIC FIELDS*-EDITIT BL @WRTVCL DISPLAY BACK MESSAGE DATA 23*32+6,20,BACKM$ CLR @WRDNUM AND @LETNUMџ @WRTCL ZERO IT ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ&* EXIT WHEN BACK KEY IS PRESSED. RTN *&* IS IN R13. *&**************************************$EDIT MOV R11,R13 SAVE RETURN) BL @CLEAR CLEAR THE SCREEN0 MOVB @LOADED,R0 VALID WORD LIST IN RAM?џEDIT. *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ,SAVEGO BL @WRTVCL TELL WHAT I'M DOING DATA 23*32+8,16,INFO2*$ LI R0,PAB+9 NAME LENGTH MOV R0,@>8356 POINTER. BL @WRTVCL SET TO LOAD RAM IMAGE DATA PAB,2,SAVEBY LIMI 0џB @KEY,R3 GET KEYџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћNOUP CI R3,10 DOWN? JNE NODOWN NO BL @DOWN JMP EDLOOP*NODOWN CI R3,8 LEFT? JNE NOLEFT NO BL @LEFT JMP EDLOOP*NOLEFT CI R3,9 RIGHT? JNE NORITEџT ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ' LI R4,32/2 32 BYTES WORTH(NLLOOP BL @WRTCL ZERO IT ALL OUT DATA 2,3*2+MYWS INCT VDPADD DEC R41 JNE NLLOOP ZEROES IN NUMERIC FIELDS* CLR R3EDENDL MOV R3,VDPADD WORD #џEROESџ ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ#ECHO MOV @LETPOS,VDPADD TO SCREEN BL @WRTCL DATA 1,R3LB" MOV @WRDPNT,VDPADD TO ARRAY BL @WRTCL DATA 1,R3LB$ BL @RIGHT MOVE CURSOR% B @EDLOOP AND GO AGAINџ INVALID KEY*џEџT ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DEC R6* JNE LENOKL REST OF WORD GONE*,WORDOK BL @WRTCL REWRITE WORD TO VDP DATA 8,7*2+MYWS, BL @RDVCL GET # OF GOOD WORDS DATA NUMWRD,2,5*2+MYWS INC R5 BL @WRTCLџT CPU WORDџL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ- JMP WORDOK THIS WORD MUST BE OK*,FSPACE CI R4,3 AT LEAST 3 LETTERS?/ JHE LENOK YES! ACCEPTABLE LENGTH#* WORD HAS FEWER THAN THREE LETTERS9 BL @WRTCL BLANK OUT WHATEVER THEY'VE TYPEDџTERџSџ ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ SLA VDPADD,3 *8' AI VDPADD,WORDS POINTS TO WORD( BL @RDCL READ WHOLE WORD& DATA 8,7*2+MYWS INTO 7,8,9,100 CLR R4 # CHARS IN WORD COUNTER) LI R5,7*2+MYWS INDIRECT POINTERџSџ ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************'* EDEND. USER WISHES TO TERMINATE *'* EDIT SESSION *'***************************************(EDEND LI VDPADD,NUMWRD VDP TO ZERO OUT' CLR R3 FULL OF ZEROESџ ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ BL @RIGHT JMP EDLOOP*NORITE CI R3,>20 SPACE? JNE NOBLNK NO JMP ECHO YES*NOBLNK CI R3,'A'$ JL EDKEYL INVALID KEY CI R3,'Z'$ JH EDKEYL INVALID KEY*џEџT ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 8,SPACES. JMP NXTWRD AND GO ON TO NEXT ONE#* LENGTH IS OK. SPACE OUT THE REST.%LENOK DEC R6 ADJUST INDEX9 JEQ WORDOK LAST CHAR WAS SPACE ON 7-LETTERS+LENOKL MOVB @SPACES,*R5+ SPACE OUT CPU WORDџL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ$ LI R6,8 8 TO A WORD*$PARSEL CB *R5+,@SPACES SPACE CHAR?( JEQ FSPACE YES, FOUND ONE., INC R4 ONE MORE CHAR FOUND% DEC R6 DONE WITH 8? JNE PARSEL NOT YETџINTERџSџ ALL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 2,5*2+MYWS*; LI VDPADD,WRDLEN NOW UPDATE THIS WORD'S LENGTH BYTE# A R3,VDPADD WHICH WORD% BL @WRTCL LENGTH IN R4 DATA 1,R4LB**5 LI VDPADD,WRDCNT ONE MORE WORD OF THIS LENGTHџPU WORDџL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************$LEFT MOV R11,R15 SAVE RETURN MOV @CURPOS,VDPADD% BL @WRTCL ERASE CURSOR DATA 1,SPACES SB @H01,@LETNUM JGT LEFTOK JEQ LEFTOK B @FRMLFTџ *џURSORџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ B *R15 RETURN'***************************************'* DOWN ROUTINE. RETURN IS IN R15. *'***************************************$DOWN MOV R11,R15 SAVE RETURN MOV @CURPOS,VDPADD% BL @WRTCL ERASE CURSORџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ MOVB @H01,@LOADED YES JMP EDGONEEDNONE MOVB @H00,@LOADED*2EDGONE B *R13 RETURN TO CALLER, FOR NOW'***************************************'* UP ROUTINE. RETURN IS R15. *'***************************************џ NOџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ( AI R4,-3 FROM 3-8 TO 0-5. A R4,VDPADD OFFSET INTO THE ARRAY3 BL @RDCL GET # OF WORDS THIS LENGTH DATA 1,5*2+MYWS SRL R5,8 INC R5 BL @WRTCL DATA 1,R5LB*џNGTHџPU WORDџL OUTџ *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћLEFTOK B *R15 RETURN'***************************************'*RIGHT ROUTINE. RETURN IS IN R15. *'***************************************$RIGHT MOV R11,R15 SAVE RETURN MOV @CURPOS,VDPADD% BL @WRTCL ERASE CURSORџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 1,SPACESFRMRIT AB @H01,@WRDNUM CB @WRDNUM,@D23 JLE DOWNOK MOVB @H00,@WRDNUMDOWNOK MOVB @H00,@LETNUM B *R15 RETURN'***************************************'* LEFT RTN. RETURN IS R15. *џURSORџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ$UP MOV R11,R15 SAVE RETURN MOV @CURPOS,VDPADD% BL @WRTCL ERASE CURSOR DATA 1,SPACESFRMLFT SB @H01,@WRDNUM JGT UPOK JEQ UPOK MOVB @D23,@WRDNUMUPOK MOVB @H00,@LETNUMџ*****************џ NOџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ"NXTWRD INC R3 NEXT WORD CI R3,24! JHE EDEXIT ALL DONE# B @EDENDL KEEP GOING*)EDEXIT BL @RDVCL ANY VALID WORDS? DATA NUMWRD,2,3*2+MYWS MOV R3,R3 ANY? JEQ EDNONE NOџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ LI R6,>5E5E CARAT BL @WRTCL DATA 1,6*2+MYWS DONE9 AI R4,-32 POINTS TO WHERE LETTER SHOULD BE% MOV R4,@LETPOS THERE IT IS!) B *R15 RETURN TO CALLERџ MOV R4,@CURPOSџ RESTOREџџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ& LI R5,12 COLUMN NUMBER JMP TOCOL&TOCOL1 LI R5,2 COLUMN NUMBER-TOCOL SLA R4,6 (ROW*2)*32 CHARS/ROW4 A R5,R4 POINTS TO SIT START ROW&COL# MOV R4,@STARTC SET CPU UPџT TO 0-7џ RESTOREџџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ" SLA R4,3 MULT BY 8, MOVB @LETNUM,R5 ADD LETTER POSITION SRL R5,8 TO LSB1 A R5,R4 HAVE VDP WORD ARRAY BYTE AI R4,WORDS# MOV R4,@WRDPNT SET CPU UP* MOV R3,R4 RESTOREџџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ DATA 1,SPACES AB @H01,@LETNUM CB @LETNUM,@H08 JL RITOK B @FRMRITRITOK B *R15 RETURN'***************************************'* POSITION CURSOR ON SCREEN. ALSO SET *'* UP NEEDED VDP ADDRESSES IN CPU. *џџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'***************************************'* DISPLAY VDP WORDS ON SCREEN. *'* RETURN IS IN R15. *'***************************************$DISPWD MOV R11,R15 SAVE RETURN( LI R6,23*8+WORDS LAST WORD STARTџџ RESTOREџџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ0 MOVB @LETNUM,R6 NOW GET LETTER WE'RE ON SRL R6,8 TO LSB7 A R6,R4 POINTS TO OUR LETTER ON SCREEN: AI R4,32 CURSOR IS BELOW THE LETTER ECHOED MOV R4,VDPADD MOV R4,@CURPOSџ RESTOREџџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ CI R4,8 0-7? JL TOCOL1 YES CI R4,16 8-15? JL TOCOL2%TOCOL3 AI R4,-16 ADUST TO 0-7& LI R5,22 COLUMN NUMBER JMP TOCOL%TOCOL2 AI R4,-8 ADUST TO 0-7џ RESTOREџџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ'* RETURN IS IN R15. *'***************************************$POSCUR MOV R11,R15 SAVE RETURN+ MOVB @WRDNUM,R3 GET CURRENT WORD # SRL R3,8 TO LSB MOV R3,R4 SAVE*џDP ADDRESSES IN CPU. *џџ*џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћ' LI R3,24 24 WORDS TO DODPL MOV R3,R4 SAVE' DEC R4 0-23, NOT 1-24 CI R4,8 0-7? JL DOCOL1 YES CI R4,16 8-15? JL DOCOL2%DOCOL3 AI R4,-16 ADUST TO 0-7џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ* FILE IS UTILITIES/***********************************************/* Dsrlink Subroutine */* */* >8356 must have address of pab name length. *џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ4 A R5,R4 POINTS TO SIT START ROW&COL# MOV R6,VDPADD SET CPU UP/ BL @RDCL READ THE WORD FROM VDP$ DATA 8,7*2+MYWS INTO 7-10 MOV R4,VDPADD) BL @WRTCL REWRITE THE WORDџ ADUST TO 0-7џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ4 AI R9,-8 adjust pointer to flag byte BL @RDCL === DATA 1,3*2+UWS1 === MOVB R3,R1 ===0* BLWP @VSBR$ read device name length+LNK1 MOVB R1,R3 store it elsewhereџutineџ >83D0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ.SAVVER EQU >83B6 version number of dsr)NAMBUF EQU >83B8 temp name bufferDPOINT TEXT '.')UWS1 EQU >8320 USER WORKSPACE 1HAA BYTE >AAHB20 DATA >2000*7DSRLN$ DATA UWS1,$+2 link to device service routineџ >83D0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ/* BLWP @DSRLN$ call */* DATA 8 i/o dsr */* ----- normal return */***********************************************SCLEN EQU >8355SCNAME EQU >8356CRULST EQU >83D0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ DATA 8,7*2+MYWS DONE& AI R6,-8 NEXT VDP WORD& DEC R3 DONE WITH 24? JNE DPL NOT YET) B *R15 RETURN TO CALLER џR4,VDPADD) BL @WRTCL REWRITE THE WORDџ ADUST TO 0-7џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ& LI R5,22 COLUMN NUMBER JMP DOCOL%DOCOL2 AI R4,-8 ADUST TO 0-7& LI R5,12 COLUMN NUMBER JMP DOCOL&DOCOL1 LI R5,2 COLUMN NUMBER-DOCOL SLA R4,6 (ROW*2)*32 CHARS/ROWџ ADUST TO 0-7џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћ+ LIMI 0 disable interrupts4 MOV *R14+,R5 fetch program type for link( SZCB @HB20,R15 reset equal bit/ MOV @SCNAME,R0 fetch pointer into pab% MOV R0,R9 save pointerџervice routineџ >83D0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў їїџџџџџџџџџџџћSADDR EQU >83D22SAVCRU EQU >83AE cru address of peripheral-SAVENT EQU >83B0 entry address of dsr0SAVLEN EQU >83B2 save device name length4SAVPAB EQU >83B4 ptr into device name in pabџEQU >8356CRULST EQU >83D0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ- SRL R3,8 make it a word value# SETO R4 -1 counter LI R7,NAMBUF ===(* LI R2,NAMBUF point to nambuf3LNK$LP INC R0 point to next char of nameџR3 store it elsewhereџutineџ >83D0џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ+ LI R2,>4000 start at beginning+ CB *R2,@HAA is it a valid rom? JNE NOROM no- A @R5*2+UWS1,R2 add type to pointer JMP SGO23SGO MOV @SADDR,R2 continue where we left offџ of dsr etc.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ) LI R12,>0F00 start over again-NOROM MOV R12,R12 anything to turn off JEQ NOOFF no) SBZ 0 yes, turn it off+NOOFF AI R12,>0100 next rom's turn onџ R1 version found of dsr etc.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ, CI R4,7 is name length > 7?# JGT LNKERR yes, error5 MOV R4,@SCLEN-1 store name length for search0 MOV R4,@SAVLEN save device name length" INC R4 adjust itџ yes, errorџ read current characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ4 INC R4 increment character counter% C R4,R3 end of name? JEQ LNK$LN yes BL @RDCL === DATA 1,6*2+UWS1 === MOVB R6,R1 ===/* BLWP @VSBR$ read current characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ) SBO 0 turn rom back on*SGO2 MOV *R2,R2 is address a zero3 JEQ NOROM yes, no program to look at2 MOV R2,@SADDR remember where we go next* INCT R2 go to entry pointџof dsr etc.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ5 CLR @CRULST clear in case we're finished# CI R12,>2000 at the end0 JEQ NODSR no more roms to turn on1 MOV R12,@CRULST save address of next cru$ SBO 0 turn on romџound of dsr etc.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћ5 A R4,@SCNAME point to position after name9 MOV @SCNAME,@SAVPAB save pointer into device name**** Search ROM for DSR*4SROM LWPI GPLWS use gpl workspace to search2 CLR R1 version found of dsr etc.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў!їїџџџџџџџџџџџћLNK2 MOVB R1,*R7+ ===+*LNK2 MOVB R1,*R2+ move it to nambuf/ CB R1,@DPOINT is it a decimal point? JNE LNK$LP no-LNK$LN MOV R4,R4 is name length zero?# JEQ LNKERR yes, errorџ read current characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ* FILE IS >> WORD <<* AORG >C000**============================== * LIST* ROMHDR START HERE * UNL* COPY "DSK1.ROMHDR"*============================== LIST* BANKCODE START HERE UNLџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ MOVB R3,R1 ==='* BLWP @VSBR$ read flag byte2 SRL R1,13 just want the error flags JNE IOERR error! RTWP** error handling*0NODSR LWPI UWS1 select dsrlnk workspaceџ ===џoџ.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ+NAME2 INC R1 next version found, MOV R1,@SAVVER save version number+ MOV R9,@SAVENT save entry address) MOV R12,@SAVCRU save cru address/ BL *R9 match, call subroutineџ yesџ noџ.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ* MOV *R2+,R9 get entry address** see if name matches*. MOVB @SCLEN,R5 get length as counter4 JEQ NAME2 zero length, don't do match+ CB R5,*R2+ does length match? JNE SGO noџ.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ COPY "DSK1.BANKCODE"*============================== LIST* DATA STARTS HERE UNL COPY "DSK1.DATA"*============================== LIST* WORDS STARTS HERE UNL COPY "DSK1.WORDS"џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ.LNKERR CLR R1 clear the error flagsIOERR SWPB R18 MOVB R1,*R13 store error flags in calling r02 SOCB @HB20,R15 indicate an error occured) RTWP return to callerџlect dsrlnk workspaceџ ===џoџ.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ* JMP SGO not right version% SBZ 0 turn off rom0 LWPI UWS1 select dsrlnk workspace2 MOV R9,R0 point to flag byte in pab BL @RDCL === DATA 1,3*2+UWS1 ===џoџ.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ, SRL R5,8 move to right place( LI R6,NAMBUF point to nambuf.NAME1 CB *R6+,*R2+ is character correct? JNE SGO no) DEC R5 more to look at? JNE NAME1 yesџ noџ.џt characterџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў"їїџџџџџџџџџџџћ*============================== LIST* NUMS STARTS HERE UNL COPY "DSK1.NUMS"*============================== LIST* MUSIC STARTS HERE UNL COPY "DSK1.MUSIC"*============================== LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ 9РBЩњBЯBа*BбLBб„BBШ BƒnB`B BР@B BР!BРBPB`B "BТрBƒnB[BF 9Р*BBBB B B B BB BBB BDSBK1B.WBORBDSBBBBBBB F 9РZB B BBРBаџBтBBBBWOBRDB LBISBT BMEBNUB--B--B--B--B--B--B--B1)F їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ COPY "DSK1.FROM"*============================== LIST* UTILITIES STARTS HERE UNL COPY "DSK1.UTILITIES"*============================== LIST* GPLLNK STARTS HERE UNL COPY "DSK1.GPLLNK"џ LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ9ТЪBACBKSBTEBAKBSHBARBEWBRIBTEBLABRGBEDBAIBRYBCOBASBTSBTRBUMBHABNDBYCBLEBARF 9ТњBBUBILBDCBARBRYBAWBARBDSBTABGEBSTBOCBKQBUIBETBSHBORBTQBUIBCKBHOBRSBEBBRAF 9У*BINBBRBOOBKBBELBOWBTWBIRBLFBIEBLDBWOBULBDHBONBEYBWABGOBNPBAPBERBENBTEBRKF їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ9СЊBATBYEBSNBETBFABNNBUTBZIBPWBINBCABTOBNEBGOBTYBOUBMABNDBOTBFOBRZBOOBSABWVF 9СкBANBBABTLBOGBNOBTPBANBHABDLBETBDIBDBBOXBBUBSSBEEBPABYRBANBBEBDHBERBTOBPBF 9Т BUTBICBEMBAYBHABSSBITBOFBFCBUTBANBDOBLDBSABTBBIGBNOBTBBUGBSUBNHBOWBMEBTHF їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ9РŠB BLOBADB WBORBD BLIBSTB2)B BEDBITB WBORBD BLIBSTB3)B BSABVEB WBORBD F 9РКBLIBSTB4)B BUSBE BDEBFABULBT BWOBRDBS B5)B BREBTUBRNB TBO BGABMEBENBTEF 9РъBR BYOBURB SBELBECBTIBONBINBSEBRTB YBOUBR BWOBRDB LBISBT BDIBSKBINB DBRIF їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ*============================== LIST* COMUTL STARTS HERE UNL COPY "DSK1.COMUTL"*============================== LIST FINITO EQU $ ENDџ LIST* GPLLNK STARTS HERE UNL COPY "DSK1.GPLLNK"џ LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ* INITS STARTS HERE UNL COPY "DSK1.INITS"*============================== LIST* SUBS STARTS HERE UNL COPY "DSK1.SUBS"*============================== LIST* FROM STARTS HERE UNLџ LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ9Т:BIMBHOBTFBUNBATBENBOWBLEBSSBSHBUTBPUBLLBSTBAYBHIBGHBTUBRNBYABWNBFLBATBDRF 9ТjBOPBPUBSHBBOBATBPOBURBHUBRTBINBCHBHEBLPBWHBENBSABVEBOVBERBFOBRKBFABIRBDEF 9ТšBSKBHEBADBWIBFEBFEBELBWOBRKBCABREBSHBOPBREBADBRABINBSEBATBWOBRDBDRBAWBCRF їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў#їїџџџџџџџџџџџћ9СBVEB 1B, BTHBENB PBREBSSB EBNTBERBLOBADBINBG BWOBRDB LBISBT BSABVIBNGB WF 9СJBORBD BLIBSTBPRBESBS BBABCKB TBO BREBTUBRNBENBTEBR BLIBSTB #B (B0-B9)BСˆF 9СzBСшBТHBТШBУhBФBФШBХЈBDOBGPBUTBWABSJBETBHUBGRBEDBFABTCBANBRUBNKBEYBTEBNEF їїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў$їїџџџџџџџџџџџћ9УZBNIBFEBGLBOBBEGBUIBDEBBABSIBCRBADBIOBERBASBELBEGBALBTIBTLBEABRRBOWBCABNOF 9УŠBEABLABRMBCUBRLBYOBRBBITBCOBUGBHLBABBELBDOBDGBETBEABSEBPABTCBHHBUMBANBHOF 9УКBNOBRMBUDBDYBAMBUSBETBHIBCKBACBTOBRGBREBETBFABLSBESBHOBUTBWABISBTSBCEBNTF ERџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў$їїџџџџџџџџџџџћ9ЧJBџџBРРBРџBB№№BBРBџBBРрB?BрpB00B0pBрРBB?BрРBРпBBРрBp0BРBџ№F 9ЧzBРРBРрB?BрpB00B0pBрРBBџџBBBB№№BpрBР€BB8B00B00BBBBBF 9ЧЊB?BрРBрpBBРрBp0BpрB??BpрBРрB?BРРBрpB0pBрРBB?BрРBРРBBРрBp0B00BрF EџSџORDџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў$їїџџџџџџџџџџџћ9Ц*BAFBRABIDBDIBSCBLABIMBARBTIBSTBRYBMIBLIBTABRYBATBTOBRNBEYBHEBADBLIBNEBTEF 9ЦZBLEBCABSTBOCBCUBRRBEDBAUBDIBTIBONBDIBSTBRABCTBMABINBTABINBCYBLIBNDBERBENF 9ЦŠBGIBNEBERBMUBSIBCIBANBSUBITBABBLEBHOBNOBRABRYBB?BсУBУЧBB€РBррB``BЮЮF OM WORDџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў$їїџџџџџџџџџџџћ9Х BANBSEBVIBCIBOUBSTBHRBIFBTYBMIBSSBIOBNWBREBCKBERBCOBLOBGNBEFBORBEIBGNBILF 9Х:BLEBGABLRBETBRABCTBHYBDRBANBTEBXHBIBBITBCOBNDBEMBNOBPIBNIBONBPABJABMABSRF 9ХjBECBYCBLEBDIBVIBSOBRIBSTBHMBUSBUNBCLBEABRPBREBDIBCTBDIBALBECBTCBOUBRABGEF OM WORDџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў$їїџџџџџџџџџџџћ9УъBGRBOUBPTBIRBEDBBUBILBTRBANBGEBATBTIBCTBIGBERBPHBRABSEBMEBTEBORBASBSIBGNF 9ФBMOBTIBONBSTBATBUEBANBNUBALBCOBMEBDYBBRBIDBGEBOXBYGBENBVIBSUBALBCABRBBONF 9ФJBADBVEBRBBNEBARBBYBIGBNOBREBEMBPLBOYBESBCOBRTBENBOUBGHBBABKEBRYBHEBROBESF ERџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў$їїџџџџџџџџџџџћ9ЧкB?BРрB?Bp№BА0B0pBрРB”BПпBBBBŽBB‚BB† B”BŸBBЊ BЯBЕеBF 9Ш BПпBBB”BŸBBЊ BЯBЕеBBПпBB† B”BŸBBЊ BЯBЕеBBПпBBB”F 9Ш:BŸBBЊ BЯBЕеBBПпBB† B”BŸBBЊ BЯBЕеBBПпBBB”BŸBBЊ BЯF EџSџORDџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў$їїџџџџџџџџџџџћ9ЦКBмиBј№B?B``B``B`рBР€BBBBBBBBBBBB??BBBBРРBF 9ЦъB?BрРBBB€РBр`B`рBB> WORDROM <<**============================== LIST* ROMHDR STARTS HERE UNL COPY "DSK1.ROMHDR"*============================== LIST* BANKROM STARTS HERE UNL COPY "DSK1.BANKROM"џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў'їїџџџџџџџџџџџћ DATA LIST8S*************************** 3 LETTER WORDS ***************************LIST1 TEXT 'DOG' 1 TEXT 'PUT' 2 TEXT 'WAS' 3 TEXT 'JET' 4 TEXT 'HUG' 5џ DATA LIST7Sџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў'їїџџџџџџџџџџџћ LIST* COMUTL STARTS HERE UNL COPY "DSK1.COMUTL"*============================== LIST FINITO EQU $ ENDџ= LIST* GPLLNK STARTS HERE UNL COPY "DSK1.GPLLNK"*==============================џїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў'їїџџџџџџџџџџџћ COPY "DSK1.INITS"*============================== LIST* SUBS STARTS HERE UNL COPY "DSK1.SUBS"*============================== LIST* FROM STARTS HERE UNL COPY "DSK1.FROM"џE UNLџ LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџў'їїџџџџџџџџџџџћ*============================== LIST* DATA STARTS HERE UNL COPY "DSK1.DATA"*============================== LIST* WORDS STARTS HERE UNL COPY "DSK1.WORDS"*============================== LISTџїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххїїџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўїїџџџџџџџџџџџћхххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххххх