IMD 1.18: 11/10/2014 14:36:12 6809 prom.sa prom.lo  MASTER 301072980MOTOROLA UFO \l|„Œ”œÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿ€ÿÿÿáð>üÿ€ÿÿÿþÿÿÿ€ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLIST CMÁ&榎’½Þ–Š0· Ö–ަ½Þ¾¦„�'X�\')¾§€¿¾0¿ á}&Ü|¦„J�"ÒŽ æ†~90¿¦„Žm„'¼¡„'Æ: ó|&|殿1½0 Ÿ¾†§„Ž x­Žÿ’½ð$½ð!þ9¾¿ ¾0¿ ÆŽ ?¾ †.§€¿ ÆŽ ?¾愾 †:§€ç€¿¾ ¿9¾¿ ¾˜M»·$|¶ Á&ö ½Þ9½ç9¾¦„ · ˜MG»·$| ÁA®0¿~�4˜M�54� §€5�§€9DDDD„‹0�9#‹90 O1�3¶8Ò "#$ %&'()*+,-.5VvINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SY‹ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿxšúý4¨ŽÒöí "4¨Žäöï 4¨Žéöñ 4¨Žëöó4¿6A¦€§$j¦Ž4 à_…\€$û¦…HŽÄì†ý¶¶4Ž«Æ@?%5·æh®j5Š59†V—½èS½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô­ ‘~“½½½½½ ½ ½ † 4«à®f~þ½Pÿ �Ž œ†ª0æ„§„÷ ¡„¨ç„Š'ë0¿ ¾ÿú¿Ž"¿ÿúŽ¿ÿøŽ¿ÿöŽ¿ÿôŽ ¿ÿòþ †/ŽÄ·²|²¿ ’Ž«Æ?$~oì ¾ ’í�ŒÒ&â_Ž ”?9½èSŽ ™Æ?Ž ”?:½èSþ �¯9‹Ä±ååå € p xx~®~‘½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ô½ôæ„÷×®ˆ'0¿ØŽ؆?¾Ø0 Ž ¿ؾ¿Ý®f® 'B½²®ƒ¿ßZ†94 à¾Ø0¿ãŽã‰M†?˜M_¾ã0½£$~…¾ß½u?'¿å¿í Ž¿å0¿íŽ¿Ûö׎Ú?¾å'~¿ç½&/%-¾å¿ëŽ¿á½J%½& % ¾á0¿á ê½Z ½Z~´½J$Ç~´¿éçè½%'®fÆå &Ž¿å~@¾ç0¿ç¼Ø'½J$Ö Û¾ç&~�öضÙ?&½£$ ®f®ˆ&é¾ç¿Ø®f® 'Æ®få ' ¾í¼é'~�¾é¿å¾Ø¿á½ê„焾å0¿å¾á0¿á&çö׎Ú?®f® &¾ÝÆ€O?Z¾Ý焾é?1?1¿Û ¿Ûö׎Ú?¾Ým„+0 ø¿ã¾é¼í'I¾Ø¿á_† ½£$÷á·â¶â?,¿ؾé¿ß?)¿éöâ¾ß½‰¾ãç„§0¿㮃¿í¾Ø&º~¾ã0¿㮄½u÷ᆠ4 à& ¾ã0¿ã •·ç_¾Ø?&½£$¶Ù·ç¶ç¾Ø?,¿ؾé?(¿éöáûç¾ß½‰¾ãç„§~”Žÿÿ¿ë¾Ý¿ß®„öí¶î½£&F¾í½uXXZ¾ë:¿å½AÊ€¾ãç„§ö׎Ú?®f® & üÛ®fí _9®füííüëíüåí ë½uXX¾ë:¿ë¾ß0~Æ9Æ ùÆ õÆ ñÆ íÆ éæ„÷×¾¿Ý®f® &~x½²ÆtŽó¿ñ¾Ý¿ïŽï?®f®Œÿÿ'~c®fæˆ÷ãÄøTTTÁ-Á#~‰Û÷Üö׎Ú?öãÄXXXX¾ݦ…�ÿ'~�®fo o Žóm„*~O¿ãŽ¿Ûö׎Ú?¾㮄* ö׎Ú?~O½u÷Ø¿å½%Sä„焾å0¿åöØZ÷Ø&å¾ã0¿ã À0?0?00¿á¾Ý¿㮟ã*~}½uØ÷Ù¿å¾Øöá¶â½£%M?.÷á·â¾ã0¿ã¾á&Ƚ›®f슀¾ãí„0¿ã¾ÝƆt?)¼ã' ¾ão„o äö׎Ú?¾ß~ ½›öÙðâ¶â¾å?(½‰¾ßç„§¾åö⽉¾ã瀧€¿ã~¯ö嶿޽£$9� ¾Ý?(þå„9ÄTFVFVD4YYYOFZ,ü‰M59¾å0¿åƆÿ½£9¾áöç¶è½£$ ¾á¿ç¾ë¿é9½AÄ|WW\4½AÄ?%59ZXX4½AÄ?%5O?*9¾ãöݶÞ?-½AŽó?)¿ß9¿Ûö׎Ú?¾ÝÆm„+ 0\Á:/õ2b~xÁ'÷9 ååå € € xx½ô½ô~¸~À~~ä~~ ~9~É~ò~Ž~&~@~]~]~ ®h¦”9êfçf9½7odƽ1]'Á'[�*&Æ�â�Û�.&GÆ‚½1]' �*&Æ�Ì�Å�:&† ®f0?ÆÁ½1~Jf0?�ªæd9®k¦”�;'� ' ®kl&l„¦”9Æ�{ Å�#'�Æ€½³ ˜˜M„?4½Å€&� 'õÅ@'?$ @?%Ä?®i®]' §„Z®il&l� ?%âŠ0 âÄ?''4áb'®k®?¦a®k0?5�*& ½?$ù?$õ†*2a9®h04˜M?59ƽ³®f0†?ƈ½1~4Á'-¾ ¶ ö¿?-?&A *?&¾?)ö ¶ ?/%ö¶?/$¶ ‹öÉ¿Aç§_ŒÆŒÆ5W9¦ …@&-„� $*¦?%$‰M¦ ?%¾¿ß®„'?/'¾ß0 î~«~®~±¾ß®'ð¿ᮟߌDK&~·¦ŸáJ®fæ Ä4¡à%<¾á0]'† ?(Z ÷¿á®'ºüá®fí¦ Š@§ ¦„?ЧþƦc®fç„9ÆŒÆŒÆ í®fæ ľᦄ·ã0¦ 4¡à$ à † ?(zã&í Õ~„4¦ …@'¦…'¦ „¿§ oo Æ ÆŒÆ5ç„9ÆŒÆÿŒÆ¿‘÷“¦…'~c… '~f„�&~f–|–¦ˆ„·”�'�'�'~i¦ˆ…&–ìí®™¦…'|™¾‘ì ƒÿÿ&o o ® …'s™®¿�­„‘$~l¾‘¦„?Š@§}“&~º¶”�'~º˜}“*~=•¾‘¦æ®½£%}愾‘l&l¶”�&Á'ÜÁ &}™/'}–&"|•†±•&ĽP 5}–&}•' 4½P5%$¶”�&¶“' Á &½ž ¶—4«à·—½#$~]~¿˜Æ½#$6~]¶”�&%}“' ¾‘®æ„Á '!}™,¾‘Œ&æ Å ' � $~]½ž%ø~r}“&|˜ ¶”�&ôö—P½#9˜Æ ½#%}™. Æ ½#%ƽ#9ÆE}“+ ÆH}“'ÆD˜½#$~]—O}“+¾‘榮0?.]'~o�ÿ$ùL‰M»—·—˜}“&|˜ ¶”�'ô½#%E}“*~v~´}˜'4ÄðTTTT�¾�½ˆ5% Ä�¾�½ˆ9Ê0Á:%Ë9ö••Ê€˜ ƾ‘愌ÆŒÆ ŒÆ ŒÆŒÆŒÆÁ' 4¾�­‘5¾‘ç„]'9z &}ÿ* †V· �N†7�L� $>®ô®„† §„ 6Žÿ0'¶üôG$ööüõÄþ99†W· }ÿ*�†7 ¶üý„_·üô†� þ®ä2bn†~ù϶üý„?·üô†½ð}ÿ&�«�© ÛW�˜M½ð ÐÁ & }ÿ*Ž0&ü9� »|ÿg}ÿ*�¹†0�·†�³† ¯†�«ÿg}ÿ*™�Ÿ†9½ðÆO�—Z&û ˆ�ËÆ2O�‹Z&û† ½ð‰M�¤ Íååå€Pšš~­~©½½½Æ _÷ؿ֮¿Ô®fÆå'~¸†¤�&~¼† ¥&÷½ò$~ÇÙß®fìí}Ø&†¤ˆ�'�'�'~Ã~ Û¾Ô†Ú¥'|Ú®fæˆÁ - ÁZ.½ü$~ǽ˜%_ Æ÷ܽ$~Ç}Ú'VÁ&½�'ÝM&ZJ®fç§Ù?%愽ü$Æ~ÇÁ&½€~ÝÁ&%½€%ê®f®¿Ý®f榾Ý?/'œæ€¿ݽü%Ì çŽâá€'‰¶é¡„&õÁ &6®f®ç„}Ú'}Ü&½‡ ½€$~Ç}ß'~Ï}Ù'~ؽä®fo„_9½Ì'Á&|ß]*Ä'÷ÝÆ ½¯zÝ' ô½¯~,½$~Ç}Ø'ÁH' ½Ì' ÁE&|ß ÁD'½t Öà}Ø&n®f†¤ˆ�&c†·Û½\%¾½i÷á&~à}ß'Á&ô}Ø'Á&ëzá' ½\%—½i½¯ î½\%нi}à&̽%äÁ &÷®fì£'m&jj~ˆÿ ›®fç„]9Æ ôÆ ½ä íÆ ÷®fæ„Á &ï}Ø&Æ æÆ âÆ ÞÆ Ú4¾Ô®­Ö59¾Ô®­„Ö9¾Ö†@ª„§¾Ô®­ Ö9¾Ö†€ª„¿  é½%$½t�!$2d~àXXXX÷F½% ½t� %èûFþ9À0%Ëé% Ë*Ë%Ë þ9}Û+½9½9¶à4«à·à94Á &½ò59Æ ½ü%Æ ½ü9®h榮?/9¾Ö榮}Û&M&ZJ½£94½˜%5瀽A®hç§9†·Ù59¾Ô†¥9 ÿ!€šš½½~©~~}¿ö†¥'~êìýø†¤�&¾ø®­ ö®f†ª§o„_9¾ø†¥'↥' ®f† ¥'~f®f†¤ˆ�'�'�&¾?8'º~Ü®f†@¥'Sì ƒÿÿ'Kìˆ'F£ˆ'@®ˆÆ€:?$®f®ˆ?/?&%ð0?$®fçˆ#§ˆ$®ˆ?/%o€ ø®f† ª§?†ß¤§]'~Ü®foˆoˆ†¥&~® Œÿÿ&Q®f†À¥ˆ'~·úæ ®ˆ¿þ„øDDD�-�#~òü·ýŽû?öúÄXXXX¾þ:†ÿÆ?®fæ Žû?®fÆ ?'?"%~®f†ª§ç„]9Æ îÆ êÆ æ®Æå&®fo„_9®f?&[æˆÄøTTTÁ-PÁ"Ly÷zæ ¾¿{Žx?®fæˆÄXXXX¾{?'æ„Áÿ''¿y®fÆ ?'¿{Žy4Æ ?5®f?9®fç„9Æ õÆ ñÄ&~\÷š®„¿›¦„·¥®f®¿�Ä' „æ„Ä4¡à&Ù¾›Æ?$~a½z¿£öšÄ':¾›ì „ÄÿýŸ¾�ì ý¡„Äÿ³Ÿ'~iöšÄ&¾£ü¡í ö¥Ž¦?_9ƾ�?%~e¾›öšÄ'ü¡í Æ :¿«¾�:¿­Ž«Æ?ö¥Ž¦?¾£Æ½m¾�Æ@?%"ö¥Ž¦?¾£†ÿ¡„&ƽm~ùÆ9Æ ùÆ õÆ ñ†ÿ?ö¥Ž¦?9¦ˆ‰M®ˆ¿©„HHHH?(ÄøVVV§÷¨9#€(úú~½ ¿ùÆå&~–†@¥ &~š®¿û®f†¥'¦ˆ„�'~¾¾û†€¥&-~ž½ßo„_9¾û†¥'®f†?¤§†¤�'�&~‚~t| á¾û† ¥&~¢½è¾û†¥&~$®f½ÎÆ :Æ?$Á'Æ ? ?®f†¤�&~‘~¦®f†¤�' †€¥ˆ'~º†÷¤§oˆoˆÌÿÿí íoˆoˆìˆ!íˆ#®ˆ¿þ®fæ ®ˆ¿Žý?¾ì„*~ª®fí ¾Æ:m„+ 00Z&õ~ªì„„®fíˆ~=}'~=½ß?6'~km 'Æ :¿þ®f®¿Æ Žþ?&®f®¿þ®fÆ :¿ÆŽþ?~=®f®¦ ®f§ˆ?'üÁ 'øÁ '¬ ±¾û†@¥&~¢½è®f¦ˆ„§ˆ„�&!¾û†¥&† †®fæˆÄø44«à§ˆ5�'�& ¾ûÆå&~¾¾ûÆå&~®f½ÎÆ :Æ?$Á&~®Á&~²Á&~¶Æ ? ?®f†ª§~É�' �'�'~¾}'~=®f®¿®f®¿®fÆ :?$®fç§?%Æ:?$®fç§½ß?7üíüím„&~@†ª§~޾û†¥&~ž†`¤�`&½è~‡®fç„]9Æ ôÆ ðÆ ìÆ èÆ äÆ àÆ ÜÆ ØÆ ÔÆ ÐÆ ÌÆ ÈÆ ÄÆ Àìˆ!£ˆÃX&92b ë®h†ï¤§9¾û®­ù$2b~Â9%€8úú½ ~~ƒS.}>@ÿÿÿÿ8°°Î~ýý COPY ROLLOUT9.LO:1,ROLLOUT.CM:0;WB N 6800 BLE-SIDED DISKETTE =RLOAD9:1 úEND CHAIN¶HHHHC„ð´'Æ1~â? $Æ0 õ¾&¾0¿Ž æÊ ç?'Æ Ø¿&½U? %Ô¦„�@'5�\&0æd®f¦ §€� ']'Z ò¶„·¦d4 à‰M¦c®f9Æ)~â¦�*'.�.'*½È�J'w�C'i�L'b¿½Í�S&~>¿½Í�T''Æ2 É4ö'Ž.? 5�.&5Ž? ? $~.½ð $¨4P¶·ü´ô³  ½R5Š~S¶„· ó¿|½R¾.Œ@L&õŽ.½ȼ&ê Òü´ôºúý ¾O †4Ž æÄßç?&'5M' ¶&Ž.? ¾0¿¾¿ÿŽþ_?Ž.9Á &4¶'Æ3~â¶+Æ4 ô¶ Š· Žÿÿ¿Ž ?& ?&Ž ? ~ä~KÆ:1!0¤4½ù5&¾9Æ ? ¾¿’Ž ???Ʀ„€0+*� # €+"�.‹ 04ÆxyZ&÷»·5Z&Ð9 '€pýý~ Ž!dÆ?Ž­o„Ÿþ_Ž!_?¾!b®¿!5¼&%¾!b® ¿!8¼&ŽÄ¿!dŽ!‘¿!fÆŽ!d?'!†RŒ†I—½èS ùÆ? ¶�ÿ'~ †U~ Hަ …@'ŽA¦ …@' ¾w'3Žf? ,Ž?%È?%ÄÆêçŽA?%·?%³Žf?%¬?%¨Ž!-? †=·/Ž®ÆO? ? _÷/÷¶„·Ž­Ÿþ¿!;Ž!?¿!=†0§„§ŽCM¿!HŽ!;?]&,¾!;ŸþÆŽ!??Á'†Á'†Á'†Á'† ‰M? ~ Ž!X? Æ€?#¶Š€·~  MDOS09 . !k!êWHAT?!k!hý½ååå )€ 0B�01�COMMAND�SYNTAX�ERROR 05�02�NAME�REQUIRED 06�03�\0�DOES�NOT�EXIST 1B�04�FILE�NAME�NOT�FOUND 08�05�\0�DUPLICATE�FILE�NAME 1A�06�DUPLICATE�FILE�NAME 0D�07�OPTION�CONFLICT 30�08�CHAIN�ABORTED�BY�BREAK�KEY 31�09�CHAIN�ABORTED�BY�SYSTEM�ERROR�STATUS�WORD 1C�10�FILE�IS�DELETE�PROTECTED 24�11�DEVICE�NOT�READY 0E�12�INVALID�TYPE�OF�OBJECT�FILE 0F�13�INVALID�LOAD�ADDRESS 13�14�INVALID�FILE�TYPE 1F�15�\0�HAS�INVALID�FILE�TYPE 1E�16�CONFLICTING�FILE�TYPES 27�17�INVALID�DATA�TRANSFER�TYPE 22�18�DEVICE�ALREADY�RESERVED 23�19�DEVICE�NOT�RESERVED 25�20�INVALID�OPEN/CLOSED�FLAG 26�21�END�OF�FILE 29�22�BUFFER�OVERFLOW 2A�23�CHECKSUM�ERROR 15�24�LOGICAL�SECTOR�NUMBER�OUT�OF�RANGE 07�25�INVALID�FILE�NAME 2B�26�FILE�IS�WRITE�PROTECTED 20�27�\0�IS�WRITE�PROTECTED 09�28�DEVICE�NAME�NOT�FOUND 04�29�INVALID�LOGICAL�UNIT�NUMBER 12�30�INVALID�EXECUTION�ADDRESS 0A�31�INVALID�DEVICE 11�32�INVALID�RIB 1D�33�TOO�MANY�SOURCE�FILES 16�34�INVALID�START/END�SPECIFICATIONS 17�35�INVALID�PAGE�FORMAT 14�36�FILE�EXHAUSTED�BEFORE�LINE�FOUND 28�37�END�OF�MEDIA 18�38�INVALID�LINE�NUMBER�OR�RANGE 19�39�LINE�NUMBER�ENTERED�BEFORE�SOURCE�FILE 02�40�DIRECTORY�SPACE�FULL 03�41�INSUFFICIENT�DISK�SPACE 10�42�SEGMENT�DESCRIPTOR�SPACE�FULL 2C�43�INVALID�DIRECTORY�ENTRY�NO.�AT�\8 2D�44�CANNOT�DEALLOCATE�ALL�SPACE,�DIRECTORY�ENTRY�EXISTS�AT�\8 2E�45�RECORD�LENGTH�TOO�LARGE 0C�46�INTERNAL�SYSTEM�ERROR�AT�\8 21�47�INVALID�SCALL 2F�48�CHAIN�OVERLAY�DOES�NOT�EXIST 32�49�CHAIN�ABORTED�BY�ILLEGAL�OPERATOR 33�50�CHAIN�ABORTED�BY�UNDEFINED�LABEL 34�51�CHAIN�ABORTED�BY�PREMATURE�END�OF�FILE 35�52�SECTOR�BUFFER�SIZE�ERROR 36�53�INSUFFICIENT�MEMORY åå$-€$@% $0300  _"õ##g##)1#]  "Æ_"Ý"ß#8 SYNTAX ERRORSYSTEM SECTOR COPY ERRORDIRECTORY READ/WRITE ERRORSOURCE FILE COPY ERROROBJECT FILE CREATION COPY ERRORCANNOT DELETE DUPLICATE NAMEBACKUP FROM DRIVE X TO Y? APPEND FROM DRIVE X TO Y? DISK NAME: DATE(MMDDYY): USER NAME: NO FILES TO COPYDELETE FILE NOS.: NEW NAME: STARTING TO COPY FILESINVALID TO COPY/VERIFY FROM DOUBLE TO SINGLE SIDEDENTER FILE COPY SELECTION COMMANDS: SAVE (S), DELETE (D), PRINT (P), QUIT (Q), NO MORE (CR)S, D, P, Q, (CR):. NOT FOUND .SECTOR  OFFSET  DRX- DRY-COPYING . - DUPLICATION: IS IT TO BE COPIED? NOT COPIEDCOPYINGMDOS SY OV0OV1OV2OV3OV4OV5OV6ER Î °Ž OÆ?žþŸw½.i×)½.i×1–)Á &� & Æ1×1†0—) —1 ö� &×1 îÖ1Á0&~$è–)4¡à'õ·!”·!¯·#÷!™÷!´÷# „—)—�Ä×1ׂžw¦„0� 'ø� '*�;&f¦„0ŸYŽ%E¡„' 000Œ%o&ñ L®­„žY Þ2a2a–!+Ž!‚�&Ž!�½0ŸŽ Æ? ¦„�Y'?–)—½èu– —–1—½èu– —€–!.~%o~'¼Æ ? ~1ËÆ? ~1Ë–!&îJ—!9–!&æL ö–!&߆  — 9†€ ÷ %9 #†—(9 &9 "9 $9–'&¹ 'ÆŽ#U¿ Ꭰá~.™–'&¥ 'Æ Ž#J ê $ö $�A$þC%D% I%L%N%R$÷S%U%!V$ïY%$Z%8–+–€*~1¤¾0–$&Ž€½/‹Ÿ9Ÿ7Ÿ/ŸQ¾0ŸMÆ??$„€HYI—O×PžO !*DV—O×P„DVF›NÙM×S—T_†?/"n–!+½/– ŽŸ*ŽŸ,½&ÂŽŸ*ŽŸ,½&Â%FžMŸQ -Æ4½&Â5%5Z&ô–$'4ŽŸ*žOŸ,Žº–+ŽŒÖ,–-?-$?)Ÿ,ŽŸY½&žY&è~1¼~1²~1žÖO–PTFTF—[—\ŽŸYŸ*ŽŸ,ž9¦„ÆHZ&ü—;Æ×< <&ž90Ÿ9¦„—;†—<žY0000ŸY;$ž,0000Ÿ, \& ž,' ½&ÂŽŸ,–[—\žYŸ*žY *ŒÐ&­ž,'½&Â~1¼Œ¤ ï? $~1¼ž*Ÿ2Ÿ_ž,Ÿ4ŸežQŸ/Ÿ7Ÿa–�—)½0­OI—i–!+&–˜€*–&–�&žQ½.QžQ†€?(½.Q½0Ù%i9–‚—)ž_Ÿ*žSŸ/Ÿc½0­OIšigÆ€Ža?&ž_0Ÿ_že0Ÿe&çþ94–˜€*–_&–`�'�&ÁC%N–g&Ƈ?# gŽ ±½/Ž"ë½0e–"&454†€4 à—hŽ ½½.üža00¿ µŽ µ½.üžc0¿ ¹Ž ¹½.üŽ"÷½0ežc0Ÿc5Z'~'+~'2½(D–!D$½/–½(z½(é½)©Æ?]&j?$„€HYI—O×PÚO'[–!D$Ž#gŸYŽ#aŸ[ÆŽY?Ž#]½+ÀžYŒ#‚&çŽ"½0ŸYžGŸZœI'¦ �ª' „§ ½+À Y? %žZÆ ?' ß–Y&Ž!ß½0Ÿ~1¼½1žŽd�.ŸCŽ�'ŸEŽ€� ?$žE爧ˆ‹É爧ˆŽ€�ŸKŸ/Ÿ79~/‹ŽŸ2ŽŸ4ž7†ü§„†=0o„J&ù0†§„†A0o„c„J&÷–€+ž7½.Q½0Ù%4ŽŸ2½0Ùž7Æ€O?ŽŸ2Æ4½0Ù5%Z&ôŽŸ*Ÿ2½0­%½0Ù%9~1²žE–�Š0§„oˆ0¿ ;0ŸGŸyÆžE?%8Ž#gŸ_Ž#aŸaÆŽ_?Ž ÍÆ ½.¹]'Üž_Œ#‚&⎠½/‹žE0ŸwÆ Žw? ÀÁ'½1«¾0ŸIœG'T†—cdžGŸ_Æ ?'œI'8Ÿa00ÖcÁ'ž_¦„¡ &0Z&õ #Æ ×dž_4¦„æ § ç„05Z&ïža ¾–d&¶†‘c&®9žGœI&9fŽ"X½0ŸŽ"´? žCÆc? ¦„æ� 'Á &�P'�Q&½1Ë~+§½- Ö~*²½+§†ÿ—`_žG¿ Ý `Ž Ù½.üŽ Ý½.åžw¿ Ý0æ„Áª'žy0æ„Ä焎"ܽ0e _¾ ÝœI&Ì–_&Ž!ß~0ŸŽ!ð½0ŸÆcžC? ab0ŸUb½/&'WÖXÑ`"Z b'Ñc%R×d ×c×d b�-'ß4–a'!_–cHY?%?1?1?*žG?)–d�cLÆªç Æ ?'J&õ5�,'°� &–a&” ažC žžC¦„� &9½-~*1Á '~+‘�S'�D&õ—e_žC0¿ ÑŽSA¿ –�· † · ½.ÙÅ|&m]*Å'f4¶ ‘�5&[4–_'}T$ 4Ž Æ½+–5T$† ± '· Ž Æ�x`žGŸaŽ ŸcÆ žc¦„0Ÿcža¡„'�*�ŸaZ&ç0–e�S'†ª  ?¦„Š€—f§„ `0 ?'ŸaœI&¼–`& Ž Õ½.åŽ"ƽ0e5�,&~*Ì� & –_& _~*Å~)¸½- ø¦„� &†*?90Z&ð9–f'žGƪ† œI' m +ç ?( ò9Ÿw¿ Á¦ „§ žE–�Š0§„0ŸyÆ Žw?Ž Á½.å–&&Ž#½0eÆžE?%}® Ÿ*ŽŸ,Ÿ4žKŸ/Ÿ=½0­%gŽŸ_½.#žA' Ö_–`?)Ÿ_Ÿj ížEÖ_–`爧ˆ–‚Š0§„æ ¦×l—mÆ?%~-"Á'~,ü–!D%ø† ·#$Ž#–'+½0e ½0Ÿ†·#$–'+8' 9Æ€Ž!.~1·žCÆc? ¦„�N'ë�Y'½- ý-Ž"? žCo„0Æc? ¦„� &žEÆ?%D½-Æ?%C g0¿ ÑžE® ¿ ½.Ù]&Ã� &¿Ž Ÿw¿ ÁžE0ŸyŽwÆ ?Ž Á½.åžE½-~,>Ž!eÆ‚~1·Æ�Ž!E~1·Öj–k爧ˆÖl–mç §9Ž í½0ŸÆ†?#9¦ 4žIŸ/Ÿ7žE® Ÿ*Ÿ2–‚—)½0­%¿žK¦„+00 öæ4žI¦„+00 ö5§„ç5„�&žKÆu?'ŸwžI?'ŸyÆ Žw?½0Ù %ÿy–�—)žE® 0Ÿ2žKŸ=½.#ž?0Ÿ?žA0ŸA½.žAÖ_–`?/%½-Ú ÖO–P?/%½. äž_½-Ú½. Ú½.#žA&Óž4'½0Ù9Ÿ,?$žA?-ŸAž?Ÿ*?)Ÿ?ž_?-Ÿ_ž4?)Ÿ4½0­Ö,–-ÄTFV4‰M5ž/?)Ÿ/9½0ÙŽŸ4žOŸ_žIŸ/9ŽŸAž=½/r$9Ÿ? ½/r%öœn&ò?'ŸnžA?'ŸAž=00Ÿ= ã†>?(¦„„𧄆>0o„J&ù†§9Ž Ÿy† §„Žw?† ± '~$á± &øö Á ' Á0,~$èÁ3.ù9@ßrî„ßwîßyÞrᅫw?9@ßrî„ß{îß}Þrᅫ{?9Ž ¿ ÓŽ Ñ?9ƽ.™Æ.žyç„0ŸyÆŽw?9Æ Æ4¦·/ ¦·/!®„®„¿/Ž/½1Í59Æ Æ4ŸrŽŸW�+½2%ŽW½2šX—XZ&ì�—t54 à‰M–tžr]9ŸužU ŸužU0ŸU¦„žu9�ñ� 'ú9愦4ÄHYHY?%5‰MÄ|ËI9Æ?]&9½1žŽŸ*Ÿ2ŽŸ,Ÿ4½0­$~0b–%&~0O½-Ž!¸½0U'$0¿ ѽ.Ù]&ê� &æž7ŸyŽ ŸwŽwÆ? ½-Ž!Ä�n''Ʀ„?%î0Z&õ¦„� &ãž7Æ ?'ŸyŽwÆ? ½-Ž!Ó�@'8_¦„� ' � -ë�z.ç0\ íÁ"Þ4ž7†?(ŸyŽw?†54 à'‰Mžy?½0Ù%9? Ž ŸwÆ? ]9½1²–#'6? %=?2¦„� '�'0 òÖ(Z& 4Ž å?55Æ:×(?3�'?40 Ò?5 ? %? ? %9~1¼ŽŸn@Ž ÅÆ½.™½èi$½1 &öž*Ö,–-?)Ÿ*nï¿9ŽŸn@Ž ÉÆ½.™½è�$½1 %&ìž2Ö4–5?)Ÿ2nï¿9½1Ë–�1'�4'�7-�9#�R�q½1Ë–o':ž œp&4 o&8Ö 'ç–�4&]*Þ4 T$×4�/ž0Ÿ�@ž0Ÿ†—n5Yž 9†—ož Ÿp�þž 9ž 0Ÿ žÆ€?'Ÿž Ö–Ÿ?.ž?)Ÿ9–4AÆ? 59Æ6? Ž"%ƃ Ž!Æ„ Ž úÆ…?#½0Ÿ–#' ('Ž ì?5 õ?]'/l&l¿2¾2¦„� #‹‹0m&jj®§„¾2� Z&ݾ294†d„fJ&ù594†hi„J&ù59�A% 4‹¹5%€ �0% 4‹Æ5%„9åå 7€ ¿0300ïžþ¿*Ž,»¿*Ž*?'Å&~!/Æ Å&~')ƾ,¼ŒDK&~'-¿,¹ú,˜÷,˜Ž,à¿*Ž*?'Å& Æ Å'ÌÆ¾,áŒDK'Ï¿,Þú,˜÷,˜¾*_¦„0� ']�;' ò¦„0¿*� 'L� 'ñŽ, ¡„&6ê¾*�D&á†=¡„&/Ž,û¿*Ž*4?'Å'u~')5� '�,&¾*0 ´00m„&¾~'1÷,›Å'Å`'$Å@'Å &ŽUDÅ€'ö,˜Å'¼,¼''Å'¼,á'~'9Å&ùö,˜Å'¼,¼'í Å'¼,á'â˜MÄ Á &~'…'… &Æ ñ,à&ñ,é'銷,˜„�'~$;Æ ñ,à&¶,»·,àñ,é&¾,Ä¿,éñ,á&Ž,¼¿*Ž,á¿*Ž*Æ?ÆtSõ,›'~'9ö,›ÄPÁP'ôÆ ú,²÷,²Æ ú,×÷,×½)¥$~'Tö,›Å 'Ž,Þ¿*Ž)ý¿*Æ Ž*?Ž,±?'~'?&ùö,›Å@'~"ëö,ÈÄ÷,íö,É÷,î¾,Ê¿,ï¾,Ä00¿,ó½'ÍÆú,×÷,׎,Ö?&¿?'},ó&},ô'±Á&­,ó,ô æ½'XŽ,±?&~"ØÁ &”ö,ÈÄÁ&WŽÿÿ¿,¿,ç¾,ÐÆ?'¿,ÒŽ,±?'~"èŽ*¿,õŽ*•¿,÷¿,ùŽ,Ö?&o¾,ÐÆu?'¿*Ž*‹¿*Ž*Æ ?Žÿÿ¿,çŽ,Ö?&Kö,›Å '"½'hŽ,±?'~'Ž)ý¿*Ž,Þ¿*Ž*Æ ? %½'b}* 'ÆBð* ½(U?¾,Ô¿,ùŽ,Ö?&~",~'¾*–¿,õ0¿,Ò¿,Ô¾*˜¿,÷Ž,Ö½'¬¾,÷0¿* ¿*½'XŽ,±æˆ#¦ˆ$¾* ?/%~#¼Ž,±æˆ¦ˆ ÷* ·*?'�Á '~'Ž,Öæˆ#¦ˆ$¾*?/$Ž,Ö?&~$Á &ßö,ÈÄÁ'~"ÆŽÿÿ¿,¿,ç¿* ¾,ÐÆ?'¿,ÒŽ*¿,õŽ*•¿,÷Ž,±?&ªŽ,Ö?&£¾,ÐÆu?'¿*Ž*‹¿*Æ Ž*?'´½(’&ô ­Ž,Öæˆ#¦ˆ$¾*?/$Ž,Öæˆ¦ˆ ÷*·*?'Á ';~'¾* ¿*¾*¿*Æ€Ž*? $~"Æ?'½(’&í¾*¿* ¾*¿*¾* 0¿* ~#¾* ¿*Ž-a¿*Ž*ƽ.'Ž-W½(_~"Æö,›Å '~'9Å€'U¾¿,ž¾¿ÆŽ,û?¾,ž¿$Á&~'"Á&~'IÁ&~'=~'5ö,›Å'¶,�4¶,œ42w¨4Ž ¿ÿú¾n„Æ ñ,à&Æ0÷,à½)¥$~'Tö,˜Å&~&\Ž,¼¿*Ž,á¿*Ž*Æ ?Ž,±?'~'?&ùö,ÈÄÁ'Á'~'A¶,›…'~'9…'Á&õÆ Á'ƶ,È„x4«à·,í¶,›…'Á&Ô†º,×·,× |*¶,›…@&KÆú,×÷,׎,Ö½)p'?'~'?&ù½'XŽ,±?'Á &ë~"Æ}*& ¾,µ¼,³'â|*¾,³¿,ÜŽ,Ö?&Ë ÐŽCN¼,Þ&~'-Ž+™¿,ÚŽ,—¿,Üö,›Å&|*½'¬½'X†½)bŽ,±?'4Á &’†½)bŽ,Ö?' Á &~"Æ~'¾* ¿*Ž-U¿*Ž*ƽ-Ž-J~$5}*&®¼,³'±†½)bŽ,Ö?'Á 'Ê~%H}*& ®¼,Ø'á|*¾,µö,³¶,´?.L·)ö¾,Úö,ض,Ù?.L±)ö$·)ö¾,µ¿*¾,Ú¿*ö)öŽ*? $~"Æ?'½(Û&í~%£ŽCN¼,¹&~'-~'9ö,›Å'¶,˜…',²·,²  †·,È |*,¼ö,˜Å' Æ ñ,é&ŽSA¿,éŽ,á¿*Ž,¼¿*Ž*Æ ?Ž,±½)p'?'~'?&ùö,ÈÄÁ' Á'Á'~'Aƶ,È„x4«à·,íö,˜Å&Ž,¼¿*Ž,á¿*Ž*Æ ?ö,›Å@'~%½'ÍÆ~%6Æ? ½'b?Æ õÆŽ,û îÆ êÆ æÆ âÆ ÞÆ ÚÆ ÖÆ ÒÆ ÎÆ ׎,àÆ ÃÆ6 ¿? $½'b?9Ž,±½'�ö,×ÄÁ&Æõ,×&Žÿÿ¼,á'ú,×÷,׎,Ö½'�9¿'ª?'Á'_? ¾'ª?'Á'_? 9Ž,ÖæÄüÊç½)p'?& ?&Ž-? 9~'Ž,àÆ?'9ö,íÅ€'~'MĶ,È„4¡à' �'~'EÁ&ùö,˜ÄÁ&ö,íĶ,È„4¡à&àö,›Å'9Ž,á¿*Ž-'¿*Ž*Æ?¾,é¿-0ö,à÷-3Ž-'? Ž*Æ? ö*ÁY'ÍÆ€?#½'b?Ž(^?5Z&ø9Æ�?#ö,›Å&? 9}* &¿(�Æ÷* ½(U¾(�?5|* ö* ÁB-* 94¾* ¼)÷'¿)÷¿)ùŽ-a¿)ûŽ)ùƽ.'Ž-W½(_54†€4 à·)ú)ùŽ-m¿)ûŽ)ùƽ.'½)%5Z94¾* ¼)÷'¿)÷¿)ùŽ-U¿)ûŽ)ùƽ-Ž-J½(_54¶)ö4 à·)ú)ùŽ-n¿)ûŽ)ùƽ-½)%5Z9¾*0æ„÷)ú)ùŽ-u¿)ûŽ)ùƽ.'¾*æ„0¿*÷)úŽ-}¿)ûŽ)ùƽ.'Ž-c½(_9µ,˜'¾* 0¿* 9¦�H&¦ �R&¶,™§¶,š§ ¦ Š@§ o„9¦�U&ù¦ �D&ó¶- §¶- ß¾0¿,п,õÆ??$„€HYIM&Á"9DV„DVF÷)ô·)õ»,Ñù,Ð÷*–·*—»)õù)ô?%0¿,Ò¿,÷¿*˜þ9ÿþ.í$ŸNCWB LV@D€M*š+˜DK0 SA*š+˜DK 0  LO**•VERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? RECORD XXXXXSECTOR XXXX OFFSET XX SRC-XX DST-XX]&~.l&l÷.#¿.%Ž.¿. †·.$¾.%¦„æŽ.o®à¢„%Ž.l ñë©„Ž.44¦‹0æ '0Z&û§„55Ž.l&ll&lj ,¾¯®¦„Ž.® m&jj®§„Ž.l&lj&Þ¾.%O9'èd ]'/l&l¿.Z¾.Z¦„� #‹‹0m&jj®§„¾.Z� Z&ݾ.Z94†d„fJ&ù59~.”~.”½.˜~.”½.ª‰M$ A®„®„®„† §„A®„2a2anþ ò¿.õ¾.ñoo„†<§¾.õ9¿.õ¾.ñ¦„†4§†<§.÷.ø¦+ z.ø&÷z.÷&ò¦„%A®®„®„æˆÄÁ&„þ¾.õ9.jä°„ååå@€p 0300ï¿O—"—%—&žþ¿"ø¦„0� ',�;'� 'ð & 즄0� '�Y& " ð�S& % è� 'äÆ 9† ·"OŽ"PÆ ?Ž"O¿"úŽ"ø?× ¶"O� '„'�/Æ ·"O– '…'Æ? ?…&† ±"O&±"X& &&æ† ±"O&"O"`½!pþ? $?Ž"OÖ!?$~!IÖ!Å&½!ò&á–%&¶"\… &Ö¶"\„À'Æ�?#Ž#½""Ž#? DÖ!Å&$–"& Ž#½""Ž"ü? ? %CŽ"èÆ? ? %8¦„�Y&œÆŽ"O?$Æ ? ?Ž#.½""Ž#.? –!J&~ ©¾"ø¦„� '�;'~ H?–!J'Å'Æ€?#Ž#D½""Ž#D? ÔÆ ? ?Á&ö~!7O—#—$Æ Ž"P¦„4¡à  & # (– „&†—!9– …&†—#  #0Œ"X'¦„4¡à&ïŽ"X¦„4¡à& $ – …&†—$  $0Œ"X'¦„4¡à&ïŽ"P¿"êŽ"î¿"ìÆ Ž"ê?†—!9Ö#+Ž"P¿"êŽ"î¿"ìŽ"ê?&–$*O J'¾"X¼"ö ¶"X±"ö9¿"ìŽ"P¿"êÆŽ"ê?†.¾"ì§„¶"Xö"Y§ç†:§¶"OŠ0§9 "h"ç DELETE ? IS PROTECTED DELETED DOES NOT EXIST åååC€h 0300ï¿O—$—%—&—#L—-† ·$·$Ø$ކ0·$}Ž$~Æ ?žþ¿%üŽ$}¿%þŽ%ü?× _¾%ü¦„0� 'A�;&ô¦„0� '5�E& ʆ ·$ ë�A& ʆ ·$·$Ø Û�L&Ê Ó�S&Ê Ë� 'ÇÆ ×!ö$}÷$žÄ' Á/Æ~#M÷$}– …'Æ ðŽ¿%êŽ$é¿%ì4×½èu5Ž%é?$Æ~#MŽ$é¿%îŽ$®¿%ðŽ%îÆ?Ž$–½$IÆ Ž$}¦4¡à& ¦ 4¡à'~"ÀÖ Å&÷Å&óÆ×" Æ×"? $~#¹Ö"Ž$}?$~#5–#'½#è&ä–"J& –!…&¶$Š… &Ò &½#É–!„&~"®½$¾$ˆ¿%òŽ$Ï¿%ôÆŽ%ò½&ÛOö$Ž—'×(ž'¿%òŽ$׿%ôÆŽ%ò½&Ûö$}¾$ˆ¿%êŽ%i¿%ìŽ%é?$Æ~#MŽ¿$ÑŽ%iŸ'¦„+ „|‹Ž$Ñ?ž'00Ÿ'¦„*ë¾$Ñ–%Ö$?)Ÿ$¾$Ñ¿%òŽ$Ô¿%ôÆŽ%ò½&Û–!…&~"®¶%i*†@Æ‚?#Ž&F¿%îŽ$Û¿%ðÆ Ž%î?~"®Ž00¿$ÛÆ Ž$Ý?Ž%iŸ)¦æ„Ä—(×'Ž'†?ž'¿%òŽ$á¿%ôÆŽ%ò½&Ûž)¦„„ü‹—('ž'¿%òŽ$å¿%ôÆŽ%ò½&ÛŽ$·½$Iö$·Á 'Ž$·ö$è?Ž$ÜÆ½'ƾ$ÛŒ57&ž)¦+,†@Æ�?#Ž&¶½$I ž)00Ÿ)¦æ„+? $~#¹~"Ž$·½$I–"…'~#Q~!_×+×,Æ Ž$~¦„4¡à& + – …&†—+  +0Œ$†' ¦„4¡à&ïŽ$†¦„4¡à& , – …&†  ,0Œ$ˆ'¦„4¡à&ï #Ž$~¿%îŽ&¿%ðŽ%îÆ ?~!Á&Æ€†@?#Ž&Q½$I rÁ'Æ ? h–&'ä–!„',ž$¿%òŽ&‡¿%ôÆŽ%ò½'ž$¿%òŽ&Œ¿%ôÆŽ%ò½&ÛŽ&j½$I–&—('ž'¿%òŽ&°¿%ôÆŽ%ò½'ž'¿%òŽ&´¿%ôÆŽ%ò½&ÛŽ&޽$I–!…'Ö-Z'½$a?Ž$~¿%îŽ$·¿%ðŽ%îÆ?†.·$¿¾$†¿$À9Ö++Ž$~¿%îŽ&¿%ðŽ%î?&–,*O J'¾$†¼& ¶$†±&9Ž%ö¿%îŽ$Å¿%ðŽ%îÆ?Æ.¶$ŠŽ$ÅH%ç„0Œ$Ê&ô¶$Š„ª„§„9–!…&? 9 -&†<—-Æ�?49?2Ž& † Z'§„0 ÷†§„Ž& ?5?390  $é%hDRIVE : DISK I.D. : . !WDSCN0 *NO SDW'S* NO DIRECTORY ENTRY FOUND TOTAL NUMBER OF SECTORS : /$ TOTAL DIRECTORY ENTRIES SHOWN : /$ NO TERMINATOR FOUND IN FILE'S R.I.B. ]'/l&l¿'¾'¦„� #‹‹0m&jj®§„¾'� Z&ݾ'94†d„fJ&ù59]&~'¯l&l÷'¿'ÄŽ'°¿'¿†·'þ'Ħ„æŽ'ºo®à¢„%Ž'ºl ñë©„Ž'º44¦‹0æ '0Z&û§„55Ž'ºl&ll&lj ,¾¯®¦„Ž'º® m&jj®§„Ž'ºl&lj&Þ¾'ÄO9'èd †«„Ч„‹Æ$ †0§„0Z&ë9  ååH€ $ 301!h èDK h ç UNIT=0 CHANGE BUFFERFILE= . CLUSTER ALLOCATION MAP DIRECTORY  PSN=0000 LSN=0000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  h"""X#R7#O>"°1"­"÷"”"S"("e"("}"( è h h è : SYNTAX ERROR MODE ERROR BOUNDARY ERROR INVALID SECTOR ADDRESS PHYSICAL MODE WHAT? Î!ó†—C†0—0/,7žþ½)@ /&–0„—½èu$ŽÆ? Ž#3? Ž Æc? +Ž Ÿ%–,'~'J½*Ù� 'ß— Ž*í¡„'0000Œ+&ï~%æ×"®Ÿ#½*Ù—!�B'�C'�D&1ŽŸ'ŽŸ) ŽŸ'Ÿ)Å'( /&, Å '‰M½*ÙÁB&� & SÖ"� '� &MÅ&EŽ#6Æ€~%1Ž#CÆ� ö +Å'ëÅ&,½*S'âÖ"žHŸ'Ÿ)� &Å'Ò �,&ÌÅ'Ƚ*S'Ã� &¿žHŸ)ž#n„Ž Ÿ%½*W'�/&–I�"—( ,N~&BŽ#‰Æ„ Ž#UÆ‚,Î!ó?#? ~$-½)º–A—@½)/?ž%½)@~$-½)º ø½*Ù�0-"�3.4½*Ù� &½)º5% 7—0„—½èu~$-Ž#6Æ€~%1–!�D&–'&q–(�"kŽ?(Ÿ'½)æŽ#'Æ€½*‰¾"÷Ÿ3ž1Ÿ5†—7~$-Ž#6Æ€~%1–!Ö+&�B''�D')–7'-ž3–/'ž5 �D&–'&–(�" Ž?(Ÿ'½)Ú~$-Ž#6Æ€~%1Ž#dƃ ö½*W&�"&'½*Ù‰M½*Ù�"&½*Ù ÖI� &Ž è˜MÆ€?7~$-Ž#6Æ€~%1-ž%Ÿ)–(Ž è?(Ÿ'¿#–N& N½*Ù� &~'".ž)Ÿ%–.'½*Ó—I½*Ù� &~'�"&½*Ù. !†, ½*W&�"&½*Ù�"&½*Ù � '_ . ÅÖ-'ÖI¾#焾#0¿#�,'ªÖ-&O4� '‰M½*Ù� &0Á^'Á/&(0ö!ô¶!õ?/#$5�^& 0ö!ö¶!÷?/" -ž'¿#~&dŽ#6Æ€~%1Ž#UÆ‚ ö�/':�^&00¿#ö!ö¶!÷?-?$—8Ž#½*­¾#0¿#Ž#½*­Ž#N? ~$2–8—(~&B,~$-@ †—@—A½)/–!Ö+&D�B&~( �C&~(�D'ƒŽ"@½(÷† Ö/&†·"•Ž##Æ€½*‰ž3¿"÷ž5Ÿ1ž'Ÿ)–7&~(i~(W�C&ž'½(è%YŸ'ž)½(è%P000Ÿ)–/'Ž#† Q–!�D&?–'&3Ö)&/ž'0Ÿ1–(Ö*Á"!Ž?'Ÿ)Ž?(Ÿ' ŽŸ)ŽÿÿŸ1Ž#† Ž#6Æ€~%1†·"( †Ž#ƽ*‰·"•ž'Ö)–*?/$ –/'ÖŒÿÿ&Ñ–0·"$†—BŽ"½(÷½)æ$~(åŽ#½*±Ž#½*±Ž"ˆ½(÷?Ž gŸ9Ž"´Ÿ;Ž"åŸ=Ž# ½*­Ž9½*­ž90¦„Ÿ9� -�z/†.ž=§„0Ÿ=ž;000–?L—?„�&0Ÿ;M&Æ? %'Ž"¯½(÷–?�€&¦ž'œ)'0Ÿ'–@&~(O B&ù½)/~(E~$-?1% ?1% /'09 @&? 9?2¦„� '�'0 òÖCZ& 4Ž#+?55Æ:×C?3�'?40 Ò?59 @' –CJ'Ž#2�Á ô9ŸL½)º%`†0·"žL¿"ûŽ"¿"ý–0·"Ž ¿" Ž"û?Å&=¶"�0-A�3.=—0Å€&,Ž"ÿƽ*‰¾" ¿"a† ·!ùŽDK¿"Ž!ø?&?&\×/7þ9Ž#{? 9~)ÑÆ? 9–/'Ž!ø?& O—/—7?&þ9Ž!ø_? 9Ž##Æ€½*‰† OÖ/'<ž'¿" Ÿ1Ž!øM&? ?&ö"¶"ÄHYHYž'?)ö"¶"?-¿"÷þ9Ž!ø_? 9ž'¿"÷ž10Ÿ1Ö0Ž"öM&?9 ?:%9¶"ö4AÆ? 59Æ Æ4ŸOŽŸH�u½+b%ŽH½+TšI—IZ&ì�a—Q54 à‰M–QžO]94@ßJî„ßDîßFÞJᅫD?59Æ Æ4¦·*Ѧ·*Ò®„®„¿*ÏŽ*Ͻ+59ŸLž% ŸLž%0Ÿ%¦„žL9�ñ� 'ú9C%RF& L'Z7O%JQ%>R%ˆS'V7U%WW%Ä]'/l&l¿+D¾+D¦„� #‹‹0m&jj®§„¾+D� Z&ݾ+D94†d„fJ&ù594†hi„J&ù59�A% 4‹¹5%€ �0% 4‹Æ5%„  9åååO€H 0300￞þ¿$ZŽ$h¿$\Ž$Z?' Å'~"ä~"àŽ%%¿$\Ž$Z?'+~"úŽ%0¿$\Ž$Z?'*îŽ%&½#T%æŽ%1½#T%Þö%&'}%1'ñ%1&Ïö%2¶%3¾%'?/%¾$Z¦„� '}�;'0¿$Z ï¾$Z0¿$Z¦„� 'd� 'î�H&|%! å�L&|% Ü�N&|%" Ó�F'~"è½#'$~"þö%D#øÁ„"ô÷%#¾$Z¦„� '�.&·½#'%Ýö%DÁ #ÖÁc"Ò÷%$¾$Z~ �Ž$i¿$ZŽ%W¿$\Ž$ZÆ?Ž%`¿$\Ž$ZÆ?ö$h÷%c¾0¿$}Æ??$Ž€?/$~#„€¾$}4†S±%&5&†?( ?)0¿$Ž$^?'~"×?&ùæˆÄÁ'~"î}%!'Ž%Í? Ž%fÆd? ?'¿%Ë}% ' †L·$‹†P·$ŒŽ$ƒ?'~"×?&ùÆSñ%&&¾%'¿$oŽ$›}%"'Ž$£¿$bŽ%¿$d}%"'Ž$›Æ?Ž$Ÿ¿$\¾%>¿$ZŽ$Zƽ%ÞŽ$^?':Á &/}%='}% '}%@' ö%$ð%@½$A½$?ÆSñ%&'ñ%1'~"ò~"öÁ '~"ׯLñ%&&<ö%>¶%?¾%'?/$/? %·¾%>0¿%>}%1&~!¬ÆLñ%1& ö%2¶%3?/$ì~!ë¾$o0 ì}%@&GŽ%T¿$\¾%;¿$Z0¿%;ÆŽ$Z½%ÞŽ%G¿$‡Ž%L¿$‰Ž$ƒ?&BŽ%M¿$‡¾%Ë¿$‰½#Ä&1ƽ$AÆ÷%@Ž$›¿$‡¾$`¿$‰Æ÷%=½#Ä&|%@ö%@ñ%$-%@~"5Æ? ½$?Æ Æ Æ ? ?Æ çÆ ãÆ ߯ ìÆ èÆ6 äŽ%4¿%A¿%)_¾$Z0¿$Z¦„� '�0-�9.\Á# ¾%)§„0¿%) ÕŽ%A]'½&†%å)ã}%C&Þþ†9O9æ„'h÷#ÃÁL'ÁS'9m&ù0¿%A¿%E_† ¡„'0\†L±#Ã'Á.Ü êÁ.Ö äŽ%A]'ΆL±#Ã'½&Ú ½&†)½%»ö%C¶%D¾%Eç„§ö#ÃÁL&®„'£þ9¾$‰ö$‡¶$ˆ?-0_¶%#?/$ ¾$‡J?(¿$‰¾$‡† ¡„' † ¡„#†%§„?$¾$d?/$?%0 á? $2a2a~!ðŽ$ƒ?9Ž$ƒ½$"Ž$^½$"9¿$??'Á'_? ¾$??'Á'_? 9Ž%Ý¿$‡Ž%Ý¿$‰Ž$ƒ4?5Z&÷9$›%DK0 SACNPB PAGE XXX XXXXXXXX.XX:X %eENTER HEADING:  ]&~&ol&l÷&‚¿&„Ž&p¿&†·&ƒ¾&„¦„æŽ&zo®à¢„%Ž&zl ñë©„Ž&z44¦‹0æ '0Z&û§„55Ž&zl&ll&lj ,¾¯®¦„Ž&z® m&jj®§„Ž&zl&lj&Þ¾&„O9'èd ]'G¿&×÷&Ùoo ¾&×HY%5HY%1«é%+HY%'§ç®„¦„¾&×l&l„?%_«§éç%z&Ù&ÆO9þ ù]'-¿' oo¾' ®„¦„¾' l&l„½' %00½',ª§Z&ݾ' 9�A% 4‹¹5%€ �0% 4‹Æ5%„94†hi„J&ù59åååT€ 0300￞þ¿#ØŽ"¦¿#ÚŽ#Ø?÷#Ü'Å'~"Š~"�*Å'ô¶"¦�0-�3/~"†Å& Æ ñ"¯&ŽSA¿"¯ö"¦÷"¿Ž"ÀÆ ?Ž"¿¿#ÚŽ#Ø#Ý?]'Ä'~"”ö"ÈÁ '|#Ýö"¦ñ"  ¿&¡Ž$¿#ÚÆ¾#ئ„� 'Y�;'0¿#Ø ï¾#Ø0¿#ئ„� '@� 'îŽ#÷m„&~ $¡„'000 íZ,~ $4¦æ¾#Ú§„ç00¿#Ú5†º#Ý·#Ý ²¾#Úo„ö#Ý&~"ŠÄ'!ö#ÜÄÁ&~"”ö#ÜÄ'ö"ÀÁ 'ö"ÈÁ &èÆ Ž"®¶#Ü…' á„&0z#ô&õŽ"°…' á„&0z#õ&õ"·#öŽ"¦¿#ØŽ#Þ¿#ÚÆ Ž#Ø?Ž"¿¿#ØŽ#é¿#ÚÆ Ž#Ø?? $?Ž"Ø¿"»Ž#W¿"½Ž"¦ö#ÜÄ'Æ?]'#Á'Æ ? ?}#ö&Ò~"˜Æ?]':Á'òÆ ? ?Ž#ß¿#ØŽ"§¿#ÚŽ#Øö#ô'?&¢Ž#ç¿#ØŽ"¯¿#ÚŽ#Øö#õ'?&Š|#öö#ÝÄ'8ö#êÁ 'Ž#ê Ž"§¿#ØŽ"À¿#ÚÆŽ#Ø?ö#òÁ 'Ž#ò Ž"¯¿#ØÆŽ#Ø?¾"³¿"ÌŽ$¦„'m& º"Ì·"Ì00 ìC´"Ì ñŽ"¦¿#ØŽ"¿¿#ÚŽ#X¿"»Ž#׿"½ö#ÝŽ#Ø?]& ö#ÜÄ' ~!tÁ'Æ ? ?Æ Æ? ?Æ øÆ ôŽ#ÞÆ íŽ"¿Æ æ0 #X#×D@W€S N XÀå,W€+0010�ACIA�EQU�$FF00 0020‚ORG�$E000 0030�START�LDA�#3 0040‚STA�ACIA 0050‚LDA�#$11 0060‚STA�ACIA 0070‚LDA�#$FF 0080‚STA�TYPE 0090�MAIN�LDX�#T3 0100‚PRINT 0110‚IN 0120‚LDX�#MAIN2 0130�MAIN4�CMPA�X 0140‚BEQ�MAIN3 0150‚LEAX�3,X 0160‚CMPX�#MAIN2+27 0170‚BNE�MAIN4 0180‚LDX�#T1 0190‚PRINT 0200‚BRA�MAIN 0210�MAIN3�JSR�(1,X) 0220‚BRA�MAIN 0230�MAIN2�FDB�"t",TEST,"s",SEL,"r",READ,"m",MREAD,"p",PROG,"e",EXIT 0240‚FDB�"l",LOAD,"d",DUMP,"v",VERI 0250�T1�FCB�$D,$A,"Invalid�command,�select:" 0260‚FCB�$D,$A,"ˆt�to�perform�a�blank�check" 0270‚FCB�$D,$A,"ˆs�to�select�a�EPROM�type" 0280‚FCB�$D,$A,"ˆr�to�read�the�copy�EPROM" 0290‚FCB�$D,$A,"ˆm�to�read�the�master�EPROM" 0300‚FCB�$D,$A,"ˆp�to�programm�the�copy�EPROM" 0310‚FCB�$D,$A,"ˆe�to�exit�the�programm" 0320‚FCB�$D,$A,"ˆl�to�load�the�copy�EPROM�contents�to�memory" 0330‚FCB�$D,$A,"ˆd�to�dump�memory�contents�into�the�EPROM" 0340‚FCB�$D,$A,"ˆv�to�verify�copy�EPROM�contents�with�memory" 0350‚FCB�4 0360�EXIT�EXIT 0370�TEST�CLRA 0380‚LBSR�OUT 0390‚LDA�#4 0400‚LBSR�OUT 0410‚LDA�#3 0420‚LBSR�OUT 0430‚LDA�TYPE 0440‚LBSR�OUT 0450‚LBSR�IN 0460‚LBSR�ERROR 0470‚RTS 0480�SEL�LDX�#T2 0490‚PRINT 0500‚IN 0510‚CMPA�#'0 0520‚BLO�SEL 0530‚CMPA�#'5 0540‚BHI�SEL 0550‚ANDA�#$F 0560‚STA�TYPE 0570‚RTS 0580�PROG�LDX�#T5 0590‚PRINT 0600‚INPAR 0610‚TFR�U,Y 0620‚LDX�#T6 0630‚PRINT 0640‚INPAR 0650‚CLRA 0660‚LBSR�OUT 0670‚LDA�#7 0680‚LBSR�OUT 0690‚LDA�#2 0700‚LBSR�OUT 0710‚LDA�TYPE 0720‚LBSR�OUT 0730‚TFR�Y,D 0740‚LBSR�OUT 0750‚EXG�A,B 0760‚LBSR�OUT 0770‚TFR�U,D 0780‚TFR�B,A 0790‚LBSR�OUT 0800‚LBSR�IN 0810‚PSHS�A 0820‚LBSR�ERROR 0830‚LDA�S+ 0840‚BMI�PROG2 0850‚LBSR�IN 0860‚LBSR�ERROR 0870�PROG2�RTS 0880�MREAD�LDA�#1 0890‚BRA�READ2 0900�READ�LDA�#0 0910�READ2�PSHS�A 0920‚LDX�#T5 0930‚PRINT 0940‚LDU�#0 0950‚INPAR 0960‚TFR�U,Y 0970‚LDX�#T7 0980‚PRINT 0990‚LDU�#1 1000‚INPAR 1010‚CLRA 1020‚LBSR�OUT 1030‚LDA�#8 1040‚LBSR�OUT 1050‚PULS�A 1060‚LBSR�OUT 1070‚LDA�TYPE 1080‚LBSR�OUT 1090‚TFR�Y,D 11 00‚LBSR�OUT 1110‚EXG�A,B 1120‚LBSR�OUT 1130‚TFR�U,D 1140‚LBSR�OUT 1150‚EXG�A,B 1160‚LBSR�OUT 1170‚LBSR�IN 1180‚TSTA 1190‚BPL�READ9 1200‚LBSR�ERROR 1210‚RTS 1220�READ9�EXG�U,Y 1230‚PSHS�Y 1240‚LDX�#BUF 1250�READ6�LBSR�IN 1260‚STA�X+ 1270‚LEAY�-1,Y 1280‚BNE�READ6 1290‚PULS�Y 1300‚LDX�#BUF 1310�READ4�LDB�#16 1320‚PSHS�B 1330‚TFR�U,D 1340‚CRLF 1350‚OUTH2S 1360�READ5�LDA�X+ 1370‚OUTH1S 1380‚LEAU�1,U 1390‚LEAY�-1,Y 1400‚BEQ�READ3 1410‚DEC�S 1420‚BNE�READ5 1430‚LEAS�1,S 1440‚BRA�READ4 1450�READ3�PULS�B,PC 1460�VERI�LDA�#1 1470‚BRA�LOAD9 1480�LOAD�CLRA 1490�LOAD9�PSHS�A 1500‚LDX�#T5 1510‚PRINT 1520‚LDU�#0 1530‚INPAR 1540‚TFR�U,Y 1550‚LDX�#T7 1560‚PRINT 1570‚LDU�#1 1580‚INPAR 1590‚PSHS�U 1600‚LDX�#T9 1610‚PRINT 1620‚LDU�#0 1630‚INPAR 1640‚TFR�U,X 1650‚PULS�U 1660‚CLRA 1670‚LBSR�OUT 1680‚LDA�#8 1690‚LBSR�OUT 1700‚LDA�#0 1710‚LBSR�OUT 1720‚LDA�TYPE 1730‚LBSR�OUT 1740‚TFR�Y,D 1750‚LBSR�OUT 1760‚EXG�A,B 1770‚LBSR�OUT 1780‚TFR�U,D 1790‚LBSR�OUT 1800‚EXG�A,B 1810‚LBSR�OUT 1820‚LBSR�IN 1830‚TSTA 1840‚BPL�LOAD8 1850‚LBSR�ERROR 1860‚LEAS�1,S 1870‚RTS 1880�LOAD8�TFR�U,Y 1890‚LDU�#BUF 1900‚LDA�S+ 1910‚BNE�LOAD4 1920�LOAD3�LBSR�IN 1930‚STA�X+ 1940‚LEAY�-1,Y 1950‚BNE�LOAD3 1960‚RTS 1970�LOAD4�LBSR�IN 1980‚CMPA�X+ 1990‚BEQ�LOAD5 2000‚CMPU�#BUF+1024 2010‚BEQ�LOAD5 2020‚STX�U++ 2030‚STA�U+ 2040‚LDA�-1,X 2050‚STA�U+ 2060�LOAD5�LEAY�-1,Y 2070‚BNE�LOAD4 2080‚CMPU�#BUF 2090‚BEQ�LOAD10 2100�LOAD12�LDX�#T12 2110‚PRINT 2120‚LDA�-U 2130‚OUTH1S 2140‚LDX�#T13 2150‚PRINT 2160‚LDA�-U 2170‚OUTH1S 2180‚LDX�#T14 2190‚PRINT 2200‚LDD�--U 2210‚SUBD�#1 2220‚OUTH2S 2230‚CMPU�#BUF 2240‚BNE�LOAD12 2250‚RTS 2260�LOAD10�LDX�#T15 2270‚PRINT 2280‚RTS 2290�DUMP�LDX�#T5 2300‚PRINT 2310‚LDU�#0 2320‚INPAR 2330‚PSHS�U 2340‚LDX�#T7 2350‚PRINT 2360‚LDU�#1 2370‚INPAR 2380‚PSHS�U 2390‚LDX�#T9 2400‚PRINT 2410‚LDU�#0 2420‚INPAR 2430�DUMP2�LDD�S 2440‚BEQ�DUMP4 2450‚CMPD�#$400 2460‚BLS�DUMP7 2470‚LDD�#$400 2480�DUMP7�TFR�D,Y 2490‚ADDD�#6 2500‚LBSR�OUT 2510‚EXG�A,B 2520‚LBSR�OUT 2530‚LDA�#2 2540‚LBSR�OUT 2550‚LDA�TYPE 2560‚LBSR�OUT 2570‚LDA�2,S 2580‚LBSR�OUT 2590‚LDA�3,S 2600‚LBSR�OUT 2610�DUMP3�LDA�U+ 2620‚LBSR�OUT 2630‚LEAY�-1,Y 2640‚BNE�DUMP3 2650‚LBSR�IN 2660‚TSTA 2670‚BMI�DUMP5 2680‚LBSR�IN 2690‚TSTA 2700‚BMI�DUMP6 2710‚LDD�2,S 2720‚ADDD�#$400 2730‚STD�2,S 2740‚LDD�S 2750‚SUBD�#$400 2760‚STD�S 2770‚BPL�DUMP2 2780�DUMP4�LEAS�4,S 2790‚RTS 2800�DUMP6�EQU�* 2810�DUMP5�LBSR�ERROR 2820‚LEAS�4,S 2830‚RTS 2840�T2�FCB�$D,$A,"Select�type�0=2716",$D,$A 2850‚FCB�"Œ1=2732",$D,$A 2860‚FCB�"Œ2=2764",$D,$A 2870‚FCB�"Œ3=27128",$D,$A 2880‚FCB�"Œ4=27256",$D,$A 2890‚FCB�"Œ5=2532‚your�choice�?",4 2900�T3�FCB�$D,$A,"Enter�command�:",4 2910�T5�FCB�$D,$A,"Start�address�EPROM:",4 2920�T6�FCB�$D,$A,"Data:",4 2930�T7�FCB�$D,$A,"Number�of�bytes:",4 2940�T9�FCB�$D,$A,"Memory�address:",4 2950�T12�FCB�$D,$A,"Data�should�be:",4 2960�T13�FCB�"was:",4 2970�T14�FCB�"at�address�",4 2980�T15�FCB�$D,$A,"Data�equal",4 2990�IN�LDA�ACIA 3000‚BITA�#1 3010‚BEQ�IN 3020‚LDA�ACIA+1 3030‚RTS 3040�OUT�PSHS�A 3050�OUT2�LDA�ACIA 3060‚BITA�#2 3070‚BEQ�OUT2 3080‚PULS�A 3090‚STA�ACIA+1 3100‚RTS 3110�ERROR�PSHS�D,X 3120‚LDX�#ERROR2 3130�ERROR5�CMPA�X+ 3140‚BEQ�ERROR3 3150‚CMPX�#ERROR4 3160‚BNE�ERROR5 3170‚LDX�#T4 3180‚PRINT 3190‚PULS�D,X,PC 3200�T4�FCB�$D,$A,"Unknown�error",4 3210�ERROR3�CRLF 3220‚PRINT 3230‚PULS�D,X,PC 3240�ERROR2�FCB�0,4 3250‚FCB�1,"Programming",4 3260‚FCB�3,"E PROM�not�blank",4 3270‚FCB�$81,"Too�mutch�data",4 3280‚FCB�$82,"Software�error",4 3290‚FCB�$83,"EPROM�type�not�selected",4 3300‚FCB�$84,"Data�doesn't�fit",4 3310‚FCB�$85,"Start�address�outside�EPROM�space",4 3320‚FCB�$86,"EPROM�not�empty",4 3330‚FCB�$87,"EPROM�will�not�proramm",4 3340�ERROR4�EQU�* 3350�TYPE�RMB�1 3360�BUF�RMB�1050 3370‚END ååå,c€+0010�ACIA�EQU�$FF00 0020‚ORG�$E000 0030�START�LDA�#3 0040‚STA�ACIA 0050‚LDA�#$11 0060‚STA�ACIA 0070‚LDA�#$FF 0080‚STA�TYPE 0090�MAIN�LDX�#T3 0100‚PRINT 0110‚IN 0120‚LDX�#MAIN2 0130�MAIN4�CMPA�X 0140‚BEQ�MAIN3 0150‚LEAX�3,X 0160‚CMPX�#MAIN2+27 0170‚BNE�MAIN4 0180‚LDX�#T1 0190‚PRINT 0200‚BRA�MAIN 0210�MAIN3�JSR�(1,X) 0220‚BRA�MAIN 0230�MAIN2�FDB�"t",TEST,"s",SEL,"r",READ,"m",MREAD,"p",PROG,"e",EXIT 0240‚FDB�"l",LOAD,"d",DUMP,"v",VERI 0250�T1�FCB�$D,$A,"Invalid�command,�select:" 0260‚FCB�$D,$A,"ˆt�to�perform�a�blank�check" 0270‚FCB�$D,$A,"ˆs�to�select�a�EPROM�type" 0280‚FCB�$D,$A,"ˆr�to�read�the�copy�EPROM" 0290‚FCB�$D,$A,"ˆm�to�read�the�master�EPROM" 0300‚FCB�$D,$A,"ˆp�to�programm�the�copy�EPROM" 0310‚FCB�$D,$A,"ˆe�to�exit�the�programm" 0320‚FCB�$D,$A,"ˆl�to�load�the�copy�EPROM�contents�to�memory" 0330‚FCB�$D,$A,"ˆd�to�dump�memory�contents�into�the�EPROM" 0340‚FCB�$D,$A,"ˆv�to�verify�copy�EPROM�contents�with�memory" 0350‚FCB�4 0360�EXIT�EXIT 0370�TEST�CLRA 0380‚LBSR�OUT 0390‚LDA�#4 0400‚LBSR�OUT 0410‚LDA�#3 0420‚LBSR�OUT 0430‚LDA�TYPE 0440‚LBSR�OUT 0450‚LBSR�IN 0460‚LBSR�ERROR 0470‚RTS 0480�SEL�LDX�#T2 0490‚PRINT 0500‚IN 0510‚CMPA�#'0 0520‚BLO�SEL 0530‚CMPA�#'5 0540‚BHI�SEL 0550‚ANDA�#$F 0560‚STA�TYPE 0570‚RTS 0580�PROG�LDX�#T5 0590‚PRINT 0600‚INPAR 0610‚TFR�U,Y 0620‚LDX�#T6 0630‚PRINT 0640‚INPAR 0650‚CLRA 0660‚LBSR�OUT 0670‚LDA�#7 0680‚LBSR�OUT 0690‚LDA�#2 0700‚LBSR�OUT 0710‚LDA�TYPE 0720‚LBSR�OUT 0730‚TFR�Y,D 0740‚LBSR�OUT 0750‚EXG�A,B 0760‚LBSR�OUT 0770‚TFR�U,D 0780‚TFR�B,A 0790‚LBSR�OUT 0800‚LBSR�IN 0810‚PSHS�A 0820‚LBSR�ERROR 0830‚LDA�S+ 0840‚BMI�PROG2 0850‚LBSR�IN 0860‚LBSR�ERROR 0870�PROG2�RTS 0880�MREAD�LDA�#1 0890‚BRA�READ2 0900�READ�LDA�#0 0910�READ2�PSHS�A 0920‚LDX�#T5 0930‚PRINT 0940‚LDU�#0 0950‚INPAR 0960‚TFR�U,Y 0970‚LDX�#T7 0980‚PRINT 0990‚LDU�#1 1000‚INPAR 1010‚CLRA 1020‚LBSR�OUT 1030‚LDA�#8 1040‚LBSR�OUT 1050‚PULS�A 1060‚LBSR�OUT 1070‚LDA�TYPE 1080‚LBSR�OUT 1090‚TFR�Y,D 1100‚LBSR�OUT 1110‚EXG�A,B 1120‚LBSR�OUT 1130‚TFR�U,D 1140‚LBSR�OUT 1150‚EXG�A,B 1160‚LBSR�OUT 1170‚LBSR�IN 1180‚TSTA 1190‚BPL�READ9 1200‚LBSR�ERROR 1210‚RTS 1220�READ9�EXG�U,Y 1230‚PSHS�Y 1240‚LDX�#BUF 1250�READ6�LBSR�IN 1260‚STA�X+ 1270‚LEAY�-1,Y 1280‚BNE�READ6 1290‚PULS�Y 1300‚LDX�#BUF 1310�READ4�LDB�#16 1320‚PSHS�B 1330‚TFR�U,D 1340‚CRLF 1350‚OUTH2S 1360�READ5�LDA�X+ 1370‚OUTH1S 1380‚LEAU�1,U 1390‚LEAY�-1,Y 1400‚BEQ�READ3 1410‚DEC�S 1420‚BNE�READ5 1430‚LEAS�1,S 1440‚BRA�READ4 1450�READ3�PULS�B,PC 1460�VER I�LDA�#1 1470‚BRA�LOAD9 1480�LOAD�CLRA 1490�LOAD9�PSHS�A 1500‚LDX�#T5 1510‚PRINT 1520‚LDU�#0 1530‚INPAR 1540‚TFR�U,Y 1550‚LDX�#T7 1560‚PRINT 1570‚LDU�#1 1580‚INPAR 1590‚PSHS�U 1600‚LDX�#T9 1610‚PRINT 1620‚LDU�#0 1630‚INPAR 1640‚TFR�U,X 1650‚PULS�U 1660‚CLRA 1670‚LBSR�OUT 1680‚LDA�#8 1690‚LBSR�OUT 1700‚LDA�#0 1710‚LBSR�OUT 1720‚LDA�TYPE 1730‚LBSR�OUT 1740‚TFR�Y,D 1750‚LBSR�OUT 1760‚EXG�A,B 1770‚LBSR�OUT 1780‚TFR�U,D 1790‚LBSR�OUT 1800‚EXG�A,B 1810‚LBSR�OUT 1820‚LBSR�IN 1830‚TSTA 1840‚BPL�LOAD8 1850‚LBSR�ERROR 1860‚LEAS�1,S 1870‚RTS 1880�LOAD8�TFR�U,Y 1890‚LDU�#BUF 1900‚LDA�S+ 1910‚BNE�LOAD4 1920�LOAD3�LBSR�IN 1930‚STA�X+ 1940‚LEAY�-1,Y 1950‚BNE�LOAD3 1960‚RTS 1970�LOAD4�LBSR�IN 1980‚CMPA�X+ 1990‚BEQ�LOAD5 2000‚CMPU�#BUF+1024 2010‚BEQ�LOAD5 2020‚STX�U++ 2030‚STA�U+ 2040‚LDA�-1,X 2050‚STA�U+ 2060�LOAD5�LEAY�-1,Y 2070‚BNE�LOAD4 2080‚CMPU�#BUF 2090‚BEQ�LOAD10 2100�LOAD12�LDX�#T12 2110‚PRINT 2120‚LDA�-U 2130‚OUTH1S 2140‚LDX�#T13 2150‚PRINT 2160‚LDA�-U 2170‚OUTH1S 2180‚LDX�#T14 2190‚PRINT 2200‚LDD�--U 2210‚SUBD�#1 2220‚OUTH2S 2230‚CMPU�#BUF 2240‚BNE�LOAD12 2250‚RTS 2260�LOAD10�LDX�#T15 2270‚PRINT 2280‚RTS 2290�DUMP�LDX�#T5 2300‚PRINT 2310‚LDU�#0 2320‚INPAR 2330‚PSHS�U 2340‚LDX�#T7 2350‚PRINT 2360‚LDU�#1 2370‚INPAR 2380‚PSHS�U 2390‚LDX�#T9 2400‚PRINT 2410‚LDU�#0 2420‚INPAR 2430�DUMP2�LDD�S 2440‚BEQ�DUMP4 2450‚CMPD�#$400 2460‚BLS�DUMP7 2470‚LDD�#$400 2480�DUMP7�TFR�D,Y 2490‚ADDD�#6 2500‚LBSR�OUT 2510‚EXG�A,B 2520‚LBSR�OUT 2530‚LDA�#2 2540‚LBSR�OUT 2550‚LDA�TYPE 2560‚LBSR�OUT 2570‚LDA�2,S 2580‚LBSR�OUT 2590‚LDA�3,S 2600‚LBSR�OUT 2610�DUMP3�LDA�U+ 2620‚LBSR�OUT 2630‚LEAY�-1,Y 2640‚BNE�DUMP3 2650‚LBSR�IN 2660‚TSTA 2670‚BMI�DUMP5 2680‚LBSR�IN 2690‚TSTA 2700‚BMI�DUMP6 2710‚LDD�2,S 2720‚ADDD�#$400 2730‚STD�2,S 2740‚LDD�S 2750‚SUBD�#$400 2760‚STD�S 2770‚BPL�DUMP2 2780�DUMP4�LEAS�4,S 2790‚RTS 2800�DUMP6�EQU�* 2810�DUMP5�LBSR�ERROR 2820‚LEAS�4,S 2830‚RTS 2840�T2�FCB�$D,$A,"Select�type�0=2716",$D,$A 2850‚FCB�"Œ1=2732",$D,$A 2860‚FCB�"Œ2=2764",$D,$A 2870‚FCB�"Œ3=27128",$D,$A 2880‚FCB�"Œ4=27256",$D,$A 2890‚FCB�"Œ5=2532‚your�choice�?",4 2900�T3�FCB�$D,$A,"Enter�command�:",4 2910�T5�FCB�$D,$A,"Start�address�EPROM:",4 2920�T6�FCB�$D,$A,"Data:",4 2930�T7�FCB�$D,$A,"Number�of�bytes:",4 2940�T9�FCB�$D,$A,"Memory�address:",4 2950�T12�FCB�$D,$A,"Data�should�be:",4 2960�T13�FCB�"was:",4 2970�T14�FCB�"at�address�",4 2980�T15�FCB�$D,$A,"Data�equal",4 2990�IN�LDA�ACIA 3000‚BITA�#1 3010‚BEQ�IN 3020‚LDA�ACIA+1 3030‚RTS 3040�OUT�PSHS�A 3050�OUT2�LDA�ACIA 3060‚BITA�#2 3070‚BEQ�OUT2 3080‚PULS�A 3090‚STA�ACIA+1 3100‚RTS 3110�ERROR�PSHS�D,X 3120‚LDX�#ERROR2 3130�ERROR5�CMPA�X+ 3140‚BEQ�ERROR3 3150‚CMPX�#ERROR4 3160‚BNE�ERROR5 3170‚LDX�#T4 3180‚PRINT 3190‚PULS�D,X,PC 3200�T4�FCB�$D,$A,"Unknown�error",4 3210�ERROR3�CRLF 3220‚PRINT 3230‚PULS�D,X,PC 3240�ERROR2�FCB�0,4 3250‚FCB�1,"Programming",4 3260‚FCB�3,"EPROM�not�blank",4 3270‚FCB�$81,"Too�mutch�data",4 3280‚FCB�$82,"Software�error",4 3290‚FCB�$83,"EPROM�type�not�selected",4 3300‚FCB�$84,"Data�doesn't�fit",4 3310‚FCB�$85,"Start�address�outside�EPROM�space",4 3320‚FCB�$86,"EPROM�not�empty",4 3330‚FCB�$87,"EPROM�will�not�proramm",4 3340�ERROR4�EQU�* 3350�TYPE�RMB�1 3360�BUF�RMB�1050 3370‚END å ååo€€øø†€‹†·�†·�Έ†ÿ·°—— †…·à†·�¶�D$ò…& é¶� 䎀¶°Di€Œ€&øŽ€Žøl¦€„�& †·�40­´501"Œ€&æ9ø§øÙú™ø|øŽø‰ø›ø¡9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøËH®†Ÿ S4–о¤à—·°9 @€Ö +-–„¿·°—Ž=4ü0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†H Ù†A Ò44†ƒ·à¦b·ÀÖ XŽùM¦a­µ·Ð¶°Æ‡÷à5´ù[ù`ùgùgùnùxùs„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°¦c·ÀÖ XŽù´¦b­µ†‡·à5¶ùÂùÜúúú$úYú>„wŠ ·ÐÆ ÷àŠ€·Ð„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðÿˆ€·ÐÆ‚÷àÖÁ%Æ(×è9„ˆŠ@·ÐÆ@÷à„?·ÐÑŠ@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ð·ˆ€·Ð9ÿ2Š€·ÐÊ÷àˆ€·Ðœˆ€·Ð9ÿ·ÐÆ"÷àˆ9Žú“0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'i–„þ·°—– +RŽ_:—þq‘'!C”&†—–þÎ\Á&æ†ÿ” (†ÿ� !]'XX– �%�'Æ×–þ£0œ &´ýÛ–Š—·°9–„þ·°—– +5ŽÒ—þ ‘'C”&Žý…– ¦¦—–þ` †ÿ) 0œ &Ñý�–Š—·°9Ž€l— g— ž 1>]Œ„*'§€1?&ò†1·�Œ„*&†W9ÖÁ%†K9–�%†?9–HŽû¸­––HŽû¬n–ûÿüPüzü5ý2ýø‰øŽø›ø¡ø§øƒø}¶°…' ¶�…'ò¶�95�Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü '“ $ÜÓ“ "žžOÿÄý ÿ¾01?&ô9†ÿ¬9†ÿ¦9Žüî0�ÿ& œ &óOÿ—9†ÿ‘9Ü '“ $ÎÜÓ“ "ËžžOÿs}ÿm01?&ô9Ü '“ $¤Ü ƒ 'Ó“ "˜ž΀†ÿ?_ü„¡Ä'C¤Ä&†—¦Äüá\Á&æ†ÿ9†ÿ9]'XX– �%�'Æ×¦Äü¸03A1?&¹Oþô944†ƒ·à¦b·ÀÖ XŽùM¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÆ„·Ðÿ9Ü '“ $þêÜ ƒ 'Ó“ "Žý…– ¦†—ž΀†þ|û¡Ä' C¤Ä&¦Äü#03A1?&ç †þV922222Ü ƒž΀ûŽ¡Ä& 03A1?&ñOþ59†þ)9;ÿÿÿÿÿÿÿïÿïÿÿÿïøDA�#5 1020‚LDB�#$0A 1030‚BRA�SEL 1040�SEL16�CLRA 1050‚LDB�#4 1060‚BRA�SEL 1070�SEL32�LDA�INPUT 1080‚BITA�#8 1090‚BEQ�SEL25 1100‚LDA�#1 1110‚LDB�#8 1120‚BRA�SEL 1130�SEL64�LDA�#2 1140‚LDB�#$20 1150‚BRA�SEL 1160�SEL128�LDA�#3 1170‚LDB�#$10 1180‚BRA�SEL 1190�SEL256�LDA�INPUT 1200‚BITA�#8 1210‚BEQ�SEL512 1220‚LDA�#4 1230‚LDB�#$80 1240�SEL�STA�TYPE 1250‚LDX�#SIZES 1260‚LSLA 1270‚LDX�A,X\t€[0010�*6809 0020�*PRINTER 0030‚OPT�LLEN=120 0040�*LIST 0050�*************************************** 0060�*¥* 0070�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0080�*¢**�* 0090�*‰V24-VERSION‘* 0100�*¥* 0110�*‚WRITTEN�BY�HENK�AERTSŽ* 0120�*¥* 0130�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0140�*†1984�MINDEN/WESTF.�* 0150�*************************************** 0160�* 0170�******************************* ********************************** 0180�* 0190�*‡CHANGES�AND�UPDATES�BY�GUUS�VAN�DER�BURGT 0200�* 0210�* 0220�*�MODIFICATIONS:�ERROR�IN�APRG�CORRECTED�(�LDA�Y�:=�LDA�U�) 0230�*�MPROM3‰INIT2�CLEAR�KEYS�OMITTED�(�UNNECESSARY�INIT�) 0240�*�2�MS�OVERPROGRAMMING�PULSE�FOR�27256 0250�*�PRESSING�ERROR�KEY�RESETS�ACIA�INPUT�MODE 0260�*�COPY:�NOT�READING�MASTER�MULTIPLE�ANYMORE 0270�*�LABEL�SLCOP4�REMOVED�AND�CLRB�REMOVED 0280�*�RTI�AND�VECTORS�FOR�IRQ�AND�NMI�ADDED 0290�* 0300�*�MPROM4‰27512�VERSION�ADDED 0310�*�FOR�2532�LEDS�2732�AND�ERROR�LIGHTED 0320�*�WR256�CHANGED�ACCORDING�TO�SPECS 0330�* 0340�***************************************************************** 0350�* 0360�RAM�EQU�$8000 0370�ROM�EQU�$F800 0380�MASTER�EQU�0 0390�ACIA�EQU�$9000 0400�INPUT�EQU�$B001 0410�LEDS�EQU�$B001 0420�PBITS�EQU�$E000 0430�ADR1�EQU�$C000 0440�ADR2�EQU�$D000 0450�IO�EQU�$B000 0460‚ORG�RAM 0470‚SETDP�$80 0480�KEYS�RMB�8 0490�CLEDS�RMB�1 0500�TYPE�RMB�1 0510�SIZE�RMB�2 0520�MSGSZE�RMB�2 0530�TIME�RMB�1 0540�TEMP�RMB�1 0550�BUF�RMB�1050 0560‚ORG�ROM 0570�*OFFSET�$7300 0580�START�LDA�#$80 0590‚TFR�A,DP 0600‚LDA�#3 0610‚STA�ACIA 0620‚LDA�#$11 0630‚STA�ACIA 0640‚LDS�#RAM+$800 0650‚LDA�#$FF 0660‚STA�LEDS 0670‚STA�CLEDS 0680‚STA�TYPE 0690‚LDA�#$85 0700‚STA�PBITS 0710�LOOP�LBSR�KEYIN 0720‚LDA�#$11 0730‚STA�ACIA 0740‚LDA�ACIA 0750‚LSRA 0760‚BCC�LOOP 0770‚BITA�#8 0780‚BNE�LOOP1 0790‚LBSR�AIN 0800‚BRA�LOOP 0810�LOOP1�LDA�ACIA+1 0820‚BRA�LOOP 0830�KEYIN�LDX�#KEYS 0840‚LDA�INPUT 0850�KEYIN2�LSRA 0860‚ROL�X+ 0870‚CMPX�#KEYS+8 0880‚BNE�KEYIN2 0890‚LDX�#KEYS 0900‚LDY�#KEYIN3 0910�KEYIN5�LDA�X+ 0920‚ANDA�#3 0930‚CMPA�#2 0940‚BNE�KEYIN4 0950‚LDA�#31 0960‚STA�ACIA 0970‚PSHS�X,Y 0980‚JSR�[Y] 0990‚PULS�X,Y 1000�KEYIN4�LEAY�2,Y 1010‚CMPX�#KEYS+8 1020‚BNE�KEYIN5 1030‚RTS 1040�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1050�RESERV�RTS 1060�SEL512�LDA�#6 1070‚LDB�#$82 1080‚BRA�SEL 1090�SEL25�LDA�#5 1100‚LDB�#$0A 1110‚BRA�SEL 1120�SEL16�CLRA 1130‚LDB�#4 1140‚BRA�SEL 1150�SEL32�LDA�INPUT 1160‚BITA�#8 1170‚BEQ�SEL25 1180‚LDA�#1 1190‚LDB�#8 1200‚BRA�SEL 1210�SEL64�LDA�#2 1220‚LDB�#$20 1230‚BRA�SEL 1240�SEL128�LDA�#3 1250‚LDB�#$10 1260‚BRA�SEL 1270�SEL256�LDA�INPUT 1280‚BITA�#8 1290‚BEQ�SEL512 1300‚LDA�#4 1310‚LDB�#$80 1320�SEL�STA�TYPE 1330‚LDX�#SIZES 1340‚LSLA 1350‚LDX�A,X 1360‚STX�SIZE 1370‚COMB 1380‚PSHS�B 1390‚LDA�CLEDS 1400‚ORA�#$BE 1410‚ANDA�S+ 1420‚STA�CLEDS 1430‚STA�LEDS 1440‚RTS 1450�SIZES�FDB�2048,4096,8192,16384,32768,4096,0‚0�FOR�27512�!! 1460�TEST�LDB�TYPE 1470‚BMI�TEST4 1480‚LDA�CLEDS 1490‚ANDA�#$BF 1500‚STA�LEDS 1510‚STA�CLEDS 1520‚LDX�#0 1530�TEST3�LBSR�READ 1540‚PSHS�A 1550‚LBSR�MREAD 1560‚LEAX�1,X 1570‚CMPA�S+ 1580‚BNE�TEST2 1590‚CMPX�SIZE 1600‚BNE�TEST3 1610�TEST7�LDX�#0 1620‚LBSR�READ 1630‚LDA�CLEDS 1640‚ORA�#$40 1650‚STA�LEDS 1660‚STA�CLEDS 1670�TEST4�RTS 1680�TEST2�LDX�#0 1690�TEST6�LBSR�READ 1700‚INX 1710‚CMPA�#$FF 1720‚BNE�TEST5 1730‚CMPX�SIZE 1740‚BNE�TEST6 1750‚LDA�#4 1760‚LBSR�ERROR 1770‚BRA�TEST7 1780�TEST5�LDA�#3 1790‚LBSR�ERROR 1800‚BRA�TEST7 1810�READ�PSHS�B,X,Y 1820‚LDA�#$83 1830‚STA�PBITS 1840‚LDA�2,S 1850‚STA�ADR1 1860‚LDB�TYPE 1870‚LSLB 1880‚LDY�#READ2 1890‚LDA�1,S 1900‚JSR�[B,Y] 1910‚STA�ADR2 1920‚LDA�IO 1930‚LDB�#$87 1940‚STB�PBITS 1950‚PULS�B,X,Y,PC 1960�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25,RD512 1970�RD16�ANDA�#$77 1980‚ORA�#$20 1990‚RTS 2000�RD32�ANDA�#$7F  2010‚EORA�#8 2020‚ORA�#$20 2030‚RTS 2040�RD64�ANDA�#$7F 2050‚EORA�#8 2060‚ORA�#$40 2070‚RTS 2080�RD128�EQU�RD64 2090�RD256�ANDA�#$7F 2100‚EORA�#8 2110‚RTS 2120�RD512�LBSR�A15I 2130‚BRA�RD256 2140�RD25�ANDA�#$7F 2150‚ORA�#$20 2160‚BITA�#8 2170‚BEQ�RD25A 2180‚ORA�#$80 2190�RD25A�ANDA�#$F7 2200‚RTS 2210�A15I�PSHS�A 2220‚ANDA�#$80 2230‚EORA�#$80 2240‚LSRA 2250‚LSRA 2260‚LSRA 2270‚TFR�A,B‚SAVE�A15�FOR�WR512�IF�PROGRAMMING 2280‚ORA�#$83 2290‚STA�PBITS 2300‚PULS�A 2310‚RTS 2320�* 2330�PRG�PSHS�D,X,Y 2340‚STA�IO 2350‚LDA�3,S 2360‚STA�ADR1�*A0-A7 2370‚LDB�TYPE 2380‚LSLB 2390‚LDY�#PRG2 2400‚LDA�2,S‚*A8-A15 2410‚JSR�[B,Y] 2420‚LDA�#$87 2430‚STA�PBITS 2440‚PULS�D,X,Y,PC 2450�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25,WR512 2460�WR16�ANDA�#$77 2470‚ORA�#$20 2480‚STA�ADR2 2490‚LDB�#$20 2500‚STB�PBITS 2510‚ORA�#$80 2520‚STA�ADR2 2530‚LBSR�WAIT 2540‚ANDA�#$7F 2550‚STA�ADR2 2560‚RTS 2570�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2580‚EORA�#$8 2590‚STA�ADR2 2600‚LDB�#8 2610‚STB�PBITS 2620‚EORA�#$80 2630‚STA�ADR2�CS�LOW 2640‚LBSR�WAIT 2650‚EORA�#$80 2660‚STA�ADR2�CS�HIGH 2670‚LDB�#$82 2680‚STB�PBITS 2690‚LDB�TIME 2700‚CMPB�#20 2710‚BLO�WR32A 2720‚LDB�#40 2730‚STB�TIME 2740‚LBSR�WAIT 2750�WR32A�RTS 2760�WR64�ANDA�#$7F 2770‚EORA�#8 2780‚ORA�#$40 2790‚STA�ADR2 2800‚LDB�#$40 2810‚STB�PBITS 2820‚ANDA�#$3F 2830‚STA�ADR2 2840‚LBSR�WAIT 2850‚ORA�#$40 2860‚STA�ADR2 2870‚RTS 2880�WR128�EQU�WR64 2890�WR256�ORA�#$80 2900‚EORA�#8 2910‚STA�ADR2 2920‚LDB�#$40 2930‚STB�PBITS 2940‚EORA�#$80 2950‚STA�ADR2 2960‚LBSR�WAIT 2970‚EORA�#$80 2980‚STA�ADR2 2990‚RTS 3000�WR512�LBSR�RD512 3010‚ORA�#$80 3020‚STA�ADR2 3030‚ORB�#8‚B�HAS�INV.�A15�ALREADY 3040‚STB�PBITS 3050‚EORA�#$80 3060‚STA�ADR2 3070‚LBSR�WAIT 3080‚EORA�#$80 3090‚STA�ADR2 3100‚RTS 3110�WR25�LBSR�RD25 3120‚STA�ADR2 3130‚LDB�#$22 3140‚STB�PBITS 3150‚LBSR�WAIT 3160‚RTS 3170�ERROR�LDX�#ERROR5 3180‚LEAX�A,X 3190‚LDA�CLEDS 3200‚ORA�#$BC 3210‚ANDA�X 3220‚LDX�#0 3230�ERROR4�CMPX�#$8000 3240‚BHS�ERROR2 3250‚ANDA�#$FD 3260‚BRA�ERROR3 3270�ERROR2�ORA�#2 3280�ERROR3�STA�LEDS 3290‚LEAX�8,X 3300‚LDB�INPUT 3310‚BITB�#8 3320‚BNE�ERROR4 3330‚LDA�CLEDS 3340‚STA�LEDS 3350‚RTS 3360�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 3370�COPY�LDA�X 3380‚BITA�#1 3390‚BEQ�SLCOPY 3400‚LDA�CLEDS 3410‚ANDA�#$FE 3420‚STA�LEDS 3430‚STA�CLEDS 3440‚LDA�TYPE 3450‚BMI�COPY7 3460‚LDX�#0 3470�COPY6�CLRB 3480‚LBSR�MREAD 3490‚STA�TEMP 3500�COPY4�LBSR�READ 3510‚CMPA�TEMP 3520‚BEQ�COPY5 3530‚COMA 3540‚ANDA�TEMP 3550‚BNE�COPY3 3560‚LDA�#1…EINE�MILLISEKUNDE 3570‚STA�TIME 3580‚LDA�TEMP 3590‚LBSR�PRG 3600‚INCB 3610‚CMPB�#15 3620‚BNE�COPY4 3630‚LDA�#1 3640‚LBSR�ERROR 3650‚BRA�COPY7 3660�COPY3�LDA�#2 3670‚LBSR�ERROR 3680‚BRA�COPY7 3690�COPY5�TSTB 3700‚BEQ�COPY8 3710‚LSLB 3720‚LSLB 3730‚LDA�TYPE 3740‚CMPA�#4 3750‚BLO�COPY9 3760‚CMPA�#5 3770‚BEQ�COPY9 3780‚LDB�#2 3790�COPY9�STB�TIME 3800‚LDA�TEMP 3810‚LBSR�PRG 3820�COPY8�INX 3830‚CMPX�SIZE 3840‚BNE�COPY6 3850‚LBSR�TEST 3860�COPY7�LDA�CLEDS 3870‚ORA�#1 3880‚STA�CLEDS 3890‚STA�LEDS 3900‚RTS 3910�SLCOPY�LDA�CLEDS 3920‚ANDA�#$FE 3930‚STA�LEDS 3940‚STA�CLEDS 3950‚LDA�TYPE 3960‚BMI�SLCOP7 3970‚LDX�#0 3980�SLCOP6�LBSR�MREAD 3990‚STA�TEMP 4000‚LBSR�READ 4010‚CMPA�TEMP 4020‚BEQ�SLCOP8 4030‚COMA 4040‚ANDA�TEMP 4050‚BNE�SLCOP3 4060‚LDY�#ZEITEN 4070‚LDA�TYPE 4080‚LDA�A,Y 4090‚STA�TIME 4100‚LDA�TEMP 4110‚LBSR�PRG 4120‚BRA�SLCOP8 4130�SLCOP3�LDA�#2 4140‚LBSR�ERROR 4150‚BRA�SLCOP 7 4160�SLCOP8�LEAX�1,X 4170‚CMPX�SIZE 4180‚BNE�SLCOP6 4190‚LDA�#$50 4200‚STA�TIME�WAIT�A�SHORT�TIME�AFTER�SLOW�COPY 4210‚LBSR�WAIT�BEFORE�THE�VERIFY 4220‚LBSR�TEST 4230�SLCOP7�LDA�CLEDS 4240‚ORA�#1 4250‚STA�CLEDS 4260‚STA�LEDS 4270‚RTS 4280�AIN�LDX�#BUF 4290‚LBSR�IN 4300‚STA�MSGSZE 4310‚LBSR�IN 4320‚STA�MSGSZE+1 4330‚LDY�MSGSZE 4340‚LEAY�-2,Y 4350�AIN2�LBSR�IN 4360‚CMPX�#BUF+1050 4370‚BEQ�AIN3 4380‚STA�X+ 4390�AIN3�LEAY�-1,Y 4400‚BNE�AIN2 4410‚LDA�#$31 4420‚STA�ACIA 4430‚CMPX�#BUF+1050 4440‚BNE�AIN4 4450‚LDA�#1 4460‚LBSR�AERR 4470‚RTS 4480�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 4490‚CMPB�#6 4500‚BLO�AIN5 4510‚LDA�#2 4520‚LBSR�AERR 4530‚RTS 4540�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4550‚CMPA�#7 4560‚BLO�AIN6 4570‚LDA�#3 4580‚LBSR�AERR 4590‚RTS 4600�AIN6�LDA�BUF+1 4610‚LSLA 4620‚LDX�#AIN11 4630‚JSR�[A,X] 4640‚LDA�BUF 4650‚LSLA 4660‚LDX�#AIN10 4670‚JMP�[A,X] 4680�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4690�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25,SEL512‡ 4700�IN�LDA�INPUT 4710‚BITA�#$08 4720‚BEQ�BREAK 4730‚LDA�ACIA 4740‚BITA�#1 4750‚BEQ�IN 4760‚LDA�ACIA+1 4770‚RTS 4780�* 4790�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 4800�* 4810�AERR�ORA�#$80 4820‚LBSR�OUT 4830‚RTS 4840�OUT�PSHS�A 4850�OUT2�LDA�ACIA 4860‚BITA�#2 4870‚BEQ�OUT2 4880‚PULS�A 4890‚STA�ACIA+1 4900‚RTS 4910�WAIT�PSHS�X,A 4920‚LDA�TIME 4930�WAIT3�LDX�#156 4940�WAIT2�DEX 4950‚BNE�WAIT2 4960‚DECA 4970‚BNE�WAIT3 4980‚PULS�X,A,PC 4990�ARD�LDD�BUF+2 5000‚TST�SIZE 5010‚BEQ�ARD8 5020‚CMPD�SIZE 5030‚BHS�ARD3 5040‚LDD�BUF+2 5050‚ADDD�BUF+4 5060‚CMPD�SIZE 5070‚BHI�ARD4 5080�ARD8�LDY�BUF+4 5090‚LDX�BUF+2 5100‚CLRA 5110‚LBSR�OUT 5120�ARD2�LBSR�READ 5130‚LBSR�OUT 5140‚INX 5150‚LEAY�-1,Y 5160‚BNE�ARD2 5170‚RTS 5180�ARD3�LDA�#5 5190‚LBSR�AERR 5200‚RTS 5210�ARD4�LDA�#4 5220‚LBSR�AERR 5230‚RTS 5240�ATST�LDX�#0 5250�ATST2�LBSR�READ 5260‚INX 5270‚CMPA�#$FF 5280‚BNE�ATST3 5290‚CMPX�SIZE 5300‚BNE�ATST2 5310‚CLRA 5320‚LBSR�OUT 5330‚RTS 5340�ATST3�LDA�#3 5350‚LBSR�OUT 5360‚RTS 5370�AMRD�LDD�BUF+2 5380‚TST�SIZE 5390‚BEQ�AMRD8 5400‚CMPD�SIZE 5410‚BHS�ARD3 5420‚LDD�BUF+2 5430‚ADDD�BUF+4 5440‚CMPD�SIZE 5450‚BHI�ARD4 5460�AMRD8�LDY�BUF+4 5470‚LDX�BUF+2 5480‚CLRA 5490‚LBSR�OUT 5500�AMRD2�LBSR�MREAD 5510‚LBSR�OUT 5520‚INX 5530‚LEAY�-1,Y 5540‚BNE�AMRD2 5550‚RTS 5560�APRG�LDD�BUF+2 5570‚TST�SIZE 5580‚BEQ�APRG10 5590‚CMPD�SIZE 5600‚BHS�ARD3 5610�APRG10�LDD�MSGSZE 5620‚SUBD�#6 5630‚TFR�D,Y 5640‚TST�SIZE 5650‚BEQ�APRG11 5660‚ADDD�BUF+2 5670‚CMPD�SIZE 5680‚BHI�ARD4 5690�APRG11�LDX�BUF+2 5700‚LDU�#BUF+4 5710‚LDA�#1 5720‚LBSR�OUT 5730�APRG6�CLRB 5740�APRG4�LBSR�READ 5750‚CMPA�U 5760‚BEQ�APRG2 5770‚COMA 5780‚ANDA�U 5790‚BNE�APRG3 5800‚LDA�#1 5810‚STA�TIME 5820‚LDA�U 5830‚LBSR�PRG 5840‚INCB 5850‚CMPB�#15 5860‚BNE�APRG4 5870‚LDA�#7 5880‚LBSR�AERR 5890‚RTS 5900�APRG3�LDA�#6 5910‚LBSR�AERR 5920‚RTS 5930�APRG2�TSTB 5940‚BEQ�APRG8 5950‚LSLB 5960‚LSLB 5970‚LDA�TYPE 5980‚CMPA�#4 5990‚BLO�APRG9 6000‚CMPA�#5 6010‚BEQ�APRG9 6020‚LDB�#2 6030�APRG9�STB�TIME 6040‚LDA�U 6050‚LBSR�PRG 6060�APRG8�INX 6070‚LEAU�1,U 6080‚LEAY�-1,Y 6090‚BNE�APRG6 6100‚CLRA 6110‚LBSR�OUT 6120‚RTS 6130�MREAD�PSHS�B,X,Y 6140‚LDA�#$83 6150‚STA�PBITS 6160‚LDA�2,S 6170‚STA�ADR1 6180‚LDB�TYPE 6190‚LSLB 6200‚LDY�#READ2 6210‚LDA�1,S 6220‚JSR�[B,Y] 6230‚EORA�#8 6240‚STA�ADR2 6250‚LDA�MASTER 6260‚LDB�#$87 6270‚STB�PBITS 6280‚PULS�B,X,Y,PC 6290�ERAS�LDA�#$20 6300‚STA�ADR2 6310‚LDB�#$22 6320‚STB� PBITS 6330‚ORA�#$80 6340‚STA�ADR2 6350‚LDB�#100 6360‚STB�TIME 6370�ERAS2�LBSR�WAIT 6380‚ANDA�#$7F 6390‚STA�ADR2 6400‚LBSR�ATST 6410‚RTS 6420�SLPRG�LDD�BUF+2 6430‚TST�SIZE 6440‚BEQ�SLP10 6450‚CMPD�SIZE 6460‚LBHS�ARD3 6470�SLP10�LDD�MSGSZE 6480‚SUBD�#6 6490‚TFR�D,Y 6500‚TST�SIZE 6510‚BEQ�SLP11 6520‚ADDD�BUF+2 6530‚CMPD�SIZE 6540‚BHI�SLPRG4 6550�SLP11�LDX�#ZEITEN 6560‚LDA�TYPE 6570‚LDA�A,X 6580‚STA�TIME 6590‚LDX�BUF+2 6600‚LDU�#BUF+4 6610‚LDA�#1 6620‚LBSR�OUT 6630�SLPRG4�LBSR�READ 6640‚CMPA�U 6650‚BEQ�SLPRG2 6660‚COMA 6670‚ANDA�U 6680‚BNE�SLPRG3 6690‚LDA�U 6700‚LBSR�PRG 6710�SLPRG2�INX 6720‚LEAU�1,U 6730‚LEAY�-1,Y 6740‚BNE�SLPRG4 6750‚BRA�VERIFY 6760�SLPRG3�LDA�#6 6770‚LBSR�AERR 6780‚RTS 6790�ZEITEN�FCB�50,50,50,50,1,50,1‚*MILLISEK. 6800�VERIFY�EQU�* 6810‚LDA�#$50 6820‚STA�TIME�WAIT�A�SHORT�TIME�AFTER�SLOW�COPY 6830‚LBSR�WAIT�BEFORE�THE�VERIFY 6840‚LDD�MSGSZE 6850‚SUBD�#6 6860‚TFR�D,Y 6870‚LDX�BUF+2 6880‚LDU�#BUF+4 6890�VERIF2�LBSR�READ 6900‚CMPA�U 6910‚BNE�VERIF1 6920‚INX 6930‚LEAU�1,U 6940‚LEAY�-1,Y 6950‚BNE�VERIF2 6960‚CLRA 6970‚LBSR�OUT 6980‚RTS 6990�VERIF1�LDA�#7 7000‚LBSR�AERR 7010‚RTS 7020�* 7030‚ORG�$FFEF 7040‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 7050‚FDB�$FFFF,$FFFF,$FFFF 7060‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 7070‚FDB�$FFFF 7080‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 7090‚END 20‚BMI�PROG2 1230‚LBSR�IN 1240‚LBSR�ERROR 1250�PROG2�RTS 1260�MREAD�LDA�#1 1270‚BRA�READ2 1280�READ�LDA�#0 1290�READ2�PSHS�A 1300‚LDX�#T5 1310‚JSR�PRINT 1320‚LDU�#0 1330‚JSR�INHEX4 1340‚TFR�U,Y 1350‚LDX�#T7 1360‚JSR�PRINT 1370‚LDU�#1 1380‚JSR�INHEX4 1390‚JSR�PBUSY 1400‚CLRA 1410‚LBSR�OUT 1420‚LDA�#8 1430‚LBSR�OUT 1440‚PULS�A 1450‚LBSR�OUT 1460‚LDA�TYPE 1470‚LBSR�OUT 1480‚TFR�Y,D 14Œ€€HH†€‹Έ†ÿ·°—— †…·à†·�Þ¶�D$ï 莀¶°Di€Œ€&øŽ€Žøa¦€„�& †·�40­´501"Œ€&æ9øœøÎúŽøqøƒø~ø�ø–9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøÀH®†Ÿ S4–о¤à—·°9 @€Ö +-–„¿·°—Ž=4ª0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†H Ù†A Ò44†ƒ·à¦b·ÀÖ XŽùB¦a­µ·Ð¶°Æ‡÷à5´ùPùUù\ù\ùcùmùh„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°¦c·ÀÖ XŽù©¦b­µ†‡·à5¶ù·ùÑùýùýúúNú3„wŠ ·ÐÆ ÷àŠ€·Ð„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðeˆ€·ÐÆ‚÷àÖÁ%Æ(×N9„ˆŠ@·ÐÆ@÷à„?·Ð7Š@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ðˆ€·Ð9ÿ2Š€·ÐÊ÷àˆ€·Ðˆ€·Ð9ÿ·ÐÆ"÷àî9Žúˆ0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'e–„þ·°—– +NŽ_è—þq‘'!C”&†—–þÎ\Á&æ†ÿ” $†ÿ� ]'XX– �&Æ×–þ§0œ &¸ýß–Š—·°9–„þ·°—– +<Ž„—þ ‘'C”&Žþ?– ¦¦—–þd †ÿ- 0œ &цP— ýŒ–Š—·°9Ž€�— ‹— ž 1>�Œ„-'§€1?&ò†1·�Œ„-&†³9Ö+Å@' Å ' ÄŸÁ%†“9–�%†‡9 ' '†y9HŽûÔ­––„HŽûÈn–üZü¾üúü¢ýÕý¶ø~øƒø�ø–øœøxør¶°…'&¶�…'í¶�˜—¶�95�¶�…'¶�…'  ñ9L9†·�†·�9†(—9Š€=94¶�…'ù5·�˜—94–Žœ0&üJ&ö5’Ü '“ $1Ó$&1 & ž%& “ "žžOÿ±ü•ÿ«01?&ôÞ9†ÿ“9†ÿ�9Žüv0�ÿ& œ &óOÿ�º9† õÜ '“ $ÍÓ$&Í & ž¬% “ "»žžOÿM£ÿG01?&ôz9Ü '“ $‘Ü ƒÓ$&Š & 0¤i%ÿ} “ "ÿtž΀ &†ÿ:_ûá¡Ä'C¤Ä&†—¦Äü>\Á&æ†þÕ9†þÏ9]'XX– �&Æ×¦Äü03A1?&½Oþ· ð9&ž&þ9944†ƒ·à¦b·ÀÖ XŽùB¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þ~„·ÐþÎ9Ü '“ $þ´Ü ƒÓ$&þ« & 0¤ÿŠ%þž “ "þ•Žþ?– ¦†—ž΀ &†þúý¡Ä' C¤Ä&¦Äû^03A1?&ç †ýð922222†P—ýýÜ ƒž΀ú¡Ä& 03A1?&ñOýË9†ý¼9– 'ý»9;ÿÿÿÿÿÿÿïÿïÿÿÿïø�OUT 3020�DUMP3�LDA�U+ 3030‚LBSR�OUT 3040‚LEAY�-1,Y 3050‚BNE�DUMP3 3060‚LBSR�IN 3070‚TSTA 3080‚BMI�DUMP5 3090‚LBSR�IN 3100‚TSTA 3110‚BMI�DUMP6 3120‚LDD�2,S 3130‚ADDD�#$400 3140‚STD�2,S 3150‚LDD�S 3160‚SUBD�#$400 3170‚STD�S 3180‚BPL�DUMP2 3190�DUMP4�LEAS�4,S 3200‚RTS 3210�DUMP6�EQU�* 3220�DUMP5�LBSR�ERROR 3230‚LEAS�4,S 3240‚RTS 3250�T2�FCB�$D,$A 3260‚FCC�"Select�type�0=2716" 3270‚FC\‘€^0010�*6809 0020�*PRINTER 0030‚OPT�LLEN=120 0040�*LIST 0050�*************************************** 0060�*¥* 0070�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0080�*¢**�* 0090�*‰V24-VERSION‘* 0100�*¥* 0110�*‚WRITTEN�BY�HENK�AERTSŽ* 0120�*¥* 0130�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0140�*†1984�MINDEN/WESTF.�* 0150�*************************************** 0160�* 0170�* 0180�* 0190�*************************************** 0200�*¥* 0210�*‚EXTENSIONS�FOR�4-GANG�UNIT‰* 0220�*¥* 0230�*‚BY�GUUS�VAN�DER�BURGTŽ* 0240�*¥* 0250�*************************************** 0260�RAM�EQU�$8000 0270�ROM�EQU�$F800 0280�MASTER�EQU�0 0290�ACIA�EQU�$9000 0300�INPUT�EQU�$B001 0310�LEDS�EQU�$B001 0320�PBITS�EQU�$E000 0330�ADR1�EQU�$C000 0340�ADR2�EQU�$D000 0350�IO�EQU�$B000 0360�GANGCE�EQU�$A000 0370�* 0380‚ORG�RAM 0390‚SETDP�$80 0400�* 0410�KEYS�RMB�8 0420�CLEDS�RMB�1 0430�TYPE�RMB�1 0440�SIZE�RMB�2 0450�MSGSZE�RMB�2 0460�TIME�RMB�1 0470�TEMP�RMB�1 0480�GANG�RMB�1‚************************ 0490�MSK1�RMB�1‚************************ 0500�MSK2�RMB�1‚************************ 0510�BUF�RMB�1050 0520‚ORG�ROM 0530�*OFFSET�$7300 0540�START�LDA�#$80 0550‚TFR�A,DP 0560‚LDA�#3 0570‚STA�ACIA 0580‚LDA�#$11 0590‚STA�ACIA 0600‚LDS�#RAM+$800 0610‚LDA�#$FF 0620‚STA�LEDS 0630‚STA�GANGCE‚********�SWITCH�OF�LEDS�********** 0640‚CLR�GANG‚************************** 0650‚STA�CLEDS 0660‚STA�TYPE 0670‚LDA�#$85 0680‚STA�PBITS 0690�LOOP�LBSR�KEYIN 0700‚CLR�MSK1 0710‚LDA�#$0F 0720‚STA�MSK2‚ONLY�4�SOCKETS�CLEARED 0730‚LDA�#$11 0740‚STA�ACIA 0750‚LDA�ACIA 0760‚LSRA 0770‚BCC�LOOP 0780‚BITA�#8 0790‚BNE�LOOP1 0800‚LBSR�AIN 0810‚BRA�LOOP 0820�LOOP1�LDA�ACIA+1 0830‚BRA�LOOP 0840�KEYIN�LDX�#KEYS 0850‚LDA�INPUT 0860�KEYIN2�LSRA 0870‚ROL�X+ 0880‚CMPX�#KEYS+8 0890‚BNE�KEYIN2 0900‚LDX�#KEYS 0910‚LDY�#KEYIN3 0920�KEYIN5�LDA�X+ 0930‚ANDA�#3 0940‚CMPA�#2 0950‚BNE�KEYIN4 0960‚LDA�#31 0970‚STA�ACIA 0980‚PSHS�X,Y 0990‚JSR�[Y] 1000‚PULS�X,Y 1010�KEYIN4�LEAY�2,Y 1020‚CMPX�#KEYS+8 1030‚BNE�KEYIN5 1040‚RTS 1050�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1060�RESERV�RTS 1070�* 1080�SEL512�LDA�#6 1090‚LDB�#$82 1100‚BRA�SEL 1110�SEL25�LDA�#5 1120‚LDB�#0 1130‚BRA�SEL 1140�SEL16�CLRA 1150‚LDB�#4 1160‚BRA�SEL 1170�SEL32� LDA�INPUT 1180‚BITA�#8 1190‚BEQ�SEL25 1200‚LDA�#1 1210‚LDB�#8 1220‚BRA�SEL 1230�SEL64�LDA�#2 1240‚LDB�#$20 1250‚BRA�SEL 1260�SEL128�LDA�#3 1270‚LDB�#$10 1280‚BRA�SEL 1290�SEL256�LDA�INPUT 1300‚BITA�#8 1310‚BEQ�SEL512 1320‚LDA�#4 1330‚LDB�#$80 1340�SEL�STA�TYPE 1350‚LDX�#SIZES 1360‚LSLA 1370‚LDX�A,X 1380‚STX�SIZE 1390‚COMB 1400‚PSHS�B 1410‚LDA�CLEDS 1420‚ORA�#$BE 1430‚ANDA�S+ 1440‚STA�CLEDS 1450‚STA�LEDS 1460‚RTS 1470�SIZES�FDB�2048,4096,8192,16384,32768,4096,0‚0�FOR�27512�!!! 1480�* 1490�TEST�LDA�INPUT 1500‚BITA�#8 1510‚BEQ�GANGSL‚*******�SET�GANG�IF�ERROR�KEY�PRESSED�** 1520‚LDB�TYPE 1530‚BMI�TEST4 1540‚LDA�CLEDS 1550‚ANDA�#$BF 1560‚STA�LEDS 1570‚STA�CLEDS 1580‚LDX�#0 1590�TEST3�LBSR�MREAD 1600‚STA�TEMP 1610‚LBSR�READ 1620‚TST�GANG 1630‚BEQ�NOGNG 1640‚LDB�#14 1650‚LBSR�GANGRD 1660‚BRA�TEST9 1670�NOGNG�CMPA�TEMP 1680‚BNE�TEST2 1690�TEST9�LEAX�1,X 1700‚CMPX�SIZE 1710‚BNE�TEST3 1720�TEST7�LDX�#0 1730‚LBSR�READ 1740‚LDA�CLEDS 1750‚ORA�#$40 1760‚STA�LEDS 1770‚STA�CLEDS 1780‚TST�GANG 1790‚BEQ�TEST4 1800‚LDA�MSK2 1810‚LSRA 1820‚LSRA 1830‚LSRA 1840‚LSRA 1850‚ORA�#$F0 1860‚STA�GANGCE 1870�TEST4�RTS 1880�TEST2�LDX�#0 1890�TEST6�LBSR�READ 1900‚INX 1910‚CMPA�#$FF 1920‚BNE�TEST5 1930‚CMPX�SIZE 1940‚BNE�TEST6 1950‚LDA�#4 1960‚LBSR�ERROR 1970‚BRA�TEST7 1980�TEST5�LDA�#3 1990‚LBSR�ERROR 2000‚BRA�TEST7 2010�* 2020�GANGSL�LDA�#1 2030‚STA�GANG 2040‚RTS 2050�* 2060�READ�PSHS�B,X,Y 2070‚LDA�#$83 2080‚STA�PBITS 2090‚LDA�2,S 2100‚STA�ADR1 2110‚LDB�TYPE 2120‚LSLB 2130‚LDY�#READ2 2140‚LDA�1,S 2150‚JSR�[B,Y] 2160‚STA�ADR2 2170‚LDA�IO 2180‚PSHS�A 2190‚LDA�TYPE 2200‚CMPA�#6 2210‚BEQ�READ1 2220‚CLRB 2230�READ1�ORB�#$87 2240‚PULS�A 2250‚STB�PBITS 2260‚PULS�B,X,Y,PC 2270�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25,RD512 2280�RD16�ANDA�#$77 2290‚ORA�#$20 2300‚RTS 2310�RD32�ANDA�#$7F 2320‚EORA�#8 2330‚ORA�#$20 2340‚RTS 2350�RD64�ANDA�#$7F 2360‚EORA�#8 2370‚ORA�#$40 2380‚RTS 2390�RD128�EQU�RD64 2400�RD256�ANDA�#$7F 2410‚EORA�#8 2420‚RTS 2430�RD512�LBSR�A15I 2440‚BRA�RD256 2450�RD25�ANDA�#$7F 2460‚ORA�#$20 2470‚BITA�#8 2480‚BEQ�RD25A 2490‚ORA�#$80 2500�RD25A�ANDA�#$F7 2510‚RTS 2520�A15I�PSHS�A 2530‚ANDA�#$80 2540‚EORA�#$80 2550‚LSRA 2560‚LSRA 2570‚LSRA 2580‚TFR�A,B 2590‚ORA�#$83 2600‚STA�PBITS 2610‚PULS�A 2620‚RTS 2630�* 2640�PRG�PSHS�D,X,Y 2650‚STA�IO 2660‚LDA�#$85‚OE�HIGH 2670‚STA�PBITS 2680‚LDA�#$0F 2690‚STA�GANGCE 2700‚LDA�3,S 2710‚STA�ADR1�*A0-A7 2720‚LDB�TYPE 2730‚LSLB 2740‚LDY�#PRG2 2750‚LDA�2,S‚*A8-A15 2760‚JSR�[B,Y] 2770‚LDA�#$85‚OE�HIGH 2780‚STA�PBITS 2790‚LDA�#$FF 2800‚STA�GANGCE‚ALL�CE�HIGH 2810‚LDA�#$87 2820‚STA�PBITS 2830‚PULS�D,X,Y,PC 2840�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25,WR512 2850�WR16�ANDA�#$77 2860‚ORA�#$20 2870‚STA�ADR2 2880‚LDB�#$20 2890‚STB�PBITS 2900‚ORA�#$80 2910‚STA�ADR2 2920‚LBSR�WAIT 2930‚ANDA�#$7F 2940‚STA�ADR2 2950‚RTS 2960�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2970‚EORA�#$8 2980‚STA�ADR2 2990‚LDB�#8 3000‚STB�PBITS 3010‚EORA�#$80 3020‚STA�ADR2�CS�LOW 3030‚LBSR�WAIT 3040‚EORA�#$80 3050‚STA�ADR2�CS�HIGH 3060‚LDB�#$82 3070‚STB�PBITS 3080‚LDB�TIME 3090‚CMPB�#20 3100‚BLO�WR32A 3110‚LDB�#40 3120‚STB�TIME 3130‚LBSR�WAIT 3140�WR32A�RTS 3150�WR64�ANDA�#$7F 3160‚EORA�#8 3170‚ORA�#$40 3180‚STA�ADR2 3190‚LDB�#$40 3200‚STB�PBITS 3210‚ANDA�#$3F 3220‚STA�ADR2 3230‚LBSR�WAIT 3240‚ORA�#$40 3250‚STA�ADR2 3260‚RTS 3270�WR128�EQU�WR64 3280�WR256�ORA�#$80 3290‚EORA�#8 3300‚STA�ADR2 3310 ‚LDB�#$40 3320‚STB�PBITS 3330‚EORA�#$80 3340‚STA�ADR2 3350‚LBSR�WAIT 3360‚EORA�#$80 3370‚STA�ADR2 3380‚RTS 3390�WR512�LBSR�RD512 3400‚ORA�#$80 3410‚STA�ADR2 3420‚ORB�#8 3430‚STB�PBITS 3440‚EORA�#$80 3450‚STA�ADR2 3460‚LBSR�WAIT 3470‚EORA�#$80 3480‚STA�ADR2 3490‚RTS 3500�WR25�LBSR�RD25 3510‚STA�ADR2 3520‚LDB�#$22 3530‚STB�PBITS 3540‚LBSR�WAIT 3550‚RTS 3560�ERROR�LDX�#ERROR5 3570‚LEAX�A,X 3580‚LDA�CLEDS 3590‚ORA�#$BC 3600‚ANDA�X 3610‚LDX�#0 3620�ERROR4�CMPX�#$8000 3630‚BHS�ERROR2 3640‚ANDA�#$FD 3650‚BRA�ERROR3 3660�ERROR2�ORA�#2 3670�ERROR3�STA�LEDS 3680‚LEAX�8,X 3690‚LDB�INPUT 3700‚BITB�#8 3710‚BNE�ERROR4 3720‚LDA�CLEDS 3730‚STA�LEDS 3740‚RTS 3750�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 3760�* 3770�COPY�LDA�X 3780‚BITA�#1 3790‚LBEQ�SLCOPY 3800‚LDA�CLEDS 3810‚ANDA�#$FE 3820‚STA�LEDS 3830‚STA�CLEDS 3840‚LDA�TYPE 3850‚BMI�COPY7 3860‚LDX�#0 3870�COPY6�CLRB 3880‚LBSR�MREAD 3890‚STA�TEMP 3900�COPY4�LBSR�READ 3910‚TST�GANG‚************ 3920‚BEQ�NOGANG 3930‚LBSR�GANGRD 3940‚LDA�MSK2 3950‚CMPA�#$FF 3960‚BEQ�COPYTS 3970‚LDA�MSK1 3980‚BEQ�COPY5 3990‚BRA�COPY2 4000�NOGANG�CMPA�TEMP 4010‚BEQ�COPY5 4020‚COMA 4030‚ANDA�TEMP 4040‚BNE�COPY3 4050�COPY2�LDA�#1…EINE�MILLISEKUNDE 4060‚STA�TIME 4070‚LDA�TEMP 4080‚LBSR�PRG 4090‚INCB 4100‚CMPB�#15 4110‚BNE�COPY4 4120‚LDA�#1 4130‚LBSR�ERROR 4140‚BRA�COPY7 4150�COPY3�LDA�#2 4160‚LBSR�ERROR 4170‚BRA�COPY7 4180�COPY5�TSTB 4190‚BEQ�COPY8 4200‚LSLB 4210‚LSLB 4220‚LDA�TYPE 4230‚BLO�COPY22 4240‚CMPA�#5 4250‚BEQ�COPY22 4260‚LDB�#2 4270�COPY22�STB�TIME 4280‚LDA�TEMP 4290‚LBSR�PRG 4300�COPY8�INX 4310‚CMPX�SIZE 4320‚BNE�COPY6 4330�COPYTS�LBSR�TEST 4340�COPY7�LDA�CLEDS 4350‚ORA�#1 4360‚STA�CLEDS 4370‚STA�LEDS 4380‚RTS 4390�* 4400�GANGRD�LDA�TEMP 4410‚PSHS�D 4420‚CLR�MSK1 4430‚LDB�#$10 4440�NXTRD�BITB�MSK2 4450‚BNE�SKIPRD 4460‚COMB 4470‚STB�GANGCE 4480‚COMB 4490‚LDA�IO 4500‚CMPA�S 4510‚BEQ�SKIPRD 4520‚TFR�B,A 4530‚ORA�MSK1 4540‚STA�MSK1 4550�SKIPRD�LSLB 4560‚BNE�NXTRD 4570‚LDA�#$87 4580‚STA�PBITS 4590‚PULS�D 4600‚CMPB�#14 4610‚BNE�GANGEX 4620‚LDA�MSK2 4630‚ORA�MSK1 4640‚STA�MSK2 4650‚CLR�MSK1 4660�GANGEX�RTS 4670�* 4680�SLCOPY�LDA�CLEDS 4690‚ANDA�#$FE 4700‚STA�LEDS 4710‚STA�CLEDS 4720‚LDA�TYPE 4730‚BMI�SLCOP7 4740‚LDX�#0 4750�SLCOP6�LBSR�MREAD 4760‚STA�TEMP 4770‚LBSR�READ 4780‚CMPA�TEMP 4790‚BEQ�SLCOP8 4800‚COMA 4810‚ANDA�TEMP 4820‚BNE�SLCOP3 4830‚LDY�#ZEITEN 4840‚LDA�TYPE 4850‚LDA�A,Y 4860‚STA�TIME 4870‚LDA�TEMP 4880‚LBSR�PRG 4890‚BRA�SLCOP8 4900�SLCOP3�LDA�#2 4910‚LBSR�ERROR 4920‚BRA�SLCOP7 4930�SLCOP8�LEAX�1,X 4940‚CMPX�SIZE 4950‚BNE�SLCOP6 4960‚LBSR�TEST 4970�SLCOP7�LDA�CLEDS 4980‚ORA�#1 4990‚STA�CLEDS 5000‚STA�LEDS 5010‚RTS 5020�AIN�LDX�#BUF 5030‚LBSR�IN 5040‚STA�MSGSZE 5050‚LBSR�IN 5060‚STA�MSGSZE+1 5070‚LDY�MSGSZE 5080‚LEAY�-2,Y 5090�AIN2�LBSR�IN 5100‚CMPX�#BUF+1050 5110‚BEQ�AIN3 5120‚STA�X+ 5130�AIN3�LEAY�-1,Y 5140‚BNE�AIN2 5150‚LDA�#$31 5160‚STA�ACIA 5170‚CMPX�#BUF+1050 5180‚BNE�AIN4 5190‚LDA�#1 5200‚LBSR�AERR 5210‚RTS 5220�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 5230‚CMPB�#6 5240‚BLO�AIN5 5250‚LDA�#2 5260‚LBSR�AERR 5270‚RTS 5280�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 5290‚CMPA�#7 5300‚BLO�AIN6 5310‚LDA�#3 5320‚LBSR�AERR 5330‚RTS 5340�AIN6�LDA�BUF+1 5350‚LSLA 5360‚LDX�#AIN11 5370‚JSR�[A,X] 5380‚LDA�BUF 5390‚LSLA 5400‚LDX�#AIN10 5410‚JMP�[A,X] 5420�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 5430�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 5440�IN�LDA�INPUT 5 450‚BITA�#$08 5460‚BEQ�BREAK 5470‚LDA�ACIA 5480‚BITA�#1 5490‚BEQ�IN 5500‚LDA�ACIA+1 5510‚RTS 5520�AERR�ORA�#$80 5530‚LBSR�OUT 5540‚RTS 5550�* 5560�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 5570�OUT�PSHS�A 5580�OUT2�LDA�ACIA 5590‚BITA�#2 5600‚BEQ�OUT2 5610‚PULS�A 5620‚STA�ACIA+1 5630‚RTS 5640�WAIT�PSHS�X,A 5650‚LDA�TIME 5660�WAIT3�LDX�#156 5670�WAIT2�DEX 5680‚BNE�WAIT2 5690‚DECA 5700‚BNE�WAIT3 5710‚PULS�X,A,PC 5720�ARD�LDD�BUF+2 5730‚CMPD�SIZE 5740‚BHS�ARD3 5750‚LDD�BUF+2 5760‚ADDD�BUF+4 5770‚CMPD�SIZE 5780‚BHI�ARD4 5790‚LDY�BUF+4 5800‚LDX�BUF+2 5810‚CLRA 5820‚LBSR�OUT 5830�ARD2�LBSR�READ 5840‚LBSR�OUT 5850‚INX 5860‚LEAY�-1,Y 5870‚BNE�ARD2 5880‚RTS 5890�ARD3�LDA�#5 5900‚LBSR�AERR 5910‚RTS 5920�ARD4�LDA�#4 5930‚LBSR�AERR 5940‚RTS 5950�ATST�LDX�#0 5960�ATST2�LBSR�READ 5970‚INX 5980‚CMPA�#$FF 5990‚BNE�ATST3 6000‚CMPX�SIZE 6010‚BNE�ATST2 6020‚CLRA 6030‚LBSR�OUT 6040‚RTS 6050�ATST3�LDA�#3 6060‚LBSR�OUT 6070‚RTS 6080�AMRD�LDD�BUF+2 6090‚CMPD�SIZE 6100‚BHS�ARD3 6110‚LDD�BUF+2 6120‚ADDD�BUF+4 6130‚CMPD�SIZE 6140‚BHI�ARD4 6150‚LDY�BUF+4 6160‚LDX�BUF+2 6170‚CLRA 6180‚LBSR�OUT 6190�AMRD2�LBSR�MREAD 6200‚LBSR�OUT 6210‚INX 6220‚LEAY�-1,Y 6230‚BNE�AMRD2 6240‚RTS 6250�APRG�LDD�BUF+2 6260‚CMPD�SIZE 6270‚BHS�ARD3 6280‚LDD�MSGSZE 6290‚SUBD�#6 6300‚TFR�D,Y 6310‚ADDD�BUF+2 6320‚CMPD�SIZE 6330‚BHI�ARD4 6340‚LDX�BUF+2 6350‚LDU�#BUF+4 6360‚LDA�#1 6370‚LBSR�OUT 6380�APRG6�CLRB 6390�APRG4�LBSR�READ 6400‚CMPA�U 6410‚BEQ�APRG2 6420‚COMA 6430‚ANDA�U 6440‚BNE�APRG3 6450‚LDA�#1 6460‚STA�TIME 6470‚LDA�U 6480‚LBSR�PRG 6490‚INCB 6500‚CMPB�#15 6510‚BNE�APRG4 6520‚LDA�#7 6530‚LBSR�AERR 6540‚RTS 6550�APRG3�LDA�#6 6560‚LBSR�AERR 6570‚RTS 6580�APRG2�TSTB 6590‚BEQ�APRG8 6600‚LSLB 6610‚LSLB 6620‚LDA�TYPE 6630‚CMPA�#4 6640‚BNE�APRG9 6650‚LDB�#2 6660�APRG9�STB�TIME 6670‚LDA�U 6680‚LBSR�PRG 6690�APRG8�INX 6700‚LEAU�1,U 6710‚LEAY�-1,Y 6720‚BNE�APRG6 6730‚CLRA 6740‚LBSR�OUT 6750‚RTS 6760�MREAD�PSHS�B,X,Y 6770‚LDA�#$83 6780‚STA�PBITS 6790‚LDA�2,S 6800‚STA�ADR1 6810‚LDB�TYPE 6820‚LSLB 6830‚LDY�#READ2 6840‚LDA�1,S 6850‚JSR�[B,Y] 6860‚EORA�#8 6870‚STA�ADR2 6880‚LDA�MASTER 6890‚LDB�#$87 6900‚STB�PBITS 6910‚PULS�B,X,Y,PC 6920�ERAS�LDA�#$20 6930‚STA�ADR2 6940‚LDB�#$22 6950‚STB�PBITS 6960‚ORA�#$80 6970‚STA�ADR2 6980‚LDB�#100 6990‚STB�TIME 7000�ERAS2�LBSR�WAIT 7010‚ANDA�#$7F 7020‚STA�ADR2 7030‚LBSR�ATST 7040‚RTS 7050�SLPRG�LDD�BUF+2 7060‚CMPD�SIZE 7070‚LBHS�ARD3 7080‚LDD�MSGSZE 7090‚SUBD�#6 7100‚TFR�D,Y 7110‚ADDD�BUF+2 7120‚CMPD�SIZE 7130‚BHI�SLPRG4 7140‚LDX�#ZEITEN 7150‚LDA�TYPE 7160‚LDA�A,X 7170‚STA�TIME 7180‚LDX�BUF+2 7190‚LDU�#BUF+4 7200‚LDA�#1 7210‚LBSR�OUT 7220�SLPRG4�LBSR�READ 7230‚CMPA�U 7240‚BEQ�SLPRG2 7250‚COMA 7260‚ANDA�U 7270‚BNE�SLPRG3 7280‚LDA�U 7290‚LBSR�PRG 7300�SLPRG2�INX 7310‚LEAU�1,U 7320‚LEAY�-1,Y 7330‚BNE�SLPRG4 7340‚BRA�VERIFY 7350�SLPRG3�LDA�#6 7360‚LBSR�AERR 7370‚RTS 7380�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 7390�VERIFY�EQU�* 7400‚LDD�MSGSZE 7410‚SUBD�#6 7420‚TFR�D,Y 7430‚LDX�BUF+2 7440‚LDU�#BUF+4 7450�VERIF2�LBSR�READ 7460‚CMPA�U 7470‚BNE�VERIF1 7480‚INX 7490‚LEAU�1,U 7500‚LEAY�-1,Y 7510‚BNE�VERIF2 7520‚CLRA 7530‚LBSR�OUT 7540‚RTS 7550�VERIF1�LDA�#7 7560‚LBSR�AERR 7570‚RTS 7580�* 7590‚ORG�$FFEF 7600‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 7610‚FDB�$FFFF,$FFFF,$FFFF 7620‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 7630‚FDB�$FFFF 7640‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 7650‚END  0�OUTH2S�STD�PTR 4480‚PSHS�X 4490‚LDX�#PTR 4500‚JSR�$F01E 4510‚PULS�X 4520‚RTS 4530�* 4540�INHEX4�NOP 4550‚PSHS�X 4560‚LDX�#PTR 4570�AGAIN�JSR�$F00F 4580‚BCC�AGAIN 4590‚LDU�X 4600‚PULS�X 4610‚RTS 4620�* 4630�PBUSY�NOP 4640‚PSHS�A,X 4650‚LDX�#T20 4660‚JSR�PRINT 4670‚PULS�A,X 4680‚RTS 4690�* 4700�CHECK�CLRA 4710‚LBSR�OUT 4720‚LDA�#4 4730‚LBSR�OUT 4740‚LDA�#$FF 4750‚LBSR�OUT 4760‚LBSR�OUT 4770‚JSR�DELAY 4780‚LDA�ACIA 4790‚RORA 4800‚BCC�ERPR1 4810‚LBSR�IN 4820‚CMPA�#$82 4830‚BNE�ERPR2 4840‚ANDCC�#$FE 4850‚RTS 4860�* 4870�DELAY�LDX�#$FFF 4880�DEL�LEAX�-1,X 4890‚BNE�DEL 4900‚RTS 4910�* 4920�ERPR1�LDX�#T21 4930�PR�JSR�PRINT 4940‚ORCC�#$01ƒSET�CARRY 4950‚RTS 4960�ERPR2�LDX�#T22 4970‚BRA�PR 4980�* 4990�TYPE�RMB�1 5000�PTR�RMB�2 5010�BUF�RMB�1050 5020‚END M:",4 2920�T6�FCC�$D,$A,"Data:",4 2930�T7�FCC�$D,$A,"Number�of�bytes:",4 2940�T9�FCC�$D,$A,"Memory�address:",4 2950�T12�FCC�$D,$A,"Data�should�be:",4 2960�T13�FCC�"was:",4 2970�T14�FCC�"at�address�",4 2980�T15�FCC�$D,$A,"Data�equal",4 2990�IN�LDA�ACIA 3000 «€000†·ì°†·ì°†ÿ·7.Ž0i½6¬Ž4ã½6¬¶üõ¶üõ½6°Ž0N�E'!¡„' 0Œ0i&ñ ×¶ì±¶ì±4½6ô5%έ˜ É?T1òS2R2zM2vP2'E0LL3D3ÑV3 Invalid command, select: T TO PERFORM A BLANK CHECK S to select a EPROM type R to read the copy EPROM M to read the master EPROM P to programm the copy EPROM E to exit the programm L to load the copy EPROM contents to memory D to dump memory contents into the EPROM V TO VERIFY COPY EPROM CONTENTS WITH MEMORY½6èOņÀ†»¶7.µ§¾9Ž4Y½6¬½6°�0%ó�5"ï„·7.9Ž4õ½6¬½6Ø2Ž5 ½6¬½6ؽ6èO|†w†r¶7.l g‰b0˜[M4b¦à+AX9† †4Ž4õ½6¬Î½6Ø2Ž5½6¬Î½6ؽ6èO†5¶7.  ‰0‰ûíM*924 Ž71ܧ€1?&÷5 Ž71Æ40½6´½6ʦ€½6¼3A1?'jä&ñ2a á5„† O4Ž4õ½6¬Î½6Ø2Ž5½6¬Î½6Ø4@Ž5'½6¬Î½6Ø15@½6èO�†|†w¶7.q l‰g0b‰]OM*c2a92Î71¦à& :§€1?&÷90¡€'ƒ;1'¯Á§À¦§À1?&çƒ71'+Ž59½6¬¦Â½6¼Ž5K½6¬¦Â½6¼Ž5P½6¬ìý6ʃ71&Ö9Ž5\½6¬9Ž4õ½6¬Î½6Ø4@Ž5½6¬Î½6Ø4@Ž5'½6¬Î½6ؽ6èìä'Pƒ#Ì퉨†£¶7.�¦b˜¦c“¦ÀŽ1?&÷|M+vM+ìbÃíbìäƒíä*¬2d9w2d9 Select type 0=2716 1=2732 2=2764 3=27128 4=27256 5=2532 your choice ? Enter command : Start address EPROM: Data: Number of bytes: Memory address: Data should be:was:at address  Data equal BUSY.....WAIT NO RESPONSE MICRO-PROM RESPONSE $82 EXPECTED BY CHECK¶ì°…'ù¶ì±94¶ì°…'ù5·ì±94Ž5û¡€'Œ6¬&÷Ž5ã½6¬5– Unknown error½6´½6¬5–ProgrammingEPROM not blank�Too mutch data‚INVALID COMMANDƒEPROM TYPE WRONG„Data doesn't fit…Start address outside EPROM space†EPROM not empty‡EPROM will not proramm½ð'9½ð94½ð!59·7/4Ž7/½ð59ý7/4Ž7/½ð594Ž7/½ð$ûî„594Ž5i½6¬59OþƆþÁ†ÿþ¼þ¹½7¶ì°F$þ¢�‚&þ9Žÿ0&ü9Ž5y½6¬9Ž5’ õ¯€€øø†€‹†·�†·�Έ†ÿ·°—— †…·àŽ€o€Œ€&ù†·�¶�D$ò…&] é¶� 䎀¶°Di€Œ€&øŽ€Žøv¦€„�& †·�40­´501"Œ€&æ9ø«øÔú9ø†ø’ ø�øŸø¥9†Æ "OÆ ¶°…'î†Æ †Æ †Æ †Æ€— ŽøÈH®†Ÿ S4–м¤à—·°9 @€Ö +-–„¿·°—Ž=4(0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†í Ù†æ Ò44†ƒ·à¦b·ÀÖ XŽùH¦a­µ·Ð¶°Æ‡÷à5´ùTùYù`ù`ùgùl„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9„Š …'Š€„÷946·°¦c·ÀÖ XŽù•¦b­µ†‡·à5¶ù¡ù»ùÍùÍùéùù„wŠ ·ÐÆ ÷àŠ€·Ðw„·Ð9„ˆŠ ·ÐÆ÷à`9„ˆŠ@·ÐÆ@÷à„?·ÐIŠ@·Ð9„ˆ·ÐÆ@÷à49ÿp·ÐÆ"÷à%9Žú30†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ–„þ·°—– +LŽ_Ç—þÒ‘'!C”&†—–ÿ\Á&á†ÿš "†ÿ“ ]'XX×– �'–þð0œ &ºþB–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†L9ÖÁ%†@9–�%†49–HŽû­––HŽúôn–û<û‰û¯ûnüYü:ø�ø’øŸø¥ø«ø‡¶�…'ù¶�9Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈýÌÿÂ01?&ô9†ÿ°9†ÿª9Žý°0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{oÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_ýR¡Ä'C¤Ä&†—¦Äý•\Á&æ†ÿ)9†ÿ#9]'XX×– �'¦¤ýr03A1?&¿Oÿ 944†ƒ·à¦b·ÀÖ XŽùH¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÜ„·Ðÿ9Ü“ $ÿÜ ƒÓ“ "Žü´– ¦†—ž΀†þšüž¡Ä'C¤Ä&¦Äüåü�¡Ä' †þw9†þq903A1?&ÔOþj922222ø!!test3 call read !! pshs a !! call mread !! leax 1,x !! cmpa s+ !! bne test2 !! cmpx size !! bne test3 !!test7 ldx #0 !! call read !! lda cleds !! ora #$40 !! sta leds !! sta cleds !!test4 rts !!test2 ldx #0 !!test6 call read !! inx !! cmpa #$ff !! bne test5 !! cmpx size !! bne test6 !! lda #4 !! call error !! bra test7 !!test5 lda #3 !! call error !! bra test7 !!read pshs b,x,y !´€€HH†€‹†·�†·�Έ†ÿ·°—— †…·àŽ€o€Œ€&ù†·�¶�D$ò…&¸ é¶� 䎀¶°Di€Œ€&øŽ€Žøv¦€„�& †·�40­´501"Œ€&æ9ø«øÔúAø†ø’ø�øŸø¥9†Æ "OÆ ¶°…'î†Æ †Æ †Æ †Æ€— ŽøÈH®†Ÿ S4–м¤à—·°9 @€Ö +-–„¿·°—Ž=4ƒ0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†õ Ù†î Ò44†ƒ·à¦b·ÀÖ XŽùH¦a­µ·Ð¶°Æ‡÷à5´ùTùYù`ù`ùgùl„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9„Š …'Š€„÷946·°¦c·ÀÖ XŽù•¦b­µ†‡·à5¶ù¡ù»ùÕùÕùñú„wŠ ·ÐÆ ÷àŠ€·ÐÒ„·Ð9„Š ·ÐÆ÷àˆ·Ð¸ˆ·Ð9„ˆŠ@·ÐÆ@÷à„?·ÐœŠ@·Ð9„ˆ·ÐÆ@÷à‡9ÿh·ÐÆ"÷àx9Žú;0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'c–„þ·°—– +LŽ_—þÄ‘'!C”&†—–ÿ\Á&á†ÿ” "†ÿ� ]'XX×– �'–þâ0œ &ºþ4–Š—·°9–„þ·°—– +6Ž_±—þa‘'C”&Žüÿ– ¦¦—–þž †ÿ. 0œ &Ðýç–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†L9ÖÁ%†@9–�%†49–HŽû[­––HŽûOn–û—ûäü ûÉü´ü•ø�ø’øŸø¥ø«ø‡¶�…'ù¶�9Š€94¶�…' ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈýqÿÂ01?&ô9†ÿ°9†ÿª9ŽýU0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{oÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_ü÷¡Ä'C¤Ä&†—¦Äý:\Á&æ†ÿ)9†ÿ#9]'XX×– �'¦¤ý03A1?&¿Oÿ 944†ƒ·à¦b·ÀÖ XŽùH¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÜ„·Ðÿ9Ü“ $ÿÜ ƒÓ“ "Žüÿ– ¦†—ž΀†þšüC¡Ä' C¤Ä&¦ÄüŠ03A1?&ç †þt922222Ü ƒž΀ü¡Ä& 03A1?&ñOþT9†þH9ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿø !! sta msgsze !! call in !! sta msgsze+1 !! ldy msgsze !! leay -2,y !!ain2 call in !! cmpx #buf+1050 !! beq ain3 !! sta x+ !!ain3 leay -1,y !! bne ain2 !! lda #$31 !! sta acia !! cmpx #buf+1050 !! bne ain4 !! lda #1 !! call aerr !! rts !!ain4 ldb buf *hier steht der befehl !! cmpb #6 !! blo ain5 !! lda #2 !! call aerr !! rts !!ain5 lda buf+1 *hier steht der typ !! cmpa #7 !! blo¹€€HH†€‹†·�†·�Έ†ÿ·°—— †…·àŽ€o€Œ€&ù†·�¶�D$ò…&Ê é¶� 䎀¶°Di€Œ€&øŽ€Žøv¦€„�& †·�40­´501"Œ€&æ9ø«øÔúSø†ø’ø�øŸø¥9†Æ "OÆ ¶°…'î†Æ †Æ †Æ †Æ€— ŽøÈH®†Ÿ S4–м¤à—·°9 @€Ö +-–„¿·°—Ž=4•0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó† Ù† Ò44†ƒ·à¦b·ÀÖ XŽùH¦a­µ·Ð¶°Æ‡÷à5´ùTùYù`ù`ùgùl„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9„Š …'Š€„÷946·°¦c·ÀÖ XŽù•¦b­µ†‡·à5¶ù¡ù»ùçùçúú„wŠ ·ÐÆ ÷àŠ€·Ðä„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðʈ€·ÐÆ‚÷àÖÁ%Æ(׳9„ˆŠ@·ÐÆ@÷à„?·ÐœŠ@·Ð9„ˆ·ÐÆ@÷à‡9ÿV·ÐÆ"÷àx9ŽúM0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'c–„þ·°—– +LŽ_—þ²‘'!C”&†—–þõ\Á&á†ÿ” "†ÿ� ]'XX×– �'–þÐ0œ &ºþ"–Š—·°9–„þ·°—– +6Ž_±—þO‘'C”&Žý– ¦¦—–þŒ †ÿ. 0œ &ÐýÕ–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†L9ÖÁ%†@9–�%†49–HŽûm­––HŽûan–û©ûöüûÛüÆü§ø�ø’øŸø¥ø«ø‡¶�…'ù¶�9Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈý_ÿÂ01?&ô9†ÿ°9†ÿª9ŽýC0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{oÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_üå¡Ä'C¤Ä&†—¦Äý(\Á&æ†ÿ)9†ÿ#9]'XX×– �'¦¤ý03A1?&¿Oÿ 944†ƒ·à¦b·ÀÖ XŽùH¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÜ„·Ðÿ9Ü“ $ÿÜ ƒÓ“ "Žý– ¦†—ž΀†þšü1¡Ä' C¤Ä&¦Äüx03A1?&ç †þt922222Ü ƒž΀ûþ¡Ä& 03A1?&ñOþT9†þH9 ø! tfr d,y !! addd buf+2 !! cmpd size !! bhi slprg4 !! ldx #zeiten !! lda type !! lda a,x !! sta time !! ldx buf+2 !! ldu #buf+4 !! lda #1 !! call out !!slprg4 call read !! cmpa u !! beq slprg2 !! coma !! anda u !! bne slprg3 !! lda u !! call prg !! call read !! cmpa u !! beq slprg2 !! lda #7 !! call aerr !! rts !!slprg3 lda #6 !! call aerr !! rts !!slprg2 inx !! leau 1,u !! leay  ¾€@00†·ì°†·ì°†ÿ·7:ÿ7=Î/ÿŽ0u½6¸Ž4ï½6¸¶üõ¶üõ½6¼Ž0Z�E'!¡„' 0Œ0u&ñ ×¶ì±¶ì±4½75%έ˜ Éþ7=?T1þS2R2†M2‚P23E0TL3D3ÝV3 Invalid command, select: T TO PERFORM A BLANK CHECK S to select a EPROM type R to read the copy EPROM  M to read the master EPROM P to programm the copy EPROM E to exit the programm L to load the copy EPROM contents to memory D to dump memory contents into the EPROM V TO VERIFY COPY EPROM CONTENTS WITH MEMORY½6ôOņÀ†»¶7:µ§¾9Ž4e½6¸½6¼�0%ó�5"ï„·7:9Ž5½6¸½6ä2Ž5½6¸½6ä½6ôO|†w†r¶7:l g‰b0˜[M4b¦à+AX9† †4Ž5½6¸Î½6ä2Ž5 ½6¸Î½6ä½6ôO†5¶7:  ‰0‰ûíM*924 Ž7?ܧ€1?&÷5 Ž7?Æ40½6À½6Ö¦€½6È3A1?'jä&ñ2a á5„† O4Ž5½6¸Î½6ä2Ž5 ½6¸Î½6ä4@Ž53½6¸Î½6ä15@½6ôO�†|†w¶7:q l‰g0b‰]OM*c2a92Î7?¦à& :§€1?&÷90¡€'ƒ;?'¯Á§À¦§À1?&çƒ7?'+Ž5E½6¸¦Â½6ÈŽ5W½6¸¦Â½6ÈŽ5\½6¸ìý6Öƒ7?&Ö9Ž5h½6¸9Ž5½6¸Î½6ä4@Ž5 ½6¸Î½6ä4@Ž53½6¸Î½6ä½6ôìä'Pƒ#Ì퉨†£¶7:�¦b˜¦c“¦ÀŽ1?&÷|M+vM+ìbÃíbìäƒíä*¬2d9w2d9 Select type 0=2716  1=2732 2=2764 3=27128 4=27256 5=2532 your choice ? Enter command : Start address EPROM: Data: Number of bytes: Memory address: Data should be:was:at address  Data equal BUSY.....WAIT NO RESPONSE MICRO-PROM RESPONSE $82 EXPECTED BY CHECK¶ì°…'ù¶ì±94¶ì°…'ù5·ì±94Ž6¡€'Œ6¸&÷Ž5ï½6¸5– Unknown error½6À½6¸5–ProgrammingEPROM not blank�Too mutch data‚INVALID COMMANDƒEPROM TYPE WRONG„Data doesn't fit…Start address outside EPROM space†EPROM not empty‡EPROM will not proramm½ð'9½ð94½ð!59·7;4Ž7;½ð59ý7;4Ž7;½ð594Ž7;½ð$ûî„594Ž5u½6¸59OþƆþÁ†ÿþ¼þ¹½7$¶ì°F$þ¢�‚&þ9Žÿ0&ü9Ž5…½6¸9Ž5ž õ €x  312~!Î~"S/òÈì€~#¥~#²~#Å~#u½#Ù~ð~.küôüýý&~üe„?Dá&~àe€ Dá~à@€ MCM INT ±TMS ÊMMI ÙHM-!V82S!ˆSIG!Äÿ4v@¬vA¬v€¬v�¬'„ ‡„ 'È %2Т‡dàâÿ4'‚ '„ 'XÄ 'È ÿ4'„ 'ˆ ÿ<´S™S™c™c™S˜S˜c˜c˜S5¬S6¬c5¬c6¬S@¬SA¬c@¬cA¬S€¬S�¬c€¬c�¬S„¨S…¨c„¨c…¨ÿ4v™v™v ˜v!˜v@¬vA¬vD�v€ ¬v�¬ÿ< &)01@,A,€,�,�(‘('(ÿ4'„ ÿÎ/ñ¾ ¿,¨¾ ¿,«¶ „JŽ #ŸCÆ J+ 0Z&û ôžA¦„0ŸAžC§„0ŸCZ&í00®„¦„„—"¾ †<ÆÈ§ç„ÆN§çÆ8ççççoÆÿççç„§§§§Žo‰#0&øSŽ,—�8Î/ñ�?�[Ž%)_½#0$ ½'š$çŽ,Ë à®ŸAŽ8½#è$� &ëÖ:&çžA­„ Ƚ#c¦„�'$½ "0 ó¾ ÆÈê„ç„ÆNç†8§o†<§§†4§9½#cŽ®ŸþÖ$' †<\'+†>½ "†P½ "† ½ "½ �'×�&žþŒ®'î0Ÿþ¦„ ã�& žþ§„Ž®�‰ ׎#*¡„'Ð0Œ#0&õžþ§„Œý'0Ÿþ� &¸Ž²Ÿþ = ¦„�ÿ'*‘®&¦‘¯&¦‘°& ]&¦‘±'00000]&Ô0 Ð9† � † ����O~ "Ÿ ¾ (þ¦„…' �¦¦ž 9D$ú¦ˆH'ù ã�Ö¾ (¦„…'ú9�ô†§–"Š@§„9¾ (–"§„�à†§½ $û9_¾ (¦„G%†€½+ÇZ&ó9¾ (¦„G$û¦„þ9o„ooŸ žþ¦„� ' 0Ÿþ�,'�$ ž 0009ž Æçhi„Z&ù«§ Ð�G$ �A$ �:$�0$9€„9DDDD„‹0�:%‹~ "¦„�름0 é�ô�ò† ëŸ Ö!ð Ö ò 9–'&Ž,× Ž84½#è5%Z&ô� 'Ž,â½"‹9Æ�×%ù–:&ž.Ÿ8–=&ž0Ÿ;–@&ž6Ÿ>–<Ö;�9Ò8›?Ù>$Ž,ê É�&Ò%$õž>Ÿ6ŸE–:'ž8Ÿ.–='ž;Ÿ0–/Ö.›3Ù2—B×A–1Ö0›3Ù2—D×Cþ9ƽ$h%,–:&ž4Ÿ8–=&ž6Ÿ;–&Ö%�<Ò;%£�9Ò8%�ž8Ÿ4ŸGž;Ÿ6ŸE9CHCK(oDISK%~EXIT %FILE%ŒLS4B%”MS4B%—OFST%§PROG*READ(aSHWM%·SHWP(lSTAT&TAPE&©VERF(^ÿ¶ +Ž,Ë~"‹~.i¶ *ò~-[ÆŒÆð–''…'â×$9~$lƽ$q%–:'ž8Ÿ29ƽ$q%ø½$Ê–B„ð—B–D‹„ð—D–C‰—C�+ŽA½$SžAƽ$UZ&ú½$WÆžA¦„�0Z&÷½ %ºŸAœC&Ó~#c„� -�a-†.~ "�ì–('O�õ–)�ñ–*�íž+�V—A½$Wž%ŸDŽŸBŽAÆdf%¦©§0Z&ô ç�-†X�¼–'„ü½$<Ž-–'+Ž-½"ŽŽ-½"‹�‘Ž.ƽ$SZ&ú „_†4¦„]&…ð'‰M½$8¦„]&…'‰M½$<05J&Ù9×E½%§%L½ ŽÿÿŸAÆ×C½ %�S&÷D½ %5�0'ì�1'9�9&%–E&à�,–C&žAŸ.–''–/›&—1–.™%—0ž00Ÿ09�'Û�†?½ " Ô~ �_%ð—F�Y%ê—G�S%ä—HÖG‘BÒAÖG$—B×A›3Ù2—H×GžG½$[$ �ÌŽ,ѽ"‹ ˜�&%·'žG§„¡„'�´Ž,ð æ0ŸG Ö\&~&º�¡Ž,ù Ó½ %&½$ %!HHHH4½ 5%½$ %4«à‰MÛD×D Fþ9Ž [‰M½#0%ô—*®ŸA¦æ®„ŸO—Q×Rž®Ÿ(Žo‰­0&øŽ±Œžþ¦„0Ÿþ� '½$(%¾Ž®Æhii„Z&÷«§ ÛžA0000‰M½#0%˜Ÿ+¦‰MÄ?×%×4„ÀæÅ '‹‹Å'Š Å@'Š—'†Å&Šð—$_×&×5¦*S×M„ —NÆ<–'…@'Æ4¾ ç… 'Ž->½"‹þ9†…O—#½$�†$+9†ÿŒ†—#½$õ%óžG'ï† Ö#*–F„ð—F–H‹„ð—H–G‰—Gß>—JÖ'×8Å@'¾ †4§†—N½*aÄ€×L½)Ç]+Æ4çÆ4犧„¨„' ½"›Ž,Ý~$‡–#*†”F& ½#cŽE½$S½)ǦÖ'+CÖ$*V%HHHH”$žA4Ö#+D&½$[$ Ž,ÑÞ>~"‹Ö$Sä„4«à§„_T&¨„”$'�h%Þ>½+¶&�Þ>9˜M”$'.T&ñ�M %A�D–F„�&–'…&½$WAƦ½&0Z&ö�U%ÆÞ>žE0ŸEžG0ŸG ³ŽE½$SA0000~$U–8'×8Ž-2½)Ö#T&0½"޽#c–J—9 9'õ�ÊÖ#T&žA�ѽ$W~ ¾ –F§†Ö'* Å@&–E„Gˆ˜N§–EÅ '‰MÄH„04«àÖ'Å&„ßšS Š8šL§„9†8o§Æÿ犧ÖR*ç–O§4Ö'Å 'Å&¦„Š §„†4§† —S †<§5 5–N¨„§„]9†84½)Ç5�±*½* ½+5Æd†ÿ½+ÇZ&ø†§ÖR*½* †4Ö'+§9½$�%ƒ�BÒA‹É—H×G†—#½(–$( Ž,ÿ½"‹½ �Y'9†€—Lž6ŸEÖ'*¾ ~+æ�‘†€Ö'Å&†—IžA¦„Ö$*\'DDDD˜M”I&I$ç½+¶&Öž6ŸE½$Ú†—#†½ "~(–ö ×Kö ×J½)ǽ*'+5–I§�!†�(ÖNè„ç„� -��–I§½+>o†§ "–P¨§9OŒ–Q~+Ç�÷ÖI�ìç�ño–N¨„§„�åoÆ�áZ&û†§†0§o†4§½)Ç„§„¦C‰M˜M”I'~*Þ J'~+ K'½"›Žè†ÿ�.0&ø½*N~*ÿŽ,ðÔ$4½"‹�2a9½)‚9žE0ŸEžA0ŸA0œC94M'ö + Ë=ƒ &ù5„æŸ/!J&ù5„~/#@' Æ×J§Æ ö ×JÖ%È'Ɔ<×N§„û½*P½)ÇžA¦„¾ §O½+ÇÅ@'Å &A†<§Æ †ú½+ÇZ&ø†4§ l†½+Çj½+¶&ƽ$Úž6ŸE J&»½"›Æ(†ÿ½+ÇZ&ø—NS~*îÅ&† ¨„§„Æ †ú½+ÇZ&ø† ¨„§„ À†4§Æ †ú½+ÇZ&ø†<§ ¬PROM PROGRAMMER XX.XX COPYRIGHT MOTOROLA 1977WHAT?ADDR?PROM?PWR?SYNTAX?SIZE?NO CHNG CKSM?CHNG?  ERASABLE BIPOLARXXXX YYYY NNNN AAA ZZZOFST PR MMADAPTER BOARD IS REQUIRED žþ¦„� &ÆŒÆ? 90ŸAŽ.„ŸC†0§„ŽLO¿.�ŽDK¿.‚ŽA?Å&Ù]&ÓžA¦„�,' � 'Ž,â~"‹0Ÿþ½%§%¿¶.„„—ŽŸ0Ÿ½èu%t½èo%oŽ.z†1§?$ _? Ž.z??9?%ñ¦ˆ„�'Æ åŽÿÿ¿.‹Ž.z?%׎.Ÿæˆwצˆv—þÅ'FV«ˆu×E—F¦ˆu—æˆx¦ˆy½$ÞžA½$[$Ž,ѽ"‹ Ÿ–—ŽÆ ’–BÖA›FÙE%ãžAŸ¾.�0Ÿ¶.„„—½èm%Ô¾/½&ä~-Ó?Al&l„¾2vn„1// / DK0 LO.Ÿ.Ÿ/ P†4Å@~+ê0010�ACIA�EQU�$ECB0 0020‚ORG�$3000 0030�START�LDA�#3 0040‚STA�ACIA 0050‚LDA�#$11 0060‚STA�ACIA 0070‚LDA�#$FF 0080‚STA�TYPE 0090�MAIN�LDX�#T3 0100ƒJSR�PRINT 0110‚JSR�INCHR 0120‚LDX�#MAIN2 0130�MAIN4�CMPA�X 0140‚BEQ�MAIN3 0150‚LEAX�3,X 0160‚CMPX�#MAIN2+27 0170‚BNE�MAIN4 0180‚LDX�#T1 0190‚JSR�PRINT 0200‚BRA�MAIN 0210�MAIN3�JSR�1,X 0220‚BRA�MAIN 0230�MAIN2�FCC�"T" 0240‚FDB�TEST 0250‚FC(Ë€*+  100~$Ä~$ã69 È2Èì`~ð~ðMCM DINT áTMS!#MMI!KMMH"„HM-#‰82S$&SIG$¶ÿ'„ ào lào‡„ ào lào'È à÷ å ç%2Тà÷ åà÷hs Тàÿ°ûàÿhs!Тà÷°óà÷‡dàâàÿ°ûàÿ‡fàâàÿ°ûàÿv@ zÿÿ�zÿvA zÿÿ�zÿv€ xÿä�xÿv� xÿä�xÿÿ'‚ ào lào'„ ào lào'XÄ à÷ å ç'È à÷ å ç'2Фàÿ¨ùàÿÿ'„ ào lào'ˆ ào ào%2Тà÷ åà÷ÿS�xÿ˜ÛxÿS�xÿ˜Ûxÿc�xÿ˜Ûxÿc�xÿ˜ÛxÿS�xÿ˜ÛxÿS�xÿ˜Ûxÿc�xÿ˜Ûxÿc�xÿ˜ÛxÿS5 xÿ˜ÛxÿS6 xÿ˜Ûxÿc5 xÿ˜Ûxÿc6 xÿ˜ÛxÿS@ xÿ˜ÛxÿSA xÿ˜Ûxÿc@ xÿ˜ÛxÿcA xÿ˜ÛxÿS€ xÿ˜ÛxÿS� xÿ˜Ûxÿc€ xÿ˜Ûxÿc� xÿ˜ÛxÿS„ xÿ˜ÛxÿS… xÿ˜Ûxÿc„ xÿ˜Ûxÿc… xÿ˜Ûxÿÿ1@xÿø�xÿ1@xÿø�xÿ1Axÿø�xÿ1Axÿø�xÿ2@xÿø�xÿ2@xÿø�xÿ2Axÿø�xÿ2Axÿø�xÿ4‚ xÿø�xÿ4‚ xÿø�xÿ4ƒ xÿø�xÿ4ƒ xÿø�xÿ8€ xÿø�xÿ8€ xÿø�xÿ8� xÿø�xÿ8� xÿø�xÿS€ xÿø�xÿc€ xÿø�xÿS� xÿø�xÿc� xÿø�xÿÿv�~ÿÿ�ÿÿv�~ÿÿ�ÿÿv �zÿÿ�zÿv!�zÿÿ�zÿv@ zÿÿ�zÿvA zÿÿ�zÿvD�zÿÿ�zÿv€ xÿä�xÿv� xÿä�xÿv xÿä�xÿa` xÿà�xÿaa xÿà�xÿÿ&xÿØ=xÿ)xÿØ=xÿ0xÿØ=xÿ1xÿØ=xÿ@ xÿØ=xÿA xÿØ=xÿ€ xÿØ=xÿ� xÿØ=xÿ� xÿØ=xÿ‘ xÿØ=xÿ' xÿØ=xÿÿ'„ ào làoÿÎ68¾ ¿.ù¾ ¿.üŽoˆ#0&ùŽ.ä�LÎ68O‹�I�q½,æ½%zŽ'm_Q½%ò$ ½)$ߎ/ Ø®ŸRŽ8½&.$� &ëÖ:&çPžR­„%¾ P'º? %¶ ð~ð$~ð'¾ †<�†à§o †ÿ§†8� †ÿ§§ §o †<§ § § §9†§§„oooooo† §„§§„9½ð!Ž®ŸþÖ$' †<\'+†>½ †P½ † ½ ½ �'×�&žþŒ®'î0Ÿþ¦„ ã�& žþ§„Ž®½%/ ÖŽ%ì¡„'Ï0Œ%ò&õžþ§„Œý'0Ÿþ� &·Ž²Ÿþ = ¦„�ÿ'.‘®&¦‘¯&¦‘°& ]&¦‘±' Q&†?( † ?(]&Ð0 Ì9† ~ o„ooŸ žþ¦„� ' 0Ÿþ�,'�$ž Æ?'9ž Æçhi„Z&ù«§ Ò�G$ �A$ �:$�0$9€„9DDDD„‹0�:%‹~ ¦„�름0 é�ô�ò† ëŸ Ö!ð Ö ò 9–'&Ž/( Ž84½&.5%Z&ô� 'Ž/3½%/9Æ�×%ù–:&ž.Ÿ8–=&ž0Ÿ;–@&ž6Ÿ>–;Ö<Ð9’8Û?™>$Ž/; ÉÐ&’%$õž>Ÿ6ŸE–:'ž8Ÿ.–='ž;Ÿ0–.Ö/Û3™2×B—A–0Ö1Û3™2×D—Cþ9ƽ&¬%,–:&ž4Ÿ8–=&ž6Ÿ;–%Ö&Ð<’;%£Ð9’8%�ž8Ÿ4ŸGž;Ÿ6ŸE9CHCK)ÍDISK'èEXIT0¾FILE/‰LS4B'êMS4B'íOFST(PROG+BREAD)¿SHWM(SHWP)ÊSTAT(lVERF)¼HELP0ÍPTST'ÔRTST'ÙSTST'Þÿ� ~+B�~)¿�~)ʆ—P9?ÆŒÆð–'' …'×$9~%~&°Æ½&µ%–:'ž8Ÿ29ƽ&µ%ø½'–B„ð—B–D‹„ð—D–C‰—C�*ŽA½&—žAƽ&™Z&ú½&›ÆžA¦„�0Z&÷? %»ŸAœC&Ô~ð!„� -�a-†.~ �ì–('O�õ–)�ñ–*�íž+�V—A½&›ž%ŸDŽŸBŽAÆdf%¦©§0Z&ô ç�-†X�¼–'„þ½&€Ž/Q–'+Ž/[½%2Ž/d½%/�‘Ž.ƽ&—Z&ú „_†4¦„]&…ð'‰M½&|¦„]&…'‰M½&€05J&Ù9Ž ‰MQ½%ò%ò—K®ŸAž®ŸIŽo‰­0&øŽ±Œžþ¦„0Ÿþ� '½&l%ÈŽ®Æhii„Z&÷«§ ÛžA‰MQ Q½%ò%¦Ÿ+¦‰MÄ?×%×4„ÀæÅ '‹‹Å'ŠÅ'Š Å  @'Š—'†Å&Šð—$_×&×5¦*S×O–I—(–J—)–K—*ž+¦ —UC—V¦ —WC—Xþ9†…O—#½&ц$+9†ÿŒ†—#½'9%óžG'ï† Ö#*–F„ð—F–H‹„ð—H–G‰—Gß>—MÖ'×8½.v½.5¦—]Ч¨&–]§ ½%5Ž/.~&Ë–#*†”F& ½ð!ŽE½&—½+¦ Ö'+CÖ$*V%HHHH”$žA4Ö#+I&½&Ÿ$ PŽ/"Þ>~%/Ö$Sä„4«à§„_T&¨„”$'�k%Þ>½-M&›Þ>9~$ã˜O”$'.T&î�M %A�D–F„�&–'…&½&›AƦ½(]0Z&ö? %ÉÞ>žE0ŸEžG0ŸG °ŽE½&—A0000~&™ P&/–8'×8Ž/}½*_Ö#T&0½%2½ð!–M—9 9'õ�ÆÖ#T&žA�ͽ&›? 9¾ –F§ –E”U—]¦”Vš]§ W'¦”XÖEÔV&šW§9½&Ñ%úÐB’Aˉ×H—G†—#½)ô$( P&Ž/J½%/½ �Y'9ž6ŸEÖ'*~-a½.†Ž(¦�I&½-†€Ö'Å&†—L½+žA¦„Ö$*\'DDDD˜O”L&#L$ç½-M&Ó½%5ž6ŸE½'†—# P&†½ ~)ôŽ(¦�M'�-'�H'c�S'_�I'~$ã~,�ö ×M¾ †4§ †ÿ—Y†Ÿ—[½.–L§ ½,ý,Ýö ½-ù½,í½,˽,æ½.)½,Ï'~+® M&Í P&õŽ/AÔ$4½%/�2a9~*цÿ—Y[½.–L§ �o½,ݽ- ½,öŽ(¦�H&ö  ö ½.½-½,í�R½-†ÿ—Y[½.)½,Ï&ž~,/ö ×M†ÿ—Y[½.–L§ �"Y†ÿ—[½.½-;��5½.)½,Ï'~+® M&Ò~,/†4¾ § 9†< ö¾ ¦ C‰M˜O”L9Y†`—[~.†ÿ—Y—[9¾ ¦Š` ¾ ¦„§9¾ ¦Š€ ôY†—[~.¾ ¦Š â¾ o†°§„†§†µ§„oÆç†Æ§ç9¾ †´§„¦…'ú†µ§„9žE0ŸEžA0ŸA0œC9~$ãTÖ'Å@&ö  ö ×M½.†½.? %á½+žA¦„¾ § Ö'Å@&ö  ö –'… '�r �b�¨&Ò½'ž6ŸEÖ'Å@& M&ÁÖ'Å@' T'#½%5~+Á T&è�[½+¦ žA¡„&½-M&ð½'ž6ŸE†—M—T~-v½'ž6ŸE�& »¾ 禅'ú9¾ 禅'ú9¾ 禅'ú9ž+¦æ½.>~.Õ½.Þ+¦ æ ~.>½.Þ+¦æ44–YC—Z–[C—\55¾  Y' ”Y—]¦”Zš]§ [' Ô[×^æÔ\Ú^ç~+ž+¦Šo¾ §†4§9ž+¦„`—]¾ ¦„Ÿš]§†4§ †ÃÆP¾ 44† §„55§ç¦…'úoo† §„9¾ ¦ „û§ o ¦ Ч 9¾ ¦ „û§ †ÿ§ êPROM PROGRAMMER IV XX.XX COPYRIGHT BY MOTOROLA 1981 WHAT?ADDR?PROM?PWR?SYNTAX?SIZE?NO CHNG CHNG?  ERASABLE BIPOLARXXXX YYYY NNNN AAA ZZZOFST PR MMžþ¦„� &ÆŒÆ? 90ŸAŽ4òŸC†0§„ŽLO¿4ûŽDK¿4ðŽA?Å&Ù]&ÓžA¦„�,' � 'Ž/3~%/0Ÿþ½(%¿¶4òÆ�3/? 9„—ŽŸ0Ÿ½èu%t½èo%oŽ4è†1§?$ _? Ž4è??9?%ñ¦ˆ„�'Æ åŽÿÿ¿4ùŽ4è?%׎5 æˆwצˆv—þÅ'FV«ˆu×E—F¦ˆu—¦ˆxæˆy½'"žA½&Ÿ$Ž/"½%/ Ÿ–—ŽÆ ’–AÖBÛF™E%ãžAŸ¾4ý0Ÿ¶4ò„—½èm¨ìŠ%;5…Ÿ.–''4–.Ö/Û&™%À‚×1—05~0 Ž$ã¿ÿŽ68¿ÿ"~ðóŽ0Ó~ð$E FILE file,n LOAD FILE file WITH OFFSET n ADDED TO LOAD ADDRESS DISK RETURN TO DOS EXIT EXIT TO MONITOR ( RE-ENTER WITH ";P" ) PROG u,v,z PROGRAM PROM BEGINNING AT OFFSET z FROM MEMORY u+n THRU MEMORY v+n ( VERIFY AFTER PROGRAMMING ). VERF u,v,z VERIFY PROM BEGINNING AT OFFSET z WITH MEMORY u+n THRU v+n READ u,v,z READ FROM PROM STARTING AT OFFSET z TO MEMORY u+n THRU v+n CHCK a,z CHECK a WORDS IN PROM BEGINNING AT OFFSET z FOR  UNPROGRAMMED STATE SHWM u,v SHOWM MEMORY FROM u+n THRU v+n IN HEX AND ASCII FORMS SHWP a,z SHOW a PROM WORDS BEGINNING AT OFFSET z OFST n SPECIFY MEMORY OFFSET AS n STAT DISPLAY PROM TYPE AND PROGRAMMER VARIABLE STATUS MS4B USE 4 MSB OF MEMORY TO PROGRAM 4-BIT PROMS LS4B USE 4 LSB OF MEMORY TO PROGRAM 4-BIT PROMS 15�5�5ŽDK0 LO5 5 5ŒÖ€€øø†€‹Έ†ÿ·°—— †…·à†·�Þ¶�D$ï 莀¶°Di€Œ€&øŽ€Žøa¦€„�& †·�40­´501"Œ€&æ9øœøÎúŽøqøƒø~ø�ø–9†Æ‚ /†Æ )OÆ!  $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøÀH®†Ÿ S4–о¤à—·°9 @€Ö +-–„¿·°—Ž=4ª0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†H Ù†A Ò44†ƒ·à¦b·ÀÖ XŽùB¦a­µ·Ð¶°Æ‡÷à5´ùPùUù\ù\ùcùmùh„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°¦c·ÀÖ XŽù©¦b­µ†‡·à5¶ù·ùÑùýùýúúNú3„wŠ ·ÐÆ ÷àŠ€·Ð„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðeˆ€·ÐÆ‚÷àÖÁ%Æ(×N9„ˆŠ@·ÐÆ@÷à„?·Ð7Š@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ðˆ€·Ð9ÿ2Š€·ÐÊ÷àˆ€·Ðˆ€·Ð9ÿ·ÐÆ"÷àî9Žúˆ0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'e–„þ·°—– +NŽ_è—þq‘'!C”&†—–þÎ\Á&æ†ÿ” $†ÿ� ]'XX– �&Æ×–þ§0œ &¸ýß–Š—·°9–„þ·°—– +<Ž„—þ ‘'C”&Žþ?– ¦¦—–þd †ÿ- 0œ &цP— ýŒ–Š—·°9Ž€�— ‹— ž 1>�Œ„-'§€1?&ò†1·�Œ„-&†³9Ö+Å@' Å ' ÄŸÁ%†“9–�%†‡9 ' '†y9HŽûÔ­––„HŽûÈn–üZü¾üúü¢ýÕý¶ø~øƒø�ø–øœøxør¶°…'&¶�…'í¶�˜—¶�95�¶�…'¶�…'  ñ9L9†·�†·�9†(—9Š€=94¶�…'ù5·�˜—94–Žœ0&üJ&ö5’Ü '“ $1Ó$&1 & ž%& “ "žžOÿ±ü•ÿ«01?&ôÞ9†ÿ“9†ÿ�9Žüv0�ÿ& œ &óOÿ�º9† õÜ '“ $ÍÓ$&Í & ž¬% “ "»žžOÿM£ÿG01?&ôz9Ü '“ $‘Ü ƒÓ$&Š & 0¤i%ÿ} “ "ÿtž΀ &†ÿ:_ûá¡Ä'C¤Ä&†—¦Äü>\Á&æ†þÕ9†þÏ9]'XX– �&Æ×¦Äü03A1?&½Oþ·ð9&ž&þ9944†ƒ·à¦b·ÀÖ XŽùB¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þ~„·ÐþÎ9Ü '“ $þ´Ü ƒÓ$&þ« & 0¤ÿŠ%þž “ "þ•Žþ?– ¦†—ž΀ &†þúý¡Ä' C¤Ä&¦Äû^03A1?&ç †ýð922222†P—ýýÜ ƒž΀ú¡Ä& 03A1?&ñOýË9†ý¼9– 'ý»9;ÿÿÿÿÿÿÿïÿïÿÿÿïøLDB�#0 1100‚BRA�SEL 1110�SEL16�CLRA 1120‚LDB�#4 1130‚BRA�SEL 1140�SEL32�LDA�INPUT 1150‚BITA�#8 1160‚BEQ�SEL25 1170‚LDA�#1 1180‚LDB�#8 1190‚BRA�SEL 1200�SEL64�LDA�#2 1210‚LDB�#$20 1220‚BRA�SEL 1230�SEL128�LDA�#3 1240‚LDB�#$10 1250‚BRA�SEL 1260�SEL256�LDA�#4 1270‚LDB�#$80 1280�SEL�STA�TYPE 1290‚LDX�#SIZES 1300‚LSLA 1310‚LDX�A,X 1320‚STX�SIZE 1330‚COMB 1340‚PSHS�B 1350‚LDA�CLEDS 1360‚Û€P00½0KÎ.½ð�'þ/¾/|/½0"m„&önŸÿþ/†½0V¶/½0V¿/¦€½0V� &÷†½0V¶/½0V½0r9†·ì²†·ì²94¸/·/5½0g½0§9öì²Å'ù·ì³9¶ì³½0†�'¾/z/½0§9¶ì²…&¶üô…'ò¶üõ�' ·ì³½0§ ã¶ì³9·üõ9¶üô…' ¶üõ�'·ì³¶ì²…'ç¶ì³·üõ ß190‚BNE�NXT 0200‚JMP�[$FFFE] 0210�* 0220�SEND�CLR�CHK 0230‚LDA�#5 0240‚JSR�TR 0250‚LDA�NUM 0260‚JSR�TR 0270‚STX�SAVE 0280�STR�LDÜ€ 0010‚ORG�$2F00 0020�ACIA�EQU�$ECB2 0030�CON�EQU�$FCF4 0040�INC�EQU�$F015 0050�START�RMB�2 0060�NUM�RMB�1 0070�CHK�RMB�1 0080�SAVE�RMB�2 0090�* 0100‚ORG�$3000 0110�* 0120‚JSR�INIT 0130‚LDS�#$2E00 0140‚JSR�INC 0150‚CMPA�#3 0160‚LBEQ�TRANS 0170‚CLR�NUM 0180‚LDX�START 0190�* 0200�NXT�INC�NUM 0210‚JSR�SEND 0220‚TST�0,X 0230‚BNE�NXT 0240‚JMP�[$FFFE] 0250�* 0260�SEND�CLR�CHK 0270‚LDA�#5 0" 280‚JSR�TR 0290‚LDA�NUM 0300‚JSR�TR 0310‚STX�SAVE 0320�STR�LDA�X+ 0330‚JSR�TR 0340‚CMPA�#$A 0350‚BNE�STR 0360‚LDA�#4 0370‚JSR�TR 0380‚LDA�CHK 0390‚JSR�TR 0400‚JSR�RCV 0410‚RTS 0420�* 0430�INIT�LDA�#3 0440‚STA�ACIA 0450‚LDA�#$11 0460‚STA�ACIA 0470‚RTS 0480�* 0490�TR�PSH�A 0500‚EORA�CHK 0510‚STA�CHK 0520‚PULS�A 0530‚JSR�OUT 0540‚JSR�OUTC 0550‚RTS 0560�* 0570�OUT�LDB�ACIA 0580‚BITB�#2 0590‚BEQ�OUT 0600‚STA�ACIA+1 0610‚RTS 0620�* 0630�RCV�LDA�ACIA+1 0640‚JSR�IN 0650‚CMPA�#6 0660‚BEQ�OK 0670‚LDX�SAVE 0675‚DEC�NUM 0680�OK�JSR�OUTC 0690‚RTS 0700�* 0710�IN�LDA�ACIA 0720‚BITA�#1 0730‚BNE�YES 0740‚LDA�CON 0750‚BITA�#1 0760‚BEQ�IN 0770‚LDA�CON+1 0780‚CMPA�#6 0790‚BEQ�YES1 0800‚STA�ACIA+1 0810‚JSR�OUTC 0820‚BRA�IN 0830�YES�LDA�ACIA+1 0840�YES1�RTS 0850�* 0860�OUTC�STA�CON+1 0870‚RTS 0880�* 0890�TRANS�LDA�CON 0900‚BITA�#1 0910‚BEQ�CONT 0920‚LDA�CON+1 0930‚CMPA�#3 0940‚BEQ�EX 0950‚STA�ACIA+1 0960�CONT�LDA�ACIA 0970‚BITA�#1 0980‚BEQ�TRANS 0990‚LDA�ACIA+1 1000‚STA�CON+1 1010‚BRA�TRANS 1020�* 1022�EX�JMP�[$FFFE] 1030‚END ߀X00½0MÎ.½ð�'�/¾/|/½0$m„&önŸÿþ/†½0X¶/½0X¿/¦€½0X� &÷†½0X¶/½0X½0t9†·ì²†·ì²94¸/·/5½0i½0©9öì²Å'ù·ì³9¶ì³½0ˆ�'¾/z/½0©9¶ì²…&¶üô…'ò¶üõ�' ·ì³½0© ã¶ì³9·üõ9¶üô…' ¶üõ�'·ì³¶ì²…'è¶ì³·üõ ànŸÿþX�START 0190�* 0200�NXT�INC�NUM 0210‚JSR�SEND 0220‚TST�0,X 0230‚BNE�NXT 0240‚JMP�[$FFFE] 0250�* 0260�SEND�CLR�CHK 0270‚LDA�#5 02 à€ 0010‚ORG�$7000 0020�* 0030�ACIA�EQU�$ECB2 0040�CON�EQU�$FCF4 0050�INC�EQU�$F015 0060�START�RMB�2 0070�NUM�RMB�1 0080�CHK�RMB�1 0090�SAVE�RMB�2 0100�** 0110�* 0120‚ORG�$3000 0130�* 0140‚JSR�INIT 0150‚LDS�#$2E00 0160‚JSR�INC 0170‚CMPA�#3 0180‚LBEQ�TRANS 0190‚CLR�NUM 0200‚LDX�START 0210‚LDA�ACIA+1 0211‚LDA�ACIA+1 0220�* 0230�NXT�INC�NUM 0240‚JSR�SEND 0250‚TST�-1,X 0260‚BNE�NXT 0270‚JMP�[$FFFE] 0280�* 0290�SEND�CLR�CHK 0300‚LDA�#5 0310‚JSR�TR 0320‚LDA�NUM 0330‚JSR�TR 0340‚STX�SAVE 0350�STR�LDA�X+ 0360‚BEQ�DONE 0370‚JSR�TR 0380‚CMPA�#$A 0390‚BNE�STR 0400�DONE�LDA�#4 0410‚JSR�TR 0420‚LDA�CHK 0430‚JSR�TR 0440‚JSR�RCV 0450‚RTS 0460�* 0470�INIT�LDA�#3 0480‚STA�ACIA 0490‚LDA�#$11 0500‚STA�ACIA 0510‚RTS 0520�* 0530�TR�PSH�A 0540‚EORA�CHK 0550‚STA�CHK 0560‚PULS�A 0570‚JSR�OUT 0580‚JSR�OUTC 0590‚RTS 0600�* 0610�OUT�LDB�ACIA 0620‚BITB�#2 0630‚BEQ�OUT 0640‚STA�ACIA+1 0650‚RTS 0660�* 0670�RCV�LDA�ACIA+1 0680‚LDA�ACIA+1 0690‚JSR�IN 0700‚CMPA�#6 0710‚BEQ�OK 0720‚LDX�SAVE 0730‚DEC�NUM 0740�OK�JSR�OUTC 0750‚RTS 0760�* 0770�IN�LDU�#0 0780�IN1�LDA�ACIA 0790‚BITA�#1 0800‚BNE�YES 0810‚LDA�CON 0820‚BITA�#1 0830‚BNE�INP 0840‚LEAU�1,U 0850‚CMPU�#0 0860‚BEQ�XX 0866‚BRA�IN1 0870�INP�LDA�CON+1 0880‚CMPA�#6 0890‚BEQ�YES1 0900‚STA�ACIA+1 0910‚JSR�OUTC 0920‚BRA�IN1 0930�YES�LDA�ACIA+1 0940�YES1�RTS 0950�XX�LDA�#$15 0960‚RTS 0970�* 0980�OUTC�JSR�$F018 0990‚RTS 1000�* 1010�TRANS�LDA�CON 1020‚BITA�#1 1030‚BEQ�CONT 1040‚LDA�CON+1 1050‚CMPA�#3 1060‚BEQ�EX 1070‚STA�ACIA+1 1080�CONT�LDA�ACIA 1090‚BITA�#1 1100‚BEQ�TRANS 1110‚LDA�ACIA+1 1120‚STA�CON+1 1130‚BRA�TRANS 1140�* 1150�EX�JMP�[$FFFE] 1160‚END # 0870‚BRA�IN 0880�YES�LDA�ACIA+1 0890�YES1�RTS 0900�* 0910�OUTC�JSR�$F018 0920‚RTS 0930�* 0940�TRANS�LDA�CON 0950‚BITA�#1 0960‚BEQ�CONT 0970‚LDA�CON+1 0980‚CMPA�#3 0990‚BEQ�EX 1000‚STA�ACIA+1 1010�CONT�LDA�ACIA 1020‚BITA�#1 1030‚BEQ�TRANS 1040‚LDA�ACIA+1 1050‚STA�CON+1 1060‚BRA�TRANS 1070�* 1080�EX�JMP�[$FFFE] 1090‚END SR�PRG 4370‚BRA�SLCOP8 4380�SLCOP3�LDA�#2 4390‚LBSR�ERROR 4400‚BRA�SLCOP7 4410�SLCOP8�LEAX�1,X 4420‚CMPX�SIZE 4430‚BNE�SLCOP6 4440‚LBSR�TEST 4450�SLCOP7�LDA�CLEDS 4460‚ORA�#1 4470‚STA�CLEDS 4480‚STA�LEDS 4490‚RTS 4500�AIN�LDX�#BUF 4510‚LBSR�IN 4520‚STA�MSGSZE 4530‚LBSR�IN 4540‚STA�MSGSZE+1 4550‚LDY�MSGSZE 4560‚LEAY�-2,Y 4570�AIN2�LBSR�IN 4580‚CMPX�#BUF+1050 4590‚BEQ�AIN3 4600‚STA�X å€ 0010‚ORG�$7000 0020‚CMPU�#$F000 0030�ACIA�EQU�$ECB2 0040�CON�EQU�$FCF4 0050�INC�EQU�$F015 0060�START�RMB�2 0070�NUM�RMB�1 0080�CHK�RMB�1 0090�SAVE�RMB�2 0100‚LDA�ACIA+1 0110�* 0120‚ORG�$3000 0130�* 0140‚JSR�INIT 0150‚LDS�#$2E00 0160‚JSR�INC 0170‚CMPA�#3 0180‚LBEQ�TRANS 0190‚CLR�NUM 0200‚LDX�START 0210‚LDA�ACIA+1 0220�* 0230�NXT�INC�NUM 0240‚JSR�SEND 0250‚TST�-1,X 0260‚BNE�NXT 0270‚JMP�[$FFFE] 0280�* 0290�SEND�CLR�CHK 0300‚LDA�#5 0310‚JSR�TR 0320‚LDA�NUM 0330‚JSR�TR 0340‚STX�SAVE 0350�STR�LDA�X+ 0360‚BEQ�DONE 0370‚JSR�TR 0380‚CMPA�#$A 0390‚BNE�STR 0400�DONE�LDA�#4 0410‚JSR�TR 0420‚LDA�CHK 0430‚JSR�TR 0440‚JSR�RCV 0450‚RTS 0460�* 0470�INIT�LDA�#3 0480‚STA�ACIA 0490‚LDA�#$11 0500‚STA�ACIA 0510‚RTS 0520�* 0530�TR�PSH�A 0540‚EORA�CHK 0550‚STA�CHK 0560‚PULS�A 0570‚JSR�OUT 0580‚JSR�OUTC 0590‚RTS 0600�* 0610�OUT�LDB�ACIA 0620‚BITB�#2 0630‚BEQ�OUT 0640‚STA�ACIA+1 0650‚RTS 0660�* 0670�RCV�LDA�ACIA+1 0680‚LDA�ACIA+1 0690‚JSR�IN 0700‚CMPA�#6 0710‚BEQ�OK 0720‚LDX�SAVE 0730‚DEC�NUM 0740�OK�JSR�OUTC 0750‚RTS 0760�* 0770�IN�LDU�#0 0780�IN1�LDA�ACIA 0790‚BITA�#1 0800‚BNE�YES 0810‚LDA�CON 0820‚BITA�#1 0830‚BNE�INP 0840‚LEAU�1,U 0850‚CMPU�#0 0860‚BEQ�XX 0870�INP�LDA�CON+1 0880‚CMPA�#6 0890‚BEQ�YES1 0900‚STA�ACIA+1 0910‚JSR�OUTC 0920‚BRA�IN1 0930�YES�LDA�ACIA+1 0940�YES1�RTS 0950�XX�LDA�#$15 0960‚RTS 0970�* 0980�OUTC�JSR�$F018 0990‚RTS 1000�* 1010�TRANS�LDA�CON 1020‚BITA�#1 1030‚BEQ�CONT 1040‚LDA�CON+1 1050‚CMPA�#3 1060‚BEQ�EX 1070‚STA�ACIA+1 1080�CONT�LDA�ACIA 1090‚BITA�#1 1100‚BEQ�TRANS 1110‚LDA�ACIA+1 1120‚STA�CON+1 1130‚BRA�TRANS 1140�* 1150�EX�JMP�[$FFFE] 1160‚END  5780‚LDU�#BUF+4 5790‚LDA�#1 5800‚LBSR�OUT 5810�APRG6�CLRB 5820�APRG4�LBSR�READ 5830‚CMPA�U 5840‚BEQ�APRG2 5850‚COMA 5860‚ANDA�U 5870‚BNE�APRG3 5880‚LDA�#1 5890‚STA�TIME 5900‚LDA�U 5910‚LBSR�PRG 5920‚INCB 5930‚CMPB�#15 5940‚BNE�APRG4 5950‚LDA�#7 5960‚LBSR�AERR 5970‚RTS 5980�APRG3�LDA�#6 5990‚LBSR�AERR 6000‚RTS 6010�APRG2�TSTB 6020‚BEQ�APRG8 6030‚LSLB 6040‚LSLB 6050‚STB�TIME 6060‚LDA�TYPE 6070‚CMPA�#4 6080‚BEQ�APRG8 6090‚LDA�Y 6100‚LBSR�PRG 6110�APRG8�INX 6120‚LEAU�1,U 6130‚LEAY�-1,Y 6140‚BNE�APRG6 6150‚CLRA 6160‚LBSR�OUT 6170‚RTS 6180�MREAD�PSHS�B,X,Y 6190‚LDA�#$83 6200‚STA�PBITS 6210‚LDA�2,S 6220‚STA�ADR1 6230‚LDB�TYPE 6240‚LSLB 6250‚LDY�#READ2 6260‚LDA�1,S 6270‚JSR�[B,Y] 6280‚EORA�#8 6290‚STA�ADR2 6300‚LDA�MASTER 6310‚LDB�#$87 6320‚STB�PBITS 6330‚PULS�B,X,$ Y,PC 6340�ERAS�LDA�#$20 6350‚STA�ADR2 6360‚LDB�#$22 6370‚STB�PBITS 6380‚ORA�#$80 6390‚STA�ADR2 6400‚LDB�#100 6410‚STB�TIME 6420�ERAS2�LBSR�WAIT 6430‚ANDA�#$7F 6440‚STA�ADR2 6450‚LBSR�ATST 6460‚RTS 6470�SLPRG�LDD�BUF+2 6480‚CMPD�SIZE 6490‚LBHS�ARD3 6500‚LDD�MSGSZE 6510‚SUBD�#6 6520‚TFR�D,Y 6530‚ADDD�BUF+2 6540‚CMPD�SIZE 6550‚BHI�SLPRG4 6560‚LDX�#ZEITEN 6570‚LDA�TYPE 6580‚LDA�A,X 6590‚STA�TIME 6600‚LDX�BUF+2 6610‚LDU�#BUF+4 6620‚LDA�#1 6630‚LBSR�OUT 6640�SLPRG4�LBSR�READ 6650‚CMPA�U 6660‚BEQ�SLPRG2 6670‚COMA 6680‚ANDA�U 6690‚BNE�SLPRG3 6700‚LDA�U 6710‚LBSR�PRG 6720�SLPRG2�INX 6730‚LEAU�1,U 6740‚LEAY�-1,Y 6750‚BNE�SLPRG4 6760‚BRA�VERIFY 6770�SLPRG3�LDA�#6 6780‚LBSR�AERR 6790‚RTS 6800�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6810�VERIFY�EQU�* 6820‚LDD�MSGSZE 6830‚SUBD�#6 6840‚TFR�D,Y 6850‚LDX�BUF+2 6860‚LDU�#BUF+4 6870�VERIF2�LBSR�READ 6880‚CMPA�U 6890‚BNE�VERIF1 6900‚INX 6910‚LEAU�1,U 6920‚LEAY�-1,Y 6930‚BNE�VERIF2 6940‚CLRA 6950‚LBSR�OUT 6960‚RTS 6970�VERIF1�LDA�#7 6980‚LBSR�AERR 6990‚RTS 7000‚ORG�$FFFE 7010‚FDB�START 7020‚END �out 4230‚rts 4240�amrd�ldd�buf+2 4250‚cmpd�size 4260‚bhs�ard3 4270‚ldd�buf+2 4280‚addd�buf+4 4290‚cmpd�size 4300‚bhi�ard4 4310‚ldy�buf+4 4320‚ldx�buf+2 4330‚clra 4340‚call�out 4350�amrd2�call�mread 4360‚call�out 4370‚inx 4380‚leay�-1,y 4390‚bne�amrd2 4400‚rts 4410�aprg�ldd�buf+2 4420‚cmpd�size 4430‚bhs�ard3 4440‚ldd�msgsze 4450‚subd�#6 4460‚tfr�d,y 4470‚addd�buf+2 4480‚cmpd�size 4Pí€P0010�*6809 0020�*PRINTER 0030�*LIST 0040�*************************************** 0050�*¥* 0060�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0070�*¢**�* 0080�*‰V24-VERSION‘* 0090�*¥* 0100�*‚WRITTEN�BY�HENK�AERTSŽ* 0110�*¥* 0120�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0130�*†1984�MINDEN/WESTF.�* 0140�*************************************** 0150�* 0160�*�MODIFICATIONS:�ERROR�IN�APRG�CORRECTED�(�LDA�Y�:=�LDA�U�) 0170�*�INIT2�CLEAR�KEYS�OMITTED�(�UNNECESSARY�INIT�) 0180�*�2�MS�OVERPROGRAMMING�PULSE�FOR�27256 0190�*�PRESSING�ERROR�KEY�RESETS�ACIA�INPUT�MODE 0200�*�COPY:�NOT�READING�MASTER�MULTIPLE�ANYMORE 0210�*�LABEL�SLCOP4�REMOVED�AND�CLRB�REMOVED 0220�*�RTI�AND�VECTORS�FOR�IRQ�AND�NMI�ADDED 0230�* 0240�***************************************************************** 0250�RAM�EQU�$8000 0260�ROM�EQU�$F800 0270�MASTER�EQU�0 0280�ACIA�EQU�$9000 0290�INPUT�EQU�$B001 0300�LEDS�EQU�$B001 0310�PBITS�EQU�$E000 0320�ADR1�EQU�$C000 0330�ADR2�EQU�$D000 0340�IO�EQU�$B000 0350‚ORG�RAM 0360‚SETDP�$80 0370�KEYS�RMB�8 0380�CLEDS�RMB�1 0390�TYPE�RMB�1 0400�SIZE�RMB�2 0410�MSGSZE�RMB�2 0420�TIME�RMB�1 0430�TEMP�RMB�1 0440�BUF�RMB�1050 0450‚ORG�ROM 0460�*OFFSET�$7300 0470�START�LDA�#$80 0480‚TFR�A,DP 0490‚LDA�#3 0500‚STA�ACIA 0510‚LDA�#$11 0520‚STA�ACIA 0530‚LDS�#RAM+$800 0540‚LDA�#$FF 0550‚STA�LEDS 0560‚STA�CLEDS 0570‚STA�TYPE 0580‚LDA�#$85 0590‚STA�PBITS 0600�LOOP�LBSR�KEYIN 0610‚LDA�#$11 0620‚STA�ACIA 0630‚LDA�ACIA 0640‚LSRA 0650‚BCC�LOOP 0660‚BITA�#8 0670‚BNE�LOOP1 0680‚LBSR�AIN 0690‚BRA�LOOP 0700�LOOP1�LDA�ACIA+1 0710‚BRA�LOOP 0720�KEYIN�LDX�#KEYS 0730‚LDA�INPUT 0740�KEYIN2�LSRA 0750‚ROL�X+ 0760‚CMPX�#KEYS+8 0770‚BNE�KEYIN2 0780‚LDX�#KEYS 0790‚LDY�#KEYIN3 0800�KEYIN5�LD% A�X+ 0810‚ANDA�#3 0820‚CMPA�#2 0830‚BNE�KEYIN4 0840‚LDA�#31 0850‚STA�ACIA 0860‚PSHS�X,Y 0870‚JSR�[Y] 0880‚PULS�X,Y 0890�KEYIN4�LEAY�2,Y 0900‚CMPX�#KEYS+8 0910‚BNE�KEYIN5 0920‚RTS 0930�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 0940�RESERV�RTS 0950�SEL25�LDA�#5 0960‚LDB�#0 0970‚BRA�SEL 0980�SEL16�CLRA 0990‚LDB�#4 1000‚BRA�SEL 1010�SEL32�LDA�INPUT 1020‚BITA�#8 1030‚BEQ�SEL25 1040‚LDA�#1 1050‚LDB�#8 1060‚BRA�SEL 1070�SEL64�LDA�#2 1080‚LDB�#$20 1090‚BRA�SEL 1100�SEL128�LDA�#3 1110‚LDB�#$10 1120‚BRA�SEL 1130�SEL256�LDA�#4 1140‚LDB�#$80 1150�SEL�STA�TYPE 1160‚LDX�#SIZES 1170‚LSLA 1180‚LDX�A,X 1190‚STX�SIZE 1200‚COMB 1210‚PSHS�B 1220‚LDA�CLEDS 1230‚ORA�#$BC 1240‚ANDA�S+ 1250‚STA�CLEDS 1260‚STA�LEDS 1270‚RTS 1280�SIZES�FDB�2048,4096,8192,16384,32768,4096 1290�TEST�LDB�TYPE 1300‚BMI�TEST4 1310‚LDA�CLEDS 1320‚ANDA�#$BF 1330‚STA�LEDS 1340‚STA�CLEDS 1350‚LDX�#0 1360�TEST3�LBSR�READ 1370‚PSHS�A 1380‚LBSR�MREAD 1390‚LEAX�1,X 1400‚CMPA�S+ 1410‚BNE�TEST2 1420‚CMPX�SIZE 1430‚BNE�TEST3 1440�TEST7�LDX�#0 1450‚LBSR�READ 1460‚LDA�CLEDS 1470‚ORA�#$40 1480‚STA�LEDS 1490‚STA�CLEDS 1500�TEST4�RTS 1510�TEST2�LDX�#0 1520�TEST6�LBSR�READ 1530‚INX 1540‚CMPA�#$FF 1550‚BNE�TEST5 1560‚CMPX�SIZE 1570‚BNE�TEST6 1580‚LDA�#4 1590‚LBSR�ERROR 1600‚BRA�TEST7 1610�TEST5�LDA�#3 1620‚LBSR�ERROR 1630‚BRA�TEST7 1640�READ�PSHS�B,X,Y 1650‚LDA�#$83 1660‚STA�PBITS 1670‚LDA�2,S 1680‚STA�ADR1 1690‚LDB�TYPE 1700‚LSLB 1710‚LDY�#READ2 1720‚LDA�1,S 1730‚JSR�[B,Y] 1740‚STA�ADR2 1750‚LDA�IO 1760‚LDB�#$87 1770‚STB�PBITS 1780‚PULS�B,X,Y,PC 1790�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25 1800�RD16�ANDA�#$77 1810‚ORA�#$20 1820‚RTS 1830�RD32�ANDA�#$7F 1840‚EORA�#8 1850‚ORA�#$20 1860‚RTS 1870�RD64�ANDA�#$7F 1880‚EORA�#8 1890‚ORA�#$40 1900‚RTS 1910�RD128�EQU�RD64 1920�RD256�ANDA�#$7F 1930‚EORA�#8 1940‚RTS 1950�RD25�ANDA�#$7F 1960‚ORA�#$20 1970‚BITA�#8 1980‚BEQ�RD25A 1990‚ORA�#$80 2000�RD25A�ANDA�#$F7 2010‚RTS 2020�PRG�PSHS�D,X,Y 2030‚STA�IO 2040‚LDA�3,S 2050‚STA�ADR1�*A0-A7 2060‚LDB�TYPE 2070‚LSLB 2080‚LDY�#PRG2 2090‚LDA�2,S‚*A8-A15 2100‚JSR�[B,Y] 2110‚LDA�#$87 2120‚STA�PBITS 2130‚PULS�D,X,Y,PC 2140�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25 2150�WR16�ANDA�#$77 2160‚ORA�#$20 2170‚STA�ADR2 2180‚LDB�#$20 2190‚STB�PBITS 2200‚ORA�#$80 2210‚STA�ADR2 2220‚LBSR�WAIT 2230‚ANDA�#$7F 2240‚STA�ADR2 2250‚RTS 2260�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2270‚EORA�#$8 2280‚STA�ADR2 2290‚LDB�#8 2300‚STB�PBITS 2310‚EORA�#$80 2320‚STA�ADR2�CS�LOW 2330‚LBSR�WAIT 2340‚EORA�#$80 2350‚STA�ADR2�CS�HIGH 2360‚LDB�#$82 2370‚STB�PBITS 2380‚LDB�TIME 2390‚CMPB�#20 2400‚BLO�WR32A 2410‚LDB�#40 2420‚STB�TIME 2430‚LBSR�WAIT 2440�WR32A�RTS 2450�WR64�ANDA�#$7F 2460‚EORA�#8 2470‚ORA�#$40 2480‚STA�ADR2 2490‚LDB�#$40 2500‚STB�PBITS 2510‚ANDA�#$3F 2520‚STA�ADR2 2530‚LBSR�WAIT 2540‚ORA�#$40 2550‚STA�ADR2 2560‚RTS 2570�WR128�EQU�WR64 2580�WR256�ANDA�#$7F 2590‚EORA�#8 2600‚STA�ADR2 2610‚LDB�#$40 2620‚STB�PBITS 2630‚LBSR�WAIT 2640‚RTS 2650�WR25�LBSR�RD25 2660‚STA�ADR2 2670‚LDB�#$22 2680‚STB�PBITS 2690‚LBSR�WAIT 2700‚RTS 2710�ERROR�LDX�#ERROR5 2720‚LEAX�A,X 2730‚LDA�CLEDS 2740‚ORA�#$BC 2750‚ANDA�X 2760‚LDX�#0 2770�ERROR4�CMPX�#$8000 2780‚BHS�ERROR2 2790‚ANDA�#$FD 2800‚BRA�ERROR3 2810�ERROR2�ORA�#2 2820�ERROR3�STA�LEDS 2830‚LEAX�8,X 2840‚LDB�INPUT 2850‚BITB�#8 2860‚BNE�ERROR4 2870‚LDA�CLEDS 2880‚STA�LEDS 2890‚RTS 2900�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 2910�CO& PY�LDA�X 2920‚BITA�#1 2930‚BEQ�SLCOPY 2940‚LDA�CLEDS 2950‚ANDA�#$FE 2960‚STA�LEDS 2970‚STA�CLEDS 2980‚LDA�TYPE 2990‚BMI�COPY7 3000‚LDX�#0 3010�COPY6�CLRB 3020‚LBSR�MREAD 3030‚STA�TEMP 3040�COPY4�LBSR�READ 3050‚CMPA�TEMP 3060‚BEQ�COPY5 3070‚COMA 3080‚ANDA�TEMP 3090‚BNE�COPY3 3100‚LDA�#1…EINE�MILLISEKUNDE 3110‚STA�TIME 3120‚LDA�TEMP 3130‚LBSR�PRG 3140‚INCB 3150‚CMPB�#15 3160‚BNE�COPY4 3170‚LDA�#1 3180‚LBSR�ERROR 3190‚BRA�COPY7 3200�COPY3�LDA�#2 3210‚LBSR�ERROR 3220‚BRA�COPY7 3230�COPY5�TSTB 3240‚BEQ�COPY8 3250‚LSLB 3260‚LSLB 3270‚LDA�TYPE 3280‚CMPA�#4 3290‚BNE�COPY9 3300‚LDB�#2 3310�COPY9�STB�TIME 3320‚LDA�TEMP 3330‚LBSR�PRG 3340�COPY8�INX 3350‚CMPX�SIZE 3360‚BNE�COPY6 3370‚LBSR�TEST 3380�COPY7�LDA�CLEDS 3390‚ORA�#1 3400‚STA�CLEDS 3410‚STA�LEDS 3420‚RTS 3430�SLCOPY�LDA�CLEDS 3440‚ANDA�#$FE 3450‚STA�LEDS 3460‚STA�CLEDS 3470‚LDA�TYPE 3480‚BMI�SLCOP7 3490‚LDX�#0 3500�SLCOP6�LBSR�MREAD 3510‚STA�TEMP 3520‚LBSR�READ 3530‚CMPA�TEMP 3540‚BEQ�SLCOP8 3550‚COMA 3560‚ANDA�TEMP 3570‚BNE�SLCOP3 3580‚LDY�#ZEITEN 3590‚LDA�TYPE 3600‚LDA�A,Y 3610‚STA�TIME 3620‚LDA�TEMP 3630‚LBSR�PRG 3640‚BRA�SLCOP8 3650�SLCOP3�LDA�#2 3660‚LBSR�ERROR 3670‚BRA�SLCOP7 3680�SLCOP8�LEAX�1,X 3690‚CMPX�SIZE 3700‚BNE�SLCOP6 3710‚LBSR�TEST 3720�SLCOP7�LDA�CLEDS 3730‚ORA�#1 3740‚STA�CLEDS 3750‚STA�LEDS 3760‚RTS 3770�AIN�LDX�#BUF 3780‚LBSR�IN 3790‚STA�MSGSZE 3800‚LBSR�IN 3810‚STA�MSGSZE+1 3820‚LDY�MSGSZE 3830‚LEAY�-2,Y 3840�AIN2�LBSR�IN 3850‚CMPX�#BUF+1050 3860‚BEQ�AIN3 3870‚STA�X+ 3880�AIN3�LEAY�-1,Y 3890‚BNE�AIN2 3900‚LDA�#$31 3910‚STA�ACIA 3920‚CMPX�#BUF+1050 3930‚BNE�AIN4 3940‚LDA�#1 3950‚LBSR�AERR 3960‚RTS 3970�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 3980‚CMPB�#6 3990‚BLO�AIN5 4000‚LDA�#2 4010‚LBSR�AERR 4020‚RTS 4030�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4040‚CMPA�#7 4050‚BLO�AIN6 4060‚LDA�#3 4070‚LBSR�AERR 4080‚RTS 4090�AIN6�LDA�BUF+1 4100‚LSLA 4110‚LDX�#AIN11 4120‚JSR�[A,X] 4130‚LDA�BUF 4140‚LSLA 4150‚LDX�#AIN10 4160‚JMP�[A,X] 4170�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4180�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 4190�IN�LDA�INPUT 4200‚BITA�#$08 4210‚BEQ�BREAK 4220‚LDA�ACIA 4230‚BITA�#1 4240‚BEQ�IN 4250‚LDA�ACIA+1 4260‚RTS 4270�* 4280�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 4290�* 4300�AERR�ORA�#$80 4310‚LBSR�OUT 4320‚RTS 4330�OUT�PSHS�A 4340�OUT2�LDA�ACIA 4350‚BITA�#2 4360‚BEQ�OUT2 4370‚PULS�A 4380‚STA�ACIA+1 4390‚RTS 4400�WAIT�PSHS�X,A 4410‚LDA�TIME 4420�WAIT3�LDX�#156 4430�WAIT2�DEX 4440‚BNE�WAIT2 4450‚DECA 4460‚BNE�WAIT3 4470‚PULS�X,A,PC 4480�ARD�LDD�BUF+2 4490‚CMPD�SIZE 4500‚BHS�ARD3 4510‚LDD�BUF+2 4520‚ADDD�BUF+4 4530‚CMPD�SIZE 4540‚BHI�ARD4 4550‚LDY�BUF+4 4560‚LDX�BUF+2 4570‚CLRA 4580‚LBSR�OUT 4590�ARD2�LBSR�READ 4600‚LBSR�OUT 4610‚INX 4620‚LEAY�-1,Y 4630‚BNE�ARD2 4640‚RTS 4650�ARD3�LDA�#5 4660‚LBSR�AERR 4670‚RTS 4680�ARD4�LDA�#4 4690‚LBSR�AERR 4700‚RTS 4710�ATST�LDX�#0 4720�ATST2�LBSR�READ 4730‚INX 4740‚CMPA�#$FF 4750‚BNE�ATST3 4760‚CMPX�SIZE 4770‚BNE�ATST2 4780‚CLRA 4790‚LBSR�OUT 4800‚RTS 4810�ATST3�LDA�#3 4820‚LBSR�OUT 4830‚RTS 4840�AMRD�LDD�BUF+2 4850‚CMPD�SIZE 4860‚BHS�ARD3 4870‚LDD�BUF+2 4880‚ADDD�BUF+4 4890‚CMPD�SIZE 4900‚BHI�ARD4 4910‚LDY�BUF+4 4920‚LDX�BUF+2 4930‚CLRA 4940‚LBSR�OUT 4950�AMRD2�LBSR�MREAD 4960‚LBSR�OUT 4970‚INX 4980‚LEAY�-1,Y 4990‚BNE�AMRD2 5000‚RTS 5010�APRG�LDD�BUF+2 5020‚CMPD�SIZE 5030‚BHS�ARD3 5040‚LDD�MSGSZE 5050‚SUBD�#6 5060‚TFR�D,Y 5070‚ADDD�BUF+2 5080‚CMPD�SIZE 50' 90‚BHI�ARD4 5100‚LDX�BUF+2 5110‚LDU�#BUF+4 5120‚LDA�#1 5130‚LBSR�OUT 5140�APRG6�CLRB 5150�APRG4�LBSR�READ 5160‚CMPA�U 5170‚BEQ�APRG2 5180‚COMA 5190‚ANDA�U 5200‚BNE�APRG3 5210‚LDA�#1 5220‚STA�TIME 5230‚LDA�U 5240‚LBSR�PRG 5250‚INCB 5260‚CMPB�#15 5270‚BNE�APRG4 5280‚LDA�#7 5290‚LBSR�AERR 5300‚RTS 5310�APRG3�LDA�#6 5320‚LBSR�AERR 5330‚RTS 5340�APRG2�TSTB 5350‚BEQ�APRG8 5360‚LSLB 5370‚LSLB 5380‚LDA�TYPE 5390‚CMPA�#4 5400‚BNE�APRG9 5410‚LDB�#2 5420�APRG9�STB�TIME 5430‚LDA�U 5440‚LBSR�PRG 5450�APRG8�INX 5460‚LEAU�1,U 5470‚LEAY�-1,Y 5480‚BNE�APRG6 5490‚CLRA 5500‚LBSR�OUT 5510‚RTS 5520�MREAD�PSHS�B,X,Y 5530‚LDA�#$83 5540‚STA�PBITS 5550‚LDA�2,S 5560‚STA�ADR1 5570‚LDB�TYPE 5580‚LSLB 5590‚LDY�#READ2 5600‚LDA�1,S 5610‚JSR�[B,Y] 5620‚EORA�#8 5630‚STA�ADR2 5640‚LDA�MASTER 5650‚LDB�#$87 5660‚STB�PBITS 5670‚PULS�B,X,Y,PC 5680�ERAS�LDA�#$20 5690‚STA�ADR2 5700‚LDB�#$22 5710‚STB�PBITS 5720‚ORA�#$80 5730‚STA�ADR2 5740‚LDB�#100 5750‚STB�TIME 5760�ERAS2�LBSR�WAIT 5770‚ANDA�#$7F 5780‚STA�ADR2 5790‚LBSR�ATST 5800‚RTS 5810�SLPRG�LDD�BUF+2 5820‚CMPD�SIZE 5830‚LBHS�ARD3 5840‚LDD�MSGSZE 5850‚SUBD�#6 5860‚TFR�D,Y 5870‚ADDD�BUF+2 5880‚CMPD�SIZE 5890‚BHI�SLPRG4 5900‚LDX�#ZEITEN 5910‚LDA�TYPE 5920‚LDA�A,X 5930‚STA�TIME 5940‚LDX�BUF+2 5950‚LDU�#BUF+4 5960‚LDA�#1 5970‚LBSR�OUT 5980�SLPRG4�LBSR�READ 5990‚CMPA�U 6000‚BEQ�SLPRG2 6010‚COMA 6020‚ANDA�U 6030‚BNE�SLPRG3 6040‚LDA�U 6050‚LBSR�PRG 6060�SLPRG2�INX 6070‚LEAU�1,U 6080‚LEAY�-1,Y 6090‚BNE�SLPRG4 6100‚BRA�VERIFY 6110�SLPRG3�LDA�#6 6120‚LBSR�AERR 6130‚RTS 6140�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6150�VERIFY�EQU�* 6160‚LDD�MSGSZE 6170‚SUBD�#6 6180‚TFR�D,Y 6190‚LDX�BUF+2 6200‚LDU�#BUF+4 6210�VERIF2�LBSR�READ 6220‚CMPA�U 6230‚BNE�VERIF1 6240‚INX 6250‚LEAU�1,U 6260‚LEAY�-1,Y 6270‚BNE�VERIF2 6280‚CLRA 6290‚LBSR�OUT 6300‚RTS 6310�VERIF1�LDA�#7 6320‚LBSR�AERR 6330‚RTS 6340�* 6350‚ORG�$FFEF 6360‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 6370‚FDB�$FFFF,$FFFF,$FFFF 6380‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 6390‚FDB�$FFFF 6400‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 6420‚END �LDA�X+ 1680‚JSR�OUTH1S 1690‚LEAU�1,U 1700‚LEAY�-1,Y 1710‚BEQ�READ3 1720‚DEC�S 1730‚BNE�READ5 1740‚LEAS�1,S 1750‚BRA�READ4 1760�READ3�PULS�B,PC 1770�VERI�LDA�#1 1780‚BRA�LOAD9 1790�LOAD�CLRA 1800�LOAD9�PSHS�A 1810‚LDX�#T5 1820‚JSR�PRINT 1830‚LDU�#0 1840‚JS€€HH†€‹†·�†·�Έ†ÿ·°—— †…·à†·�¶�D$ò…&Ë é¶� 䎀¶°Di€Œ€&øŽ€Žøl¦€„�& †·�40­´501"Œ€&æ9ø¡øÊúIø|øˆøƒø•ø›9†Æ "OÆ ¶°…'î†Æ †Æ †Æ †Æ€— Žø¾H®†Ÿ S4–м¤à—·°9 @€Ö +-–„¿·°—Ž=4¡0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó† Ù† Ò44†ƒ·à¦b·ÀÖ XŽù>¦a­µ·Ð¶°Æ‡÷à5´ùJùOùVùVù]ùb„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9„Š …'Š€„÷946·°¦c·ÀÖ XŽù‹¦b­µ†‡·à5¶ù—ù±ùÝùÝùùú „wŠ ·ÐÆ ÷àŠ€·Ðî„·Ð9Š ˆ·ÐÆ÷àˆ€·ÐÔˆ€·ÐÆ‚÷àÖÁ%Æ(×½9„ˆŠ@·ÐÆ@÷à„?·Ð¦Š@·Ð9„ˆ·ÐÆ@÷à‘9ÿV·ÐÆ"÷à‚9ŽúC0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'e–„þ·°—– +NŽ_ —þ²‘'!C”&†—–þõ\Á&æ†ÿ” $†ÿ� ]'XX– �&Æ×–þÎ0œ &¸þ –Š—·°9–„þ·°—– +5޼—þN‘'C”&Žý– ¦¦—–þ‹ †ÿ- 0œ &ÑýÔ–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†U9ÖÁ%†I9–�%†=9–HŽûd­––HŽûXn–û©ûöüûÛüÈü©øƒøˆø•ø›ø¡ø}¶°…' ¶�…'ò¶�( 95�Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈýUÿÂ01?&ô9†ÿ°9†ÿª9Žý90�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{qÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_üÛ¡Ä'C¤Ä&†—¦Äý\Á&æ†ÿ)9†ÿ#9]'XX– �&Æ×¦Äüù03A1?&½Oÿ944†ƒ·à¦b·ÀÖ XŽù>¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÚ„·Ðÿ9Ü“ $þþÜ ƒÓ“ "Žý– ¦†—ž΀†þ˜ü%¡Ä' C¤Ä&¦Äül03A1?&ç †þr922222Ü ƒž΀ûò¡Ä& 03A1?&ñOþR9†þF9;ÿÿÿÿÿÿÿïÿïÿÿÿïøStart�address�EPROM:" 3330‚FCB�4 3340�T6�FCB�$D,$A 3350‚FCC�"Data:" 3360‚FCB�4 3370�T7�FCB�$D,$A 3380‚FCC�"Number�of�bytes:" 3390‚FCB�4 3400�T9�FCB�$D,$A 3410‚FCC�"Memory�address:" 3420‚FCB�4 3430�T12�FCB�$D,$A 3440‚FCC�"Data�should�be:" 3450‚FCB�4 3460�T13�FCC�"was:" 3470‚FCB�4 3480�T14�FCC�"at�address�" 3490‚FCB�4 3500�T15�FCB�$D,$A 3510‚FCC�"Data�equal" 3520‚FCB�4 3530�T20�FCB�$Q€P0010�*6809 0020�*PRINTER 0030‚OPT�LLEN=120 0040�*LIST 0050�*************************************** 0060�*¥* 0070�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0080�*¢**�* 0090�*‰V24-VERSION‘* 0100�*¥* 0110�*‚WRITTEN�BY�HENK�AERTSŽ* 0120�*¥* 0130�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0140�*†1984�MINDEN/WESTF.�* 0150�*************************************** 0160�* 0170�*�MODIFICATIONS:�ERROR�IN�APRG�CORRECTED�(�LDA�Y�:=�LDA�U�) 0180�*�INIT2�CLEAR�KEYS�OMITTED�(�UNNECESSARY�INIT�) 0190�*�2�MS�OVERPROGRAMMING�PULSE�FOR�27256 0200�*�PRESSING�ERROR�KEY�RESETS�ACIA�INPUT�MODE 0210�*�COPY:�NOT�READING�MASTER�MULTIPLE�ANYMORE 0220�*�LABEL�SLCOP4�REMOVED�AND�CLRB�REMOVED 0230�*�RTI�AND�VECTORS�FOR�IRQ�AND�NMI�ADDED 0240�* 0250�***************************************************************** 0260�RAM�EQU�$8000 0270�ROM�EQU�$F800 0280�MASTER�EQU�0 0290�ACIA�EQU�$9000 0300�INPUT�EQU�$B001 0310�LEDS�EQU�$B001 0320�PBITS�EQU�$E000 0330�ADR1�EQU�$C000 0340�ADR2�EQU�$D000 0350�IO�EQU�$B000 0360‚ORG�RAM 0370‚SETDP�$80 0380�KEYS�RMB�8 0390�CLEDS�RMB�1 0400�TYPE�RMB�1 0410�SIZE�RMB�2 0420�MSGSZE�RMB�2 0430�TIME�RMB�1 0440�TEMP�RMB�1 0450�BUF�RMB�1050 0460‚ORG�ROM 0470�*OFFSET�$7300 0480�START�LDA�#$80 0490‚TFR�A,DP 0500‚LDA�#3 0510‚STA�ACIA 0520‚LDA�#$11 0530‚STA�ACIA 0540‚LDS�#RAM+$800 0550‚LDA�#$FF 0560‚STA�LEDS 0570‚STA�CLEDS 0580‚STA�TYPE 0590‚LDA�#$85 0600‚STA�PBITS 0610�LOOP�LBSR�KEYIN 0620‚LDA�#$11 0630‚STA�ACIA 0640‚LDA�ACIA 0650‚LSRA 0660‚BCC�LOOP 0670‚BITA�#8 0680‚BNE�LOOP1 0690‚LBSR�AIN 0700‚BRA�LOOP 0710�LOOP1�LDA�ACIA+1 0720‚BRA�LOOP 0730�KEYIN�LDX�#KEYS 0740‚LDA�INPUT 0750�KEYIN2�LSRA 0760‚ROL�X+ 0770‚CMPX�#KEYS+8 0780‚BNE�KEYIN2 0790‚LDX�#KEYS 0800‚LDY�#KEY) IN3 0810�KEYIN5�LDA�X+ 0820‚ANDA�#3 0830‚CMPA�#2 0840‚BNE�KEYIN4 0850‚LDA�#31 0860‚STA�ACIA 0870‚PSHS�X,Y 0880‚JSR�[Y] 0890‚PULS�X,Y 0900�KEYIN4�LEAY�2,Y 0910‚CMPX�#KEYS+8 0920‚BNE�KEYIN5 0930‚RTS 0940�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 0950�RESERV�RTS 0960�SEL25�LDA�#5 0970‚LDB�#0 0980‚BRA�SEL 0990�SEL16�CLRA 1000‚LDB�#4 1010‚BRA�SEL 1020�SEL32�LDA�INPUT 1030‚BITA�#8 1040‚BEQ�SEL25 1050‚LDA�#1 1060‚LDB�#8 1070‚BRA�SEL 1080�SEL64�LDA�#2 1090‚LDB�#$20 1100‚BRA�SEL 1110�SEL128�LDA�#3 1120‚LDB�#$10 1130‚BRA�SEL 1140�SEL256�LDA�#4 1150‚LDB�#$80 1160�SEL�STA�TYPE 1170‚LDX�#SIZES 1180‚LSLA 1190‚LDX�A,X 1200‚STX�SIZE 1210‚COMB 1220‚PSHS�B 1230‚LDA�CLEDS 1240‚ORA�#$BC 1250‚ANDA�S+ 1260‚STA�CLEDS 1270‚STA�LEDS 1280‚RTS 1290�SIZES�FDB�2048,4096,8192,16384,32768,4096 1300�TEST�LDB�TYPE 1310‚BMI�TEST4 1320‚LDA�CLEDS 1330‚ANDA�#$BF 1340‚STA�LEDS 1350‚STA�CLEDS 1360‚LDX�#0 1370�TEST3�LBSR�READ 1380‚PSHS�A 1390‚LBSR�MREAD 1400‚LEAX�1,X 1410‚CMPA�S+ 1420‚BNE�TEST2 1430‚CMPX�SIZE 1440‚BNE�TEST3 1450�TEST7�LDX�#0 1460‚LBSR�READ 1470‚LDA�CLEDS 1480‚ORA�#$40 1490‚STA�LEDS 1500‚STA�CLEDS 1510�TEST4�RTS 1520�TEST2�LDX�#0 1530�TEST6�LBSR�READ 1540‚INX 1550‚CMPA�#$FF 1560‚BNE�TEST5 1570‚CMPX�SIZE 1580‚BNE�TEST6 1590‚LDA�#4 1600‚LBSR�ERROR 1610‚BRA�TEST7 1620�TEST5�LDA�#3 1630‚LBSR�ERROR 1640‚BRA�TEST7 1650�READ�PSHS�B,X,Y 1660‚LDA�#$83 1670‚STA�PBITS 1680‚LDA�2,S 1690‚STA�ADR1 1700‚LDB�TYPE 1710‚LSLB 1720‚LDY�#READ2 1730‚LDA�1,S 1740‚JSR�[B,Y] 1750‚STA�ADR2 1760‚LDA�IO 1770‚LDB�#$87 1780‚STB�PBITS 1790‚PULS�B,X,Y,PC 1800�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25 1810�RD16�ANDA�#$77 1820‚ORA�#$20 1830‚RTS 1840�RD32�ANDA�#$7F 1850‚EORA�#8 1860‚ORA�#$20 1870‚RTS 1880�RD64�ANDA�#$7F 1890‚EORA�#8 1900‚ORA�#$40 1910‚RTS 1920�RD128�EQU�RD64 1930�RD256�ANDA�#$7F 1940‚EORA�#8 1950‚RTS 1960�RD25�ANDA�#$7F 1970‚ORA�#$20 1980‚BITA�#8 1990‚BEQ�RD25A 2000‚ORA�#$80 2010�RD25A�ANDA�#$F7 2020‚RTS 2030�PRG�PSHS�D,X,Y 2040‚STA�IO 2050‚LDA�3,S 2060‚STA�ADR1�*A0-A7 2070‚LDB�TYPE 2080‚LSLB 2090‚LDY�#PRG2 2100‚LDA�2,S‚*A8-A15 2110‚JSR�[B,Y] 2120‚LDA�#$87 2130‚STA�PBITS 2140‚PULS�D,X,Y,PC 2150�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25 2160�WR16�ANDA�#$77 2170‚ORA�#$20 2180‚STA�ADR2 2190‚LDB�#$20 2200‚STB�PBITS 2210‚ORA�#$80 2220‚STA�ADR2 2230‚LBSR�WAIT 2240‚ANDA�#$7F 2250‚STA�ADR2 2260‚RTS 2270�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2280‚EORA�#$8 2290‚STA�ADR2 2300‚LDB�#8 2310‚STB�PBITS 2320‚EORA�#$80 2330‚STA�ADR2�CS�LOW 2340‚LBSR�WAIT 2350‚EORA�#$80 2360‚STA�ADR2�CS�HIGH 2370‚LDB�#$82 2380‚STB�PBITS 2390‚LDB�TIME 2400‚CMPB�#20 2410‚BLO�WR32A 2420‚LDB�#40 2430‚STB�TIME 2440‚LBSR�WAIT 2450�WR32A�RTS 2460�WR64�ANDA�#$7F 2470‚EORA�#8 2480‚ORA�#$40 2490‚STA�ADR2 2500‚LDB�#$40 2510‚STB�PBITS 2520‚ANDA�#$3F 2530‚STA�ADR2 2540‚LBSR�WAIT 2550‚ORA�#$40 2560‚STA�ADR2 2570‚RTS 2580�WR128�EQU�WR64 2590�WR256�ANDA�#$7F 2600‚EORA�#8 2610‚STA�ADR2 2620‚LDB�#$40 2630‚STB�PBITS 2640‚LBSR�WAIT 2650‚RTS 2660�WR25�LBSR�RD25 2670‚STA�ADR2 2680‚LDB�#$22 2690‚STB�PBITS 2700‚LBSR�WAIT 2710‚RTS 2720�ERROR�LDX�#ERROR5 2730‚LEAX�A,X 2740‚LDA�CLEDS 2750‚ORA�#$BC 2760‚ANDA�X 2770‚LDX�#0 2780�ERROR4�CMPX�#$8000 2790‚BHS�ERROR2 2800‚ANDA�#$FD 2810‚BRA�ERROR3 2820�ERROR2�ORA�#2 2830�ERROR3�STA�LEDS 2840‚LEAX�8,X 2850‚LDB�INPUT 2860‚BITB�#8 2870‚BNE�ERROR4 2880‚LDA�CLEDS 2890‚STA�LEDS 2900‚RTS 2910�ERROR5�FCB�$00,$FB,$F7,$* DF,$EF,$FE 2920�COPY�LDA�X 2930‚BITA�#1 2940‚BEQ�SLCOPY 2950‚LDA�CLEDS 2960‚ANDA�#$FE 2970‚STA�LEDS 2980‚STA�CLEDS 2990‚LDA�TYPE 3000‚BMI�COPY7 3010‚LDX�#0 3020�COPY6�CLRB 3030‚LBSR�MREAD 3040‚STA�TEMP 3050�COPY4�LBSR�READ 3060‚CMPA�TEMP 3070‚BEQ�COPY5 3080‚COMA 3090‚ANDA�TEMP 3100‚BNE�COPY3 3110‚LDA�#1…EINE�MILLISEKUNDE 3120‚STA�TIME 3130‚LDA�TEMP 3140‚LBSR�PRG 3150‚INCB 3160‚CMPB�#15 3170‚BNE�COPY4 3180‚LDA�#1 3190‚LBSR�ERROR 3200‚BRA�COPY7 3210�COPY3�LDA�#2 3220‚LBSR�ERROR 3230‚BRA�COPY7 3240�COPY5�TSTB 3250‚BEQ�COPY8 3260‚LSLB 3270‚LSLB 3280‚LDA�TYPE 3290‚CMPA�#4 3300‚BNE�COPY9 3310‚LDB�#2 3320�COPY9�STB�TIME 3330‚LDA�TEMP 3340‚LBSR�PRG 3350�COPY8�INX 3360‚CMPX�SIZE 3370‚BNE�COPY6 3380‚LBSR�TEST 3390�COPY7�LDA�CLEDS 3400‚ORA�#1 3410‚STA�CLEDS 3420‚STA�LEDS 3430‚RTS 3440�SLCOPY�LDA�CLEDS 3450‚ANDA�#$FE 3460‚STA�LEDS 3470‚STA�CLEDS 3480‚LDA�TYPE 3490‚BMI�SLCOP7 3500‚LDX�#0 3510�SLCOP6�LBSR�MREAD 3520‚STA�TEMP 3530‚LBSR�READ 3540‚CMPA�TEMP 3550‚BEQ�SLCOP8 3560‚COMA 3570‚ANDA�TEMP 3580‚BNE�SLCOP3 3590‚LDY�#ZEITEN 3600‚LDA�TYPE 3610‚LDA�A,Y 3620‚STA�TIME 3630‚LDA�TEMP 3640‚LBSR�PRG 3650‚BRA�SLCOP8 3660�SLCOP3�LDA�#2 3670‚LBSR�ERROR 3680‚BRA�SLCOP7 3690�SLCOP8�LEAX�1,X 3700‚CMPX�SIZE 3710‚BNE�SLCOP6 3720‚LBSR�TEST 3730�SLCOP7�LDA�CLEDS 3740‚ORA�#1 3750‚STA�CLEDS 3760‚STA�LEDS 3770‚RTS 3780�AIN�LDX�#BUF 3790‚LBSR�IN 3800‚STA�MSGSZE 3810‚LBSR�IN 3820‚STA�MSGSZE+1 3830‚LDY�MSGSZE 3840‚LEAY�-2,Y 3850�AIN2�LBSR�IN 3860‚CMPX�#BUF+1050 3870‚BEQ�AIN3 3880‚STA�X+ 3890�AIN3�LEAY�-1,Y 3900‚BNE�AIN2 3910‚LDA�#$31 3920‚STA�ACIA 3930‚CMPX�#BUF+1050 3940‚BNE�AIN4 3950‚LDA�#1 3960‚LBSR�AERR 3970‚RTS 3980�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 3990‚CMPB�#6 4000‚BLO�AIN5 4010‚LDA�#2 4020‚LBSR�AERR 4030‚RTS 4040�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4050‚CMPA�#7 4060‚BLO�AIN6 4070‚LDA�#3 4080‚LBSR�AERR 4090‚RTS 4100�AIN6�LDA�BUF+1 4110‚LSLA 4120‚LDX�#AIN11 4130‚JSR�[A,X] 4140‚LDA�BUF 4150‚LSLA 4160‚LDX�#AIN10 4170‚JMP�[A,X] 4180�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4190�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 4200�IN�LDA�INPUT 4210‚BITA�#$08 4220‚BEQ�BREAK 4230‚LDA�ACIA 4240‚BITA�#1 4250‚BEQ�IN 4260‚LDA�ACIA+1 4270‚RTS 4280�* 4290�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 4300�* 4310�AERR�ORA�#$80 4320‚LBSR�OUT 4330‚RTS 4340�OUT�PSHS�A 4350�OUT2�LDA�ACIA 4360‚BITA�#2 4370‚BEQ�OUT2 4380‚PULS�A 4390‚STA�ACIA+1 4400‚RTS 4410�WAIT�PSHS�X,A 4420‚LDA�TIME 4430�WAIT3�LDX�#156 4440�WAIT2�DEX 4450‚BNE�WAIT2 4460‚DECA 4470‚BNE�WAIT3 4480‚PULS�X,A,PC 4490�ARD�LDD�BUF+2 4500‚CMPD�SIZE 4510‚BHS�ARD3 4520‚LDD�BUF+2 4530‚ADDD�BUF+4 4540‚CMPD�SIZE 4550‚BHI�ARD4 4560‚LDY�BUF+4 4570‚LDX�BUF+2 4580‚CLRA 4590‚LBSR�OUT 4600�ARD2�LBSR�READ 4610‚LBSR�OUT 4620‚INX 4630‚LEAY�-1,Y 4640‚BNE�ARD2 4650‚RTS 4660�ARD3�LDA�#5 4670‚LBSR�AERR 4680‚RTS 4690�ARD4�LDA�#4 4700‚LBSR�AERR 4710‚RTS 4720�ATST�LDX�#0 4730�ATST2�LBSR�READ 4740‚INX 4750‚CMPA�#$FF 4760‚BNE�ATST3 4770‚CMPX�SIZE 4780‚BNE�ATST2 4790‚CLRA 4800‚LBSR�OUT 4810‚RTS 4820�ATST3�LDA�#3 4830‚LBSR�OUT 4840‚RTS 4850�AMRD�LDD�BUF+2 4860‚CMPD�SIZE 4870‚BHS�ARD3 4880‚LDD�BUF+2 4890‚ADDD�BUF+4 4900‚CMPD�SIZE 4910‚BHI�ARD4 4920‚LDY�BUF+4 4930‚LDX�BUF+2 4940‚CLRA 4950‚LBSR�OUT 4960�AMRD2�LBSR�MREAD 4970‚LBSR�OUT 4980‚INX 4990‚LEAY�-1,Y 5000‚BNE�AMRD2 5010‚RTS 5020�APRG�LDD�BUF+2 5030‚CMPD�SIZE 5040‚BHS�ARD3 5050‚LDD�MSGSZE 5060‚SUBD�#6 5070‚TFR�D,Y 5080‚ADDD�BUF+2+  5090‚CMPD�SIZE 5100‚BHI�ARD4 5110‚LDX�BUF+2 5120‚LDU�#BUF+4 5130‚LDA�#1 5140‚LBSR�OUT 5150�APRG6�CLRB 5160�APRG4�LBSR�READ 5170‚CMPA�U 5180‚BEQ�APRG2 5190‚COMA 5200‚ANDA�U 5210‚BNE�APRG3 5220‚LDA�#1 5230‚STA�TIME 5240‚LDA�U 5250‚LBSR�PRG 5260‚INCB 5270‚CMPB�#15 5280‚BNE�APRG4 5290‚LDA�#7 5300‚LBSR�AERR 5310‚RTS 5320�APRG3�LDA�#6 5330‚LBSR�AERR 5340‚RTS 5350�APRG2�TSTB 5360‚BEQ�APRG8 5370‚LSLB 5380‚LSLB 5390‚LDA�TYPE 5400‚CMPA�#4 5410‚BNE�APRG9 5420‚LDB�#2 5430�APRG9�STB�TIME 5440‚LDA�U 5450‚LBSR�PRG 5460�APRG8�INX 5470‚LEAU�1,U 5480‚LEAY�-1,Y 5490‚BNE�APRG6 5500‚CLRA 5510‚LBSR�OUT 5520‚RTS 5530�MREAD�PSHS�B,X,Y 5540‚LDA�#$83 5550‚STA�PBITS 5560‚LDA�2,S 5570‚STA�ADR1 5580‚LDB�TYPE 5590‚LSLB 5600‚LDY�#READ2 5610‚LDA�1,S 5620‚JSR�[B,Y] 5630‚EORA�#8 5640‚STA�ADR2 5650‚LDA�MASTER 5660‚LDB�#$87 5670‚STB�PBITS 5680‚PULS�B,X,Y,PC 5690�ERAS�LDA�#$20 5700‚STA�ADR2 5710‚LDB�#$22 5720‚STB�PBITS 5730‚ORA�#$80 5740‚STA�ADR2 5750‚LDB�#100 5760‚STB�TIME 5770�ERAS2�LBSR�WAIT 5780‚ANDA�#$7F 5790‚STA�ADR2 5800‚LBSR�ATST 5810‚RTS 5820�SLPRG�LDD�BUF+2 5830‚CMPD�SIZE 5840‚LBHS�ARD3 5850‚LDD�MSGSZE 5860‚SUBD�#6 5870‚TFR�D,Y 5880‚ADDD�BUF+2 5890‚CMPD�SIZE 5900‚BHI�SLPRG4 5910‚LDX�#ZEITEN 5920‚LDA�TYPE 5930‚LDA�A,X 5940‚STA�TIME 5950‚LDX�BUF+2 5960‚LDU�#BUF+4 5970‚LDA�#1 5980‚LBSR�OUT 5990�SLPRG4�LBSR�READ 6000‚CMPA�U 6010‚BEQ�SLPRG2 6020‚COMA 6030‚ANDA�U 6040‚BNE�SLPRG3 6050‚LDA�U 6060‚LBSR�PRG 6070�SLPRG2�INX 6080‚LEAU�1,U 6090‚LEAY�-1,Y 6100‚BNE�SLPRG4 6110‚BRA�VERIFY 6120�SLPRG3�LDA�#6 6130‚LBSR�AERR 6140‚RTS 6150�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6160�VERIFY�EQU�* 6170‚LDD�MSGSZE 6180‚SUBD�#6 6190‚TFR�D,Y 6200‚LDX�BUF+2 6210‚LDU�#BUF+4 6220�VERIF2�LBSR�READ 6230‚CMPA�U 6240‚BNE�VERIF1 6250‚INX 6260‚LEAU�1,U 6270‚LEAY�-1,Y 6280‚BNE�VERIF2 6290‚CLRA 6300‚LBSR�OUT 6310‚RTS 6320�VERIF1�LDA�#7 6330‚LBSR�AERR 6340‚RTS 6350�* 6360‚ORG�$FFEF 6370‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 6380‚FDB�$FFFF,$FFFF,$FFFF 6390‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 6400‚FDB�$FFFF 6410‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 6420‚END D�MSGSZE 6510‚SUBD�#6 6520‚TFR�D,Y 6530‚ADDD�BUF+2 6540‚CMPD�SIZE 6550‚BHI�SLPRG4 6560‚LDX�#ZEITEN 6570‚LDA�TYPE 6580‚LDA�A,X 6590‚STA�TIME 6600‚LDX�BUF+2 6610‚LDU�#BUF+4 6620‚LDA�#1 6630‚LBSR�OUT 6640�SLPRG4�LBSR�READ 6650‚CMPA�U 6660‚BEQ�SLPRG2 6670‚COMA€€HH†€‹†·�†·�Έ†ÿ·°· —— †…·à†—†·�¶�D$ì…&J ã¶� ÞŽ€¶°Di€Œ€&øŽ€Žøw¦€„�& †·�40­´501"Œ€&æ9ø¬øÕúŽø‡ø“øŽø ø¦9†Æ "OÆ ¶°…'î†Æ †Æ †Æ †Æ€— ŽøÉH®†Ÿ S4–м¤à—·°9 @€¶°…'jÖ +G–„¿·°—Ž—W 'Æ ‘&%0œ &ãŽ<–Š@·°— ' –DDDDŠð· 9Ž0�ÿ& œ &ó† ʆ Æ—944†ƒ·à¦b·ÀÖ XŽùo¦a­µ·Ð¶°Æ‡÷à5´ù{ù€ù‡ù‡ùŽù“„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9„Š …'Š€„÷946·°†…·à†· ¦c·ÀÖ XŽùЦb­µ†…·à†ÿ· †‡·à5¶ùÜùöú"ú"ú>úN„wŠ ·ÐÆ ÷àŠ€·Ð3„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðˆ€·ÐÆ‚÷àÖÁ%Æ(×9„ˆŠ@·ÐÆ@÷à„?·ÐëŠ@·Ð9„ˆ·ÐÆ@÷àÖ9ÿB·ÐÆ"÷àÇ9Žúˆ0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'¨–„þ·°—– +aŽ_c—þœ 'X–�ÿ'E–'' ‘'!C”&†—–þÌ\Á&Ó†ÿ $†ÿx ]'XX– �&Æ×–þ¥0œ &¥ýÑ–Š—·°9–4ÆÕ&S÷ S¶°¡ä'˜š—X&ç5Á&–š—9–„þ·°—– +5޼—ýõ‘'C”&Žý�– ¦¦—–þ2 †þè 0œ &ÑýU, –Š—·°9Ž€j— e— ž 1>[Œ„-'§€1?&ò†1·�Œ„-&†S9ÖÁ%†G9–�%†;9–HŽûî­––HŽûân–ü3ü€ü¦üeýRý3øŽø“ø ø¦ø¬øˆ¶°…'¶�…'ò¶�9Š€95�4¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈüüÿÂ01?&ô9†ÿ®9†ÿ¨9Žüà0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{qÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_ü‚¡Ä'C¤Ä&†—¦ÄüÅ\Á&æ†ÿ'9†ÿ!9]'XX– �&Æ×¦Äü 03A1?&½Oÿ944†ƒ·à¦b·ÀÖ XŽùo¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÚ„·Ðÿ9Ü“ $þþÜ ƒÓ“ "Žý�– ¦†—ž΀†þ˜ûÌ¡Ä' C¤Ä&¦Äü03A1?&ç †þp922222Ü ƒž΀û™¡Ä& 03A1?&ñOþR9†þD9;ÿÿÿÿÿÿÿïÿïÿÿÿïø80‚LDB�#0 1090‚BRA�SEL 1100�SEL16�CLRA 1110‚LDB�#4 1120‚BRA�SEL 1130�SEL32�LDA�INPUT 1140‚BITA�#8 1150‚BEQ�SEL25 1160‚LDA�#1 1170‚LDB�#8 1180‚BRA�SEL 1190�SEL64�LDA�#2 1200‚LDB�#$20 1210‚BRA�SEL 1220�SEL128�LDA�#3 1230‚LDB�#$10 1240‚BRA�SEL 1250�SEL256�LDA�#4 1260‚LDB�#$80 1270�SEL�STA�TYPE 1280‚LDX�#SIZES 1290‚LSLA 1300‚LDX�A,X 1310‚STX�SIZE 1320‚COMB 1330‚PSHS�B 1340‚LDA�CLEDS 13!€€øø†€‹Έ†ÿ·°—— †…·à†·�Þ¶�D$ï 莀¶°Di€Œ€&øŽ€Žøa¦€„�& †·�40­´501"Œ€&æ9øœøÎúŽøqøƒø~ø�ø–9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøÀH®†Ÿ S4–о¤à—·°9 @€Ö +-–„¿·°—Ž=4ª0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†H Ù†A Ò44†ƒ·à¦b·ÀÖ XŽùB¦a­µ·Ð¶°Æ‡÷à5´ùPùUù\ù\ùcùmùh„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°¦c·ÀÖ XŽù©¦b­µ†‡·à5¶ù·ùÑùýùýúúNú3„wŠ ·ÐÆ ÷àŠ€·Ð„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðeˆ€·ÐÆ‚÷àÖÁ%Æ(×N9„ˆŠ@·ÐÆ@÷à„?·Ð7Š@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ðˆ€·Ð9ÿ2Š€·ÐÊ÷àˆ€·Ðˆ€·Ð9ÿ·ÐÆ"÷àî9Žúˆ0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'e–„þ·°—– +NŽ_è—þq‘'!C”&†—–þÎ\Á&æ†ÿ” $†ÿ� ]'XX– �&Æ×–þ§0œ &¸ýß–Š—·°9–„þ·°—– +<Ž„—þ ‘'C”&Žþ?– ¦¦—–þd †ÿ- 0œ &цP— ýŒ–Š—·°9Ž€�— ‹— ž 1>�Œ„-'§€1?&ò†1·�Œ„-&†³9Ö+Å@' Å ' ÄŸÁ%†“9–�%†‡9 ' '†y9HŽûÔ­––„HŽûÈn–üZü¾üúü¢ýÕý¶ø~øƒø�ø–øœøxør¶°…'&¶�…'í¶�˜—¶�95�¶�…'¶�…'  ñ9L9†·�†·�9†(—9Š€=94¶�…'ù5·�˜—94–Žœ0&üJ&ö5’Ü '“ $1Ó$&1 & ž%& “ "žžOÿ±ü•ÿ«01?&ôÞ9†ÿ“9†ÿ�9Žüv0�ÿ& œ &óOÿ�º9† õÜ '“ $ÍÓ$&Í & ž¬% “ "»žžOÿM£ÿG01?&ôz9Ü '“ $‘Ü ƒÓ$&Š & 0¤i%ÿ} “ "ÿtž΀ &†ÿ:_ûá¡Ä'C¤Ä&†—¦Äü>\Á&æ†þÕ9†þÏ9]'XX– �&Æ×¦Äü03A1?&½Oþ·ð9&ž&þ9944†ƒ·à¦b·ÀÖ XŽùB¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þ~„·ÐþÎ9Ü '“ $þ´Ü ƒÓ$&þ« & 0¤ÿŠ%þž “ "þ•Žþ?– ¦†—ž΀ &†þúý¡Ä' C¤Ä&¦Äû^03A1?&ç †ýð922222†P—ýýÜ ƒž΀ú¡Ä& 03A1?&ñOýË9†ý¼9– 'ý»9- ;ÿÿÿÿÿÿÿïÿïÿÿÿïøA 1010‚LDB�#4 1020‚BRA�SEL 1030�SEL32�LDA�INPUT 1040‚BITA�#8 1050‚BEQ�SEL25 1060‚LDA�#1 1070‚LDB�#8 1080‚BRA�SEL 1090�SEL64�LDA�#2 1100‚LDB�#$20 1110‚BRA�SEL 1120�SEL128�LDA�#3 1130‚LDB�#$10 1140‚BRA�SEL 1150�SEL256�LDA�#4 1160‚LDB�#$80 1170�SEL�STA�TYPE 1180‚LDX�#SIZES 1190‚LSLA 1200‚LDX�A,X 1210‚STX�SIZE 1220‚COMB 1230‚PSHS�B 1240‚LDA�CLEDS 1250‚ORA�#$BC 1260‚ANDA�S+ 1270‚STA�CLE &€ 0010‚ORG�$7000 0020�* 0030�ACIA�EQU�$ECB2 0040�CON�EQU�$FCF4 0050�INC�EQU�$F015 0060�START�RMB�2 0070�NUM�RMB�1 0080�CHK�RMB�1 0090�SAVE�RMB�2 0100�** 0110�* 0120‚ORG�$3000 0130�* 0140‚JSR�INIT 0150‚LDS�#$2E00 0160‚JSR�INC 0170‚CMPA�#3 0180‚LBEQ�TRANS 0190‚CLR�NUM 0200‚LDX�START 0210‚LDA�ACIA+1 0211‚LDA�ACIA+1 0220�* 0230�NXT�INC�NUM 0240‚JSR�SEND 0250‚TST�-1,X 0260‚BNE�NXT 0270‚JMP�[$FFFE] 0280�* 0290�SEND�CLR�CHK 0300‚LDA�#5 0310‚JSR�TR 0320‚LDA�NUM 0330‚JSR�TR 0340‚STX�SAVE 0350�STR�LDA�X+ 0360‚BEQ�DONE 0370‚JSR�TR 0380‚CMPA�#$A 0390‚BNE�STR 0400�DONE�LDA�#4 0410‚JSR�TR 0420‚LDA�CHK 0430‚JSR�TR 0440‚JSR�RCV 0450‚RTS 0460�* 0470�INIT�LDA�#3 0480‚STA�ACIA 0490‚LDA�#$11 0500‚STA�ACIA 0510‚RTS 0520�* 0530�TR�PSH�A 0540‚EORA�CHK 0550‚STA�CHK 0560‚PULS�A 0570‚JSR�OUT 0580‚JSR�OUTC 0590‚RTS 0600�* 0610�OUT�LDB�ACIA 0620‚BITB�#2 0630‚BEQ�OUT 0640‚STA�ACIA+1 0650‚RTS 0660�* 0670�RCV�LDA�ACIA+1 0680‚LDA�ACIA+1 0690‚JSR�IN 0700‚CMPA�#6 0710‚BEQ�OK 0720‚LDX�SAVE 0730‚DEC�NUM 0740�OK�JSR�OUTC 0750‚RTS 0760�* 0770�IN�LDU�#0 0780�IN1�LDA�ACIA 0790‚BITA�#1 0800‚BNE�YES 0810‚LDA�CON 0820‚BITA�#1 0830‚BNE�INP 0840‚LEAU�1,U 0850‚CMPU�#0 0860‚BEQ�XX 0870�INP�LDA�CON+1 0880‚CMPA�#6 0890‚BEQ�YES1 0900‚STA�ACIA+1 0910‚JSR�OUTC 0920‚BRA�IN1 0930�YES�LDA�ACIA+1 0940�YES1�RTS 0950�XX�LDA�#$15 0960‚RTS 0970�* 0980�OUTC�JSR�$F018 0990‚RTS 1000�* 1010�TRANS�LDA�CON 1020‚BITA�#1 1030‚BEQ�CONT 1040‚LDA�CON+1 1050‚CMPA�#3 1060‚BEQ�EX 1070‚STA�ACIA+1 1080�CONT�LDA�ACIA 1090‚BITA�#1 1100‚BEQ�TRANS 1110‚LDA�ACIA+1 1120‚STA�CON+1 1130‚BRA�TRANS 1140�* 1150�EX�JMP�[$FFFE] 1160‚END KEYIN2�LSRA 0870‚ROL�X+ 0880‚CMPX�#KEYS+8 0890‚BNE�KEYIN2 0900‚LDX�#KEYS 0910‚LDY�#KEYIN3 0920�KEYIN5�LDA�X+ 0930‚ANDA�#3 0940‚CMPA�#2 0950‚BNE�KEYIN4 0960‚LDA�#31 0970‚STA�ACIA 0980‚PSHS�X,Y 0990‚JSR�[Y] 1000‚PULS�X,Y 1010�KEYIN4�LEAY�2,Y 1020‚CMPX�#KEYS+8 1030‚BNE�KEYIN5 1040‚RTS 1050�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1060�RESERV�RTS 1070�* 1080�SEL512�LDA�#6 1090‚LDB�#$82 1100‚BRA�SEL 1110�SEL25�LDA�#5 1120‚LDB�#0 1130‚BRA�SEL 1140�SEL16�CLRA 1150‚LDB�#4 1160‚BRA�SEL 1170�SEL32�LDA�INPUT 1180‚BITA�#8 1190‚BEQ�SEL25 1200‚LDA�#1 1210‚LDB�#8 1220‚BRA�SEL 1230�SEL64�LDA�#2 1240‚LDB�#$20 1250‚BRA�SEL 1260�SEL128�LDA�#3 1270‚LDB�#$10 1280‚BRA�SEL 1290�SEL256�LDA�INPUT 1300‚BITA�#8 1310‚BEQ�SEL512 1320‚LDA�#4 1330‚LDB�#$80 1340�SEL�STA�. TYPE 1350‚LDX�#SIZES 1360‚LSLA 1370‚LDX�A,X 1380‚STX�SIZE 1390‚COMB 1400‚PSHS�B 1410‚LDA�CLEDS 1420‚ORA�#$BE 1430‚ANDA�S+ 1440‚STA�CLEDS 1450‚STA�LEDS 1460‚RTS 1470�SIZES�FDB�2048,4096,8192,16384,32768,4096,0‚0�FOR�27512�!!! 1480�* 1490�TEST�LDA�INPUT 1500‚BITA�#8 1510‚BEQ�GANGSL‚*******�SET�GANG�IF�ERROR�KEY�PRESSED�** 1520‚LDB�TYPE 1530‚BMI�TEST4 1540‚LDA�CLEDS 1550‚ANDA�#$BF 1560‚STA�LEDS 1570‚STA�CLEDS 1580‚LDX�#0 1590�TEST3�LBSR�MREAD 1600‚STA�TEMP 1610‚LBSR�READ 1620‚TST�GANG 1630‚BEQ�NOGNG 1640‚LDB�#14 1650‚LBSR�GANGRD 1660‚BRA�TEST9 1670�NOGNG�CMPA�TEMP 1680‚BNE�TEST2 1690�TEST9�LEAX�1,X 1700‚CMPX�SIZE 1710‚BNE�TEST3 1720�TEST7�LDX�#0 1730‚LBSR�READ 1740‚LDA�CLEDS 1750‚ORA�#$40 1760‚STA�LEDS 1770‚STA�CLEDS 1780‚TST�GANG 1790‚BEQ�TEST4 1800‚LDA�MSK2 1810‚LSRA 1820‚LSRA 1830‚LSRA 1840‚LSRA 1850‚ORA�#$F0 1860‚STA�GANGCE 1870�TEST4�RTS 1880�TEST2�LDX�#0 1890�TEST6�LBSR�READ 1900‚INX 1910‚CMPA�#$FF 1920‚BNE�TEST5 1930‚CMPX�SIZE 1940‚BNE�TEST6 1950‚LDA�#4 1960‚LBSR�ERROR 1970‚BRA�TEST7 1980�TEST5�LDA�#3 1990‚LBSR�ERROR 2000‚BRA�TEST7 2010�* 2020�GANGSL�LDA�#1 2030‚STA�GANG 2040‚RTS 2050�* 2060�READ�PSHS�B,X,Y 2070‚LDA�#$83 2080‚STA�PBITS 2090‚LDA�2,S 2100‚STA�ADR1 2110‚LDB�TYPE 2120‚LSLB 2130‚LDY�#READ2 2140‚LDA�1,S 2150‚JSR�[B,Y] 2160‚STA�ADR2 2170‚LDA�IO 2180‚LDB�#$87 2190‚STB�PBITS 2200‚PULS�B,X,Y,PC 2210�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25,RD512 2220�RD16�ANDA�#$77 2230‚ORA�#$20 2240‚RTS 2250�RD32�ANDA�#$7F 2260‚EORA�#8 2270‚ORA�#$20 2280‚RTS 2290�RD64�ANDA�#$7F 2300‚EORA�#8 2310‚ORA�#$40 2320‚RTS 2330�RD128�EQU�RD64 2340�RD256�ANDA�#$7F 2350‚EORA�#8 2360‚RTS 2370�RD512�LBSR�A15I 2380‚BRA�RD256 2390�RD25�ANDA�#$7F 2400‚ORA�#$20 2410‚BITA�#8 2420‚BEQ�RD25A 2430‚ORA�#$80 2440�RD25A�ANDA�#$F7 2450‚RTS 2460�A15I�PSHS�A 2470‚ANDA�#$80 2480‚EORA�#$80 2490‚LSRA 2500‚LSRA 2510‚LSRA 2520‚TFR�A,B 2530‚ORA�#$83 2540‚STA�PBITS 2550‚PULS�A 2560‚RTS 2570�* 2580�PRG�PSHS�D,X,Y 2590‚STA�IO 2600‚LDA�#$85‚OE�HIGH 2610‚STA�PBITS 2620‚LDA�#$0F 2630‚STA�GANGCE 2640‚LDA�3,S 2650‚STA�ADR1�*A0-A7 2660‚LDB�TYPE 2670‚LSLB 2680‚LDY�#PRG2 2690‚LDA�2,S‚*A8-A15 2700‚JSR�[B,Y] 2710‚LDA�#$85‚OE�HIGH 2720‚STA�PBITS 2730‚LDA�#$FF 2740‚STA�GANGCE‚ALL�CE�HIGH 27$20 2810‚STA�ADR2 2820‚LDB�#$20 2830‚STB�PBITS 2840‚ORA�#$80 2850‚STA�ADR2 2860‚LBSR�WAIT 2870‚ANDA�#$7F 2880‚STA�ADR2 2890‚RTS 2900�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2910‚EORA�#$8 2920‚STA�ADR2 2930‚LDB�#8 2940‚STB�PBITS 2950‚EORA�#$80 2960‚STA�ADR2�CS�LOW 2970‚LBSR�WAIT 2980‚EORA�#$80 2990‚STA�ADR2�CS�HIGH 3000‚LDB�#$82 3010‚STB�PBITS 3020‚LDB�TIME 3030‚CMPB�#20 3040‚BLO�WR32A 3050‚LDB�#40 3060‚STB�TIME 3070‚LBSR�WAIT 3080�WR32A�RTS 3090�WR64�ANDA�#$7F 3100‚EORA�#8 3110‚ORA�#$40 3120‚STA�ADR2 3130‚LDB�#$40 3140‚STB�PBITS 3150‚ANDA�#$3F 3160‚STA�ADR2 3170‚LBSR�WAIT 3180‚ORA�#$40 3190‚STA�ADR2 3200‚RTS 3210�WR128�EQU�WR64 3220�WR256�ORA�#$80 3230‚EORA�#8 3240‚STA�ADR2 3250‚LDB�#$40 3260‚STB�PBITS 3270‚EORA�#$80 3280‚STA�ADR2 3290‚LBSR�WAIT 3300‚EORA�#$80 3310‚STA�ADR2 3320‚RTS 3330�WR512�LBSR�RD512 3340‚ORA�#$80 3350‚STA�ADR2 3360‚ORB�#8 3370‚STB�PBITS 3380‚EORA�#$80 3390‚STA�ADR2 3400‚LBSR�WAIT 3410‚EORA�#$80 3420‚STA�ADR2 3430‚RTS 3440�WR25�LBSR�RD25 3450‚STA�ADR2 3460‚LDB�#$22 3470‚STB�PBITS 3480‚LBSR/ �WAIT 3490‚RTS 3500�ERROR�LDX�#ERROR5 3510‚LEAX�A,X 3520‚LDA�CLEDS 3530‚ORA�#$BC 3540‚ANDA�X 3550‚LDX�#0 3560�ERROR4�CMPX�#$8000 3570‚BHS�ERROR2 3580‚ANDA�#$FD 3590‚BRA�ERROR3 3600�ERROR2�ORA�#2 3610�ERROR3�STA�LEDS 3620‚LEAX�8,X 3630‚LDB�INPUT 3640‚BITB�#8 3650‚BNE�ERROR4 3660‚LDA�CLEDS 3670‚STA�LEDS 3680‚RTS 3690�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 3700�* 3710�COPY�LDA�X 3720‚BITA�#1 3730‚LBEQ�SLCOPY 3740‚LDA�CLEDS 3750‚ANDA�#$FE 3760‚STA�LEDS 3770‚STA�CLEDS 3780‚LDA�TYPE 3790‚BMI�COPY7 3800‚LDX�#0 3810�COPY6�CLRB 3820‚LBSR�MREAD 3830‚STA�TEMP 3840�COPY4�LBSR�READ 3850‚TST�GANG‚************ 3860‚BEQ�NOGANG 3870‚LBSR�GANGRD 3880‚LDA�MSK2 3890‚CMPA�#$FF 3900‚BEQ�COPYTS 3910‚LDA�MSK1 3920‚BEQ�COPY5 3930‚BRA�COPY2 3940�NOGANG�CMPA�TEMP 3950‚BEQ�COPY5 3960‚COMA 3970‚ANDA�TEMP 3980‚BNE�COPY3 3990�COPY2�LDA�#1…EINE�MILLISEKUNDE 4000‚STA�TIME 4010‚LDA�TEMP 4020‚LBSR�PRG 4030‚INCB 4040‚CMPB�#15 4050‚BNE�COPY4 4060‚LDA�#1 4070‚LBSR�ERROR 4080‚BRA�COPY7 4090�COPY3�LDA�#2 4100‚LBSR�ERROR 4110‚BRA�COPY7 4120�COPY5�TSTB 4130‚BEQ�COPY8 4140‚LSLB 4150‚LSLB 4160‚LDA�TYPE 4170‚CMPA�#4 4180‚BNE�COPY22 4190‚LDB�#2 4200�COPY22�STB�TIME 4210‚LDA�TEMP 4220‚LBSR�PRG 4230�COPY8�INX 4240‚CMPX�SIZE 4250‚BNE�COPY6 4260�COPYTS�LBSR�TEST 4270�COPY7�LDA�CLEDS 4280‚ORA�#1 4290‚STA�CLEDS 4300‚STA�LEDS 4310‚RTS 4320�* 4330�GANGRD�LDA�TEMP 4340‚PSHS�D 4350‚CLR�MSK1 4360‚LDB�#$10 4370�NXTRD�BITB�MSK2 4380‚BNE�SKIPRD 439A 5080‚CMPX�#BUF+1050 5090‚BNE�AIN4 5100‚LDA�#1 5110‚LBSR�AERR 5120‚RTS 5130�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 5140‚CMPB�#6 5150‚BLO�AIN5 5160‚LDA�#2 5170‚LBSR�AERR 5180‚RTS 5190�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 5200‚CMPA�#7 5210‚BLO�AIN6 5220‚LDA�#3 5JMP�[A,X] 5330�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 5340�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 5350�IN�LDA�INPUT 5360‚BITA�#$08 5370‚BEQ�BREAK 5380‚LDA�ACIA 5390‚BITA�#1 5400‚BEQ�IN 5410‚LDA�ACIA+1 5420‚RTS 5430�AERR�ORA�#$80 5440‚LBSR�OUT 5450‚RTS 5460�* 5470�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 5480�OUT�PSHS�A 5490�OUT2�LDA�ACIA 5500‚BITA�#2 5510‚BEQ�OUT2 5520‚PULS�A 5530‚STA�ACIA+1 5540‚RTS 5550�WAIT�PSHS�X,A 5560‚LDA�TIME 5570�WAIT3�LDX�#156 5580�WAIT2�DEX 5590‚BNE�WAIT2 5600‚DECA 5610 0‚BNE�WAIT3 5620‚PULS�X,A,PC 5630�ARD�LDD�BUF+2 5640‚CMPD�SIZE 5650‚BHS�ARD3 5660‚LDD�BUF+2 5670‚ADDD�BUF+4 5680‚CMPD�SIZE 5690‚BHI�ARD4 5700‚LDY�BUF+4 5710‚LDX�BUF+2 5720‚CLRA 5730‚LBSR�OUT 5740�ARD2�LBSR�READ 5750‚LBSR�OUT 5760‚INX 5770‚LEAY�-1,Y 5780‚BNE�ARD2 5790‚RTS 5800�ARD3�LDA�#5 5810‚LBSR�AERR 5820‚RTS 5830�ARD4�LDA�#4 5840‚LBSR�AERR 5850‚RTS 5860�ATST�LDX�#0 5870�ATST2�LBSR�READ 5880‚INX 5890‚CMPA�#$FF 5900‚BNE�ATST3 5910‚CMPX�SIZE 5920‚BNE�ATST2 5930‚CLRA 5940‚LBSR�OUT 5950‚RTS 5960�ATST3�LDA�#3 5970‚LBSR�OUT 5980‚RTS 5990�AMRD�LDD�BUF+2 6000‚CMPD�SIZE 6010‚BHS�ARD3 6020‚LDD�BUF+2 6030‚ADDD�BUF+4 6040‚CMPD�SIZE 6050‚BHI�ARD4 6060‚LDY�BUF+4 6070‚LDX�BUF+2 6080‚CLRA 6090‚LBSR�OUT 6100�AMRD2�LBSR�MREAD 6110‚LBSR�OUT 6120‚INX 6130‚LEAY�-1,Y 6140‚BNE�AMRD2 6150‚RTS 6160�APRG�LDD�BUF+2 6170‚CMPD�SIZE 6180‚BHS�ARD3 6190‚LDD�MSGSZE 6200‚SUBD�#6 6210‚TFR�D,Y 6220‚ADDD�BUF+2 6230‚CMPD�SIZE 6240‚BHI�ARD4 6250‚LDX�BUF+2 6260‚LDU�#BUF+4 6270‚LDA�#1 6280‚LBSR�OUT 6290�APRG6�CLRB 6300�APRG4�LBSR�READ 6310‚CMPA�U 6320‚BEQ�APRG2 6330‚COMA 6340‚ANDA�U 6350‚BNE�APRG3 6360‚LDA�#1 6370‚STA�TIME 6380‚LDA�U 6390‚LBSR�PRG 6400‚INCB 6410‚CMPB�#15 6420‚BNE�APRG4 6430‚LDA�#7 6440‚LBSR�AERR 6450‚RTS 6460�APRG3�LDA�#6 6470‚LBSR�AERR 6480‚RTS 6490�APRG2�TSTB 6500‚BEQ�APRG8 6510‚LSLB 6520‚LSLB 6530‚LDA�TYPE 6540‚CMPA�#4 6550‚BNE�APRG9 6560‚LDB�#2 6570�APRG9�STB�TIME 6580‚LDA�U 6590‚LBSR�PRG 6600�APRG8�INX 6610‚LEAU�1,U 6620‚LEAY�-1,Y 6630‚BNE�APRG6 6640‚CLRA 6650‚LBSR�OUT 6660‚RTS 6670�MREAD�PSHS�B,X,Y 6680‚LDA�#$83 6690‚STA�PBITS 6700‚LDA�2,S 6710‚STA�ADR1 6720‚LDB�TYPE 6730‚LSLB 6740‚LDY�#READ2 6750‚LDA�1,S 6760‚JSR�[B,Y] 6770‚EORA�#8 6780‚STA�ADR2 6790‚SLPRG�LDD�BUF+2 6970‚CMPD�SIZE 6980‚LBHS�ARD3 6990‚LDD�MSGSZE 7000‚SUBD�#6 7010‚TFR�D,Y 7020‚ADDD�BUF+2 7030‚CMPD�SIZE 7040‚BHI�SLPRG4 7050‚LDX�#ZEITEN 7060‚LDA�TYPE 7070‚LDA�A,X 7080‚STA�TIME 7090‚LDX�BUF+2 7100‚LDU�#BUF+4 7110‚LDA�#1 7120‚LBSR�OUT 7130�SLPRG4�LBSR�READ 7140‚CMPA�U 7150‚BEQ�SLPRG2 7160‚COMA 7170‚ANDA�U 7180‚BNE�SLPRG3 7190‚LDA�U 7200‚LBSR�PRG 7210�SLPRG2�INX 7220‚LEAU�1,U 7230‚LEAY�-1,Y 7240‚BNE�SLPRG4 7250‚BRA�VERIFY 7260�SLPRG3�LDA�#6 7270‚LBSR�AERR 7280‚RTS 7290�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 7300�VERIFY�EQU�* 7310‚LDD�MSGSZE 7320‚SUBD�#6 7330‚TFR�D,Y 7340‚LDX�BUF+2 7350‚LDU�#BUF+4 7360�VERIF2�LBSR�READ 7370‚CMPA�U 7380‚BNE�VERIF1 7390‚INX 7400‚LEAU�1,U 7410‚LEAY�-1,Y 7420‚BNE�VERIF2 7430‚CLRA 7440‚LBSR�OUT 7450‚RTS 7460�VERIF1�L�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 7540‚FDB�$FFFF 7550‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 7560‚END 0‚LDB�#$87 7050‚STB�PBITS 7060‚PULS�B,X,Y,PC 7070�ERAS�LDA�#$20 7080‚STA�ADR2 7090‚LDB�#$22 7100‚STB�PBITS 7110‚ORA�#$80 7120‚ST>€€øø†€‹†·�†·�Έ†ÿ·°· —— †…·à†—†·�¶�D$ì…&š ã¶� ÞŽ€¶°Di€Œ€&øŽ€Žøw¦€„�& †·�40­´501"Œ€&æ9ø²øäúÞø‡ø1 ™ø”ø¦ø¬9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøÖH®†Ÿ S4–о¤à—·°9 @€¶°…'jÖ +G–„¿·°—Ž_—W 'ÆR ‘&%0œ &ãŽ<–Š@·°— ' –DDDDŠð· 9Ž0�ÿ& œ &ó†a ʆZ Æ—944†ƒ·à¦b·ÀÖ XŽù~¦a­µ·Ð¶°Æ‡÷à5´ùŒù‘ù˜ù˜ùŸù©ù¤„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°†…·à†· ¦c·ÀÖ XŽùù¦b­µ†…·à†ÿ· †‡·à5¶úú!úMúMúiúžúƒ„wŠ ·ÐÆ ÷àŠ€·ÐX„·Ð9Š ˆ·ÐÆ÷àˆ€·Ð>ˆ€·ÐÆ‚÷àÖÁ%Æ(×'9„ˆŠ@·ÐÆ@÷à„?·ÐŠ@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ðöˆ€·Ð9ÿŠ€·ÐÊ÷àˆ€·ÐÛˆ€·Ð9ÿ·ÐÆ"÷àÇ9ŽúØ0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'¨–„þ·°—– +aŽ_c—þ[ 'X–�ÿ'E–'' ‘'!C”&†—–þ¥\Á&Ó†ÿ $†ÿx ]'XX– �&Æ×–þ~0œ &¥ý�–Š—·°9–4ÆÕ&S÷ S¶°¡ä'˜š—X&ç5Á&–š—9–„þ·°—– +5޼—ý´‘'C”&Žýí– ¦¦—–þ †þè 0œ &Ñý–Š—·°9Ž€j— e— ž 1>[Œ„-'§€1?&ò†1·�Œ„-&†S9ÖÁ%†G9–�%†;9–HŽü>­––HŽü2n–üƒüÐüöüµý¢ýƒø”ø™ø¦ø¬ø²øŽ¶°…'¶�…'ò¶�9Š€95�4¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈü»ÿÂ01?&ô9†ÿ®9†ÿ¨9ŽüŸ0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{qÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_üA¡Ä'C¤Ä&†—¦Äüž\Á&æ†ÿ'9†ÿ!9]'XX– �&Æ×¦Äüy03A1?&½Oÿ944†ƒ·à¦b·ÀÖ XŽù~¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÚ„·Ðÿ9Ü“ $þþÜ ƒÓ“ "Žýí– ¦†—ž΀†þ˜û‹¡Ä' C¤Ä&¦Äûì03A1?&ç †þp922222Ü ƒž΀ûX¡Ä& 03A1?&ñOþR9†þD9;ÿÿÿÿÿÿÿïÿïÿÿÿïø20‚RTS 4230�* 4240�INCHR�JSR�$F015 4250‚RTS 4260�* 4270�CRLF�PSHS�A 4280‚JSR�$F021 4290‚PULS�A 4300‚RTS 4310�* 4320�OUTH1S�STA�PTR 4330‚PSHS�X 4340‚LDX�#PTR 4350‚JSR�$F01B 4360‚PULS�X 4370‚RTS 4380�* 4390�OUTH2S�STD�PTR 4400‚PSHS�X 4410‚LDX�#PTR 4420‚JSR�$F01E 4430‚PULS�X 4440‚RTS 4450�* 4460�INHEX4�NOP 4470‚PSHS�X 4480‚LDX�#PTR 4490�AGAIN�JSR�$F00F 4500‚BCC�AGAIN 4510‚LDU�X 4520‚PC€€HH†€‹†·�†·�Έ†ÿ·°—— †…·à†·�¶�D$ò…& é¶� 䎀¶°Di€Œ€&øŽ€Žøl¦€„�& †·�40­´501"Œ€&æ9ø§øÙú™ø|øŽø‰ø›ø¡9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøËH®†Ÿ S4–о¤à—·°9 @€Ö +-–„¿·°—Ž=4ü0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†H Ù†A Ò44†ƒ·à¦b·ÀÖ XŽùM¦a­µ·Ð¶°Æ‡÷à5´ù[ù`ùgùgùnùxùs„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°¦c·ÀÖ XŽù´¦b­µ†‡·à5¶ùÂùÜúúú$úYú>„wŠ ·ÐÆ ÷àŠ€·Ð„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðÿˆ€·ÐÆ‚÷àÖÁ%Æ(×è9„ˆŠ@·ÐÆ@÷à„?·ÐÑŠ@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ð·ˆ€·Ð9ÿ2Š€·ÐÊ÷àˆ€·Ðœˆ€·Ð9ÿ·ÐÆ"÷àˆ9Žú“0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'i–„þ·°—– +RŽ_:—þq‘'!C”&†—–þÎ\Á&æ†ÿ” (†ÿ� !]'XX– �%�'Æ×–þ£0œ &´ýÛ–Š—·°9–„þ·°—– +5ŽÒ—þ ‘'C”&Žý…– ¦¦—–þ` †ÿ) 0œ &Ñý�–Š—·°9Ž€l— g— ž 1>]Œ„*'§€1?&ò†1·�Œ„*&†2 W9ÖÁ%†K9–�%†?9–HŽû¸­––HŽû¬n–ûÿüPüzü5ý2ýø‰øŽø›ø¡ø§øƒø}¶°…' ¶�…'ò¶�95�Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü '“ $ÜÓ“ "žžOÿÄý ÿ¾01?&ô9†ÿ¬9†ÿ¦9Žüî0�ÿ& œ &óOÿ—9†ÿ‘9Ü '“ $ÎÜÓ“ "ËžžOÿs}ÿm01?&ô9Ü '“ $¤Ü ƒ 'Ó“ "˜ž΀†ÿ?_ü„¡Ä'C¤Ä&†—¦Äüá\Á&æ†ÿ9†ÿ9]'XX– �%�'Æ×¦Äü¸03A1?&¹Oþô944†ƒ·à¦b·ÀÖ XŽùM¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÆ„·Ðÿ9Ü '“ $þêÜ ƒ 'Ó“ "Žý…– ¦†—ž΀†þ|û¡Ä' C¤Ä&¦Äü#03A1?&ç †þV922222Ü ƒž΀ûŽ¡Ä& 03A1?&ñOþ59†þ)9;ÿÿÿÿÿÿÿïÿïÿÿÿïø90‚PSHS�A 1200‚LBSR�ERROR 1210‚LDA�S+ 1220‚BMI�PROG2 1230‚LBSR�IN 1240‚LBSR�ERROR 1250�PROG2�RTS 1260�MREAD�LDA�#1 1270‚BRA�READ2 1280�READ�LDA�#0 1290�READ2�PSHS�A 1300‚LDX�#T5 1310‚JSR�PRINT 1320‚LDU�#0 1330‚JSR�INHEX4 1340‚TFR�U,Y 1350‚LDX�#T7 1360‚JSR�PRINT 1370‚LDU�#1 1380‚JSR�INHEX4 1390‚JSR�PBUSY 1400‚CLRA 1410‚LBSR�OUT 1420‚LDA�#8 1430‚LBSR�OUT 1440‚PULS�A 1450‚LBSR�OUT 146 H€ €øø†€‹†·�†·�Έ†ÿ·°—— †…·à†·�¶�D$ò…&& é¶� 䎀¶°Di€Œ€&øŽ€Žøl¦€„�& †·�40­´501"Œ€&æ9ø§øÙú™ø|øŽø‰ø›ø¡9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøËH®†Ÿ S4–о¤à—·°9 @€Ö +-–„¿·°—Ž=40¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†H Ù†A Ò44†ƒ·à¦b·ÀÖ XŽùM¦a­µ·Ð¶°Æ‡÷à5´ù[ù`ùgùgùnùxùs„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°¦c·ÀÖ XŽù´¦b­µ†‡·à5¶ùÂùÜúúú$úYú>„wŠ ·ÐÆ ÷àŠ€·Ð „·Ð9Š ˆ·ÐÆ÷àˆ€·Ðˆ€·ÐÆ‚÷àÖÁ%Æ(×ï9„ˆŠ@·ÐÆ@÷à„?·ÐØŠ@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ð¾ˆ€·Ð9ÿ2Š€·ÐÊ÷àˆ€·Ð£ˆ€·Ð9ÿ·ÐÆ"÷à�9Žú“0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'i–„þ·°—– +RŽ_A—þq‘'!C”&†—–þÎ\Á&æ†ÿ” (†ÿ� !]'XX– �%�'Æ×–þ£0œ &´ýÛ–Š—·°9–„þ·°—– +<ŽÙ—þ ‘'C”&ŽýŒ– ¦¦—–þ` †ÿ) 0œ &цP—¨ýˆ–Š—·°9Ž€l— g— ž 1>]Œ„*'§€1?&ò†1·�Œ„*&†W9ÖÁ%†K9–�%†?9–HŽû¿­––HŽû³n–üüWü�ü<ý9ýø‰øŽø›ø¡ø§øƒø}¶°…' ¶�…'ò¶�95�Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü '“ $ÜÓ“ "žžOÿÄýÿ¾01?&ô9†ÿ¬9†ÿ¦9Žüç0�ÿ& œ &óOÿ—9†ÿ‘9Ü '“ $ÎÜÓ“ "ËžžOÿs}ÿm01?&ô9Ü '“ $¤Ü ƒ 'Ó“ "˜ž΀†ÿ?_ü}¡Ä'C¤Ä&†—¦ÄüÚ\Á&æ†ÿ9†ÿ9]'XX– �%�'Æ×¦Äü±03A1?&¹Oþô944†ƒ·à¦b·ÀÖ XŽùM¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÆ„·Ðÿ9Ü '“ $þêÜ ƒ 'Ó“ "ŽýŒ– ¦†—ž΀†þ|û»¡Ä' C¤Ä&¦Äü03AK€€øø†€‹†·�†·�Έ†ÿ·°· —— †…·à†—†·�¶�D$ì…&¬ ã¶� ÞŽ€¶°Di€Œ€&øŽ€Žøw¦€„�& †·�40­´501"Œ€&æ9ø²øäúéø‡ø3 ™ø”ø¦ø¬9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøÖH®†Ÿ S4–о¤à—·°9 @€¶°…'jÖ +G–„¿·°—Žq—W 'Æ_ ‘&%0œ &ãŽ<–Š@·°— ' –DDDDŠð· 9Ž0�ÿ& œ &ó†l ʆe Æ—944†ƒ·à¦b·ÀÖ XŽù‰¦a­µ·Ð¶°4– �'_ʇ5÷à5´ù—ùœù£ù£ùªù´ù¯„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°†…·à†· ¦c·ÀÖ XŽú¦b­µ†…·à†ÿ· †‡·à5¶úú,úXúXútú©úŽ„wŠ ·ÐÆ ÷àŠ€·Ð_„·Ð9Š ˆ·ÐÆ÷àˆ€·ÐEˆ€·ÐÆ‚÷àÖÁ%Æ(×.9„ˆŠ@·ÐÆ@÷à„?·ÐŠ@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ðýˆ€·Ð9ÿŠ€·ÐÊ÷àˆ€·Ð∀·Ð9ÿ·ÐÆ"÷àÎ9Žúã0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'¯–„þ·°—– +cŽ_j—þP 'Z–�ÿ'G–'' ‘'!C”&†—–þ¥\Á&Ó†ÿ &†ÿx ]'XX– %�'Æ×–þ|0œ &£ýƒ–Š—·°9–4ÆÕ&S÷ S¶°¡ä'˜š—X&熇·à5Á&–š—9–„þ·°—– +5޼—ý¢‘'C”&Žýÿ– ¦¦—–þ †þá 0œ &Ñý–Š—·°9Ž€j— e— ž 1>[Œ„-'§€1?&ò†1·�Œ„-&†S9ÖÁ%†G9–�%†;9–HŽüP­––HŽüDn–ü•üâýüÇý´ý•ø”ø™ø¦ø¬ø²øŽ¶°…'¶�…'ò¶�9Š€95�4¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈü©ÿÂ01?&ô9†ÿ®9†ÿ¨9Žü�0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{qÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_ü/¡Ä'C¤Ä&†—¦Äü—\Á&æ†ÿ'9†ÿ!9]'XX– �&Æ×¦Äür03A1?&½Oÿ944†ƒ·à¦b·ÀÖ XŽù‰¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÚ„·Ðÿ9Ü“ $þþÜ ƒÓ“ "Žýÿ– ¦†—ž΀†þ˜ûy¡Ä' C¤Ä&¦Äûå03A1?&ç †þp922222Ü ƒž΀ûF¡Ä& 03A1?&ñOþR9†þD9;ÿÿÿÿÿÿÿïÿïÿÿÿïø‚LDX�#T4 3910‚JSR�PRINT 3920‚PULS�D,X,PC 3930�T4�FCB�$D,$A 3940‚FCC�"Unknown�error" 3950‚FCB�4 3960�ERROR3�JSR�CRLF 3970‚JSR�PRINT 3980‚PULS�D,X,PC 3990�ERROR2�FCB�0,4 4000‚FCB�1 4010‚FCC�"Programming" 4020‚FCB�4 4030‚FCB�3 4040‚FCC�"EPROM�not�blank" 4050‚FCB�4 4060‚FCB�$81 4070‚FCC�"Too�mutch�data" 4080‚FCB�4 4090‚FCB�$82 4100‚FCC�"INVALID�COMMAND" 4110‚FCB�4 4120‚FCB�$83 4130‚FCCP€p00½0UÎ.½ð�'¸p¾p¶ì³¶ì³|p½0*m&önŸÿþp†½0`¶p½0`¿p¦€'½0`� &õ†½0`¶p½0`½0|9†·ì²†·ì²94¸p·p5½0q½0Ä9öì²Å'ù·ì³9¶ì³¶ì³½0“�'¾pzp½0Ä9ζ첅& ¶üô…& 3Aƒ' è¶üõ�' ·ì³½0Ä Ù¶ì³9†9½ð9¶üô…' ¶üõ�'·ì³¶ì²…'è¶ì³·üõ ànŸÿþ4 5 6 7 8 ƒð¶ì³UF 1680�READ4�LDB�#16 1690‚PSHS�B 1700‚TFR�U,D 1710‚JSR�CRLF 1720‚JSR�OUTH2S 1730�READ5�LDA�X+ 1740‚JSR�OUTH1S 1750‚LEAU�1,U 1760‚LEAY�-1,Y 1770‚BEQ�READ3 1780‚DEC�S 1790‚BNE�READ5 1800‚LEAS�1,S 1810‚BRA�READ4 1820�READ3�PULS�B,PC 1830�VERI�LDA�#1 1840‚BRA�LOAD9 1850�LOAD�CLRA 1860�LOAD9�PSHS�A 1870‚LDX�#T5 1880‚JSR�PRINT 1890‚LDU�#0 1900‚JSR�INHEX4 1910‚TFR�U,Y 1920‚LDX�#T7 1930‚JSR�PRINT 1940‚LDU�#1 1950‚JSR�INHEX4 1960‚PSHS�U 1970‚LDX�#T9 1980‚JSR�PRINT 1990‚LDU�#0 2000‚JSR�INHEX4 2010‚TFR�U,X 2020‚PULS�U 2030‚JSR�PBUSY 2040‚CLRA 2050‚LBSR�OUT 2060‚LDA�#8 2070‚LBSR�OUT 2080‚LDA�#0 2090‚LBSR�OUT 2100‚LDA�TYPE 2110‚LBSR�OUT 2120‚TFR�Y,D 2130‚LBSR�OUT 2140‚EXG�A,B 2150‚LBSR�OUT 2160‚TFR�U,D 2170‚LBSR�OUT 2180‚EXG�A,B 2190‚LBSR�OUT 2200‚LBSR�IN 2210‚TSTA 2220‚BPL�LOAD8 2230‚LBSR�ERROR 2240‚LEAS�1,S 2250‚RTS 2260�LOAD8�TFR�U,Y 2270‚LDU�#BUF 2280‚LDA�S+ 2290‚BNE�LOAD4 2300�LOAD3�LBSR�IN 2310‚STA�X+ 2320‚LEAY�-1,Y 2330‚BNE�LOAD3 2340‚RTS 2350�LOAD4�LBSR�IN 2360‚CMPA�X+ 2370‚BEQ�LOAD5 2380‚CMPU�#BUF+1024 2390‚BEQ�9 LOAD5 2400‚STX�U++ 2410‚STA�U+ 2420‚LDA�-1,X 2430‚STA�U+ 2440�LOAD5�LEAY�-1,Y 2450‚BNE�LOAD4 2460‚CMPU�#BUF 2470‚BEQ�LOAD10 2480�LOAD12�LDX�#T12 2490‚JSR�PRINT 2500‚LDA�-U 2510‚JSR�OUTH1S 2520‚LDX�#T13 2530‚JSR�PRINT 2540‚LDA�-U 2550‚JSR�OUTH1S 2560‚LDX�#TMs€K0010�*6809 0020�*PRINTER 0030�*LIST 0040�*************************************** 0050�*¥* 0060�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0070�*¢**�* 0080�*‰V24-VERSION‘* 0090�*¥* 0100�*‚WRITTEN�BY�HENK�AERTSŽ* 0110�*¥* 0120�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0130�*†1984�MINDEN/WESTF.�* 0140�*************************************** 0150�* 0160�* 0170�* 0180�RAM�EQU�$8000 0190�ROM�EQU�$F800 0200�MASTER�EQU�0 0210�ACIA�EQU�$9000 0220�INPUT�EQU�$B001 0230�LEDS�EQU�$B001 0240�PBITS�EQU�$E000 0250�ADR1�EQU�$C000 0260�ADR2�EQU�$D000 0270�IO�EQU�$B000 0280‚ORG�RAM 0290‚SETDP�$80 0300�KEYS�RMB�8 0310�CLEDS�RMB�1 0320�TYPE�RMB�1 0330�SIZE�RMB�2 0340�MSGSZE�RMB�2 0350�TIME�RMB�1 0360�TEMP�RMB�1 0370�BUF�RMB�1050 0380‚ORG�ROM 0390�*OFFSET�$7300 0400�START�LDA�#$80 0410‚TFR�A,DP 0420‚LDA�#3 0430‚STA�ACIA 0440‚LDA�#$11 0450‚STA�ACIA 0460‚LDS�#RAM+$800 0470‚LDA�#$FF 0480‚STA�LEDS 0490‚STA�CLEDS 0500‚STA�TYPE 0510‚LDA�#$85 0520‚STA�PBITS 0530‚LDX�#KEYS 0540�INIT2�CLR�X+ 0550‚CMPX�#KEYS+8 0560‚BNE�INIT2 0570�LOOP�LBSR�KEYIN 0580‚LDA�#$11 0590‚STA�ACIA 0600‚LDA�ACIA 0610‚LSRA 0620‚BCC�LOOP 0630‚BITA�#8 0640‚BNE�LOOP1 0650‚LBSR�AIN 0660‚BRA�LOOP 0670�LOOP1�LDA�ACIA+1 0680‚BRA�LOOP 0690�KEYIN�LDX�#KEYS 0700‚LDA�INPUT 0710�KEYIN2�LSRA 0720‚ROL�X+ 0730‚CMPX�#KEYS+8 0740‚BNE�KEYIN2 0750‚LDX�#KEYS 0760‚LDY�#KEYIN3 0770�KEYIN5�LDA�X+ 0780‚ANDA�#3 0790‚CMPA�#2 0800‚BNE�KEYIN4 0810‚LDA�#31 0820‚STA�ACIA 0830‚PSHS�X,Y 0840‚JSR�[Y] 0850‚PULS�X,Y 0860�KEYIN4�LEAY�2,Y 0870‚CMPX�#KEYS+8 0880‚BNE�KEYIN5 0890‚RTS 0900�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 0910�RESERV�RTS 0920�SEL25�LDA�#5 0930‚LDB�#0 0940‚BRA�SEL 0950�SEL16�CLRA 0960‚LDB�#4 0970‚BRA�SEL 0980�SEL32�LDA�INPUT 0990‚BITA�#8 1000‚BEQ�SEL25 1010‚LDA�#1 1020‚LDB�#8 1030‚BRA�SEL 1040�SEL64�LDA�#2 1050‚LDB�#$20 1060‚BRA�SEL 1070�SEL128�LDA�#3 1080‚LDB�#$10 1090‚BRA�SEL 1100�SEL256�LDA�#4 1110‚LDB�#$80 1120�SEL�STA�TYPE 1130‚LDX�#SIZES 1140‚LSLA 1150‚LDX�A,X 1160‚STX�SIZE 1170‚COMB 1180‚PSHS�B 1190‚LDA�CLEDS 1200‚ORA�#$BC 1210‚ANDA�S+ 1220‚STA�CLEDS 1230‚STA�LEDS 1240‚RTS 1250�SIZES�FDB�2048,4096,8192,16384,32768,4096 1260�TEST�LDB�TYPE 1270‚BMI�TEST4 1280‚LDA�CLEDS 1290‚ANDA�#$BF 1300‚STA�LEDS 1310‚STA�CLEDS 1320‚LDX�#0 1330�TEST3�LBSR�READ 1340‚PSHS�A 1350‚LBSR�MREAD 1360‚LEAX�1,X 1370‚CMPA�S+ 1380‚BNE�TEST2 1390‚CMPX�SIZE 1400‚BNE�TEST3 1410�TEST7�LDX�#0 1420‚LBSR�READ 1430‚LDA�CLEDS 1440‚ORA�#$40 1450‚STA�LEDS 1460‚STA�CLEDS 1470�TEST4�RTS 1480�TEST2�LDX�#0 1490�TEST6�LBSR�READ 1500‚INX 1510‚CMPA�#$FF 1520‚BNE�TEST5 1530‚CMPX�SIZE 1540‚BNE�TEST6 1550‚LDA�#4 1560‚LBSR�ERROR 1570‚BRA�TEST7 1580�TEST5�LDA�#3 1590‚LBSR�ERROR 1600‚BRA�TEST7 1610�READ�PSHS�B,X,Y 1620‚LDA�#$83 1630‚STA�PBITS 1640‚LDA�2,S 1650‚STA�ADR1 1660‚LDB�TYPE 1670‚LSLB 1680‚LDY�#READ2 1690‚LDA�1,S 1700‚JSR�[B,Y] 1710‚STA�ADR2 1720‚LDA�IO 1730‚LDB�#$87 1740‚STB�PBITS 1750‚PULS�B,X,Y,PC 1760�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25 1770�RD16�ANDA�#$77 1780‚ORA�#$20 1790‚RTS 1800�RD32�AND: A�#$7F 1810‚EORA�#8 1820‚ORA�#$20 1830‚RTS 1840�RD64�ANDA�#$7F 1850‚EORA�#8 1860‚ORA�#$40 1870‚RTS 1880�RD128�EQU�RD64 1890�RD256�ANDA�#$7F 1900‚EORA�#8 1910‚RTS 1920�RD25�ANDA�#$7F 1930‚ORA�#$20 1940‚BITA�#8 1950‚BEQ�RD25A 1960‚ORA�#$80 1970�RD25A�ANDA�#$F7 1980‚RTS 1990�PRG�PSHS�D,X,Y 2000‚STA�IO 2010‚LDA�3,S 2020‚STA�ADR1�*A0-A7 2030‚LDB�TYPE 2040‚LSLB 2050‚LDY�#PRG2 2060‚LDA�2,S‚*A8-A15 2070‚JSR�[B,Y] 2080‚LDA�#$87 2090‚STA�PBITS 2100‚PULS�D,X,Y,PC 2110�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25 2120�WR16�ANDA�#$77 2130‚ORA�#$20 2140‚STA�ADR2 2150‚LDB�#$20 2160‚STB�PBITS 2170‚ORA�#$80 2180‚STA�ADR2 2190‚LBSR�WAIT 2200‚ANDA�#$7F 2210‚STA�ADR2 2220‚RTS 2230�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2240‚EORA�#$8 2250‚STA�ADR2 2260‚LDB�#8 2270‚STB�PBITS 2280‚EORA�#$80 2290‚STA�ADR2�CS�LOW 2300‚LBSR�WAIT 2310‚EORA�#$80 2320‚STA�ADR2�CS�HIGH 2330‚LDB�#$82 2340‚STB�PBITS 2350‚LDB�TIME 2360‚CMPB�#20 2370‚BLO�WR32A 2380‚LDB�#40 2390‚STB�TIME 2400‚LBSR�WAIT 2410�WR32A�RTS 2420�WR64�ANDA�#$7F 2430‚EORA�#8 2440‚ORA�#$40 2450‚STA�ADR2 2460‚LDB�#$40 2470‚STB�PBITS 2480‚ANDA�#$3F 2490‚STA�ADR2 2500‚LBSR�WAIT 2510‚ORA�#$40 2520‚STA�ADR2 2530‚RTS 2540�WR128�EQU�WR64 2550�WR256�ANDA�#$7F 2560‚EORA�#8 2570‚STA�ADR2 2580‚LDB�#$40 2590‚STB�PBITS 2600‚LBSR�WAIT 2610‚RTS 2620�WR25�LBSR�RD25 2630‚STA�ADR2 2640‚LDB�#$22 2650‚STB�PBITS 2660‚LBSR�WAIT 2670‚RTS 2680�ERROR�LDX�#ERROR5 2690‚LEAX�A,X 2700‚LDA�CLEDS 2710‚ORA�#$BC 2720‚ANDA�X 2730‚LDX�#0 2740�ERROR4�CMPX�#$8000 2750‚BHS�ERROR2 2760‚ANDA�#$FD 2770‚BRA�ERROR3 2780�ERROR2�ORA�#2 2790�ERROR3�STA�LEDS 2800‚LEAX�8,X 2810‚LDB�INPUT 2820‚BITB�#8 2830‚BNE�ERROR4 2840‚LDA�CLEDS 2850‚STA�LEDS 2860‚RTS 2870�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 2880�COPY�LDA�X 2890‚BITA�#1 2900‚BEQ�SLCOPY 2910‚LDA�CLEDS 2920‚ANDA�#$FE 2930‚STA�LEDS 2940‚STA�CLEDS 2950‚LDA�TYPE 2960‚BMI�COPY7 2970‚LDX�#0 2980�COPY6�CLRB 2990�COPY4�LBSR�MREAD 3000‚STA�TEMP 3010‚LBSR�READ 3020‚CMPA�TEMP 3030‚BEQ�COPY5 3040‚COMA 3050‚ANDA�TEMP 3060‚BNE�COPY3 3070‚LDA�#1…EINE�MILLISEKUNDE 3080‚STA�TIME 3090‚LDA�TEMP 3100‚LBSR�PRG 3110‚INCB 3120‚CMPB�#15 3130‚BNE�COPY4 3140‚LDA�#1 3150‚LBSR�ERROR 3160‚BRA�COPY7 3170�COPY3�LDA�#2 3180‚LBSR�ERROR 3190‚BRA�COPY7 3200�COPY5�TSTB 3210‚BEQ�COPY8 3220‚LSLB 3230‚LSLB 3240‚STB�TIME 3250‚LDA�TYPE 3260‚CMPA�#4 3270‚BEQ�COPY8 3280‚LDA�TEMP 3290‚LBSR�PRG 3300�COPY8�INX 3310‚CMPX�SIZE 3320‚BNE�COPY6 3330‚LBSR�TEST 3340�COPY7�LDA�CLEDS 3350‚ORA�#1 3360‚STA�CLEDS 3370‚STA�LEDS 3380‚RTS 3390�SLCOPY�LDA�CLEDS 3400‚ANDA�#$FE 3410‚STA�LEDS 3420‚STA�CLEDS 3430‚LDA�TYPE 3440‚BMI�SLCOP7 3450‚LDX�#0 3460�SLCOP6�CLRB 3470�SLCOP4�LBSR�MREAD 3480‚STA�TEMP 3490‚LBSR�READ 3500‚CMPA�TEMP 3510‚BEQ�SLCOP8 3520‚COMA 3530‚ANDA�TEMP 3540‚BNE�SLCOP3 3550‚LDY�#ZEITEN 3560‚LDA�TYPE 3570‚LDA�A,Y 3580‚STA�TIME 3590‚LDA�TEMP 3600‚LBSR�PRG 3610‚BRA�SLCOP8 3620�SLCOP3�LDA�#2 3630‚LBSR�ERROR 3640‚BRA�SLCOP7 3650�SLCOP8�LEAX�1,X 3660‚CMPX�SIZE 3670‚BNE�SLCOP6 3680‚LBSR�TEST 3690�SLCOP7�LDA�CLEDS 3700‚ORA�#1 3710‚STA�CLEDS 3720‚STA�LEDS 3730‚RTS 3740�AIN�LDX�#BUF 3750‚LBSR�IN 3760‚STA�MSGSZE 3770‚LBSR�IN 3780‚STA�MSGSZE+1 3790‚LDY�MSGSZE 3800‚LEAY�-2,Y 3810�AIN2�LBSR�IN 3820‚CMPX�#BUF+1050 3830‚BEQ�AIN3 3840‚STA�X+ 3850�AIN3�LEAY�-1,Y 3860‚BNE�AIN2 3870‚LDA�#$31 3880‚STA�ACIA 3890‚CMPX�#BUF+1050 3900‚BNE�AIN4 3910‚LDA�#1 3920‚LBSR�AERR 3930‚RTS 3940�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFE; HL 3950‚CMPB�#6 3960‚BLO�AIN5 3970‚LDA�#2 3980‚LBSR�AERR 3990‚RTS 4000�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4010‚CMPA�#7 4020‚BLO�AIN6 4030‚LDA�#3 4040‚LBSR�AERR 4050‚RTS 4060�AIN6�LDA�BUF+1 4070‚LSLA 4080‚LDX�#AIN11 4090‚JSR�[A,X] 4100‚LDA�BUF 4110‚LSLA 4120‚LDX�#AIN10 4130‚JMP�[A,X] 4140�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4150�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 4160�IN�LDA�ACIA 4170‚BITA�#1 4180‚BEQ�IN 4190‚LDA�ACIA+1 4200‚RTS 4210�AERR�ORA�#$80 4220‚LBSR�OUT 4230‚RTS 4240�OUT�PSHS�A 4250�OUT2�LDA�ACIA 4260‚BITA�#2 4270‚BEQ�OUT2 4280‚PULS�A 4290‚STA�ACIA+1 4300‚RTS 4310�WAIT�PSHS�X,A 4320‚LDA�TIME 4330�WAIT3�LDX�#156 4340�WAIT2�DEX 4350‚BNE�WAIT2 4360‚DECA 4370‚BNE�WAIT3 4380‚PULS�X,A,PC 4390�ARD�LDD�BUF+2 4400‚CMPD�SIZE 4410‚BHS�ARD3 4420‚LDD�BUF+2 4430‚ADDD�BUF+4 4440‚CMPD�SIZE 4450‚BHI�ARD4 4460‚LDY�BUF+4 4470‚LDX�BUF+2 4480‚CLRA 4490‚LBSR�OUT 4500�ARD2�LBSR�READ 4510‚LBSR�OUT 4520‚INX 4530‚LEAY�-1,Y 4540‚BNE�ARD2 4550‚RTS 4560�ARD3�LDA�#5 4570‚LBSR�AERR 4580‚RTS 4590�ARD4�LDA�#4 4600‚LBSR�AERR 4610‚RTS 4620�ATST�LDX�#0 4630�ATST2�LBSR�READ 4640‚INX 4650‚CMPA�#$FF 4660‚BNE�ATST3 4670‚CMPX�SIZE 4680‚BNE�ATST2 4690‚CLRA 4700‚LBSR�OUT 4710‚RTS 4720�ATST3�LDA�#3 4730‚LBSR�OUT 4740‚RTS 4750�AMRD�LDD�BUF+2 4760‚CMPD�SIZE 4770‚BHS�ARD3 4780‚LDD�BUF+2 4790‚ADDD�BUF+4 4800‚CMPD�SIZE 4810‚BHI�ARD4 4820‚LDY�BUF+4 4830‚LDX�BUF+2 4840‚CLRA 4850‚LBSR�OUT 4860�AMRD2�LBSR�MREAD 4870‚LBSR�OUT 4880‚INX 4890‚LEAY�-1,Y 4900‚BNE�AMRD2 4910‚RTS 4920�APRG�LDD�BUF+2 4930‚CMPD�SIZE 4940‚BHS�ARD3 4950‚LDD�MSGSZE 4960‚SUBD�#6 4970‚TFR�D,Y 4980‚ADDD�BUF+2 4990‚CMPD�SIZE 5000‚BHI�ARD4 5010‚LDX�BUF+2 5020‚LDU�#BUF+4 5030‚LDA�#1 5040‚LBSR�OUT 5050�APRG6�CLRB 5060�APRG4�LBSR�READ 5070‚CMPA�U 5080‚BEQ�APRG2 5090‚COMA 5100‚ANDA�U 5110‚BNE�APRG3 5120‚LDA�#1 5130‚STA�TIME 5140‚LDA�U 5150‚LBSR�PRG 5160‚INCB 5170‚CMPB�#15 5180‚BNE�APRG4 5190‚LDA�#7 5200‚LBSR�AERR 5210‚RTS 5220�APRG3�LDA�#6 5230‚LBSR�AERR 5240‚RTS 5250�APRG2�TSTB 5260‚BEQ�APRG8 5270‚LSLB 5280‚LSLB 5290‚STB�TIME 5300‚LDA�TYPE 5310‚CMPA�#4 5320‚BEQ�APRG8 5330‚LDA�Y 5340‚LBSR�PRG 5350�APRG8�INX 5360‚LEAU�1,U 5370‚LEAY�-1,Y 5380‚BNE�APRG6 5390‚CLRA 5400‚LBSR�OUT 5410‚RTS 5420�MREAD�PSHS�B,X,Y 5430‚LDA�#$83 5440‚STA�PBITS 5450‚LDA�2,S 5460‚STA�ADR1 5470‚LDB�TYPE 5480‚LSLB 5490‚LDY�#READ2 5500‚LDA�1,S 5510‚JSR�[B,Y] 5520‚EORA�#8 5530‚STA�ADR2 5540‚LDA�MASTER 5550‚LDB�#$87 5560‚STB�PBITS 5570‚PULS�B,X,Y,PC 5580�ERAS�LDA�#$20 5590‚STA�ADR2 5600‚LDB�#$22 5610‚STB�PBITS 5620‚ORA�#$80 5630‚STA�ADR2 5640‚LDB�#100 5650‚STB�TIME 5660�ERAS2�LBSR�WAIT 5670‚ANDA�#$7F 5680‚STA�ADR2 5690‚LBSR�ATST 5700‚RTS 5710�SLPRG�LDD�BUF+2 5720‚CMPD�SIZE 5730‚LBHS�ARD3 5740‚LDD�MSGSZE 5750‚SUBD�#6 5760‚TFR�D,Y 5770‚ADDD�BUF+2 5780‚CMPD�SIZE 5790‚BHI�SLPRG4 5800‚LDX�#ZEITEN 5810‚LDA�TYPE 5820‚LDA�A,X 5830‚STA�TIME 5840‚LDX�BUF+2 5850‚LDU�#BUF+4 5860‚LDA�#1 5870‚LBSR�OUT 5880�SLPRG4�LBSR�READ 5890‚CMPA�U 5900‚BEQ�SLPRG2 5910‚COMA 5920‚ANDA�U 5930‚BNE�SLPRG3 5940‚LDA�U 5950‚LBSR�PRG 5960�SLPRG2�INX 5970‚LEAU�1,U 5980‚LEAY�-1,Y 5990‚BNE�SLPRG4 6000‚BRA�VERIFY 6010�SLPRG3�LDA�#6 6020‚LBSR�AERR 6030‚RTS 6040�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6050�VERIFY�EQU�* 6060‚LDD�MSGSZE 6070‚SUBD�#6 6080‚TFR�D,Y 6090‚LDX�BUF+2 6100‚LDU�#BUF+4 6110�VERIF2�LBSR�READ 6120‚CMPA�U 6130‚BNE�VERIF1 6140‚INX 6150‚LEAU�1,U 6160‚LEAY�-1,Y 6170‚BNE�VERIF2 6180‚CLRA 6190‚L< BSR�OUT 6200‚RTS 6210�VERIF1�LDA�#7 6220‚LBSR�AERR 6230‚RTS 6240‚ORG�$FFFE 6250‚FDB�START 6260‚END EQU�$D000 0270�IO�EQU�$B000 0280‚ORG�RAM 0290‚SETDP�$80 0300�KEYS�RMB�8 0310�CLEDS�RMB�1 0320�TYPE�RMB�1 0330�SIZE�RMB�2 0340�MSGSZE�RMB�2 0350�TIME�RMB�1 0360�TEMP�RMB�1 0370�BUF�RMB�1050 0380‚ORG�ROM 0390�*OFFSET�$7300 0400�START�LDA�#$80 0410‚TFR�A,DP 0420‚LDA�#3 0430‚STA�ACIA 0440‚LDA�#$11 0450‚STA�ACIA 0460‚LDS�#RAM+$800 0470‚LDA�#$FF 0480‚STA�LEDS 0490‚STA�CLEDS 0500‚STA�TYPE=‡€=0010�STACK�EQU�$2FFF 0020�ACIA�EQU�$ECB0 0030‚ORG�$3000 0040�START�LDA�#3 0050‚STA�ACIA 0060‚LDA�#$11 0070‚STA�ACIA 0080‚LDA�#$FF 0090‚STA�TYPE 0100‚STS�SAV 0110‚LDS�#STACK 0120�MAIN1�LDX�#T1 0130‚JSR�PRINT 0140�MAIN�LDX�#T3 0150‚JSR�PRINT 0160‚LDA�$FCF5 0170‚LDA�$FCF5 0180‚JSR�INCHR 0190‚LDX�#MAIN2 0200�MAIN4�CMPA�#$45 0210‚BEQ�EXIT 0220‚CMPA�X 0230‚BEQ�MAIN3 0240‚LEAX�3,X 0250‚CMPX�#MAIN2+27 0260‚BNE�MAIN4 0270‚BRA�MAIN1 0280�MAIN3�LDA�ACIA+1�CLR�RECEIVE�REGISTER�IF�NEEDED 0290‚LDA�ACIA+1 0300‚PSHS�X 0310‚JSR�CHECK 0320‚PULS�X 0330‚BCS�MAIN 0340‚JSR�[1,X] 0350‚BRA�MAIN 0360�EXIT�LDS�SAV 0370‚FCB�$3F,$1A„BACK�TO�MDOS�OR�EXBUG 0380�MAIN2�FCC�"T" 0390‚FDB�TEST 0400‚FCC�"S" 0410‚FDB�SEL 0420‚FCC�"R" 0430‚FDB�READ 0440‚FCC�"M" 0450‚FDB�MREAD 0460‚FCC�"P" 0470‚FDB�PROG 0480‚FCC�"E" 0490‚FDB�EXIT 0500‚FCC�"L" 0510‚FDB�LOAD 0520‚FCC�"D" 0530‚FDB�DUMP 0540‚FCC�"V" 0550‚FDB�VERI 0560�T1�FCB�$D,$A 0570‚FCC�"Invalid�command,�select:" 0580‚FCB�$D,$A 0590‚FCC�"ˆT�TO�PERFORM�A�BLANK�CHECK" 0600‚FCB�$D,$A 0610‚FCC�"ˆS�to�select�a�EPROM�type" 0620‚FCB�$D,$A 0630‚FCC�"ˆR�to�read�the�copy�EPROM" 0640‚FCB�$D,$A 0650‚FCC�"ˆM�to�read�the�master�EPROM" 0660‚FCB�$D,$A 0670‚FCC�"ˆP�to�programm�the�copy�EPROM" 0680‚FCB�$D,$A 0690‚FCC�"ˆE�to�exit�the�programm" 0700‚FCB�$D,$A 0710‚FCC�"ˆL�to�load�the�copy�EPROM�contents�to�memory" 0720‚FCB�$D,$A 0730‚FCC�"ˆD�to�dump�memory�contents�into�the�EPROM" 0740‚FCB�$D,$A 0750‚FCC�"ˆV�TO�VERIFY�COPY�EPROM�CONTENTS�WITH�MEMORY" 0760‚FCB�4 0770�TEST�JSR�PBUSY 0780‚CLRA 0790‚LBSR�OUT 0800‚LDA�#4 0810‚LBSR�OUT 0820‚LDA�#3 0830‚LBSR�OUT 0840‚LDA�TYPE 0850‚LBSR�OUT 0860‚LBSR�IN 0870‚LBSR�ERROR 0880‚RTS 0890�SEL�LDX�#T2 0900‚JSR�PRINT 0910‚JSR�INCHR 0920‚CMPA�#'0 0930‚BLO�SEL 0940‚CMPA�#'5 0950‚BHI�SEL 0960‚ANDA�#$F 0970‚STA�TYPE 0980‚RTS 0990�PROG�LDX�#T5 1000‚JSR�PRINT 1010‚JSR�INHEX4 1020‚TFR�U,Y 1030‚LDX�#T6 1040‚JSR�PRINT 1050‚JSR�INHEX4 1060‚JSR�PBUSY 1070‚CLRA 1080‚LBSR�OUT 1090‚LDA�#7 1100‚LBSR�OUT 1110‚LDA�#2 1120‚LBSR�OUT 1130‚LDA�TYPE 1140‚LBSR�OUT 1150‚TFR�Y,D 1160‚LBSR�OUT 1170‚EXG�A,B 1180‚LBSR�OUT 1190‚TFR�U,D 1200‚TFR�B,A 1210‚LBSR�OUT 1220‚LBSR�IN 1230‚PSHS�A 1240‚LBSR�ERROR 1250‚LDA�S+ 1260‚BMI�PROG2 1270‚LBSR�IN 1280‚LBSR�ERROR 1290�PROG2�RTS 1300�MREAD�LDA�#1 1310‚BRA�READ2 1320�READ�LDA�#0 1330�READ2�PSHS�A 1340‚LDX�#T5 1350‚JSR�PRINT 1360‚LDU�#0 1370‚JSR�INHEX4 1380‚TFR�U,Y 1390‚LDX�#T7 1400‚JSR�PRINT 1410‚LDU�#1 1420‚JSR�INHEX4 1430‚JSR�PBUSY 1440‚CLRA 1450‚LBSR�OUT 1460‚LDA�#8 1470‚LBSR�OUT 1480‚PULS�A 1490‚LBSR�OUT 1500‚LDA�TYPE 1510‚LBSR�OUT 1520‚TFR�Y,D 1530‚LBSR�OUT 1540‚EXG�A,B 1550‚LBSR�OUT 1560‚TFR�U,D 1570‚LBSR�OUT 1580‚EXG�A,B 1590‚LBSR�OUT 1600‚LBSR�IN 1610‚TSTA 1620‚BPL�READ9 1630‚LBSR�ERROR 1640‚R= TS 1650�READ9�EXG�U,Y 1660‚PSHS�Y 1670‚LDX�#BUF 1680�READ6�LBSR�IN 1690‚STA�X+ 1700‚LEAY�-1,Y 1710‚BNE�READ6 1720‚PULS�Y 1730‚LDX�#BUF 1740�READ4�LDB�#16 1750‚PSHS�B 1760‚TFR�U,D 1770‚JSR�CRLF 1780‚JSR�OUTH2S 1790�READ5�LDA�X+ 1800‚JSR�OUTH1S 1810‚LEAU�1,U 1820‚LEAY�-1,Y 1830‚BEQ�READ3 1840‚DEC�S 1850‚BNE�READ5 1860‚LEAS�1,S 1870‚BRA�READ4 1880�READ3�PULS�B,PC 1890�VERI�LDA�#1 1900‚BRA�LOAD9 1910�LOAD�CLRA 1920�LOAD9�PSHS�A 1930‚LDX�#T5 1940‚JSR�PRINT 1950‚LDU�#0 1960‚JSR�INHEX4 1970‚TFR�U,Y 1980‚LDX�#T7 1990‚JSR�PRINT 2000‚LDU�#1 2010‚JSR�INHEX4 2020‚PSHS�U 2030‚LDX�#T9 2040‚JSR�PRINT 2050‚LDU�#0 2060‚JSR�INHEX4 2070‚TFR�U,X 2080‚PULS�U 2090‚JSR�PBUSY 2100‚CLRA 2110‚LBSR�OUT 2120‚LDA�#8 2130‚LBSR�OUT 2140‚LDA�#0 2150‚LBSR�OUT 2160‚LDA�TYPE 2170‚LBSR�OUT 2180‚TFR�Y,D 2190‚LBSR�OUT 2200‚EXG�A,B 2210‚LBSR�OUT 2220‚TFR�U,D 2230‚LBSR�OUT 2240‚EXG�A,B 2250‚LBSR�OUT 2260‚LBSR�IN 2270‚TSTA 2280‚BPL�LOAD8 2290‚LBSR�ERROR 2300‚LEAS�1,S 2310‚RTS 2320�LOAD8�TFR�U,Y 2330‚LDU�#BUF 2340‚LDA�S+ 2350‚BNE�LOAD4 2360�LOAD3�LBSR�IN 2370‚STA�X+ 2380‚LEAY�-1,Y 2390‚BNE�LOAD3 2400‚RTS 2410�LOAD4�LBSR�IN 2420‚CMPA�X+ 2430‚BEQ�LOAD5 2440‚CMPU�#BUF+1024 2450‚BEQ�LOAD5 2460‚STX�U++ 2470‚STA�U+ 2480‚LDA�-1,X 2490‚STA�U+ 2500�LOAD5�LEAY�-1,Y 2510‚BNE�LOAD4 2520‚CMPU�#BUF 2530‚BEQ�LOAD10 2540�LOAD12�LDX�#T12 2550‚JSR�PRINT 2560‚LDA�-U 2570‚JSR�OUTH1S 2580‚LDX�#T13 2590‚JSR�PRINT 2600‚LDA�-U 2610‚JSR�OUTH1S 2620‚LDX�#T14 2630‚JSR�PRINT 2640‚LDD�--U 2650‚SUBD�#1 2660‚JSR�OUTH2S 2670‚CMPU�#BUF 2680‚BNE�LOAD12 2690‚RTS 2700�LOAD10�LDX�#T15 2710‚JSR�PRINT 2720‚RTS 2730�DUMP�LDX�#T5 2740‚JSR�PRINT 2750‚LDU�#0 2760‚JSR�INHEX4 2770‚PSHS�U 2780‚LDX�#T7 2790‚JSR�PRINT 2800‚LDU�#1 2810‚JSR�INHEX4 2820‚PSHS�U 2830‚LDX�#T9 2840‚JSR�PRINT 2850‚LDU�#0 2860‚JSR�INHEX4 2870‚JSR�PBUSY 2880�DUMP2�LDD�S 2890‚BEQ�DUMP4 2900‚CMPD�#$400 2910‚BLS�DUMP7 2920‚LDD�#$400 2930�DUMP7�TFR�D,Y 2940‚ADDD�#6 2950‚LBSR�OUT 2960‚EXG�A,B 2970‚LBSR�OUT 2980‚LDA�#2 2990‚LBSR�OUT 3000‚LDA�TYPE 3010‚LBSR�OUT 3020‚LDA�2,S 3030‚LBSR�OUT 3040‚LDA�3,S 3050‚LBSR�OUT 3060�DUMP3�LDA�U+ 3070‚LBSR�OUT 3080‚LEAY�-1,Y 3090‚BNE�DUMP3 3100‚LBSR�IN 3110‚TSTA 3120‚BMI�DUMP5 3130‚LBSR�IN 3140‚TSTA 3150‚BMI�DUMP6 3160‚LDD�2,S 3170‚ADDD�#$400 3180‚STD�2,S 3190‚LDD�S 3200‚SUBD�#$400 3210‚STD�S 3220‚BPL�DUMP2 3230�DUMP4�LEAS�4,S 3240‚RTS 3250�DUMP6�EQU�* 3260�DUMP5�LBSR�ERROR 3270‚LEAS�4,S 3280‚RTS 3290�T2�FCB�$D,$A 3300‚FCC�"Select�type�0=2716" 3310‚FCB�$D,$A 3320‚FCC�"Œ1=2732" 3330‚FCB�$D,$A 3340‚FCC�"Œ2=2764" 3350‚FCB�$D,$A 3360‚FCC�"Œ3=27128" 3370‚FCB�$D,$A 3380‚FCC�"Œ4=27256" 3390‚FCB�$D,$A 3400‚FCC�"Œ5=2532‚your�choice�?" 3410‚FCB�4 3420�T3�FCB�$D,$A 3430‚FCC�"Enter�command�:" 3440‚FCB�4 3450�T5�FCB�$D,$A 3460‚FCC�"Start�address�EPROM:" 3470‚FCB�4 3480�T6�FCB�$D,$A 3490‚FCC�"Data:" 3500‚FCB�4 3510�T7�FCB�$D,$A 3520‚FCC�"Number�of�bytes:" 3530‚FCB�4 3540�T9�FCB�$D,$A 3550‚FCC�"Memory�address:" 3560‚FCB�4 3570�T12�FCB�$D,$A 3580‚FCC�"Data�should�be:" 3590‚FCB�4 3600�T13�FCC�"was:" 3610‚FCB�4 3620�T14�FCC�"at�address�" 3630‚FCB�4 3640�T15�FCB�$D,$A 3650‚FCC�"Data�equal" 3660‚FCB�4 3670�T20�FCB�$D,$A 3680‚FCC�"BUSY.....WAIT" 3690‚FCB�4 3700�T21�FCB�$D,$A 3710‚FCC�"NO�RESPONSE�MICRO-PROM" 3720‚FCB�4 3730�T22�FCB�$D,$A 3740‚FCC�"RESPONSE�$82�EXPECTED�BY�CHECK" 3750‚FCB�4 3760�IN�LDA�ACIA 3770‚BITA�#1 3780‚BEQ�IN 3790‚LDA�ACIA+1 3800‚RTS 3810�OUT�PSHS�A 382> 0�OUT2�LDA�ACIA 3830‚BITA�#2 3840‚BEQ�OUT2 3850‚PULS�A 3860‚STA�ACIA+1 3870‚RTS 3880�ERROR�PSHS�D,X 3890‚LDX�#ERROR2 3900�ERROR5�CMPA�X+ 3910‚BEQ�ERROR3 3920‚CMPX�#ERROR4 3930‚BNE�ERROR5 3940‚LDX�#T4 3950‚JSR�PRINT 3960‚PULS�D,X,PC 3970�T4�FCB�$D,$A 3980‚FCC�"Unknown�error" 3990‚FCB�4 4000�ERROR3�JSR�CRLF 4010‚JSR�PRINT 4020‚PULS�D,X,PC 4030�ERROR2�FCB�0,4 4040‚FCB�1 4050‚FCC�"Programming" 4060‚FCB�4 4070‚FCB�3 4080‚FCC�"EPROM�not�blank" 4090‚FCB�4 4100‚FCB�$81 4110‚FCC�"Too�mutch�data" 4120‚FCB�4 4130‚FCB�$82 4140‚FCC�"INVALID�COMMAND" 4150‚FCB�4 4160‚FCB�$83 4170‚FCC�"EPROM�TYPE�WRONG" 4180‚FCB�4 4190‚FCB�$84 4200‚FCC�"Data�doesn't�fit" 4210‚FCB�4 4220‚FCB�$85 4230‚FCC�"Start�address�outside�EPROM�space" 4240‚FCB�4 4250‚FCB�$86 4260‚FCC�"EPROM�not�empty" 4270‚FCB�4 4280‚FCB�$87 4290‚FCC�"EPROM�will�not�proramm" 4300‚FCB�4 4310�ERROR4�EQU�* 4320�* 4330�PRINT�JSR�$F027 4340‚RTS 4350�* 4360�INCHR�JSR�$F015 4370‚RTS 4380�* 4390�CRLF�PSHS�A 4400‚JSR�$F021 4410‚PULS�A 4420‚RTS 4430�* 4440�OUTH1S�STA�PTR 4450‚PSHS�X 4460‚LDX�#PTR 4470‚JSR�$F01B 4480‚PULS�X 4490‚RTS 4500�* 4510�OUTH2S�STD�PTR 4520‚PSHS�X 4530‚LDX�#PTR 4540‚JSR�$F01E 4550‚PULS�X 4560‚RTS 4570�* 4580�INHEX4�NOP 4590‚PSHS�X 4600‚LDX�#PTR 4610�AGAIN�JSR�$F00F 4620‚BCC�AGAIN 4630‚LDU�X 4640‚PULS�X 4650‚RTS 4660�* 4670�PBUSY�NOP 4680‚PSHS�A,X 4690‚LDX�#T20 4700‚JSR�PRINT 4710‚PULS�A,X 4720‚RTS 4730�* 4740�CHECK�CLRA 4750‚LBSR�OUT 4760‚LDA�#4 4770‚LBSR�OUT 4780‚LDA�#$FF 4790‚LBSR�OUT 4800‚LBSR�OUT 4810‚JSR�DELAY 4820‚LDA�ACIA 4830‚RORA 4840‚BCC�ERPR1 4850‚LBSR�IN 4860‚CMPA�#$82 4870‚BNE�ERPR2 4880‚ANDCC�#$FE 4890‚RTS 4900�* 4910�DELAY�LDX�#$FFF 4920�DEL�LEAX�-1,X 4930‚BNE�DEL 4940‚RTS 4950�* 4960�ERPR1�LDX�#T21 4970�PR�JSR�PRINT 4980‚ORCC�#$01ƒSET�CARRY 4990‚RTS 5000�ERPR2�LDX�#T22 5010‚BRA�PR 5020�* 5030�TYPE�RMB�1 5040�PTR�RMB�2 5050�SAV�RMB�2 5060�BUF�RMB�1050 5070‚END �SLPRG4 5770‚LDX�#ZEITEN 5780‚LDA�TYPE 5790‚LDA�A,X 5800‚STA�TIME 5810‚LDX�BUF+2 5820‚LDU�#BUF+4 5830‚LDA�#1 5840‚LBSR�OUT 5850�Y—€Y0010�*6809 0020�*PRINTER 0030‚OPT�LLEN=120 0040�*LIST 0050�*************************************** 0060�*¥* 0070�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0080�*¢**�* 0090�*‰V24-VERSION‘* 0100�*¥* 0110�*‚WRITTEN�BY�HENK�AERTSŽ* 0120�*¥* 0130�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0140�*†1984�MINDEN/WESTF.�* 0150�*************************************** 0160�* 0170�* 0180�* 0190�*************************************** 0200�*¥* 0210�*‚EXTENSIONS�FOR�4-GANG�UNIT‰* 0220�*¥* 0230�*‚BY�GUUS�VAN�DER�BURGTŽ* 0240�*¥* 0250�*************************************** 0260�RAM�EQU�$8000 0270�ROM�EQU�$F800 0280�MASTER�EQU�0 0290�ACIA�EQU�$9000 0300�INPUT�EQU�$B001 0310�LEDS�EQU�$B001 0320�PBITS�EQU�$E000 0330�ADR1�EQU�$C000 0340�ADR2�EQU�$D000 0350�IO�EQU�$B000 0360�GANGCE�EQU�$A000 0370�* 0380‚ORG�RAM 0390‚SETDP�$80 0400�* 0410�KEYS�RMB�8 0420�CLEDS�RMB�1 0430�TYPE�RMB�1 0440�SIZE�RMB�2 0450�MSGSZE�RMB�2 0460�TIME�RMB�1 0470�TEMP�RMB�1 0480�GANG�RMB�1‚************************ 0490�MSK1�RMB�1‚************************ 0500�MSK2�RMB�1‚************************ 0510�BUF�RMB�1050 0520‚ORG�ROM 0530�*OFFSET�$7300 0540�START�LDA�#$80 0550‚TFR�A,DP 0560‚LDA�#3 0570‚STA�ACI? A 0580‚LDA�#$11 0590‚STA�ACIA 0600‚LDS�#RAM+$800 0610‚LDA�#$FF 0620‚STA�LEDS 0630‚STA�GANGCE‚********�SWITCH�OF�LEDS�********** 0640‚CLR�GANG‚************************** 0650‚STA�CLEDS 0660‚STA�TYPE 0670‚LDA�#$85 0680‚STA�PBITS 0690�LOOP�LBSR�KEYIN 0700‚CLR�MSK1 0710‚LDA�#$0F 0720‚STA�MSK2‚ONLY�4�SOCKETS�CLEARED 0730‚LDA�#$11 0740‚STA�ACIA 0750‚LDA�ACIA 0760‚LSRA 0770‚BCC�LOOP 0780‚BITA�#8 0790‚BNE�LOOP1 0800‚LBSR�AIN 0810‚BRA�LOOP 0820�LOOP1�LDA�ACIA+1 0830‚BRA�LOOP 0840�KEYIN�LDX�#KEYS 0850‚LDA�INPUT 0860�KEYIN2�LSRA 0870‚ROL�X+ 0880‚CMPX�#KEYS+8 0890‚BNE�KEYIN2 0900‚LDX�#KEYS 0910‚LDY�#KEYIN3 0920�KEYIN5�LDA�X+ 0930‚ANDA�#3 0940‚CMPA�#2 0950‚BNE�KEYIN4 0960‚LDA�#31 0970‚STA�ACIA 0980‚PSHS�X,Y 0990‚JSR�[Y] 1000‚PULS�X,Y 1010�KEYIN4�LEAY�2,Y 1020‚CMPX�#KEYS+8 1030‚BNE�KEYIN5 1040‚RTS 1050�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1060�RESERV�RTS 1070�SEL25�LDA�#5 1080‚LDB�#0 1090‚BRA�SEL 1100�SEL16�CLRA 1110‚LDB�#4 1120‚BRA�SEL 1130�SEL32�LDA�INPUT 1140‚BITA�#8 1150‚BEQ�SEL25 1160‚LDA�#1 1170‚LDB�#8 1180‚BRA�SEL 1190�SEL64�LDA�#2 1200‚LDB�#$20 1210‚BRA�SEL 1220�SEL128�LDA�#3 1230‚LDB�#$10 1240‚BRA�SEL 1250�SEL256�LDA�#4 1260‚LDB�#$80 1270�SEL�STA�TYPE 1280‚LDX�#SIZES 1290‚LSLA 1300‚LDX�A,X 1310‚STX�SIZE 1320‚COMB 1330‚PSHS�B 1340‚LDA�CLEDS 1350‚ORA�#$BC 1360‚ANDA�S+ 1370‚STA�CLEDS 1380‚STA�LEDS 1390‚RTS 1400�SIZES�FDB�2048,4096,8192,16384,32768,4096 1410�* 1420�TEST�LDA�INPUT 1430‚BITA�#8 1440‚BEQ�GANGSL‚*******�SET�GANG�IF�ERROR�KEY�PRESSED�** 1450‚LDB�TYPE 1460‚BMI�TEST4 1470‚LDA�CLEDS 1480‚ANDA�#$BF 1490‚STA�LEDS 1500‚STA�CLEDS 1510‚LDX�#0 1520�TEST3�LBSR�MREAD 1530‚STA�TEMP 1540‚LBSR�READ 1550‚TST�GANG 1560‚BEQ�NOGNG 1570‚LDB�#14 1580‚LBSR�GANGRD 1590‚BRA�TEST9 1600�NOGNG�CMPA�TEMP 1610‚BNE�TEST2 1620�TEST9�LEAX�1,X 1630‚CMPX�SIZE 1640‚BNE�TEST3 1650�TEST7�LDX�#0 1660‚LBSR�READ 1670‚LDA�CLEDS 1680‚ORA�#$40 1690‚STA�LEDS 1700‚STA�CLEDS 1710‚TST�GANG 1720‚BEQ�TEST4 1730‚LDA�MSK2 1740‚LSRA 1750‚LSRA 1760‚LSRA 1770‚LSRA 1780‚ORA�#$F0 1790‚STA�GANGCE 1800�TEST4�RTS 1810�TEST2�LDX�#0 1820�TEST6�LBSR�READ 1830‚INX 1840‚CMPA�#$FF 1850‚BNE�TEST5 1860‚CMPX�SIZE 1870‚BNE�TEST6 1880‚LDA�#4 1890‚LBSR�ERROR 1900‚BRA�TEST7 1910�TEST5�LDA�#3 1920‚LBSR�ERROR 1930‚BRA�TEST7 1940�* 1950�GANGSL�LDA�#1 1960‚STA�GANG 1970‚RTS 1980�* 1990�READ�PSHS�B,X,Y 2000‚LDA�#$83 2010‚STA�PBITS 2020‚LDA�2,S 2030‚STA�ADR1 2040‚LDB�TYPE 2050‚LSLB 2060‚LDY�#READ2 2070‚LDA�1,S 2080‚JSR�[B,Y] 2090‚STA�ADR2 2100‚LDA�IO 2110‚LDB�#$87 2120‚STB�PBITS 2130‚PULS�B,X,Y,PC 2140�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25 2150�RD16�ANDA�#$77 2160‚ORA�#$20 2170‚RTS 2180�RD32�ANDA�#$7F 2190‚EORA�#8 2200‚ORA�#$20 2210‚RTS 2220�RD64�ANDA�#$7F 2230‚EORA�#8 2240‚ORA�#$40 2250‚RTS 2260�RD128�EQU�RD64 2270�RD256�ANDA�#$7F 2280‚EORA�#8 2290‚RTS 2300�RD25�ANDA�#$7F 2310‚ORA�#$20 2320‚BITA�#8 2330‚BEQ�RD25A 2340‚ORA�#$80 2350�RD25A�ANDA�#$F7 2360‚RTS 2370�PRG�PSHS�D,X,Y 2380‚STA�IO 2390‚LDA�#$85‚OE�HIGH 2400‚STA�PBITS 2410‚LDA�#$0F 2420‚STA�GANGCE 2430‚LDA�3,S 2440‚STA�ADR1�*A0-A7 2450‚LDB�TYPE 2460‚LSLB 2470‚LDY�#PRG2 2480‚LDA�2,S‚*A8-A15 2490‚JSR�[B,Y] 2500‚LDA�#$85‚OE�HIGH 2510‚STA�PBITS 2520‚LDA�#$FF 2530‚STA�GANGCE‚ALL�CE�HIGH 2540‚LDA�#$87 2550‚STA�PBITS 2560‚PULS�D,X,Y,PC 2570�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25 2580�WR16�ANDA�#$77 2590‚ORA�#$20 2600‚STA�ADR2 2610‚LDB�#$20 2620‚STB�PBITS 2630‚OR@ A�#$80 2640‚STA�ADR2 2650‚LBSR�WAIT 2660‚ANDA�#$7F 2670‚STA�ADR2 2680‚RTS 2690�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2700‚EORA�#$8 2710‚STA�ADR2 2720‚LDB�#8 2730‚STB�PBITS 2740‚EORA�#$80 2750‚STA�ADR2�CS�LOW 2760‚LBSR�WAIT 2770‚EORA�#$80 2780‚STA�ADR2�CS�HIGH 2790‚LDB�#$82 2800‚STB�PBITS 2810‚LDB�TIME 2820‚CMPB�#20 2830‚BLO�WR32A 2840‚LDB�#40 2850‚STB�TIME 2860‚LBSR�WAIT 2870�WR32A�RTS 2880�WR64�ANDA�#$7F 2890‚EORA�#8 2900‚ORA�#$40 2910‚STA�ADR2 2920‚LDB�#$40 2930‚STB�PBITS 2940‚ANDA�#$3F 2950‚STA�ADR2 2960‚LBSR�WAIT 2970‚ORA�#$40 2980‚STA�ADR2 2990‚RTS 3000�WR128�EQU�WR64 3010�WR256�ANDA�#$7F 3020‚EORA�#8 3030‚STA�ADR2 3040‚LDB�#$40 3050‚STB�PBITS 3060‚LBSR�WAIT 3070‚RTS 3080�WR25�LBSR�RD25 3090‚STA�ADR2 3100‚LDB�#$22 3110‚STB�PBITS 3120‚LBSR�WAIT 3130‚RTS 3140�ERROR�LDX�#ERROR5 3150‚LEAX�A,X 3160‚LDA�CLEDS 3170‚ORA�#$BC 3180‚ANDA�X 3190‚LDX�#0 3200�ERROR4�CMPX�#$8000 3210‚BHS�ERROR2 3220‚ANDA�#$FD 3230‚BRA�ERROR3 3240�ERROR2�ORA�#2 3250�ERROR3�STA�LEDS 3260‚LEAX�8,X 3270‚LDB�INPUT 3280‚BITB�#8 3290‚BNE�ERROR4 3300‚LDA�CLEDS 3310‚STA�LEDS 3320‚RTS 3330�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 3340�* 3350�COPY�LDA�X 3360‚BITA�#1 3370‚LBEQ�SLCOPY 3380‚LDA�CLEDS 3390‚ANDA�#$FE 3400‚STA�LEDS 3410‚STA�CLEDS 3420‚LDA�TYPE 3430‚BMI�COPY7 3440‚LDX�#0 3450�COPY6�CLRB 3460‚LBSR�MREAD 3470‚STA�TEMP 3480�COPY4�LBSR�READ 3490‚TST�GANG‚************ 3500‚BEQ�NOGANG 3510‚LBSR�GANGRD 3520‚LDA�MSK2 3530‚CMPA�#$FF 3540‚BEQ�COPYTS 3550‚LDA�MSK1 3560‚BEQ�COPY5 3570‚BRA�COPY2 3580�NOGANG�CMPA�TEMP 3590‚BEQ�COPY5 3600‚COMA 3610‚ANDA�TEMP 3620‚BNE�COPY3 3630�COPY2�LDA�#1…EINE�MILLISEKUNDE 3640‚STA�TIME 3650‚LDA�TEMP 3660‚LBSR�PRG 3670‚INCB 3680‚CMPB�#15 3690‚BNE�COPY4 3700‚LDA�#1 3710‚LBSR�ERROR 3720‚BRA�COPY7 3730�COPY3�LDA�#2 3740‚LBSR�ERROR 3750‚BRA�COPY7 3760�COPY5�TSTB 3770‚BEQ�COPY8 3780‚LSLB 3790‚LSLB 3800‚LDA�TYPE 3810‚CMPA�#4 3820‚BNE�COPY22 3830‚LDB�#2 3840�COPY22�STB�TIME 3850‚LDA�TEMP 3860‚LBSR�PRG 3870�COPY8�INX 3880‚CMPX�SIZE 3890‚BNE�COPY6 3900�COPYTS�LBSR�TEST 3910�COPY7�LDA�CLEDS 3920‚ORA�#1 3930‚STA�CLEDS 3940‚STA�LEDS 3950‚RTS 3960�* 3970�GANGRD�LDA�TEMP 3980‚PSHS�D 3990‚CLR�MSK1 4000‚LDB�#$10 4010�NXTRD�BITB�MSK2 4020‚BNE�SKIPRD 4030‚COMB 4040‚STB�GANGCE 4050‚COMB 4060‚LDA�IO 4070‚CMPA�S 4080‚BEQ�SKIPRD 4090‚TFR�B,A 4100‚ORA�MSK1 4110‚STA�MSK1 4120�SKIPRD�LSLB 4130‚BNE�NXTRD 4140‚PULS�D 4150‚CMPB�#14 4160‚BNE�GANGEX 4170‚LDA�MSK2 4180‚ORA�MSK1 4190‚STA�MSK2 4200‚CLR�MSK1 4210�GANGEX�RTS 4220�* 4230�SLCOPY�LDA�CLEDS 4240‚ANDA�#$FE 4250‚STA�LEDS 4260‚STA�CLEDS 4270‚LDA�TYPE 4280‚BMI�SLCOP7 4290‚LDX�#0 4300�SLCOP6�LBSR�MREAD 4310‚STA�TEMP 4320‚LBSR�READ 4330‚CMPA�TEMP 4340‚BEQ�SLCOP8 4350‚COMA 4360‚ANDA�TEMP 4370‚BNE�SLCOP3 4380‚LDY�#ZEITEN 4390‚LDA�TYPE 4400‚LDA�A,Y 4410‚STA�TIME 4420‚LDA�TEMP 4430‚LBSR�PRG 4440‚BRA�SLCOP8 4450�SLCOP3�LDA�#2 4460‚LBSR�ERROR 4470‚BRA�SLCOP7 4480�SLCOP8�LEAX�1,X 4490‚CMPX�SIZE 4500‚BNE�SLCOP6 4510‚LBSR�TEST 4520�SLCOP7�LDA�CLEDS 4530‚ORA�#1 4540‚STA�CLEDS 4550‚STA�LEDS 4560‚RTS 4570�AIN�LDX�#BUF 4580‚LBSR�IN 4590‚STA�MSGSZE 4600‚LBSR�IN 4610‚STA�MSGSZE+1 4620‚LDY�MSGSZE 4630‚LEAY�-2,Y 4640�AIN2�LBSR�IN 4650‚CMPX�#BUF+1050 4660‚BEQ�AIN3 4670‚STA�X+ 4680�AIN3�LEAY�-1,Y 4690‚BNE�AIN2 4700‚LDA�#$31 4710‚STA�ACIA 4720‚CMPX�#BUF+1050 4730‚BNE�AIN4 4740‚LDA�#1 4750‚LBSR�AERR 4760‚RTS 4770�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 4780‚CMPB�#6 4790‚BLO�AIN5 48A 00‚LDA�#2 4810‚LBSR�AERR 4820‚RTS 4830�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4840‚CMPA�#7 4850‚BLO�AIN6 4860‚LDA�#3 4870‚LBSR�AERR 4880‚RTS 4890�AIN6�LDA�BUF+1 4900‚LSLA 4910‚LDX�#AIN11 4920‚JSR�[A,X] 4930‚LDA�BUF 4940‚LSLA 4950‚LDX�#AIN10 4960‚JMP�[A,X] 4970�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4980�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 4990�IN�LDA�INPUT 5000‚BITA�#$08 5010‚BEQ�BREAK 5020‚LDA�ACIA 5030‚BITA�#1 5040‚BEQ�IN 5050‚LDA�ACIA+1 5060‚RTS 5070�AERR�ORA�#$80 5080‚LBSR�OUT 5090‚RTS 5100�* 5110�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 5120�OUT�PSHS�A 5130�OUT2�LDA�ACIA 5140‚BITA�#2 5150‚BEQ�OUT2 5160‚PULS�A 5170‚STA�ACIA+1 5180‚RTS 5190�WAIT�PSHS�X,A 5200‚LDA�TIME 5210�WAIT3�LDX�#156 5220�WAIT2�DEX 5230‚BNE�WAIT2 5240‚DECA 5250‚BNE�WAIT3 5260‚PULS�X,A,PC 5270�ARD�LDD�BUF+2 5280‚CMPD�SIZE 5290‚BHS�ARD3 5300‚LDD�BUF+2 5310‚ADDD�BUF+4 5320‚CMPD�SIZE 5330‚BHI�ARD4 5340‚LDY�BUF+4 5350‚LDX�BUF+2 5360‚CLRA 5370‚LBSR�OUT 5380�ARD2�LBSR�READ 5390‚LBSR�OUT 5400‚INX 5410‚LEAY�-1,Y 5420‚BNE�ARD2 5430‚RTS 5440�ARD3�LDA�#5 5450‚LBSR�AERR 5460‚RTS 5470�ARD4�LDA�#4 5480‚LBSR�AERR 5490‚RTS 5500�ATST�LDX�#0 5510�ATST2�LBSR�READ 5520‚INX 5530‚CMPA�#$FF 5540‚BNE�ATST3 5550‚CMPX�SIZE 5560‚BNE�ATST2 5570‚CLRA 5580‚LBSR�OUT 5590‚RTS 5600�ATST3�LDA�#3 5610‚LBSR�OUT 5620‚RTS 5630�AMRD�LDD�BUF+2 5640‚CMPD�SIZE 5650‚BHS�ARD3 5660‚LDD�BUF+2 5670‚ADDD�BUF+4 5680‚CMPD�SIZE 5690‚BHI�ARD4 5700‚LDY�BUF+4 5710‚LDX�BUF+2 5720‚CLRA 5730‚LBSR�OUT 5740�AMRD2�LBSR�MREAD 5750‚LBSR�OUT 5760‚INX 5770‚LEAY�-1,Y 5780‚BNE�AMRD2 5790‚RTS 5800�APRG�LDD�BUF+2 5810‚CMPD�SIZE 5820‚BHS�ARD3 5830‚LDD�MSGSZE 5840‚SUBD�#6 5850‚TFR�D,Y 5860‚ADDD�BUF+2 5870‚CMPD�SIZE 5880‚BHI�ARD4 5890‚LDX�BUF+2 5900‚LDU�#BUF+4 5910‚LDA�#1 5920‚LBSR�OUT 5930�APRG6�CLRB 5940�APRG4�LBSR�READ 5950‚CMPA�U 5960‚BEQ�APRG2 5970‚COMA 5980‚ANDA�U 5990‚BNE�APRG3 6000‚LDA�#1 6010‚STA�TIME 6020‚LDA�U 6030‚LBSR�PRG 6040‚INCB 6050‚CMPB�#15 6060‚BNE�APRG4 6070‚LDA�#7 6080‚LBSR�AERR 6090‚RTS 6100�APRG3�LDA�#6 6110‚LBSR�AERR 6120‚RTS 6130�APRG2�TSTB 6140‚BEQ�APRG8 6150‚LSLB 6160‚LSLB 6170‚LDA�TYPE 6180‚CMPA�#4 6190‚BNE�APRG9 6200‚LDB�#2 6210�APRG9�STB�TIME 6220‚LDA�U 6230‚LBSR�PRG 6240�APRG8�INX 6250‚LEAU�1,U 6260‚LEAY�-1,Y 6270‚BNE�APRG6 6280‚CLRA 6290‚LBSR�OUT 6300‚RTS 6310�MREAD�PSHS�B,X,Y 6320‚LDA�#$83 6330‚STA�PBITS 6340‚LDA�2,S 6350‚STA�ADR1 6360‚LDB�TYPE 6370‚LSLB 6380‚LDY�#READ2 6390‚LDA�1,S 6400‚JSR�[B,Y] 6410‚EORA�#8 6420‚STA�ADR2 6430‚LDA�MASTER 6440‚LDB�#$87 6450‚STB�PBITS 6460‚PULS�B,X,Y,PC 6470�ERAS�LDA�#$20 6480‚STA�ADR2 6490‚LDB�#$22 6500‚STB�PBITS 6510‚ORA�#$80 6520‚STA�ADR2 6530‚LDB�#100 6540‚STB�TIME 6550�ERAS2�LBSR�WAIT 6560‚ANDA�#$7F 6570‚STA�ADR2 6580‚LBSR�ATST 6590‚RTS 6600�SLPRG�LDD�BUF+2 6610‚CMPD�SIZE 6620‚LBHS�ARD3 6630‚LDD�MSGSZE 6640‚SUBD�#6 6650‚TFR�D,Y 6660‚ADDD�BUF+2 6670‚CMPD�SIZE 6680‚BHI�SLPRG4 6690‚LDX�#ZEITEN 6700‚LDA�TYPE 6710‚LDA�A,X 6720‚STA�TIME 6730‚LDX�BUF+2 6740‚LDU�#BUF+4 6750‚LDA�#1 6760‚LBSR�OUT 6770�SLPRG4�LBSR�READ 6780‚CMPA�U 6790‚BEQ�SLPRG2 6800‚COMA 6810‚ANDA�U 6820‚BNE�SLPRG3 6830‚LDA�U 6840‚LBSR�PRG 6850�SLPRG2�INX 6860‚LEAU�1,U 6870‚LEAY�-1,Y 6880‚BNE�SLPRG4 6890‚BRA�VERIFY 6900�SLPRG3�LDA�#6 6910‚LBSR�AERR 6920‚RTS 6930�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6940�VERIFY�EQU�* 6950‚LDD�MSGSZE 6960‚SUBD�#6 6970‚TFR�D,Y 6980‚LDX�BUF+2 6990‚LDU�#BUF+4 7000�VERIF2�LBSR�READ 7010‚CMPA�U 70B 20‚BNE�VERIF1 7030‚INX 7040‚LEAU�1,U 7050‚LEAY�-1,Y 7060‚BNE�VERIF2 7070‚CLRA 7080‚LBSR�OUT 7090‚RTS 7100�VERIF1�LDA�#7 7110‚LBSR�AERR 7120‚RTS 7130�* 7140‚ORG�$FFEF 7150‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 7160‚FDB�$FFFF,$FFFF,$FFFF 7170‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 7180‚FDB�$FFFF 7190‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 7200‚END 宀€øø†€‹†·�†·�Έ†ÿ·°—— †…·à†·�¶�D$ò…&Ò é¶� 䎀¶°Di€Œ€&øŽ€Žøl¦€„�& †·�40­´501"Œ€&æ9ø¡øÊúIø|øˆøƒø•ø›9†Æ "OÆ ¶°…'î†Æ †Æ †Æ †Æ€— Žø¾H®†Ÿ S4–м¤à—·°9 @€Ö +-–„¿·°—Ž=4¨0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó† Ù† Ò44†ƒ·à¦b·ÀÖ XŽù>¦a­µ·Ð¶°Æ‡÷à5´ùJùOùVùVù]ùb„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9„Š …'Š€„÷946·°¦c·ÀÖ XŽù‹¦b­µ†‡·à5¶ù—ù±ùÝùÝùùú „wŠ ·ÐÆ ÷àŠ€·Ðõ„·Ð9Š ˆ·ÐÆ÷àˆ€·ÐÛˆ€·ÐÆ‚÷àÖÁ%Æ(×Ä9„ˆŠ@·ÐÆ@÷à„?·Ð­Š@·Ð9„ˆ·ÐÆ@÷à˜9ÿV·ÐÆ"÷à‰9ŽúC0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'e–„þ·°—– +NŽ_'—þ²‘'!C”&†—–þõ\Á&æ†ÿ” $†ÿ� ]'XX– �&Æ×–þÎ0œ &¸þ –Š—·°9–„þ·°—– +<Ž×þN‘'C”&Žý– ¦¦—–þ‹ †ÿ- 0œ &цP—¦ýÍ–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†U9ÖÁ%†I9–�%†=9–HŽûk­––HŽû_n–û°ûýü#ûâüÏü°øƒøˆø•ø›ø¡ø}¶°…' ¶�…'ò¶�95�Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈýNÿÂ01?&ô9†ÿ°9†ÿª9Žý20�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{qÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_üÔ¡Ä'C¤Ä&†—¦Äý\Á&æ†ÿ)9†ÿ#9]'XX– �&Æ×¦Äüò03A1?&½Oÿ944†ƒ·à¦b·ÀÖ XŽù>¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÚ„·Ðÿ9Ü“ $þþÜ ƒÓ“ "Žý– ¦†—ž΀†þ˜ü¡Ä' C¤Ä&¦Äüe03A1?&ç †þr922222†P—þyÜ ƒž΀ûä¡Ä& 03A1?&ñOþK9†þ?9;ÿÿÿÿÿÿÿïÿïÿÿÿïøY 0980‚JSR�[Y] 0990‚PULS�X,Y 1000�KEYIN4�LEAY�2,Y 1010‚CMPX�#KEYS+8 1020‚BNE�KEYIN5 1030‚RTS 1040�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1050�RESERV�RTS 1060�SEL512�LDA�#6 1070‚LDB�#$82 1080‚BRA�SEL 1090�SEL25�LDA�#5 1100‚LDB�#$0A 1110‚BRA�SEL 1120�SEL16�CLRA 1130‚LDB�#4 1140‚BRA�SEL 1150�SEL32�LDA�INPUT 1160‚BITA�#8 1170‚BEQ�SEL25 1180‚LDA�#1 1190‚LDB�#8 1200‚³€€øø†€‹Έކÿ·°—— †…·à†·�_¶�D$ïÍ êŽ€¶°Di€Œ€&øŽ€Žø_¦€„�& †·�40­´501"Œ€&æ9ø”ø½ú<øoø{øvøˆøŽ9†Æ "OÆ ¶°…C 'î†Æ †Æ †Æ †Æ€— Žø±H®†Ÿ S4–м¤à—·°9 @€Ö +-–„¿·°—Ž=4Ö0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó† Ù† Ò44†ƒ·à¦b·ÀÖ XŽù1¦a­µ·Ð¶°Æ‡÷à5´ù=ùBùIùIùPùU„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9„Š …'Š€„÷946·°¦c·ÀÖ XŽù~¦b­µ†‡·à5¶ùŠù¤ùÐùÐùìùü„wŠ ·ÐÆ ÷àŠ€·Ð#„·Ð9Š ˆ·ÐÆ÷àˆ€·Ð ˆ€·ÐÆ‚÷àÖÁ%Æ(×ò9„ˆŠ@·ÐÆ@÷à„?·ÐÛŠ@·Ð9„ˆ·ÐÆ@÷àÆ9ÿV·ÐÆ"÷à·9Žú60†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'e–„þ·°—– +NŽ_U—þ²‘'!C”&†—–þõ\Á&æ†ÿ” $†ÿ� ]'XX– �&Æ×–þÎ0œ &¸þ –Š—·°9–„þ·°—– +<Žñ—þN‘'C”&Žý;– ¦¦—–þ‹ †ÿ- 0œ &цP—ÔýÍ–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†ƒ9ÖÁ%†w9–�%†k9–HŽû^­––HŽûRn–ûÑüüDüüðüÑøvø{øˆøŽø”øp¶°…'& ¶�…'í¶�95�¶�…' …'  ô9L9†·�†·�9†(—9Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈý ÿÂ01?&ô9†ÿ°9†ÿª9Žý0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{qÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_ü¦¡Ä'C¤Ä&†—¦Äüé\Á&æ†ÿ)9†ÿ#9]'XX– �&Æ×¦ÄüÄ03A1?&½Oÿ944†ƒ·à¦b·ÀÖ XŽù1¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÚ„·Ðÿ9Ü“ $þþÜ ƒÓ“ "Žý;– ¦†—ž΀†þ˜ûð¡Ä' C¤Ä&¦Äü703A1?&ç †þr922222†P—þyÜ ƒž΀û¶¡Ä& 03A1?&ñOþK9†þ?9;ÿÿÿÿÿÿÿïÿïÿÿÿïøINPUT 0980‚BITA�#8 0990‚BEQ�SEL25 1000‚LDA�#1 1010‚LDB�#8 1020‚BRA�SEL 1030�SEL64�LDA�#2 1040‚LDB�#$20 1050‚BRA�SEL 1060�SEL128�LDA�#3 1070‚LDB�#$10 1080‚BRA�SEL 1090�SEL256�LDA�#4 1100‚LDB�#$80 1110�SEL�STA�TYPE 1120‚LDX�#SIZES 1130‚LSLA 1140‚LDX�A,X 1150‚STX�SIZE 1160‚COMB 1170‚PSHS�B 1180‚LDA�CLEDS 1190‚ORA�#$BC 1200‚ANDA�S+ 1210‚STA�CLEDS 1220‚STA�LEDS 1230‚RTS 1240�SIZES�FDB�2¸€€øø†€‹Έ†ÿ·°—— †…·à†·�Þ¶�D$ï 莀¶°Di€Œ€&øŽ€Žøa¦€„�& †·�40­´501"Œ€&æ9øœøÎúŽøqøƒø~ø�ø–9†Æ‚ /†Æ )OÆ $¶°…'î†Æ †Æ †Æ ¶°…'φÆ€— ŽøÀH®†Ÿ S4–о¤à—·°9 @€Ö +-–„¿·°—Ž=4ª0¡à&œ &îŽ(–Š@·°—9Ž0�ÿ& œ &ó†H Ù†A Ò44†ƒ·à¦b·ÀÖ XŽùB¦a­µ·Ð¶°Æ‡÷à5´ùPùUù\ù\ùcùmùh„wŠ 9„ˆŠ 9„ˆŠ@9„ˆ9 ö„Š …'Š€„÷94„€ˆ€DDD‰Šƒ·à5946·°¦c·ÀÖ XŽù©¦b­µ†‡·à5¶ù·ùÑùýùýúúNú3„wŠ ·ÐÆ ÷àŠ€·Ð„·Ð9Š ˆ·ÐÆ÷àˆ€·Ðeˆ€·ÐÆ‚÷àÖÁ%Æ(×N9„ˆŠ@·ÐÆ@÷à„?·Ð7Š@·Ð9Š€ˆ·ÐÆ@÷àˆ€·Ðˆ€·Ð9ÿ2Š€·ÐÊ÷àˆ€·Ðˆ€·Ð9ÿ·ÐÆ"÷àî9Žúˆ0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'e–„þ·°—– +NŽ_è—þq‘'!C”&†—–þÎ\Á&æ†ÿ” $†ÿ� ]'XX– �&Æ×–þ§0œ &¸ýß–Š—·°9–„þ·°—– +<Ž„—þ ‘'C”&Žþ?– ¦¦—–þd †ÿ- 0œ &цP— ýŒ–Š—·°9Ž€�— ‹— ž 1>�Œ„-'§€1?&ò†1·�Œ„-&†³9Ö+D Å@' Å ' ÄŸÁ%†“9–�%†‡9 ' '†y9HŽûÔ­––„HŽûÈn–üZü¾üúü¢ýÕý¶ø~øƒø�ø–øœøxør¶°…'&¶�…'í¶�˜—¶�95�¶�…'¶�…'  ñ9L9†·�†·�9†(—9Š€=94¶�…'ù5·�˜—94–Žœ0&üJ&ö5’Ü '“ $1Ó$&1 & ž%& “ "žžOÿ±ü•ÿ«01?&ôÞ9†ÿ“9†ÿ�9Žüv0�ÿ& œ &óOÿ�º9† õÜ '“ $ÍÓ$&Í & ž¬% “ "»žžOÿM£ÿG01?&ôz9Ü '“ $‘Ü ƒÓ$&Š & !i%ÿ} “ "ÿtž΀ &†ÿ:_ûá¡Ä'C¤Ä&†—¦Äü>\Á&æ†þÕ9†þÏ9]'XX– �&Æ×¦Äü03A1?&½Oþ·ð9&ž&þ9944†ƒ·à¦b·ÀÖ XŽùB¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þ~„·ÐþÎ9Ü '“ $þ´Ü ƒÓ$&þ« & !ÿŠ%þž “ "þ•Žþ?– ¦†—ž΀ &†þúý¡Ä' C¤Ä&¦Äû^03A1?&ç †ýð922222†P—ýýÜ ƒž΀ú¡Ä& 03A1?&ñOýË9†ý¼9– 'ý»9;ÿÿÿÿÿÿÿïÿïÿÿÿïø860�KEYIN5�LDA�X+ 0870‚ANDA�#3 0880‚CMPA�#2 0890‚BNE�KEYIN4 0900‚LDA�#31 0910‚STA�ACIA 0920‚PSHS�X,Y 0930‚JSR�[Y] 0940‚PULS�X,Y 0950�KEYIN4�LEAY�2,Y 0960‚CMPX�#KEYS+8 0970‚BNE�KEYIN5 0980‚RTS 0990�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1000�RESERV�RTS 1010�* 1020�SEL512�LDA�#6 1030‚LDB�#$82 1040‚BRA�SEL 1050�SEL25�LDA�#5 1060‚LDB�#$0A 1070‚BRA�SEL 1080�SEL16�CLm½€k0010�*6809 0020�*PRINTER 0030‚OPT�LLEN=120 0040�*LIST 0050�*************************************** 0060�*¥* 0070�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0080�*¢**�* 0090�*‰V24-VERSION‘* 0100�*¥* 0110�*‚WRITTEN�BY�HENK�AERTSŽ* 0120�*¥* 0130�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0140�*†1984�MINDEN/WESTF.�* 0150�*************************************** 0160�* 0170�*�MODIFICATIONS:�ERROR�IN�APRG�CORRECTED�(�LDA�Y�:=�LDA�U�) 0180�*�MPROM3‰INIT2�CLEAR�KEYS�OMITTED�(�UNNECESSARY�INIT�) 0190�*�2�MS�OVERPROGRAMMING�PULSE�FOR�27256 0200�*�PRESSING�ERROR�KEY�RESETS�ACIA�INPUT�MODE 0210�*�COPY:�NOT�READING�MASTER�MULTIPLE�ANYMORE 0220�*�LABEL�SLCOP4�REMOVED�AND�CLRB�REMOVED 0230�*�RTI�AND�VECTORS�FOR�IRQ�AND�NMI�ADDED 0240�*�WAIT�INSERTED�BETWEEN�SLOWCOPY�AND�VERIFY 0250�* 0260�*�MPROM4‰27512�VERSION�ADDED 0270�*�FOR�2532�LEDS�2732�AND�ERROR�LIGHTED 0280�*�WR256�CHANGED�ACCORDING�TO�SPECS 0290�*�BREAK�LEVEL�RESETS�ACIA�AND�INPUT�BUFFER 0300�*’(�HOST�SHOULD�WAIT�100�MS�AFTER�BREAK�) 0310�* 0320�***************************************************************** 0330�RAM�EQU�$8000 0340�ROM�EQU�$F800 0350�MASTER�EQU�0 0360�ACIA�EQU�$9000 0370�INPUT�EQU�$B001 0380�LEDS�EQU�$B001 0390�PBITS�EQU�$E000 0400�ADR1�EQU�$C000 0410�ADR2�EQU�$D000 0420�IO�EQU�$B000 0430‚ORG�RAM 0440‚SETDP�$80 0450�KEYS�RMB�8 0460�CLEDS�RMB�1 0470�TYPE�RMB�1 0480�SIZE�RMB�2 0490�MSGSZE�RMB�2 0500�TIME�RMB�1 0510�TEMP�RMB�1 0520�CHKCHK�RMB�1‚FLAG�FOR�CHECKSUM�TEST 0530�CHKSUM�RMB�1‚CHECKSUM�REGISTER 0540�BURROU�RMB�1‚FLAG�FOR�BURROUGHS�SPECIAL�OPTION 0550�BUF�RMB�1050 0560‚ORG�ROM 0570�*OFFSET�$7300 0580�START�LDA�#$80 0590‚TFR�A,DP 0600‚LDS�#RAM+$800 0610‚LBSR�RESACI�RESET�ACIA 0620‚LDA�#$FFE  0630‚STA�LEDS 0640‚STA�CLEDS 0650‚STA�TYPE 0660‚LDA�#$85 0670‚STA�PBITS 0680�LOOP�LBSR�KEYIN 0690‚LDA�#$11 0700‚STA�ACIA 0710‚LBSR�FRERR�CHECK�FOR�FRAMING�ERROR�(BREAK) 0720‚LDA�ACIA 0730‚LSRA 0740‚BCC�LOOP 0750‚CLR�CHKSUM 0760‚LBSR�AIN 0770‚BRA�LOOP 0780�KEYIN�LDX�#KEYS 0790‚LDA�INPUT 0800�KEYIN2�LSRA 0810‚ROL�X+ 0820‚CMPX�#KEYS+8 0830‚BNE�KEYIN2 0840‚LDX�#KEYS 0850‚LDY�#KEYIN3 0860�KEYIN5�LDA�X+ 0870‚ANDA�#3 0880‚CMPA�#2 0890‚BNE�KEYIN4 0900‚LDA�#31 0910‚STA�ACIA 0920‚PSHS�X,Y 0930‚JSR�[Y] 0940‚PULS�X,Y 0950�KEYIN4�LEAY�2,Y 0960‚CMPX�#KEYS+8 0970‚BNE�KEYIN5 0980‚RTS 0990�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1000�RESERV�RTS 1010�* 1020�SEL512�LDA�#6 1030‚LDB�#$82 1040‚BRA�SEL 1050�SEL25�LDA�#5 1060‚LDB�#$0A 1070‚BRA�SEL 1080�SEL16�CLRA 1090‚LDB�#4 1100‚BRA�SEL 1110�SEL32�LDA�INPUT 1120‚BITA�#8 1130‚BEQ�SEL25 1140‚LDA�#1 1150‚LDB�#8 1160‚BRA�SEL 1170�SEL64�LDA�#2 1180‚LDB�#$20 1190‚BRA�SEL 1200�SEL128�LDA�#3 1210‚LDB�#$10 1220‚BRA�SEL 1230�SEL256�LDA�INPUT 1240‚BITA�#8 1250‚BEQ�SEL512 1260‚LDA�#4 1270‚LDB�#$80 1280�SEL�STA�TYPE 1290‚LDX�#SIZES 1300‚LSLA 1310‚LDX�A,X 1320‚STX�SIZE 1330‚COMB 1340‚PSHS�B 1350‚LDA�CLEDS 1360‚ORA�#$BE‚CLR�ERROR�LED�TOO. 1370‚ANDA�S+ 1380‚STA�CLEDS 1390‚STA�LEDS 1400‚RTS 1410�SIZES�FDB�2048,4096,8192,16384,32768,4096,0‚0�FOR�27512!!! 1420�TEST�LDB�TYPE 1430‚BMI�TEST4 1440‚LDA�CLEDS 1450‚ANDA�#$BF 1460‚STA�LEDS 1470‚STA�CLEDS 1480‚LDX�#0 1490�TEST3�LBSR�READ 1500‚PSHS�A 1510‚LBSR�MREAD 1520‚LEAX�1,X 1530‚CMPA�S+ 1540‚BNE�TEST2 1550‚CMPX�SIZE 1560‚BNE�TEST3 1570�TEST7�LDX�#0 1580‚LBSR�READ 1590‚LDA�CLEDS 1600‚ORA�#$40 1610‚STA�LEDS 1620‚STA�CLEDS 1630�TEST4�RTS 1640�TEST2�LDX�#0 1650�TEST6�LBSR�READ 1660‚INX 1670‚CMPA�#$FF 1680‚BNE�TEST5 1690‚CMPX�SIZE 1700‚BNE�TEST6 1710‚LDA�#4 1720‚LBSR�ERROR 1730‚BRA�TEST7 1740�TEST5�LDA�#3 1750‚LBSR�ERROR 1760‚BRA�TEST7 1770�READ�PSHS�B,X,Y 1780‚LDA�#$83 1790‚STA�PBITS 1800‚LDA�2,S 1810‚STA�ADR1 1820‚LDB�TYPE 1830‚LSLB 1840‚LDY�#READ2 1850‚LDA�1,S 1860‚JSR�[B,Y] 1870‚STA�ADR2 1880‚LDA�IO 1890‚LDB�#$87 1900‚STB�PBITS 1910‚PULS�B,X,Y,PC 1920�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25,RD512 1930�RD16�ANDA�#$77 1940‚ORA�#$20 1950‚RTS 1960�RD32�ANDA�#$7F 1970‚EORA�#8 1980‚ORA�#$20 1990‚RTS 2000�RD64�ANDA�#$7F 2010‚EORA�#8 2020‚ORA�#$40 2030‚RTS 2040�RD128�EQU�RD64 2050�RD256�ANDA�#$7F 2060‚EORA�#8 2070‚RTS 2080�RD512�LBSR�A15I 2090‚BRA�RD256 2100�RD25�ANDA�#$7F 2110‚ORA�#$20 2120‚BITA�#8 2130‚BEQ�RD25A 2140‚ORA�#$80 2150�RD25A�ANDA�#$F7 2160‚RTS 2170�A15I�PSHS�A 2180‚ANDA�#$80 2190‚EORA�#$80 2200‚LSRA 2210‚LSRA 2220‚LSRA 2230‚TFR�A,B�SAVE�INVERTED�A15�FOR�WR512 2240‚ORA�#$83 2250‚STA�PBITS 2260‚PULS�A 2270‚RTS 2280�* 2290�PRG�PSHS�D,X,Y 2300‚STA�IO 2310‚LDA�3,S 2320‚STA�ADR1�*A0-A7 2330‚LDB�TYPE 2340‚LSLB 2350‚LDY�#PRG2 2360‚LDA�2,S‚*A8-A15 2370‚JSR�[B,Y] 2380‚LDA�#$87 2390‚STA�PBITS 2400‚PULS�D,X,Y,PC 2410�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25,WR512 2420�WR16�ANDA�#$77 2430‚ORA�#$20 2440‚STA�ADR2 2450‚LDB�#$20 2460‚STB�PBITS 2470‚ORA�#$80 2480‚STA�ADR2 2490‚LBSR�WAIT 2500‚ANDA�#$7F 2510‚STA�ADR2 2520‚RTS 2530�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2540‚EORA�#$8 2550‚STA�ADR2 2560‚LDB�#8 2570‚STB�PBITS 2580‚EORA�#$80 2590‚STA�ADR2�CS�LOW 2600‚LBSR�WAIT 2610‚EORA�#$80 2620‚STA�ADR2�CS�HIGH 2630‚LDB�#$82 2640‚STB�PBITS 2650‚LDB�TIME 2660‚CMPB�#20 2670‚BLO�WR32A 2680‚LDB�#40 2690‚STB�TIMF E 2700‚LBSR�WAIT 2710�WR32A�RTS 2720�WR64�ANDA�#$7F 2730‚EORA�#8 2740‚ORA�#$40 2750‚STA�ADR2 2760‚LDB�#$40 2770‚STB�PBITS 2780‚ANDA�#$3F 2790‚STA�ADR2 2800‚LBSR�WAIT 2810‚ORA�#$40 2820‚STA�ADR2 2830‚RTS 2840�WR128�EQU�WR64 2850�WR256�ORA�#$80 2860‚EORA�#8 2870‚STA�ADR2 2880‚LDB�#$40 2890‚STB�PBITS 2900‚EORA�#$80 2910‚STA�ADR2 2920‚LBSR�WAIT 2930‚EORA�#$80 2940‚STA�ADR2 2950‚RTS 2960�WR512�LBSR�RD512 2970‚ORA�#$80 2980‚STA�ADR2 2990‚ORB�#8�B�HAS�INVERTED�A15�ALREADY 3000‚STB�PBITS 3010‚EORA�#$80 3020‚STA�ADR2 3030‚LBSR�WAIT 3040‚EORA�#$80 3050‚STA�ADR2 3060‚RTS 3070�WR25�LBSR�RD25 3080‚STA�ADR2 3090‚LDB�#$22 3100‚STB�PBITS 3110‚LBSR�WAIT 3120‚RTS 3130�ERROR�LDX�#ERROR5 3140‚LEAX�A,X 3150‚LDA�CLEDS 3160‚ORA�#$BC 3170‚ANDA�X 3180‚LDX�#0 3190�ERROR4�CMPX�#$8000 3200‚BHS�ERROR2 3210‚ANDA�#$FD 3220‚BRA�ERROR3 3230�ERROR2�ORA�#2 3240�ERROR3�STA�LEDS 3250‚LEAX�8,X 3260‚LDB�INPUT 3270‚BITB�#8 3280‚BNE�ERROR4 3290‚LDA�CLEDS 3300‚STA�LEDS 3310‚RTS 3320�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 3330�COPY�LDA�X 3340‚BITA�#1 3350‚BEQ�SLCOPY 3360‚LDA�CLEDS 3370‚ANDA�#$FE 3380‚STA�LEDS 3390‚STA�CLEDS 3400‚LDA�TYPE 3410‚BMI�COPY7 3420‚LDX�#0 3430�COPY6�CLRB 3440‚LBSR�MREAD 3450‚STA�TEMP 3460�COPY4�LBSR�READ 3470‚CMPA�TEMP 3480‚BEQ�COPY5 3490‚COMA 3500‚ANDA�TEMP 3510‚BNE�COPY3 3520‚LDA�#1…EINE�MILLISEKUNDE 3530‚STA�TIME 3540‚LDA�TEMP 3550‚LBSR�PRG 3560‚INCB 3570‚CMPB�#15 3580‚BNE�COPY4 3590‚LDA�#1 3600‚LBSR�ERROR 3610‚BRA�COPY7 3620�COPY3�LDA�#2 3630‚LBSR�ERROR 3640‚BRA�COPY7 3650�COPY5�TSTB 3660‚BEQ�COPY8 3670‚LSLB 3680‚LSLB 3690‚LDA�TYPE 3700‚CMPA�#4 3710‚BNE�COPY9 3720‚LDB�#2 3730�COPY9�STB�TIME 3740‚LDA�TEMP 3750‚LBSR�PRG 3760�COPY8�INX 3770‚CMPX�SIZE 3780‚BNE�COPY6 3790‚LBSR�TEST 3800�COPY7�LDA�CLEDS 3810‚ORA�#1 3820‚STA�CLEDS 3830‚STA�LEDS 3840‚RTS 3850�SLCOPY�LDA�CLEDS 3860‚ANDA�#$FE 3870‚STA�LEDS 3880‚STA�CLEDS 3890‚LDA�TYPE 3900‚BMI�SLCOP7 3910‚LDX�#0 3920�SLCOP6�LBSR�MREAD 3930‚STA�TEMP 3940‚LBSR�READ 3950‚CMPA�TEMP 3960‚BEQ�SLCOP8 3970‚COMA 3980‚ANDA�TEMP 3990‚BNE�SLCOP3 4000‚LDY�#ZEITEN 4010‚LDA�TYPE 4020‚LDA�A,Y 4030‚STA�TIME 4040‚LDA�TEMP 4050‚LBSR�PRG 4060‚BRA�SLCOP8 4070�SLCOP3�LDA�#2 4080‚LBSR�ERROR 4090‚BRA�SLCOP7 4100�SLCOP8�LEAX�1,X 4110‚CMPX�SIZE 4120‚BNE�SLCOP6 4130‚LDA�#$50�WAIT�AFTER�SLOW�COPY�A�SHORT�TIME 4140‚STA�TIME�BEFORE�THE�VERIFY.�SOME�EPROMS�NEED�IT. 4150‚LBSR�WAIT 4160‚LBSR�TEST 4170�SLCOP7�LDA�CLEDS 4180‚ORA�#1 4190‚STA�CLEDS 4200‚STA�LEDS 4210‚RTS 4220�AIN�LDX�#BUF 4230‚LBSR�IN 4240‚STA�MSGSZE 4250‚LBSR�IN 4260‚STA�MSGSZE+1 4270‚LDY�MSGSZE 4280‚LEAY�-2,Y 4290�AIN2�LBSR�IN 4300‚CMPX�#BUF+1050 4310‚BEQ�AIN3 4320‚STA�X+ 4330�AIN3�LEAY�-1,Y 4340‚BNE�AIN2 4350‚LDA�#$31 4360‚STA�ACIA 4370‚CMPX�#BUF+1050 4380‚BNE�AIN4 4390‚LDA�#1 4400‚LBSR�AERR 4410‚RTS 4420�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 4430‚BMI�BADCOM‚ILLEGAL�COMMAND�ANYWAY�IF�B7�SET 4440‚CLR�CHKCHK 4450‚CLR�BURROU 4460‚BITB�#$40‚SHOULD�CHECKSUM�BE�CHECKED�? 4470‚BEQ‚NOCHKS 4480‚INC�CHKCHK 4490�NOCHKS�BITB�#$20‚SPECIAL�TEST�FOR�BURROUGHS 4500‚BEQ�NORMAL 4510‚INC�BURROU 4520�NORMAL�ANDB�#$9F 4530‚CMPB�#6 4540‚BLO�AIN5 4550�BADCOM�LDA�#2 4560‚LBSR�AERR 4570‚RTS 4580�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4590‚CMPA�#7 4600‚BLO�AIN6 4610‚LDA�#3 4620‚LBSR�AERR 4630‚RTS 4640�AIN6�TST�CHKCHK 4650‚BEQ�AIN7 4660‚TST�CHKSUM 4670‚BEQ�AIN7 4680‚LDA�#8 4690‚LBSR�AERR 4700‚RTS 4710�AIN7�CLR�CHKSUM 4720‚LSLA‚A�HAS�TYPE�CODE�G  4730‚LDX�#AIN11 4740‚JSR�[A,X] 4750‚LDA�BUF 4760‚ANDA�#$0F 4770‚LSLA 4780‚LDX�#AIN10 4790‚JMP�[A,X] 4800�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4810�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25,SEL512‡ 4820�IN�LDA�INPUT 4830‚BITA�#$08 4840‚BEQ�RETINP 4850‚LBSR�FRERR�CHECK�FOR�FRAMING�ERROR�(BREAK) 4860‚BNE�RETINP 4870‚LDA�ACIA 4880‚BITA�#1 4890‚BEQ�IN 4900‚LDA�ACIA+1 4910‚EORA�CHKSUM 4920‚STA�CHKSUM 4930‚LDA�ACIA+1 4940‚RTS 4950�* 4960�RETINP�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 4970�* 4980�FRERR�LDA�ACIA 4990‚BITA�#$10 5000‚BEQ�FROK 5010�RECCHR�LDA�ACIA 5020‚BITA�#1 5030‚BEQ�FRAMER 5040‚LBSR�RESACI 5050‚LBSR�WAIT40 5060‚BRA�RECCHR 5070�FROK�RTS‚THIS�EXIT�ALWAYS�WITH�ZERO�VALUE 5080�FRAMER�INCA‚EXIT�WITH�NON�ZERO�VALUE 5090‚RTS 5100�* 5110�RESACI�LDA�#3 5120‚STA�ACIA 5130‚LDA�#$11 5140‚STA�ACIA 5150‚RTS 5160�* 5170�WAIT40�LDA�#40 5180‚STA�TIME 5190‚LBSR�WAIT 5200‚RTS 5210�* 5220�AERR�ORA�#$80 5230‚LBSR�OUT 5240‚LBSR�SNDCHK 5250‚RTS 5260�OUT�PSHS�A 5270�OUT2�LDA�ACIA 5280‚BITA�#2 5290‚BEQ�OUT2 5300‚PULS�A 5310‚STA�ACIA+1 5320‚EORA�CHKSUM 5330‚STA�CHKSUM 5340‚RTS 5350�WAIT�PSHS�X,A 5360‚LDA�TIME 5370�WAIT3�LDX�#156 5380�WAIT2�DEX 5390‚BNE�WAIT2 5400‚DECA 5410‚BNE�WAIT3 5420‚PULS�X,A,PC 5430�ARD�LDD�BUF+2 5440‚TST�SIZE 5450‚BEQ�ARD8 5460‚CMPD�SIZE 5470‚BHS�ARD3 5480�ARD8�ADDD�BUF+4 5490‚BCC�ARD30‚TEST�FOR�27512�OVERFLOW 5500‚BNE�ARD4 5510�ARD30�TST�SIZE 5520‚BNE�ARD9 5530‚LDX�BUF+4 5540‚LBSR�TST512 5550‚BCS�ARD4 5560‚BRA�ARD10 5570�ARD9�CMPD�SIZE 5580‚BHI�ARD4 5590�ARD10�LDY�BUF+4 5600‚LDX�BUF+2 5610‚CLRA 5620‚LBSR�OUT 5630�ARD2�LBSR�READ 5640‚LBSR�OUT 5650‚INX 5660‚LEAY�-1,Y 5670‚BNE�ARD2 5680‚LBSR�SNDCHK 5690‚RTS 5700�ARD3�LDA�#5 5710‚LBSR�AERR 5720‚RTS 5730�ARD4�LDA�#4 5740‚LBSR�AERR 5750‚RTS 5760�ATST�LDX�#0 5770�ATST2�LBSR�READ 5780‚INX 5790‚CMPA�#$FF 5800‚BNE�ATST3 5810‚CMPX�SIZE 5820‚BNE�ATST2 5830‚CLRA 5840�ATST5�LBSR�OUT 5850‚LBSR�SNDCHK 5860‚RTS 5870�ATST3�LDA�#3 5880‚BRA�ATST5 5890�* 5900�AMRD�LDD�BUF+2 5910‚TST�SIZE 5920‚BEQ�AMRD8 5930‚CMPD�SIZE 5940‚BHS�ARD3 5950�AMRD8�ADDD�BUF+4 5960‚BCC�AMRD30 5970‚BNE�ARD4 5980�AMRD30�TST�SIZE 5990‚BNE�AMRD9 6000‚LDX�BUF+4 6010‚LBSR�TST512 6020‚BCS�ARD4 6030‚BRA�AMRD10 6040�AMRD9�CMPD�SIZE 6050‚BHI�ARD4 6060�AMRD10�LDY�BUF+4 6070‚LDX�BUF+2 6080‚CLRA 6090‚LBSR�OUT 6100�AMRD2�LBSR�MREAD 6110‚LBSR�OUT 6120‚INX 6130‚LEAY�-1,Y 6140‚BNE�AMRD2 6150‚LBSR�SNDCHK 6160‚RTS 6170�APRG�LDD�BUF+2 6180‚TST�SIZE 6190‚BEQ�APRG18 6200‚CMPD�SIZE 6210‚BHS�ARD3 6220�APRG18�LDD�MSGSZE 6230‚SUBD�#6 6240‚TFR�D,Y 6250‚ADDD�BUF+2 6260‚BCC�APRG30 6270‚BNE�ARD4 6280�APRG30�TST�SIZE 6290‚BNE�APRG19 6300‚LEAX�,Y 6310‚LBSR�TST512 6320‚LBCS�ARD4 6330‚BRA�APRG20 6340�APRG19�CMPD�SIZE 6350‚LBHI�ARD4 6360�APRG20�LDX�BUF+2 6370‚LDU�#BUF+4 6380‚TST�BURROU 6390‚BNE�APRG6‚DO�NOT�SEND�THE�1�(�BURROUHGS�OPTION�) 6400‚LDA�#1 6410‚LBSR�OUT 6420‚LBSR�SNDCHK 6430�APRG6�CLRB 6440�APRG4�LBSR�READ 6450‚CMPA�U 6460‚BEQ�APRG2 6470‚COMA 6480‚ANDA�U 6490‚BNE�APRG3 6500‚LDA�#1 6510‚STA�TIME 6520‚LDA�U 6530‚LBSR�PRG 6540‚INCB 6550‚CMPB�#15 6560‚BNE�APRG4 6570‚LDA�#7 6580‚LBSR�AERR 6590‚RTS 6600�APRG3�LDA�#6 6610‚LBSR�AERR 6620‚RTS 6630�APRG2�TSTB 6640‚BEQ�APRG8 6650‚LSLB 6660‚LSLB 6670‚LDA�TYPE 6680‚CMPA�#4 6690‚BNE�APRG9 6700‚LDB�#2 6710�APRG9�STB�TIME 6720‚LDA�U 6730‚LBSR�PRG 6740�APRG8�INX 6750‚LEAU�1,U 6760‚LEAY�-1,Y 6770‚BNE�APRG6 6780‚CLRA 6790‚LBSR�OUT 6800‚LBSR�SNH DCHK 6810‚RTS 6820�* 6830�TST512�BNE�TSTEX1 6840‚LDX�BUF+2‚0�IN�BUF+4�MEANS�10000�!!! 6850‚BNE�TSTEX2 6860�TSTEX1�ANDCC�#$FE‚CLR�CARRY 6870‚RTS 6880�TSTEX2�ORCC�#$01‚SET�CARRY 6890‚RTS 6900�* 6910�MREAD�PSHS�B,X,Y 6920‚LDA�#$83 6930‚STA�PBITS 6940‚LDA�2,S 6950‚STA�ADR1 6960‚LDB�TYPE 6970‚LSLB 6980‚LDY�#READ2 6990‚LDA�1,S 7000‚JSR�[B,Y] 7010‚EORA�#8 7020‚STA�ADR2 7030‚LDA�MASTER 7040‚LDB�#$87 7050‚STB�PBITS 7060‚PULS�B,X,Y,PC 7070�ERAS�LDA�#$20 7080‚STA�ADR2 7090‚LDB�#$22 7100‚STB�PBITS 7110‚ORA�#$80 7120‚STA�ADR2 7130‚LDB�#100 7140‚STB�TIME 7150�ERAS2�LBSR�WAIT 7160‚ANDA�#$7F 7170‚STA�ADR2 7180‚LBSR�ATST 7190‚RTS 7200�SLPRG�LDD�BUF+2 7210‚TST�SIZE 7220‚BEQ�SLP18 7230‚CMPD�SIZE 7240‚LBHS�ARD3 7250�SLP18�LDD�MSGSZE 7260‚SUBD�#6 7270‚TFR�D,Y 7280‚ADDD�BUF+2 7290‚BCC�SLP30 7300‚LBNE�ARD4 7310�SLP30�TST�SIZE 7320‚BNE�SLP19 7330‚LEAX�,Y 7340‚LBSR�TST512 7350‚LBCS�ARD4 7360‚BRA�SLP20 7370�SLP19�CMPD�SIZE 7380‚LBHI�ARD4 7390�SLP20�LDX�#ZEITEN 7400‚LDA�TYPE 7410‚LDA�A,X 7420‚STA�TIME 7430‚LDX�BUF+2 7440‚LDU�#BUF+4 7450‚TST�BURROU 7460‚BNE�SLPRG4‚DO�NOT�SEND�THE�1�(�BURROUHGS�OPTION�) 7470‚LDA�#1 7480‚LBSR�OUT 7490�SLPRG4�LBSR�READ 7500‚CMPA�U 7510‚BEQ�SLPRG2 7520‚COMA 7530‚ANDA�U 7540‚BNE�SLPRG3 7550‚LDA�U 7560‚LBSR�PRG 7570�SLPRG2�INX 7580‚LEAU�1,U 7590‚LEAY�-1,Y 7600‚BNE�SLPRG4 7610‚BRA�VERIFY 7620�SLPRG3�LDA�#6 7630‚LBSR�AERR 7640‚RTS 7650�ZEITEN�FCB�50,50,50,50,1,50,1‚*MILLISEK. 7660�VERIFY�EQU�* 7670‚LDA�#$50 7680‚STA�TIME�WAIT�AFTER�SLOW�COPY�A�SHORT�TIME 7690‚LBSR�WAIT�BEFORE�THE�VERIFY 7700‚LDD�MSGSZE 7710‚SUBD�#6 7720‚TFR�D,Y 7730‚LDX�BUF+2 7740‚LDU�#BUF+4 7750�VERIF2�LBSR�READ 7760‚CMPA�U 7770‚BNE�VERIF1 7780‚INX 7790‚LEAU�1,U 7800‚LEAY�-1,Y 7810‚BNE�VERIF2 7820‚CLRA 7830‚LBSR�OUT 7840‚RTS 7850�VERIF1�LDA�#7 7860‚LBSR�AERR 7870‚RTS 7880�* 7890�SNDCHK�LDA�CHKSUM 7900‚TST�CHKCHK 7910‚BEQ�NOSEND 7920‚LBSR�OUT 7930‚CLR�CHKSUM 7940�NOSEND�RTS 7950�* 7960‚ORG�$FFEF 7970‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 7980‚FDB�$FFFF,$FFFF,$FFFF 7990‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 8000‚FDB�$FFFF 8010‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 8020‚END åååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå