IMD 1.18: 11/10/2014 14:38:35 6809 1e backup prom  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€@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ž õ [€€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 X`€W0010�*6809 0020�*PRINTER 0030‚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 0 310�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‚LDX�#KEYS 0700�INIT2�CLR�X+ 0710‚CMPX�#KEYS+8 0720‚BNE�INIT2 0730�LOOP�LBSR�KEYIN 0740‚LDA�#$11 0750‚STA�ACIA 0760‚LDA�ACIA 0770‚LSRA 0780‚BCC�LOOP 0790‚BITA�#8 0800‚BNE�LOOP1 0810‚LBSR�AIN 0820‚BRA�LOOP 0830�LOOP1�LDA�ACIA+1 0840‚BRA�LOOP 0850�KEYIN�LDX�#KEYS 0860‚LDA�INPUT 0870�KEYIN2�LSRA 0880‚ROL�X+ 0890‚CMPX�#KEYS+8 0900‚BNE�KEYIN2 0910‚LDX�#KEYS 0920‚LDY�#KEYIN3 0930�KEYIN5�LDA�X+ 0940‚ANDA�#3 0950‚CMPA�#2 0960‚BNE�KEYIN4 0970‚LDA�#31 0980‚STA�ACIA 0990‚PSHS�X,Y 1000‚JSR�[Y] 1010‚PULS�X,Y 1020�KEYIN4�LEAY�2,Y 1030‚CMPX�#KEYS+8 1040‚BNE�KEYIN5 1050‚RTS 1060�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1070�RESERV�RTS 1080�SEL25�LDA�#5 1090‚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‚ORA�#$BC 1370‚ANDA�S+ 1380‚STA�CLEDS 1390‚STA�LEDS 1400‚RTS 1410�SIZES�FDB�2048,4096,8192,16384,32768,4096 1420�* 1430�TEST�LDA�INPUT 1440‚BITA�#8 1450‚BEQ�GANGSL‚*******�SET�GANG�IF�ERROR�KEY�PRESSED�** 1460‚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�* 1820�GANGSL�LDA�#1 1830‚STA�GANG 1840‚RTS 1850�* 1860�READ�PSHS�B,X,Y 1870‚LDA�#$83 1880‚STA�PBITS 1890‚LDA�2,S 1900‚STA�ADR1 1910‚LDB�TYPE 1920‚LSLB 1930‚LDY�#READ2 1940‚LDA�1,S 1950‚JSR�[B,Y] 1960‚STA�ADR2 1970‚LDA�IO 1980‚LDB�#$87 1990‚STB�PBITS 2000‚PULS�B,X,Y,PC 2010�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25 2020�RD16�ANDA�#$77 2030‚ORA�#$20 2040‚RTS 2050�RD32�ANDA�#$7F 2060‚EORA�#8 2070‚ORA�#$20 2080‚RTS 2090�RD64�ANDA�#$7F 2100‚EORA�#8 2110‚ORA�#$40 2120‚RTS 2130�RD128�EQU�RD64 2140�RD256�ANDA�#$7F 2150‚EORA�#8 2160‚RTS 2170�RD25�ANDA�#$7F 2180‚ORA�#$20 2190‚BITA�#8 2200‚BEQ�RD25A 2210‚ORA�#$80 2220�RD25A�ANDA�#$F7 2230‚RTS 2240�PRG�PSHS�D,X,Y 2250‚STA�IO 2260‚LDA�3,S 2270‚STA�ADR1�*A0-A7 2280‚LDB�TYPE 2290‚LSLB 2300‚LDY�#PRG2 2310‚LDA�2,S‚*A8-A15 2320‚JSR�[B,Y] 2330‚LDA�#$87 2340 ‚STA�PBITS 2350‚PULS�D,X,Y,PC 2360�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25 2370�WR16�ANDA�#$77 2380‚ORA�#$20 2390‚STA�ADR2 2400‚LDB�#$20 2410‚STB�PBITS 2420‚ORA�#$80 2430‚STA�ADR2 2440‚LBSR�WAIT 2450‚ANDA�#$7F 2460‚STA�ADR2 2470‚RTS 2480�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2490‚EORA�#$8 2500‚STA�ADR2 2510‚LDB�#8 2520‚STB�PBITS 2530‚EORA�#$80 2540‚STA�ADR2�CS�LOW 2550‚LBSR�WAIT 2560‚EORA�#$80 2570‚STA�ADR2�CS�HIGH 2580‚LDB�#$82 2590‚STB�PBITS 2600‚LDB�TIME 2610‚CMPB�#20 2620‚BLO�WR32A 2630‚LDB�#40 2640‚STB�TIME 2650‚LBSR�WAIT 2660�WR32A�RTS 2670�WR64�ANDA�#$7F 2680‚EORA�#8 2690‚ORA�#$40 2700‚STA�ADR2 2710‚LDB�#$40 2720‚STB�PBITS 2730‚ANDA�#$3F 2740‚STA�ADR2 2750‚LBSR�WAIT 2760‚ORA�#$40 2770‚STA�ADR2 2780‚RTS 2790�WR128�EQU�WR64 2800�WR256�ANDA�#$7F 2810‚EORA�#8 2820‚STA�ADR2 2830‚LDB�#$40 2840‚STB�PBITS 2850‚LBSR�WAIT 2860‚RTS 2870�WR25�LBSR�RD25 2880‚STA�ADR2 2890‚LDB�#$22 2900‚STB�PBITS 2910‚LBSR�WAIT 2920‚RTS 2930�ERROR�LDX�#ERROR5 2940‚LEAX�A,X 2950‚LDA�CLEDS 2960‚ORA�#$BC 2970‚ANDA�X 2980‚LDX�#0 2990�ERROR4�CMPX�#$8000 3000‚BHS�ERROR2 3010‚ANDA�#$FD 3020‚BRA�ERROR3 3030�ERROR2�ORA�#2 3040�ERROR3�STA�LEDS 3050‚LEAX�8,X 3060‚LDB�INPUT 3070‚BITB�#8 3080‚BNE�ERROR4 3090‚LDA�CLEDS 3100‚STA�LEDS 3110‚RTS 3120�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 3130�* 3140�COPY�CLR�MSK1‚*********************** 3150‚CLR�MSK2‚********************** 3160‚CLRA 3170‚LDA�#$0F 3180‚STA�MSK2‚ONLY�FOR�4-GANG�UNIT‚********************* 3190‚STA�GANGCE‚ENABLE�ALL�SOCKETS 3200‚LDA�X 3210‚BITA�#1 3220‚BEQ�SLCOPY 3230‚LDA�CLEDS 3240‚ANDA�#$FE 3250‚STA�LEDS 3260‚STA�CLEDS 3270‚LDA�TYPE 3280‚BMI�COPY7 3290‚LDX�#0 3300�COPY6�CLRB 3310�COPY4�LBSR�MREAD 3320‚STA�TEMP 3330‚TST�GANG‚************ 3340‚BEQ�NOGANG 3350‚LBSR�GANGRD 3360‚LDA�MSK2 3370‚CMPA�#$FF 3380‚BEQ�GANGER 3390‚LDA�MSK1 3400‚BEQ�COPY5 3410‚BRA�COPY4 3420�NOGANG�LBSR�READ 3430‚CMPA�TEMP 3440‚BEQ�COPY5 3450‚COMA 3460‚ANDA�TEMP 3470‚BNE�COPY3 3480‚LDA�#1…EINE�MILLISEKUNDE 3490‚STA�TIME 3500‚LDA�TEMP 3510‚LBSR�PRG 3520‚INCB 3530‚CMPB�#15 3540‚BNE�COPY4 3550‚LDA�#1 3560‚LBSR�ERROR 3570‚BRA�COPY7 3580�COPY3�LDA�#2 3590‚LBSR�ERROR 3600‚BRA�COPY7 3610�COPY5�TSTB 3620‚BEQ�COPY8 3630‚LSLB 3640‚LSLB 3650‚LDA�TYPE 3660‚CMPA�#4 3670‚BNE�COPY22 3680‚LDB�#2 3690�COPY22�STB�TIME 3700‚LDA�TEMP 3710‚LBSR�PRG 3720�COPY8�INX 3730‚CMPX�SIZE 3740‚BNE�COPY6 3750‚TST�GANG„********* 3760‚BNE�GANGER 3770‚LBSR�TEST 3780�COPY7�LDA�CLEDS 3790‚ORA�#1 3800‚STA�CLEDS 3810‚STA�LEDS 3820‚RTS 3830�GANGER�LDA�MSK2 3840‚LSRA 3850‚LSRA 3860‚LSRA 3870‚LSRA 3880‚ORA�#$F0 3890‚STA�GANGCE 3900‚RTS 3910�* 3920�GANGRD�PSHS�D 3930‚CLR�MSK1 3940‚LDB�#$10 3950�NXTRD�BITB�MSK2 3960‚BNE�SKIPRD 3970‚STB�GANGCE 3980‚LDA�IO 3990‚CMPA�S 4000‚BEQ�SKIPRD 4010‚TFR�B,A 4020‚ORA�MSK1 4030‚STA�MSK1 4040�SKIPRD�LSLB 4050‚BNE�NXTRD 4060‚PULS�D 4070‚CMPB�#14 4080‚BNE�GANGEX 4090‚LDA�MSK2 4100‚ORA�MSK1 4110‚STA�MSK2 4120‚CLR�MSK1 4130�GANGEX�RTS 4140�* 4150�SLCOPY�LDA�CLEDS 4160‚ANDA�#$FE 4170‚STA�LEDS 4180‚STA�CLEDS 4190‚LDA�TYPE 4200‚BMI�SLCOP7 4210‚LDX�#0 4220�SLCOP6�CLRB 4230�SLCOP4�LBSR�MREAD 4240‚STA�TEMP 4250‚LBSR�READ 4260‚CMPA�TEMP 4270‚BEQ�SLCOP8 4280‚COMA 4290‚ANDA�TEMP 4300‚BNE�SLCOP3 4310‚LDY�#ZEITEN 4320‚LDA�TYPE 4330‚LDA�A,Y 4340‚STA�TIME 4350‚LDA�TEMP 4360‚LBSR�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 44 40‚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+ 4610�AIN3�LEAY�-1,Y 4620‚BNE�AIN2 4630‚LDA�#$31 4640‚STA�ACIA 4650‚CMPX�#BUF+1050 4660‚BNE�AIN4 4670‚LDA�#1 4680‚LBSR�AERR 4690‚RTS 4700�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 4710‚CMPB�#6 4720‚BLO�AIN5 4730‚LDA�#2 4740‚LBSR�AERR 4750‚RTS 4760�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4770‚CMPA�#7 4780‚BLO�AIN6 4790‚LDA�#3 4800‚LBSR�AERR 4810‚RTS 4820�AIN6�LDA�BUF+1 4830‚LSLA 4840‚LDX�#AIN11 4850‚JSR�[A,X] 4860‚LDA�BUF 4870‚LSLA 4880‚LDX�#AIN10 4890‚JMP�[A,X] 4900�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4910�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 4920�IN�LDA�ACIA 4930‚BITA�#1 4940‚BEQ�IN 4950‚LDA�ACIA+1 4960‚RTS 4970�AERR�ORA�#$80 4980‚LBSR�OUT 4990‚RTS 5000�OUT�PSHS�A 5010�OUT2�LDA�ACIA 5020‚BITA�#2 5030‚BEQ�OUT2 5040‚PULS�A 5050‚STA�ACIA+1 5060‚RTS 5070�WAIT�PSHS�X,A 5080‚LDA�TIME 5090�WAIT3�LDX�#156 5100�WAIT2�DEX 5110‚BNE�WAIT2 5120‚DECA 5130‚BNE�WAIT3 5140‚PULS�X,A,PC 5150�ARD�LDD�BUF+2 5160‚CMPD�SIZE 5170‚BHS�ARD3 5180‚LDD�BUF+2 5190‚ADDD�BUF+4 5200‚CMPD�SIZE 5210‚BHI�ARD4 5220‚LDY�BUF+4 5230‚LDX�BUF+2 5240‚CLRA 5250‚LBSR�OUT 5260�ARD2�LBSR�READ 5270‚LBSR�OUT 5280‚INX 5290‚LEAY�-1,Y 5300‚BNE�ARD2 5310‚RTS 5320�ARD3�LDA�#5 5330‚LBSR�AERR 5340‚RTS 5350�ARD4�LDA�#4 5360‚LBSR�AERR 5370‚RTS 5380�ATST�LDX�#0 5390�ATST2�LBSR�READ 5400‚INX 5410‚CMPA�#$FF 5420‚BNE�ATST3 5430‚CMPX�SIZE 5440‚BNE�ATST2 5450‚CLRA 5460‚LBSR�OUT 5470‚RTS 5480�ATST3�LDA�#3 5490‚LBSR�OUT 5500‚RTS 5510�AMRD�LDD�BUF+2 5520‚CMPD�SIZE 5530‚BHS�ARD3 5540‚LDD�BUF+2 5550‚ADDD�BUF+4 5560‚CMPD�SIZE 5570‚BHI�ARD4 5580‚LDY�BUF+4 5590‚LDX�BUF+2 5600‚CLRA 5610‚LBSR�OUT 5620�AMRD2�LBSR�MREAD 5630‚LBSR�OUT 5640‚INX 5650‚LEAY�-1,Y 5660‚BNE�AMRD2 5670‚RTS 5680�APRG�LDD�BUF+2 5690‚CMPD�SIZE 5700‚BHS�ARD3 5710‚LDD�MSGSZE 5720‚SUBD�#6 5730‚TFR�D,Y 5740‚ADDD�BUF+2 5750‚CMPD�SIZE 5760‚BHI�ARD4 5770‚LDX�BUF+2 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 åååPw€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�LDA�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�COPY�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 325 0‚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 5090‚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 6410‚FDB�START 6420‚END ƒ* 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 02LŒ€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�ANDA�#$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�C LEDS 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�BEFEHL 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 51 40‚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‚LBSR�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" 06 60‚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‚RTS 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‚B EQ�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 3820�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�TY PE�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�P°í€U0010�*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�*�WAIT�INSERTED�BETWEEN�SLOWCOPY�AND�VERIFY 0250�* 0260�***************************************************************** 0270�RAM�EQU�$8000 0280�ROM�EQU�$F800 0290�MASTER�EQU�0 0300�ACIA�EQU�$9000 0310�INPUT�EQU�$B001 0320�LEDS�EQU�$B001 0330�PBITS�EQU�$E000 0340�ADR1�EQU�$C000 0350�ADR2�EQU�$D000 0360�IO�EQU�$B000 0370‚ORG�RAM 0380‚SETDP�$80 0390�KEYS�RMB�8 0400�CLEDS�RMB�1 0410�TYPE�RMB�1 0420�SIZE�RMB�2 0430�MSGSZE�RMB�2 0440�TIME�RMB�1 0450�TEMP�RMB�1 0460�BUF�RMB�1050 0470‚ORG�ROM 0480�*OFFSET�$7300 0490�START�LDA�#$80 0500‚TFR�A,DP 0505‚LDS�#RAM+$800 0510‚LBSR�RESACI�RESET�ACIA 0530‚LDA�#$FF 0540‚STA�LEDS 0550‚STA�CLEDS 0560‚STA�TYPE 0570‚LDA�#$85 0580‚STA�PBITS 0590�LOOP�LBSR�KEYIN 0600‚LDA�#$11 0610‚STA�ACIA 0620‚LBSR�FRERR�CHECK�FOR�FRAMING�ERROR�(BREAK) 0630‚LDA�ACIA 0640‚LSRA 0650‚BCC�LOOP 0660‚LBSR�AIN 0670‚BRA�LOOP 0680�KEYIN�LDX�#KEYS 0690‚LDA�INPUT 0700�KEYIN2�LSRA 0710‚ROL�X+ 0720‚CMPX�#KEYS+8 0730‚BNE�KEYIN2 0740‚LDX�#KEYS 0750‚LDY�#KEYIN3 0760�KEYIN5�LDA�X+ 0770‚ANDA�#3 0780‚CMPA�#2 0790‚BNE�KEYIN4 0800‚LDA�#31 0810‚STA�ACIA 0820‚PSHS�X,Y 0830‚JSR�[Y] 0840‚PULS�X,Y 0850�KEYIN4�LEAY�2,Y 0860‚CMPX�#KEYS+8 0870‚BNE�KEYIN5 0880‚RTS 0890�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 0900�RESERV�RTS 0910�SEL25�LDA�#5 0920‚LDB�#0 0930‚BRA�SEL 0940�SEL16�CLRA 0950‚LDB�#4 0960‚BRA�SEL 0970�SEL32�LDA�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�2048,4096,8192,16384,32768,4096 1250�TEST�LDB�TYPE 1260‚BMI�TEST4 1270‚LDA�CLEDS 1280‚ANDA�#$BF 1290‚STA�LEDS 1300‚STA�CLEDS 1310‚LDX�#0 1320�TEST3�LBSR�READ 1330‚PSHS�A 1340‚LBSR�MREAD 1350‚LEAX�1,X 1360‚CMPA�S+ 1370‚BNE�TEST2 1380‚CMPX�SIZE 1390‚BNE�TEST3 1400�TEST7�LDX�#0 1410‚LBSR�READ 1420‚LDA�CLEDS 1430‚ORA�#$40 1440‚STA�LEDS 1450‚STA�CLEDS 1460�TEST4�RTS 1470�TEST2�LDX�#0 1480�TEST6�LBSR�READ 1490‚INX 1500‚CMPA�#$FF 1510‚BNE�TEST5 1520‚CMPX�SIZE 1530‚BNE�TEST6 1540‚LDA�#4 1550‚LBSR�ERROR 1560‚BRA�TEST 7 1570�TEST5�LDA�#3 1580‚LBSR�ERROR 1590‚BRA�TEST7 1600�READ�PSHS�B,X,Y 1610‚LDA�#$83 1620‚STA�PBITS 1630‚LDA�2,S 1640‚STA�ADR1 1650‚LDB�TYPE 1660‚LSLB 1670‚LDY�#READ2 1680‚LDA�1,S 1690‚JSR�[B,Y] 1700‚STA�ADR2 1710‚LDA�IO 1720‚LDB�#$87 1730‚STB�PBITS 1740‚PULS�B,X,Y,PC 1750�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25 1760�RD16�ANDA�#$77 1770‚ORA�#$20 1780‚RTS 1790�RD32�ANDA�#$7F 1800‚EORA�#8 1810‚ORA�#$20 1820‚RTS 1830�RD64�ANDA�#$7F 1840‚EORA�#8 1850‚ORA�#$40 1860‚RTS 1870�RD128�EQU�RD64 1880�RD256�ANDA�#$7F 1890‚EORA�#8 1900‚RTS 1910�RD25�ANDA�#$7F 1920‚ORA�#$20 1930‚BITA�#8 1940‚BEQ�RD25A 1950‚ORA�#$80 1960�RD25A�ANDA�#$F7 1970‚RTS 1980�PRG�PSHS�D,X,Y 1990‚STA�IO 2000‚LDA�3,S 2010‚STA�ADR1�*A0-A7 2020‚LDB�TYPE 2030‚LSLB 2040‚LDY�#PRG2 2050‚LDA�2,S‚*A8-A15 2060‚JSR�[B,Y] 2070‚LDA�#$87 2080‚STA�PBITS 2090‚PULS�D,X,Y,PC 2100�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25 2110�WR16�ANDA�#$77 2120‚ORA�#$20 2130‚STA�ADR2 2140‚LDB�#$20 2150‚STB�PBITS 2160‚ORA�#$80 2170‚STA�ADR2 2180‚LBSR�WAIT 2190‚ANDA�#$7F 2200‚STA�ADR2 2210‚RTS 2220�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2230‚EORA�#$8 2240‚STA�ADR2 2250‚LDB�#8 2260‚STB�PBITS 2270‚EORA�#$80 2280‚STA�ADR2�CS�LOW 2290‚LBSR�WAIT 2300‚EORA�#$80 2310‚STA�ADR2�CS�HIGH 2320‚LDB�#$82 2330‚STB�PBITS 2340‚LDB�TIME 2350‚CMPB�#20 2360‚BLO�WR32A 2370‚LDB�#40 2380‚STB�TIME 2390‚LBSR�WAIT 2400�WR32A�RTS 2410�WR64�ANDA�#$7F 2420‚EORA�#8 2430‚ORA�#$40 2440‚STA�ADR2 2450‚LDB�#$40 2460‚STB�PBITS 2470‚ANDA�#$3F 2480‚STA�ADR2 2490‚LBSR�WAIT 2500‚ORA�#$40 2510‚STA�ADR2 2520‚RTS 2530�WR128�EQU�WR64 2540�WR256�ANDA�#$7F 2550‚EORA�#8 2560‚STA�ADR2 2570‚LDB�#$40 2580‚STB�PBITS 2590‚LBSR�WAIT 2600‚RTS 2610�WR25�LBSR�RD25 2620‚STA�ADR2 2630‚LDB�#$22 2640‚STB�PBITS 2650‚LBSR�WAIT 2660‚RTS 2670�ERROR�LDX�#ERROR5 2680‚LEAX�A,X 2690‚LDA�CLEDS 2700‚ORA�#$BC 2710‚ANDA�X 2720‚LDX�#0 2730�ERROR4�CMPX�#$8000 2740‚BHS�ERROR2 2750‚ANDA�#$FD 2760‚BRA�ERROR3 2770�ERROR2�ORA�#2 2780�ERROR3�STA�LEDS 2790‚LEAX�8,X 2800‚LDB�INPUT 2810‚BITB�#8 2820‚BNE�ERROR4 2830‚LDA�CLEDS 2840‚STA�LEDS 2850‚RTS 2860�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 2870�COPY�LDA�X 2880‚BITA�#1 2890‚BEQ�SLCOPY 2900‚LDA�CLEDS 2910‚ANDA�#$FE 2920‚STA�LEDS 2930‚STA�CLEDS 2940‚LDA�TYPE 2950‚BMI�COPY7 2960‚LDX�#0 2970�COPY6�CLRB 2980‚LBSR�MREAD 2990‚STA�TEMP 3000�COPY4�LBSR�READ 3010‚CMPA�TEMP 3020‚BEQ�COPY5 3030‚COMA 3040‚ANDA�TEMP 3050‚BNE�COPY3 3060‚LDA�#1…EINE�MILLISEKUNDE 3070‚STA�TIME 3080‚LDA�TEMP 3090‚LBSR�PRG 3100‚INCB 3110‚CMPB�#15 3120‚BNE�COPY4 3130‚LDA�#1 3140‚LBSR�ERROR 3150‚BRA�COPY7 3160�COPY3�LDA�#2 3170‚LBSR�ERROR 3180‚BRA�COPY7 3190�COPY5�TSTB 3200‚BEQ�COPY8 3210‚LSLB 3220‚LSLB 3230‚LDA�TYPE 3240‚CMPA�#4 3250‚BNE�COPY9 3260‚LDB�#2 3270�COPY9�STB�TIME 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�LBSR�MREAD 3470‚STA�TEMP 3480‚LBSR�READ 3490‚CMPA�TEMP 3500‚BEQ�SLCOP8 3510‚COMA 3520‚ANDA�TEMP 3530‚BNE�SLCOP3 3540‚LDY�#ZEITEN 3550‚LDA�TYPE 3560‚LDA�A,Y 3570‚STA�TIME 3580‚LDA�TEMP 3590‚LBSR�PRG 3600‚BRA�SLCOP8 3610�SLCOP3�LDA�#2 3620‚LBSR�ERROR 3630‚BRA�SLCOP7 3640�SLCOP8�LEAX�1,X 3650‚CMPX�SIZE 3660‚BNE�SLCOP6 3670‚LDA�#$50�WAIT�AFTER�SLOW�COPY�A�SHORT�TIME 3680‚STA �TIME�BEFORE�THE�VERIFY 3690‚LBSR�WAIT 3700‚LBSR�TEST 3710�SLCOP7�LDA�CLEDS 3720‚ORA�#1 3730‚STA�CLEDS 3740‚STA�LEDS 3750‚RTS 3760�AIN�LDX�#BUF 3770‚LBSR�IN 3780‚STA�MSGSZE 3790‚LBSR�IN 3800‚STA�MSGSZE+1 3810‚LDY�MSGSZE 3820‚LEAY�-2,Y 3830�AIN2�LBSR�IN 3840‚CMPX�#BUF+1050 3850‚BEQ�AIN3 3860‚STA�X+ 3870�AIN3�LEAY�-1,Y 3880‚BNE�AIN2 3890‚LDA�#$31 3900‚STA�ACIA 3910‚CMPX�#BUF+1050 3920‚BNE�AIN4 3930‚LDA�#1 3940‚LBSR�AERR 3950‚RTS 3960�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 3970‚CMPB�#6 3980‚BLO�AIN5 3990‚LDA�#2 4000‚LBSR�AERR 4010‚RTS 4020�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4030‚CMPA�#7 4040‚BLO�AIN6 4050‚LDA�#3 4060‚LBSR�AERR 4070‚RTS 4080�AIN6�LDA�BUF+1 4090‚LSLA 4100‚LDX�#AIN11 4110‚JSR�[A,X] 4120‚LDA�BUF 4130‚LSLA 4140‚LDX�#AIN10 4150‚JMP�[A,X] 4160�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4170�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 4180�IN�LDA�INPUT 4190‚BITA�#$08 4200‚BEQ�RETINP 4210‚LBSR�FRERR�CHECK�FOR�FRAMING�ERROR�(BREAK) 4220‚BNE�RETINP 4230‚LDA�ACIA 4240‚BITA�#1 4250‚BEQ�IN 4260‚LDA�ACIA+1 4270‚RTS 4280�* 4290�RETINP�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 4300�* 4310�FRERR�LDA�ACIA 4320‚BITA�#$10 4330‚BEQ�FROK 4340�RECCHR�BITA�#1 4350‚BEQ�FRAMER 4360‚LBSR�RESACI 4370‚LBSR�WAIT40 4380‚BRA�RECCHR 4390�FROK�RTS 4400�FRAMER�INCA 4410‚RTS 4420�* 4430�RESACI�LDA�#3 4440‚STA�ACIA 4450‚LDA�#$11 4460‚STA�ACIA 4470‚RTS 4480�* 4490�WAIT40�LDA�#40 4500‚STA�TIME 4510‚LBSR�WAIT 4520‚RTS 4530�* 4540�AERR�ORA�#$80 4550‚LBSR�OUT 4560‚RTS 4570�OUT�PSHS�A 4580�OUT2�LDA�ACIA 4590‚BITA�#2 4600‚BEQ�OUT2 4610‚PULS�A 4620‚STA�ACIA+1 4630‚RTS 4640�WAIT�PSHS�X,A 4650‚LDA�TIME 4660�WAIT3�LDX�#156 4670�WAIT2�DEX 4680‚BNE�WAIT2 4690‚DECA 4700‚BNE�WAIT3 4710‚PULS�X,A,PC 4720�ARD�LDD�BUF+2 4730‚CMPD�SIZE 4740‚BHS�ARD3 4750‚LDD�BUF+2 4760‚ADDD�BUF+4 4770‚CMPD�SIZE 4780‚BHI�ARD4 4790‚LDY�BUF+4 4800‚LDX�BUF+2 4810‚CLRA 4820‚LBSR�OUT 4830�ARD2�LBSR�READ 4840‚LBSR�OUT 4850‚INX 4860‚LEAY�-1,Y 4870‚BNE�ARD2 4880‚RTS 4890�ARD3�LDA�#5 4900‚LBSR�AERR 4910‚RTS 4920�ARD4�LDA�#4 4930‚LBSR�AERR 4940‚RTS 4950�ATST�LDX�#0 4960�ATST2�LBSR�READ 4970‚INX 4980‚CMPA�#$FF 4990‚BNE�ATST3 5000‚CMPX�SIZE 5010‚BNE�ATST2 5020‚CLRA 5030‚LBSR�OUT 5040‚RTS 5050�ATST3�LDA�#3 5060‚LBSR�OUT 5070‚RTS 5080�AMRD�LDD�BUF+2 5090‚CMPD�SIZE 5100‚BHS�ARD3 5110‚LDD�BUF+2 5120‚ADDD�BUF+4 5130‚CMPD�SIZE 5140‚BHI�ARD4 5150‚LDY�BUF+4 5160‚LDX�BUF+2 5170‚CLRA 5180‚LBSR�OUT 5190�AMRD2�LBSR�MREAD 5200‚LBSR�OUT 5210‚INX 5220‚LEAY�-1,Y 5230‚BNE�AMRD2 5240‚RTS 5250�APRG�LDD�BUF+2 5260‚CMPD�SIZE 5270‚BHS�ARD3 5280‚LDD�MSGSZE 5290‚SUBD�#6 5300‚TFR�D,Y 5310‚ADDD�BUF+2 5320‚CMPD�SIZE 5330‚BHI�ARD4 5340‚LDX�BUF+2 5350‚LDU�#BUF+4 5360‚LDA�#1 5370‚LBSR�OUT 5380�APRG6�CLRB 5390�APRG4�LBSR�READ 5400‚CMPA�U 5410‚BEQ�APRG2 5420‚COMA 5430‚ANDA�U 5440‚BNE�APRG3 5450‚LDA�#1 5460‚STA�TIME 5470‚LDA�U 5480‚LBSR�PRG 5490‚INCB 5500‚CMPB�#15 5510‚BNE�APRG4 5520‚LDA�#7 5530‚LBSR�AERR 5540‚RTS 5550�APRG3�LDA�#6 5560‚LBSR�AERR 5570‚RTS 5580�APRG2�TSTB 5590‚BEQ�APRG8 5600‚LSLB 5610‚LSLB 5620‚LDA�TYPE 5630‚CMPA�#4 5640‚BNE�APRG9 5650‚LDB�#2 5660�APRG9�STB�TIME 5670‚LDA�U 5680‚LBSR�PRG 5690�APRG8�INX 5700‚LEAU�1,U 5710‚LEAY�-1,Y 5720‚BNE�APRG6 5730‚CLRA 5740‚LBSR�OUT 5750‚RTS 5760�MREAD�PSHS�B,X,Y 5770‚LDA�#$83 5780‚STA�PBITS 5790‚LDA�2,S 5800‚STA�ADR1 5810‚LDB�TYPE 5820‚LSLB 5830‚LDY�#READ2 5840‚LDA�1,S 5850‚JSR�[B,Y] 5860‚EORA�#8 5870‚STA�ADR2 5880‚LDA�MASTER 5 890‚LDB�#$87 5900‚STB�PBITS 5910‚PULS�B,X,Y,PC 5920�ERAS�LDA�#$20 5930‚STA�ADR2 5940‚LDB�#$22 5950‚STB�PBITS 5960‚ORA�#$80 5970‚STA�ADR2 5980‚LDB�#100 5990‚STB�TIME 6000�ERAS2�LBSR�WAIT 6010‚ANDA�#$7F 6020‚STA�ADR2 6030‚LBSR�ATST 6040‚RTS 6050�SLPRG�LDD�BUF+2 6060‚CMPD�SIZE 6070‚LBHS�ARD3 6080‚LDD�MSGSZE 6090‚SUBD�#6 6100‚TFR�D,Y 6110‚ADDD�BUF+2 6120‚CMPD�SIZE 6130‚BHI�SLPRG4 6140‚LDX�#ZEITEN 6150‚LDA�TYPE 6160‚LDA�A,X 6170‚STA�TIME 6180‚LDX�BUF+2 6190‚LDU�#BUF+4 6200‚LDA�#1 6210‚LBSR�OUT 6220�SLPRG4�LBSR�READ 6230‚CMPA�U 6240‚BEQ�SLPRG2 6250‚COMA 6260‚ANDA�U 6270‚BNE�SLPRG3 6280‚LDA�U 6290‚LBSR�PRG 6300�SLPRG2�INX 6310‚LEAU�1,U 6320‚LEAY�-1,Y 6330‚BNE�SLPRG4 6340‚BRA�VERIFY 6350�SLPRG3�LDA�#6 6360‚LBSR�AERR 6370‚RTS 6380�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6390�VERIFY�EQU�* 6400‚LDA�#$50 6410‚STA�TIME�WAIT�AFTER�SLOW�COPY�A�SHORT�TIME 6420‚LBSR�WAIT�BEFORE�THE�VERIFY 6430‚LDD�MSGSZE 6440‚SUBD�#6 6450‚TFR�D,Y 6460‚LDX�BUF+2 6470‚LDU�#BUF+4 6480�VERIF2�LBSR�READ 6490‚CMPA�U 6500‚BNE�VERIF1 6510‚INX 6520‚LEAÅ€€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;ÿÿÿÿÿÿÿïÿïÿÿÿïø (Ê€*+  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Œ\Õ€[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�OVERPROGRAMMIN! G�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 218" 0‚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�SLCOP7 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 42# 90‚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 U�1,U 6530‚LEAY�-1,Y 6540‚BNE�VERIF2 6550‚CLRA 6560‚LBSR�OUT 6570‚RTS 6580�VERIF1�LDA�#7 6590‚LBSR�AERR 6600‚RTS 6610�* 6620‚ORG�$FFEF 6630‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 6640‚FDB�$FFFF,$FFFF,$FFFF 6650‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 6660‚FDB�$FFFF 6670‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 6680‚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–„þ·°—– +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;ÿÿÿÿÿÿÿïÿïÿÿÿïøA 4870‚LBSR�OUT 4880�AMRD2�LBSR�MREAD 4890‚LBSR�OUT 4900‚INX 4910‚LEAY�-1,Y 4920‚BNE�AMRD2 4930‚RTS 4940�APRG�LDD�BUF+2 4950‚CMPD�SIZE 4960‚BHS�ARD3 4970‚LDD�MSGSZE 4980‚SUBD�#6 4990‚TFR�D,Y 5000‚ADDD�BUF+2 5010‚CMPD�SIZE 5020‚BHI�ARD4 5030‚LDX�BUF+2 5040‚LDU�#BUF+4 5050‚LDA�#1 5060‚LBSR�OUT 5070�APRG6�CLRB 5080�APRG4�LBSR�READ 5090‚CMPA�U 5100‚BEQ�APRG2 5110‚COMA 5120‚ANDA�U 5130‚BNE�APRG3 5140‚LDA�#1 5150‚STA�TIME 5160‚LDA�U 5170‚LBSR�PRG 5180‚INCB 5190‚CMPB�#15 5200‚BNE�APRG4 5210‚LDA�#7 5220‚LBSR�AERR 5230‚RTS 5240�APRG3�LDA�#6 5250‚LBSR�AERR 5260‚RTS 5270�APRG2�TSTB 5280‚BEQ�APRG8 5290‚LSLB 5300‚LSLB 5310‚STB�TIME 5320‚LDA�TYPE/  5330‚CMPA�#4 5340‚BEQ�APRG8 5350‚LDA�U 5360‚LBSR�PRG 5370�APRG8�INX 5380‚LEAU�1,U 5390‚LEAY�-1,Y 5400‚BNE�APRG6 5410‚CLRA 5420‚LBSR�OUT 5430‚RTS 5440�MREAD�PSHS�B,X,Y 5450‚LDA�#$83 5460‚STA�PBITS 5470‚LDA�2,S 5480‚STA�ADR1 5490‚LDB�TYPE 5500‚LSLB 5510‚LDYM2€L0010�*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�LOOP�LBSR�KEYIN 0540‚LDA�#$11 0550‚STA�ACIA 0560‚LDA�ACIA 0570‚LSRA 0580‚BCC�LOOP 0590‚BITA�#8 0600‚BNE�LOOP1 0610‚LBSR�AIN 0620‚BRA�LOOP 0630�LOOP1�LDA�ACIA+1 0640‚BRA�LOOP 0650�KEYIN�LDX�#KEYS 0660‚LDA�INPUT 0670�KEYIN2�LSRA 0680‚ROL�X+ 0690‚CMPX�#KEYS+8 0700‚BNE�KEYIN2 0710‚LDX�#KEYS 0720‚LDY�#KEYIN3 0730�KEYIN5�LDA�X+ 0740‚ANDA�#3 0750‚CMPA�#2 0760‚BNE�KEYIN4 0770‚LDA�#31 0780‚STA�ACIA 0790‚PSHS�X,Y 0800‚JSR�[Y] 0810‚PULS�X,Y 0820�KEYIN4�LEAY�2,Y 0830‚CMPX�#KEYS+8 0840‚BNE�KEYIN5 0850‚RTS 0860�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 0870�RESERV�RTS 0880�SEL25�LDA�#5 0890‚LDB�#0 0900‚BRA�SEL 0910�SEL16�CLRA 0920‚LDB�#4 0930‚BRA�SEL 0940�SEL32�LDA�INPUT 0950‚BITA�#8 0960‚BEQ�SEL25 0970‚LDA�#1 0980‚LDB�#8 0990‚BRA�SEL 1000�SEL64�LDA�#2 1010‚LDB�#$20 1020‚BRA�SEL 1030�SEL128�LDA�#3 1040‚LDB�#$10 1050‚BRA�SEL 1060�SEL256�LDA�#4 1070‚LDB�#$80 1080�SEL�STA�TYPE 1090‚LDX�#SIZES 1100‚LSLA 1110‚LDX�A,X 1120‚STX�SIZE 1130‚COMB 1140‚PSHS�B 1150‚LDA�CLEDS 1160‚ORA�#$BC 1170‚ANDA�S+ 1180‚STA�CLEDS 1190‚STA�LEDS 1200‚RTS 1210�SIZES�FDB�2048,4096,8192,16384,32768,4096 1220�TEST�LDB�TYPE 1230‚BMI�TEST4 1240‚LDA�CLEDS 1250‚ANDA�#$BF 1260‚STA�LEDS 1270‚STA�CLEDS 1280‚LDX�#0 1290�TEST3�LBSR�READ 1300‚PSHS�A 1310‚LBSR�MREAD 1320‚LEAX�1,X 1330‚CMPA�S+ 1340‚BNE�TEST2 1350‚CMPX�SIZE 1360‚BNE�TEST3 1370�TEST7�LDX�#0 1380‚LBSR�READ 1390‚LDA�CLEDS 1400‚ORA�#$40 1410‚STA�LEDS 1420‚STA�CLEDS 1430�TEST4�RTS 1440�TEST2�LDX�#0 1450�TEST6�LBSR�READ 1460‚INX 1470‚CMPA�#$FF 1480‚BNE�TEST5 1490‚CMPX�SIZE 1500‚BNE�TEST6 1510‚LDA�#4 1520‚LBSR�ERROR 1530‚BRA�TEST7 1540�TEST5�LDA�#3 1550‚LBSR�ERROR 1560‚BRA�TEST7 1570�READ�PSHS�B,X,Y 1580‚LDA�#$83 1590‚STA�PBITS 1600‚LDA�2,S 1610‚STA�ADR1 1620‚LDB�TYPE 1630‚LSLB 1640‚LDY�#READ2 1650‚LDA�1,S 1660‚JSR�[B,Y] 1670‚STA�ADR2 1680‚LDA�IO 1690‚LDB�#$87 1700‚STB�PBITS 1710‚PULS�B,X,Y,PC 1720�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25 1730�RD16�ANDA�#$77 1740‚ORA�#$20 1750‚RTS 1760�RD32�ANDA�#$7F 1770‚EORA�#8 1780‚ORA�#$20 1790‚RTS 1800�RD64�ANDA�#$7F 1810 0‚EORA�#8 1820‚ORA�#$40 1830‚RTS 1840�RD128�EQU�RD64 1850�RD256�ANDA�#$7F 1860‚EORA�#8 1870‚RTS 1880�RD25�ANDA�#$7F 1890‚ORA�#$20 1900‚BITA�#8 1910‚BEQ�RD25A 1920‚ORA�#$80 1930�RD25A�ANDA�#$F7 1940‚RTS 1950�PRG�PSHS�D,X,Y 1960‚STA�IO 1970‚LDA�3,S 1980‚STA�ADR1�*A0-A7 1990‚LDB�TYPE 2000‚LSLB 2010‚LDY�#PRG2 2020‚LDA�2,S‚*A8-A15 2030‚JSR�[B,Y] 2040‚LDA�#$87 2050‚STA�PBITS 2060‚PULS�D,X,Y,PC 2070�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25 2080�WR16�ANDA�#$77 2090‚ORA�#$20 2100‚STA�ADR2 2110‚LDB�#$20 2120‚STB�PBITS 2130‚ORA�#$80 2140‚STA�ADR2 2150‚LBSR�WAIT 2160‚ANDA�#$7F 2170‚STA�ADR2 2180‚RTS 2190�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2200‚EORA�#$8 2210‚STA�ADR2 2220‚LDB�#8 2230‚STB�PBITS 2240‚EORA�#$80 2250‚STA�ADR2�CS�LOW 2260‚LBSR�WAIT 2270‚EORA�#$80 2280‚STA�ADR2�CS�HIGH 2290‚LDB�#$82 2300‚STB�PBITS 2310‚LDB�TIME 2320‚CMPB�#20 2330‚BLO�WR32A 2340‚LDB�#40 2350‚STB�TIME 2360‚LBSR�WAIT 2370�WR32A�RTS 2380�WR64�ANDA�#$7F 2390‚EORA�#8 2400‚ORA�#$40 2410‚STA�ADR2 2420‚LDB�#$40 2430‚STB�PBITS 2440‚ANDA�#$3F 2450‚STA�ADR2 2460‚LBSR�WAIT 2470‚ORA�#$40 2480‚STA�ADR2 2490‚RTS 2500�WR128�EQU�WR64 2510�WR256�ANDA�#$7F 2520‚EORA�#8 2530‚STA�ADR2 2540‚LDB�#$40 2550‚STB�PBITS 2560‚LBSR�WAIT 2570‚RTS 2580�WR25�LBSR�RD25 2590‚STA�ADR2 2600‚LDB�#$22 2610‚STB�PBITS 2620‚LBSR�WAIT 2630‚RTS 2640�ERROR�LDX�#ERROR5 2650‚LEAX�A,X 2660‚LDA�CLEDS 2670‚ORA�#$BC 2680‚ANDA�X 2690‚LDX�#0 2700�ERROR4�CMPX�#$8000 2710‚BHS�ERROR2 2720‚ANDA�#$FD 2730‚BRA�ERROR3 2740�ERROR2�ORA�#2 2750�ERROR3�STA�LEDS 2760‚LEAX�8,X 2770‚LDB�INPUT 2780‚BITB�#8 2790‚BNE�ERROR4 2800‚LDA�CLEDS 2810‚STA�LEDS 2820‚RTS 2830�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 2840�COPY�LDA�X 2850‚BITA�#1 2860‚BEQ�SLCOPY 2870‚LDA�CLEDS 2880‚ANDA�#$FE 2890‚STA�LEDS 2900‚STA�CLEDS 2910‚LDA�TYPE 2920‚BMI�COPY7 2930‚LDX�#0 2940�COPY6�CLRB 2950‚LBSR�MREAD 2960‚STA�TEMP 2970�COPY4�LBSR�READ 2980‚CMPA�TEMP 2990‚BEQ�COPY5 3000‚COMA 3010‚ANDA�TEMP 3020‚BNE�COPY3 3030‚LDA�#1…EINE�MILLISEKUNDE 3040‚STA�TIME 3050‚LDA�TEMP 3060‚LBSR�PRG 3070‚INCB 3080‚CMPB�#15 3090‚BNE�COPY4 3100‚LDA�#1 3110‚LBSR�ERROR 3120‚BRA�COPY7 3130�COPY3�LDA�#2 3140‚LBSR�ERROR 3150‚BRA�COPY7 3160�COPY5�TSTB 3170‚BEQ�COPY8 3180‚LSLB 3190‚LSLB 3200‚STB�TIME 3210‚LDA�TYPE 3220‚CMPA�#4 3230‚BNE�COPY9 3240‚LDB�#2 3250‚STB�TIME 3260�COPY9�LDA�TEMP 3270‚LBSR�PRG 3280�COPY8�INX 3290‚CMPX�SIZE 3300‚BNE�COPY6 3310‚LBSR�TEST 3320�COPY7�LDA�CLEDS 3330‚ORA�#1 3340‚STA�CLEDS 3350‚STA�LEDS 3360‚RTS 3370�SLCOPY�LDA�CLEDS 3380‚ANDA�#$FE 3390‚STA�LEDS 3400‚STA�CLEDS 3410‚LDA�TYPE 3420‚BMI�SLCOP7 3430‚LDX�#0 3440�SLCOP6�LBSR�MREAD 3450‚STA�TEMP 3460‚LBSR�READ 3470‚CMPA�TEMP 3480‚BEQ�SLCOP8 3490‚COMA 3500‚ANDA�TEMP 3510‚BNE�SLCOP3 3520‚LDY�#ZEITEN 3530‚LDA�TYPE 3540‚LDA�A,Y 3550‚STA�TIME 3560‚LDA�TEMP 3570‚LBSR�PRG 3580‚BRA�SLCOP8 3590�SLCOP3�LDA�#2 3600‚LBSR�ERROR 3610‚BRA�SLCOP7 3620�SLCOP8�LEAX�1,X 3630‚CMPX�SIZE 3640‚BNE�SLCOP6 3650‚LBSR�TEST 3660�SLCOP7�LDA�CLEDS 3670‚ORA�#1 3680‚STA�CLEDS 3690‚STA�LEDS 3700‚RTS 3710�AIN�LDX�#BUF 3720‚LBSR�IN 3730‚STA�MSGSZE 3740‚LBSR�IN 3750‚STA�MSGSZE+1 3760‚LDY�MSGSZE 3770‚LEAY�-2,Y 3780�AIN2�LBSR�IN 3790‚CMPX�#BUF+1050 3800‚BEQ�AIN3 3810‚STA�X+ 3820�AIN3�LEAY�-1,Y 3830‚BNE�AIN2 3840‚LDA�#$31 3850‚STA�ACIA 3860‚CMPX�#BUF+1050 3870‚BNE�AIN4 3880‚LDA�#1 3890‚LBSR�AERR 3900‚RTS 3910�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 3920‚CMPB�#6 3930‚BLO�AIN5 3940‚LDA�#2 3950‚LBSR1 �AERR 3960‚RTS 3970�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 3980‚CMPA�#7 3990‚BLO�AIN6 4000‚LDA�#3 4010‚LBSR�AERR 4020‚RTS 4030�AIN6�LDA�BUF+1 4040‚LSLA 4050‚LDX�#AIN11 4060‚JSR�[A,X] 4070‚LDA�BUF 4080‚LSLA 4090‚LDX�#AIN10 4100‚JMP�[A,X] 4110�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4120�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25‡ 4130�IN�LDA�INPUT 4140‚BITA�#$08 4150‚BEQ�BREAK 4160‚LDA�ACIA 4170‚BITA�#1 4180‚BEQ�IN 4190‚LDA�ACIA+1 4200‚RTS 4210�* 4220�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 4230�* 4240�AERR�ORA�#$80 4250‚LBSR�OUT 4260‚RTS 4270�OUT�PSHS�A 4280�OUT2�LDA�ACIA 4290‚BITA�#2 4300‚BEQ�OUT2 4310‚PULS�A 4320‚STA�ACIA+1 4330‚RTS 4340�WAIT�PSHS�X,A 4350‚LDA�TIME 4360�WAIT3�LDX�#156 4370�WAIT2�DEX 4380‚BNE�WAIT2 4390‚DECA 4400‚BNE�WAIT3 4410‚PULS�X,A,PC 4420�ARD�LDD�BUF+2 4430‚CMPD�SIZE 4440‚BHS�ARD3 4450‚LDD�BUF+2 4460‚ADDD�BUF+4 4470‚CMPD�SIZE 4480‚BHI�ARD4 4490‚LDY�BUF+4 4500‚LDX�BUF+2 4510‚CLRA 4520‚LBSR�OUT 4530�ARD2�LBSR�READ 4540‚LBSR�OUT 4550‚INX 4560‚LEAY�-1,Y 4570‚BNE�ARD2 4580‚RTS 4590�ARD3�LDA�#5 4600‚LBSR�AERR 4610‚RTS 4620�ARD4�LDA�#4 4630‚LBSR�AERR 4640‚RTS 4650�ATST�LDX�#0 4660�ATST2�LBSR�READ 4670‚INX 4680‚CMPA�#$FF 4690‚BNE�ATST3 4700‚CMPX�SIZE 4710‚BNE�ATST2 4720‚CLRA 4730‚LBSR�OUT 4740‚RTS 4750�ATST3�LDA�#3 4760‚LBSR�OUT 4770‚RTS 4780�AMRD�LDD�BUF+2 4790‚CMPD�SIZE 4800‚BHS�ARD3 4810‚LDD�BUF+2 4820‚ADDD�BUF+4 4830‚CMPD�SIZE 4840‚BHI�ARD4 4850‚LDY�BUF+4 4860‚LDX�BUF+2 4870‚CLRA 4880‚LBSR�OUT 4890�AMRD2�LBSR�MREAD 4900‚LBSR�OUT 4910‚INX 4920‚LEAY�-1,Y 4930‚BNE�AMRD2 4940‚RTS 4950�APRG�LDD�BUF+2 4960‚CMPD�SIZE 4970‚BHS�ARD3 4980‚LDD�MSGSZE 4990‚SUBD�#6 5000‚TFR�D,Y 5010‚ADDD�BUF+2 5020‚CMPD�SIZE 5030‚BHI�ARD4 5040‚LDX�BUF+2 5050‚LDU�#BUF+4 5060‚LDA�#1 5070‚LBSR�OUT 5080�APRG6�CLRB 5090�APRG4�LBSR�READ 5100‚CMPA�U 5110‚BEQ�APRG2 5120‚COMA 5130‚ANDA�U 5140‚BNE�APRG3 5150‚LDA�#1 5160‚STA�TIME 5170‚LDA�U 5180‚LBSR�PRG 5190‚INCB 5200‚CMPB�#15 5210‚BNE�APRG4 5220‚LDA�#7 5230‚LBSR�AERR 5240‚RTS 5250�APRG3�LDA�#6 5260‚LBSR�AERR 5270‚RTS 5280�APRG2�TSTB 5290‚BEQ�APRG8 5300‚LSLB 5310‚LSLB 5320‚STB�TIME 5330‚LDA�TYPE 5340‚CMPA�#4 5350‚BEQ�APRG8 5360‚LDA�U 5370‚LBSR�PRG 5380�APRG8�INX 5390‚LEAU�1,U 5400‚LEAY�-1,Y 5410‚BNE�APRG6 5420‚CLRA 5430‚LBSR�OUT 5440‚RTS 5450�MREAD�PSHS�B,X,Y 5460‚LDA�#$83 5470‚STA�PBITS 5480‚LDA�2,S 5490‚STA�ADR1 5500‚LDB�TYPE 5510‚LSLB 5520‚LDY�#READ2 5530‚LDA�1,S 5540‚JSR�[B,Y] 5550‚EORA�#8 5560‚STA�ADR2 5570‚LDA�MASTER 5580‚LDB�#$87 5590‚STB�PBITS 5600‚PULS�B,X,Y,PC 5610�ERAS�LDA�#$20 5620‚STA�ADR2 5630‚LDB�#$22 5640‚STB�PBITS 5650‚ORA�#$80 5660‚STA�ADR2 5670‚LDB�#100 5680‚STB�TIME 5690�ERAS2�LBSR�WAIT 5700‚ANDA�#$7F 5710‚STA�ADR2 5720‚LBSR�ATST 5730‚RTS 5740�SLPRG�LDD�BUF+2 5750‚CMPD�SIZE 5760‚LBHS�ARD3 5770‚LDD�MSGSZE 5780‚SUBD�#6 5790‚TFR�D,Y 5800‚ADDD�BUF+2 5810‚CMPD�SIZE 5820‚BHI�SLPRG4 5830‚LDX�#ZEITEN 5840‚LDA�TYPE 5850‚LDA�A,X 5860‚STA�TIME 5870‚LDX�BUF+2 5880‚LDU�#BUF+4 5890‚LDA�#1 5900‚LBSR�OUT 5910�SLPRG4�LBSR�READ 5920‚CMPA�U 5930‚BEQ�SLPRG2 5940‚COMA 5950‚ANDA�U 5960‚BNE�SLPRG3 5970‚LDA�U 5980‚LBSR�PRG 5990�SLPRG2�INX 6000‚LEAU�1,U 6010‚LEAY�-1,Y 6020‚BNE�SLPRG4 6030‚BRA�VERIFY 6040�SLPRG3�LDA�#6 6050‚LBSR�AERR 6060‚RTS 6070�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6080�VERIFY�EQU�* 6090‚LDD�MSGSZE 6100‚SUBD�#6 6110‚TFR�D,Y 6120‚LDX�BUF+2 6130‚LDU�#BUF+4 6140�VERIF2�LBSR�READ 6150‚CMPA�U 6160‚BNE�VERIF1 6170‚INX 6180‚LE2 AU�1,U 6190‚LEAY�-1,Y 6200‚BNE�VERIF2 6210‚CLRA 6220‚LBSR�OUT 6230‚RTS 6240�VERIF1�LDA�#7 6250‚LBSR�AERR 6260‚RTS 6270‚ORG�$FFFE 6280‚FDB�START 6290‚END åååååååååååååååååååååååå3 åååååååååååååååååååååååååå4 åååååååååååååååååååååååååå5 åååååååååååååååååååååååååå6 åååååååååååååååååååååååååå7 åååååååååååååååååååååååååå8 åååååååååååååååååååååååååå9 ååMs€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�}—€~†€‹†·�†·�Έ†ÿ·°—— †…·à†·�¶�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û÷ßïþ¦„…'g–„þ·°—– +PŽ_ —þ²‘'!C”&†—–þõ\Á&æ†ÿ” &†ÿ� ]'XX×– �&Æ×–þÌ0œ &¶þ–Š—·°9–„þ·°—– +5Žº—þL‘'C”&Žý– ¦¦—–þ‰ †ÿ+ 0œ &ÑýÒ–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†U9ÖÁ%†I9–�%†=9–HŽûf­––HŽûZn–û«ûøüûÝüÈü©øƒøˆø•ø›ø¡ø}¶°…' ¶�…'ò¶�95�Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈýSÿÂ01?&ô9†ÿ°9†ÿª9Žý70�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{oÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_üÙ¡Ä'C¤Ä&†—¦Äý\Á&æ†ÿ)9†ÿ#9]'XX×– �'¦Äüù03A1?&¿O? ÿ 944†ƒ·à¦b·ÀÖ XŽù>¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÜ„·Ðÿ9Ü“ $ÿÜ ƒÓ“ "Žý– ¦†—ž΀†þšü%¡Ä' C¤Ä&¦Äül03A1?&ç †þt922222Ü ƒž΀ûò¡Ä& 03A1?&ñOþT9†þH9øååååååååååååååååååå@ ååååååååååååååååååååååååååA ååååååååååååååååååååååååååB ååååååååååååååååååååååååååC ååååååååååååååQ·€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‚D 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�LDA�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�#E 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�COPY�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‚LF DY�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 5090‚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 6410‚FDB�START 6420‚END ååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå