IMD 1.18: 11/10/2014 14:43:58 6809 2e 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È€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�TEST7 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�COPY 5�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 5890‚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‚LEALŒ€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�\°€[0010�*6809 0020�*PRINTER 0030‚OPT�LLEN=120 0040�*LIST 0050�*************************************** 0060�*¥* 0070�*‚E�P�R�O�M�-‚P�R�O�G�R�A�M�M�E�Rƒ* 0080�*¢**�* 0090�*‰V24-VERSION‘* 0100�*¥* 0110�*‚WRITTEN�BY�HENK�AERTSŽ* 0120�*¥* 0130�*‚(C)�DR.R.BOEHM�GMBH�U.CO�KGˆ* 0140�*†1984�MINDEN/WESTF.�* 0150�*************************************** 0160�* 0170�***************************************************************** 0180�* 0190�*‡CHANGES�AND�UPDATES�BY�GUUS�VAN�DER�BURGT 0200�* 0210�* 0220�*�MODIFICATIONS:�ERROR�IN�APRG�CORRECTED�(�LDA�Y�:=�LDA�U�) 0230�*�MPROM3‰INIT2�CLEAR�KEYS�OMITTED�(�UNNECESSARY�INIT�) 0240�*�2�MS�OVERPROGRAMMING�PULSE�FOR�27256 0250�*�PRESSING�ERROR�KEY�RESETS�ACIA�INPUT�MODE 0260�*�COPY:�NOT�READING�MASTER�MULTIPLE�ANYMORE 0270�*�LABEL�SLCOP4�REMOVED�AND�CLRB�REMOVED 0280�*�RTI�AND�VECTORS�FOR�IRQ�AND�NMI�ADDED 0290�* 0300�*�MPROM4‰27512�VERSION�ADDED 0310�*�FOR�2532�LEDS�2732�AND�ERROR�LIGHTED 0320�*�WR256�CHANGED�ACCORDING�TO�SPECS 0330�* 0340�***************************************************************** 0350�* 0360�RAM�EQU�$8000 0370�ROM�EQU�$F800 0380�MASTER�EQU�0 0390�ACIA�EQU�$9000 0400�INPUT�EQU�$B001 0410�LEDS�EQU�$B001 0420�PBITS�EQU�$E000 0430�ADR1�EQU�$C000 0440�ADR2�EQU�$D000 0450�IO�EQU�$B000 0460‚ORG�RAM 0470‚SETDP�$80 0480�KEYS�RMB�8 0490�CLEDS�RMB�1 0500�TYPE�RMB�1 0510�SIZE�RMB�2 0520�MSGSZE�RMB�2 0530�TIME�RMB�1 0540�TEMP�RMB�1 0550�BUF�RMB�1050 0560‚ORG�ROM 0570�*OFFSET�$7300 0580�START�LDA�#$80 0590‚TFR�A,DP 0600‚LDA�#3 0610‚STA�ACIA 0620‚LDA�#$11 0630‚STA�ACIA 0640‚LDS�#RAM+$800 0650‚LDA�#$FF 0660‚STA�LEDS 0670‚STA�CLEDS 0680‚STA�TYPE 0690‚LDA�#$85 0700‚STA�PBITS 0710�LOOP�LBSR�KEYIN 0720‚LDA�#$11 0730‚STA�ACIA 0740‚LDA�ACIA 0750‚LSRA 0760‚BCC�LOOP 0770‚BITA�#8 0780‚BNE�LOOP1 0790‚LBSR�AIN 0800‚BRA�LOOP 0810�LOOP1�LDA�ACIA+1 0820‚BRA�LOOP 0830�KEYIN�LDX�#KEYS 0840‚LDA�INPUT 0850�KEYIN2�LSRA 0860‚ROL�X+ 0870‚CMPX�#KEYS+8 0880‚BNE�KEYIN2 0890‚LDX�#KEYS 0900‚LDY�#KEYIN3 0910�KEYIN5�LDA�X+ 0920‚ANDA�#3 0930‚CMPA�#2 0940‚BNE�KEYIN4 0950‚LDA�#31 0960‚STA�ACIA 0970‚PSHS�X,Y 0980‚JSR�[Y] 0990‚PULS�X,Y 1000�KEYIN4�LEAY�2,Y 1010‚CMPX�#KEYS+8 1020‚BNE�KEYIN5 1030‚RTS 1040�KEYIN3�FDB�SEL256,TEST,COPY,RESERV,SEL32,SEL16,SEL64,SEL128 1050�RESERV�RTS 1060�SEL512�LDA�#6 1070‚LDB�#$82 1080‚BRA�SEL 1090�SEL25�LDA�#5 1100‚LDB�#$0A 1110‚BRA�SEL 1120�SEL16�CLRA 1130‚LDB�#4 1140‚BRA�SEL 1150�SEL32�LDA�INPUT 1160‚BITA�#8 1170‚BEQ�SEL25 1180‚LDA�#1 1190‚LDB�#8 1200‚BRA�SEL 1210�SEL64�LDA�#2 1220‚LDB�#$20 1230‚BRA�SEL 1240�SEL128�LDA�#3 1250‚LDB�#$10 1260‚BRA�SEL 1270�SEL256�LDA�INPUT 1280‚BITA�#8 1290‚BEQ�SEL512 1300‚LDA�#4 1310‚LDB�#$80 1320�SEL�STA�TYPE 1330‚LDX�#SIZES 1340‚LSLA 1350‚LDX�A,X 1360‚STX�SIZE 1370‚COMB 1380‚PSHS�B 1390‚LDA�CLEDS 1400‚ORA�#$BE 1410‚ANDA�S+ 1420‚STA�CLEDS 1430‚STA�LEDS 1440‚RTS 1450�SIZES�FDB�2048,4096,8192,16384,32768,4096,0‚0�FOR�27512�!! 1460�TEST�LDB�TYPE 1470‚BMI�TEST4 1480‚LDA�CLEDS 1490‚ANDA�#$BF 1500‚STA�LEDS 1510‚STA�CLEDS 1520‚L DX�#0 1530�TEST3�LBSR�READ 1540‚PSHS�A 1550‚LBSR�MREAD 1560‚LEAX�1,X 1570‚CMPA�S+ 1580‚BNE�TEST2 1590‚CMPX�SIZE 1600‚BNE�TEST3 1610�TEST7�LDX�#0 1620‚LBSR�READ 1630‚LDA�CLEDS 1640‚ORA�#$40 1650‚STA�LEDS 1660‚STA�CLEDS 1670�TEST4�RTS 1680�TEST2�LDX�#0 1690�TEST6�LBSR�READ 1700‚INX 1710‚CMPA�#$FF 1720‚BNE�TEST5 1730‚CMPX�SIZE 1740‚BNE�TEST6 1750‚LDA�#4 1760‚LBSR�ERROR 1770‚BRA�TEST7 1780�TEST5�LDA�#3 1790‚LBSR�ERROR 1800‚BRA�TEST7 1810�READ�PSHS�B,X,Y 1820‚LDA�#$83 1830‚STA�PBITS 1840‚LDA�2,S 1850‚STA�ADR1 1860‚LDB�TYPE 1870‚LSLB 1880‚LDY�#READ2 1890‚LDA�1,S 1900‚JSR�[B,Y] 1910‚STA�ADR2 1920‚LDA�IO 1930‚LDB�#$87 1940‚STB�PBITS 1950‚PULS�B,X,Y,PC 1960�READ2�FDB�RD16,RD32,RD64,RD128,RD256,RD25,RD512 1970�RD16�ANDA�#$77 1980‚ORA�#$20 1990‚RTS 2000�RD32�ANDA�#$7F 2010‚EORA�#8 2020‚ORA�#$20 2030‚RTS 2040�RD64�ANDA�#$7F 2050‚EORA�#8 2060‚ORA�#$40 2070‚RTS 2080�RD128�EQU�RD64 2090�RD256�ANDA�#$7F 2100‚EORA�#8 2110‚RTS 2120�RD512�LBSR�A15I 2130‚BRA�RD256 2140�RD25�ANDA�#$7F 2150‚ORA�#$20 2160‚BITA�#8 2170‚BEQ�RD25A 2180‚ORA�#$80 2190�RD25A�ANDA�#$F7 2200‚RTS 2210�A15I�PSHS�A 2220‚ANDA�#$80 2230‚EORA�#$80 2240‚LSRA 2250‚LSRA 2260‚LSRA 2270‚TFR�A,B‚SAVE�A15�FOR�WR512�IF�PROGRAMMING 2280‚ORA�#$83 2290‚STA�PBITS 2300‚PULS�A 2310‚RTS 2320�* 2330�PRG�PSHS�D,X,Y 2340‚STA�IO 2350‚LDA�3,S 2360‚STA�ADR1�*A0-A7 2370‚LDB�TYPE 2380‚LSLB 2390‚LDY�#PRG2 2400‚LDA�2,S‚*A8-A15 2410‚JSR�[B,Y] 2420‚LDA�#$87 2430‚STA�PBITS 2440‚PULS�D,X,Y,PC 2450�PRG2�FDB�WR16,WR32,WR64,WR128,WR256,WR25,WR512 2460�WR16�ANDA�#$77 2470‚ORA�#$20 2480‚STA�ADR2 2490‚LDB�#$20 2500‚STB�PBITS 2510‚ORA�#$80 2520‚STA�ADR2 2530‚LBSR�WAIT 2540‚ANDA�#$7F 2550‚STA�ADR2 2560‚RTS 2570�WR32�ORA�#$A0�VCC�@�PIN�24�AND�CS�HIGH 2580‚EORA�#$8 2590‚STA�ADR2 2600‚LDB�#8 2610‚STB�PBITS 2620‚EORA�#$80 2630‚STA�ADR2�CS�LOW 2640‚LBSR�WAIT 2650‚EORA�#$80 2660‚STA�ADR2�CS�HIGH 2670‚LDB�#$82 2680‚STB�PBITS 2690‚LDB�TIME 2700‚CMPB�#20 2710‚BLO�WR32A 2720‚LDB�#40 2730‚STB�TIME 2740‚LBSR�WAIT 2750�WR32A�RTS 2760�WR64�ANDA�#$7F 2770‚EORA�#8 2780‚ORA�#$40 2790‚STA�ADR2 2800‚LDB�#$40 2810‚STB�PBITS 2820‚ANDA�#$3F 2830‚STA�ADR2 2840‚LBSR�WAIT 2850‚ORA�#$40 2860‚STA�ADR2 2870‚RTS 2880�WR128�EQU�WR64 2890�WR256�ORA�#$80 2900‚EORA�#8 2910‚STA�ADR2 2920‚LDB�#$40 2930‚STB�PBITS 2940‚EORA�#$80 2950‚STA�ADR2 2960‚LBSR�WAIT 2970‚EORA�#$80 2980‚STA�ADR2 2990‚RTS 3000�WR512�LBSR�RD512 3010‚ORA�#$80 3020‚STA�ADR2 3030‚ORB�#8‚B�HAS�INV.�A15�ALREADY 3040‚STB�PBITS 3050‚EORA�#$80 3060‚STA�ADR2 3070‚LBSR�WAIT 3080‚EORA�#$80 3090‚STA�ADR2 3100‚RTS 3110�WR25�LBSR�RD25 3120‚STA�ADR2 3130‚LDB�#$22 3140‚STB�PBITS 3150‚LBSR�WAIT 3160‚RTS 3170�ERROR�LDX�#ERROR5 3180‚LEAX�A,X 3190‚LDA�CLEDS 3200‚ORA�#$BC 3210‚ANDA�X 3220‚LDX�#0 3230�ERROR4�CMPX�#$8000 3240‚BHS�ERROR2 3250‚ANDA�#$FD 3260‚BRA�ERROR3 3270�ERROR2�ORA�#2 3280�ERROR3�STA�LEDS 3290‚LEAX�8,X 3300‚LDB�INPUT 3310‚BITB�#8 3320‚BNE�ERROR4 3330‚LDA�CLEDS 3340‚STA�LEDS 3350‚RTS 3360�ERROR5�FCB�$00,$FB,$F7,$DF,$EF,$FE 3370�COPY�LDA�X 3380‚BITA�#1 3390‚BEQ�SLCOPY 3400‚LDA�CLEDS 3410‚ANDA�#$FE 3420‚STA�LEDS 3430‚STA�CLEDS 3440‚LDA�TYPE 3450‚BMI�COPY7 3460‚LDX�#0 3470�COPY6�CLRB 3480‚LBSR�MREAD 3490‚STA�TEMP 3500�COPY4�LBSR�READ 3510‚CMPA�TEMP 3520‚BEQ�COPY5 3530‚COMA 3540‚ANDA�TEMP 3550‚BNE�COPY3 3560‚LDA�#1…EINE�MILLISEKUNDE 3570‚STA�TIME 3580‚LDA�TEMP 3590‚LBSR�PRG 3600‚INCB 3610‚CMPB�#15 3620‚BNE�COPY4 3630‚LDA�#1 3640‚LB SR�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 4290‚LBSR�IN 4300‚STA�MSGSZE 4310‚LBSR�IN 4320‚STA�MSGSZE+1 4330‚LDY�MSGSZE 4340‚LEAY�-2,Y 4350�AIN2�LBSR�IN 4360‚CMPX�#BUF+1050 4370‚BEQ�AIN3 4380‚STA�X+ 4390�AIN3�LEAY�-1,Y 4400‚BNE�AIN2 4410‚LDA�#$31 4420‚STA�ACIA 4430‚CMPX�#BUF+1050 4440‚BNE�AIN4 4450‚LDA�#1 4460‚LBSR�AERR 4470‚RTS 4480�AIN4�LDB�BUF‚*HIER�STEHT�DER�BEFEHL 4490‚CMPB�#6 4500‚BLO�AIN5 4510‚LDA�#2 4520‚LBSR�AERR 4530‚RTS 4540�AIN5�LDA�BUF+1‚*HIER�STEHT�DER�TYP 4550‚CMPA�#7 4560‚BLO�AIN6 4570‚LDA�#3 4580‚LBSR�AERR 4590‚RTS 4600�AIN6�LDA�BUF+1 4610‚LSLA 4620‚LDX�#AIN11 4630‚JSR�[A,X] 4640‚LDA�BUF 4650‚LSLA 4660‚LDX�#AIN10 4670‚JMP�[A,X] 4680�AIN10�FDB�ARD,AMRD,APRG,ATST,SLPRG,ERAS‡ 4690�AIN11�FDB�SEL16,SEL32,SEL64,SEL128,SEL256,SEL25,SEL512‡ 4700�IN�LDA�INPUT 4710‚BITA�#$08 4720‚BEQ�BREAK 4730‚LDA�ACIA 4740‚BITA�#1 4750‚BEQ�IN 4760‚LDA�ACIA+1 4770‚RTS 4780�* 4790�BREAK�PULS�X,PC‚RETURN�TO�KEY�INPUT�LOOP 4800�* 4810�AERR�ORA�#$80 4820‚LBSR�OUT 4830‚RTS 4840�OUT�PSHS�A 4850�OUT2�LDA�ACIA 4860‚BITA�#2 4870‚BEQ�OUT2 4880‚PULS�A 4890‚STA�ACIA+1 4900‚RTS 4910�WAIT�PSHS�X,A 4920‚LDA�TIME 4930�WAIT3�LDX�#156 4940�WAIT2�DEX 4950‚BNE�WAIT2 4960‚DECA 4970‚BNE�WAIT3 4980‚PULS�X,A,PC 4990�ARD�LDD�BUF+2 5000‚TST�SIZE 5010‚BEQ�ARD8 5020‚CMPD�SIZE 5030‚BHS�ARD3 5040‚LDD�BUF+2 5050‚ADDD�BUF+4 5060‚CMPD�SIZE 5070‚BHI�ARD4 5080�ARD8�LDY�BUF+4 5090‚LDX�BUF+2 5100‚CLRA 5110‚LBSR�OUT 5120�ARD2�LBSR�READ 5130‚LBSR�OUT 5140‚INX 5150‚LEAY�-1,Y 5160‚BNE�ARD2 5170‚RTS 5180�ARD3�LDA�#5 5190‚LBSR�AERR 5200‚RTS 5210�ARD4�LDA�#4 5220‚LBSR�AERR 5230‚RTS 5240�ATST�LDX�#0 5250�ATST2�LBSR�READ 5260‚INX 5270‚CMPA�#$FF 5280‚BNE�ATST3 5290‚CMPX�SIZE 5300‚BNE�ATST2 5310‚CLRA 5320‚LBSR�OUT 5330‚RTS 5340�ATST3�LDA�#3 5350‚LBSR�OUT 5360‚RTS 5370�AMRD�LDD�BUF+2 5380‚TST�SIZE 5390‚BEQ�AMRD8 5400‚CMPD�SIZE 5410‚BHS�ARD3 5420‚LDD�BUF+2 5430‚ADDD�BUF+4 5440‚CMPD�SIZE 5450‚BHI�ARD4 5460�AMRD8�LDY�BUF+4 5470‚LDX�BUF+2 5480‚CLRA 5490‚LBSR�OUT 5500�AMRD2�LBSR�MREAD 5510‚LBSR�OUT 5520‚INX 5530‚LEAY�-1,Y 5540‚BNE�AMRD2 5550‚RTS 5560�APRG�LDD�BUF+2 5570‚TST�SIZE 5580‚BEQ�APRG10 5590‚CMPD�SIZE 5600‚BHS�ARD3 5610�APRG10�LDD�MSGSZE 5620‚SUBD�#6 5630‚TFR�D,Y 5640‚TST�SIZE 5650‚BEQ�APRG11 5660‚ADDD�BUF+2 5670‚CMPD�SIZE 5680‚BHI�ARD4 5690�APRG11�LDX�BUF+2 5700‚LDU�#BUF+4 5710‚LDA�#1 5720‚LBSR�OUT 5730�APRG6�CLRB 5740�APRG4�LBSR�READ 5750‚CMPA�U 5760‚BEQ�APRG2  5770‚COMA 5780‚ANDA�U 5790‚BNE�APRG3 5800‚LDA�#1 5810‚STA�TIME 5820‚LDA�U 5830‚LBSR�PRG 5840‚INCB 5850‚CMPB�#15 5860‚BNE�APRG4 5870‚LDA�#7 5880‚LBSR�AERR 5890‚RTS 5900�APRG3�LDA�#6 5910‚LBSR�AERR 5920‚RTS 5930�APRG2�TSTB 5940‚BEQ�APRG8 5950‚LSLB 5960‚LSLB 5970‚LDA�TYPE 5980‚CMPA�#4 5990‚BLO�APRG9 6000‚CMPA�#5 6010‚BEQ�APRG9 6020‚LDB�#2 6030�APRG9�STB�TIME 6040‚LDA�U 6050‚LBSR�PRG 6060�APRG8�INX 6070‚LEAU�1,U 6080‚LEAY�-1,Y 6090‚BNE�APRG6 6100‚CLRA 6110‚LBSR�OUT 6120‚RTS 6130�MREAD�PSHS�B,X,Y 6140‚LDA�#$83 6150‚STA�PBITS 6160‚LDA�2,S 6170‚STA�ADR1 6180‚LDB�TYPE 6190‚LSLB 6200‚LDY�#READ2 6210‚LDA�1,S 6220‚JSR�[B,Y] 6230‚EORA�#8 6240‚STA�ADR2 6250‚LDA�MASTER 6260‚LDB�#$87 6270‚STB�PBITS 6280‚PULS�B,X,Y,PC 6290�ERAS�LDA�#$20 6300‚STA�ADR2 6310‚LDB�#$22 6320‚STB�PBITS 6330‚ORA�#$80 6340‚STA�ADR2 6350‚LDB�#100 6360‚STB�TIME 6370�ERAS2�LBSR�WAIT 6380‚ANDA�#$7F 6390‚STA�ADR2 6400‚LBSR�ATST 6410‚RTS 6420�SLPRG�LDD�BUF+2 6430‚TST�SIZE 6440‚BEQ�SLP10 6450‚CMPD�SIZE 6460‚LBHS�ARD3 6470�SLP10�LDD�MSGSZE 6480‚SUBD�#6 6490‚TFR�D,Y 6500‚TST�SIZE 6510‚BEQ�SLP11 6520‚ADDD�BUF+2 6530‚CMPD�SIZE 6540‚BHI�SLPRG4 6550�SLP11�LDX�#ZEITEN 6560‚LDA�TYPE 6570‚LDA�A,X 6580‚STA�TIME 6590‚LDX�BUF+2 6600‚LDU�#BUF+4 6610‚LDA�#1 6620‚LBSR�OUT 6630�SLPRG4�LBSR�READ 6640‚CMPA�U 6650‚BEQ�SLPRG2 6660‚COMA 6670‚ANDA�U 6680‚BNE�SLPRG3 6690‚LDA�U 6700‚LBSR�PRG 6710�SLPRG2�INX 6720‚LEAU�1,U 6730‚LEAY�-1,Y 6740‚BNE�SLPRG4 6750‚BRA�VERIFY 6760�SLPRG3�LDA�#6 6770‚LBSR�AERR 6780‚RTS 6790�ZEITEN�FCB�50,50,50,50,1,50,1‚*MILLISEK. 6800�VERIFY�EQU�* 6810‚LDA�#$50 6820‚STA�TIME�WAIT�A�SHORT�TIME�AFTER�SLOW�COPY 6830‚LBSR�WAIT�BEFORE�THE�VERIFY 6840‚LDD�MSGSZE 6850‚SUBD�#6 6860‚TFR�D,Y 6870‚LDX�BUF+2 6880‚LDU�#BUF+4 6890�VERIF2�LBSR�READ 6900‚CMPA�U 6910‚BNE�VERIF1 6920‚INX 6930‚LEAU�1,U 6940‚LEAY�-1,Y 6950‚BNE�VERIF2 6960‚CLRA 6970‚LBSR�OUT 6980‚RTS 6990�VERIF1�LDA�#7 7000‚LBSR�AERR 7010‚RTS 7020�* 7030‚ORG�$FFEF 7040‚FCB�$3B‚RTI�FOR�SPURIOUS�INTERRUPTS 7050‚FDB�$FFFF,$FFFF,$FFFF 7060‚FDB�$FFEF,$FFEF‚FIRQ�AND�IRQ�VECTORS 7070‚FDB�$FFFF 7080‚FDB�$FFEF,START‚NMI�AND�RESTART�VECTORS 7090‚END 70‚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�ANDU�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 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‚EOR A�#$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�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 442  0‚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‚LBSR�OUT 6200‚RTS 6210�VERIF1�LDA�#7 6220‚LBSR�AERR 6230‚RTS 6240‚ORG�$FFFE 6250‚FDB�START 6260‚END ååå|Ö€~å! åååååååååååååååååååååååååå" åååååååååååååååååååååååååå# åååååååååååååååååååååååååå$ åååååååååååååååååååååååååå% ååñ€. . . . . .‡CURRENT�STATUS . . .‡1.�RECIPE�EDITOR‹IN�PROGRESSƒNEAR�TO�COMPLETION .† . .‡2.�CONFIG.�EDITORŠIN�PROGRESSƒNEAR�TO�COMPLETION . . .‡3.�PID/CAL�TABLESŠTABLE�STRUCTURES�DEFINED. . . .‡4.�TUBE�LOADER�TABLES�TBD. . . .‡5.�TRANSPORTER�TABLES�TBD. . . .‡6.�WAFER/CAS.�H.‹TBD. . . .‡7.�BATCH�SPECIFICATION…TBD.�(SPECS�IN�PROGRESS�) . . . . ò€. . . .ŽTIME�SCHEDULE. . . . . .˜WK…1‚2‚3‚4‚5‚6‚7‚8‚9‚10�11�12 . .ƒRECIPE�EDITOR„-----------------X--X . .ƒCONFIG.�EDITORƒ-----------------X--X . .ƒPID�TABLE�EDIT.™X--X . .ƒCAL�TABLE�EDIT.™X--X . .ƒTUBE�LOADER�ED.ŸX--X . .ƒTRANSPORTER�ED.ŸX-----X . .ƒRECIPE�PAR.�ED.¢X------X . .ƒWAFER/CAS�H.¨X--------? . .ƒBATCH�SPECIF.žX----------? . . . . ó€. . . . . .ŽSTAFF�ALLOCATION . . . .‡2�PERSONS�WORKING�NOW�ON�IMPLEMENTATIONS. . .‹J.�HANEKAMPŽRECIPE�EDITOR .‹H.�FIJNVANDRAADT‰CONFIGURATION�EDITOR . . . .‡NEXT�TASKS:„PID‚AND‚CAL�TABLE�EDITORS . . . . åô€. . . . . .�DELIVERY�DATES. . . . .‰RECIPE�EDITOR”WK�3..4 . .‰CONFFIGURATION�EDITORŒWK�3..4 . .‰PIDžWK�6 . .‰CALžWK�6 . .‰TUBE�LOADER–WK�9 . .‰TRANSPORTER–WK�9 . .‰RECIPE�PARAMETERS�WK�10 . .‰WAFER/CAS.�H.”- . .‰BATCH�SPECIFICATIONŽ- . . . . . åõ€. . . . . .�EXPECTED�PROBLEMS . . . .‹1.‚INFO�ON�TUBE�LOADER�AND�TRANSPORTER�LATE. .�EDITORS�WILL�BE�AVAILABLE�LATER�ACCORDINGLY. .�TIME�PROBABLY�WILL�BE�USED�FOR�BATCH�SPEC.�EDITOR .�OR�RECIPE�PARAMETER�EDITOR. . .„ .‹2.‚PROBABLY�AFTER�WK�6�TWO�PERSONS�MIGHT�NOT�BE�SUFFICIENT .�TO�COMPLETE�THE�TASKS�AS�SCHEDULED. .�CONSIDER�TO�ASSIGN�ONE�PERSON�MORE�TO�THE�JOB. .�THIS�MIGHT�NOT�BEXö€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 0310�LEDS�EQU�$B001 0320�PBITS�EQU�$E000 0330�ADR1�EQU�$C000 0340�ADR2�EQU�$D000 0350�IO�EQU�$B000 0360�GANGCE�EQU�$A000 0370�* 0380‚ORG�RAM 0390‚SETDP�$80 0400�* 0410�KEYS�RMB�8 0420�CLEDS�RMB�1 0430�TYPE�RMB�1 0440�SIZE�RMB�2 0450�MSGSZE�RMB�2 0460�TIME�RMB�1 0470�TEMP�RMB�1 0480�GANG�RMB�1‚************************ 0490�MSK1�RMB�1‚************************ 0500�MSK2�RMB�1‚************************ 0510�BUF�RMB�1050 0520‚ORG�ROM 0530�*OFFSET�$7300 0540�START�LDA�#$80 0550‚TFR�A,DP 0560‚LDA�#3 0570‚STA�ACIA 0580‚LDA�#$11 0590‚STA�ACIA 0600‚LDS�#RAM+$800 0610‚LDA�#$FF 0620‚STA�LEDS 0630‚STA�GANGCE‚********�SWITCH�OF�LEDS�********** 0640‚CLR�GANG‚************************** 0650‚STA�CLEDS 0660‚STA�TYPE 0670‚LDA�#$85 0680‚STA�PBITS 0690‚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 4440‚LBSR�TEST 4450�SLCOP7�LDA�CLEDS 4460‚ORA�#1 4470‚STA�CLEDS 4480‚STA�LEDS 4490‚RTS 4500�AIN�LDX�#BUF 4510‚LBSR�IN 4520‚STA�MSGSZE 4530‚LBSR�IN 4540‚STA�MSGSZE+1 4550‚LDY�MSGSZE 4560‚LEAY�-2,Y 4570�AIN2�LBSR�IN 4580‚CMPX�#BUF+1050 4590‚BEQ�AIN3 4600‚STA�X+ 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 åååM €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‚L* DX�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�CLEDS 2950‚LDA�TYPE 2960‚BMI�COPY7 2970‚LDX�#0 2980�COPY6�CLRB 2990‚LBSR�MREAD 3000‚STA�TEMP 3010�COPY4�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‚BNE�COPY9 3280‚LDB�#2 3290‚ST+ B�TIME 3300�COPY9�LDA�TEMP 3310‚LBSR�PRG 3320�COPY8�INX 3330‚CMPX�SIZE 3340‚BNE�COPY6 3350‚LBSR�TEST 3360�COPY7�LDA�CLEDS 3370‚ORA�#1 3380‚STA�CLEDS 3390‚STA�LEDS 3400‚RTS 3410�SLCOPY�LDA�CLEDS 3420‚ANDA�#$FE 3430‚STA�LEDS 3440‚STA�CLEDS 3450‚LDA�TYPE 3460‚BMI�SLCOP7 3470‚LDX�#0 3490�SLCOP6�LBSR�MREAD 3500‚STA�TEMP 3510‚LBSR�READ 3520‚CMPA�TEMP 3530‚BEQ�SLCOP8 3540‚COMA 3550‚ANDA�TEMP 3560‚BNE�SLCOP3 3570‚LDY�#ZEITEN 3580‚LDA�TYPE 3590‚LDA�A,Y 3600‚STA�TIME 3610‚LDA�TEMP 3620‚LBSR�PRG 3630‚BRA�SLCOP8 3640�SLCOP3�LDA�#2 3650‚LBSR�ERROR 3660‚BRA�SLCOP7 3670�SLCOP8�LEAX�1,X 3680‚CMPX�SIZE 3690‚BNE�SLCOP6 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�ACIA 4190‚BITA�#1 4200‚BEQ�IN 4210‚LDA�ACIA+1 4220‚RTS 4230�AERR�ORA�#$80 4240‚LBSR�OUT 4250‚RTS 4260�OUT�PSHS�A 4270�OUT2�LDA�ACIA 4280‚BITA�#2 4290‚BEQ�OUT2 4300‚PULS�A 4310‚STA�ACIA+1 4320‚RTS 4330�WAIT�PSHS�X,A 4340‚LDA�TIME 4350�WAIT3�LDX�#156 4360�WAIT2�DEX 4370‚BNE�WAIT2 4380‚DECA 4390‚BNE�WAIT3 4400‚PULS�X,A,PC 4410�ARD�LDD�BUF+2 4420‚CMPD�SIZE 4430‚BHS�ARD3 4440‚LDD�BUF+2 4450‚ADDD�BUF+4 4460‚CMPD�SIZE 4470‚BHI�ARD4 4480‚LDY�BUF+4 4490‚LDX�BUF+2 4500‚CLRA 4510‚LBSR�OUT 4520�ARD2�LBSR�READ 4530‚LBSR�OUT 4540‚INX 4550‚LEAY�-1,Y 4560‚BNE�ARD2 4570‚RTS 4580�ARD3�LDA�#5 4590‚LBSR�AERR 4600‚RTS 4610�ARD4�LDA�#4 4620‚LBSR�AERR 4630‚RTS 4640�ATST�LDX�#0 4650�ATST2�LBSR�READ 4660‚INX 4670‚CMPA�#$FF 4680‚BNE�ATST3 4690‚CMPX�SIZE 4700‚BNE�ATST2 4710‚CLRA 4720‚LBSR�OUT 4730‚RTS 4740�ATST3�LDA�#3 4750‚LBSR�OUT 4760‚RTS 4770�AMRD�LDD�BUF+2 4780‚CMPD�SIZE 4790‚BHS�ARD3 4800‚LDD�BUF+2 4810‚ADDD�BUF+4 4820‚CMPD�SIZE 4830‚BHI�ARD4 4840‚LDY�BUF+4 4850‚LDX�BUF+2 4860‚CLRA 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‚LDY�#READ2 5520‚LDA�1,S 55, 30‚JSR�[B,Y] 5540‚EORA�#8 5550‚STA�ADR2 5560‚LDA�MASTER 5570‚LDB�#$87 5580‚STB�PBITS 5590‚PULS�B,X,Y,PC 5600�ERAS�LDA�#$20 5610‚STA�ADR2 5620‚LDB�#$22 5630‚STB�PBITS 5640‚ORA�#$80 5650‚STA�ADR2 5660‚LDB�#100 5670‚STB�TIME 5680�ERAS2�LBSR�WAIT 5690‚ANDA�#$7F 5700‚STA�ADR2 5710‚LBSR�ATST 5720‚RTS 5730�SLPRG�LDD�BUF+2 5740‚CMPD�SIZE 5750‚LBHS�ARD3 5760‚LDD�MSGSZE 5770‚SUBD�#6 5780‚TFR�D,Y 5790‚ADDD�BUF+2 5800‚CMPD�SIZE 5810‚BHI�SLPRG4 5820‚LDX�#ZEITEN 5830‚LDA�TYPE 5840‚LDA�A,X 5850‚STA�TIME 5860‚LDX�BUF+2 5870‚LDU�#BUF+4 5880‚LDA�#1 5890‚LBSR�OUT 5900�SLPRG4�LBSR�READ 5910‚CMPA�U 5920‚BEQ�SLPRG2 5930‚COMA 5940‚ANDA�U 5950‚BNE�SLPRG3 5960‚LDA�U 5970‚LBSR�PRG 5980�SLPRG2�INX 5990‚LEAU�1,U 6000‚LEAY�-1,Y 6010‚BNE�SLPRG4 6020‚BRA�VERIFY 6030�SLPRG3�LDA�#6 6040‚LBSR�AERR 6050‚RTS 6060�ZEITEN�FCB�50,50,50,50,1,50‚*MILLISEK. 6070�VERIFY�EQU�* 6080‚LDD�MSGSZE 6090‚SUBD�#6 6100‚TFR�D,Y 6110‚LDX�BUF+2 6120‚LDU�#BUF+4 6130�VERIF2�LBSR�READ 6140‚CMPA�U 6150‚BNE�VERIF1 6160‚INX 6170‚LEAU�1,U 6180‚LEAY�-1,Y 6190‚BNE�VERIF2 6200‚CLRA 6210‚LBSR�OUT 6220‚RTS 6230�VERIF1�LDA�#7 6240‚LBSR�AERR 6250‚RTS 6260‚ORG�$FFFE 6270‚FDB�START 6280‚END ååååååååååååååååå- åååååååååååååååååååååååååå. åååååååååååååååååååååååååå/ åååååååååååååååååååååååååå0 åååååååååååååååååååååååååå1 åååååååååååååååååååååååååå2 åååååååååååååååååååååååååå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�—€€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·ÐÆ"÷à{9ŽúM0†–м¤„ŽŒ€$„ý Š·°0ö°Å&é–·°9û÷ßïþ¦„…'g–„þ·°—– +PŽ_—þ²‘'!C”&†—–þõ\Á&æ†ÿ” &†ÿ� ]'XX×– �&Æ×–þÌ0œ &¶þ–Š—·°9–„þ·°—– +5ޱ—þL‘'C”&Žý– ¦¦—–þ‰ †ÿ+ 0œ &ÑýÒ–Š—·°9Ž€j— e— ž 1>[Œ„*'§€1?&ò†1·�Œ„*&†L9ÖÁ%†@9–�%†49–HŽûp­––HŽûdn–û¬ûùüûÞüÉüªø�ø’øŸø¥ø«ø‡¶�…'ù¶�9Š€94¶�…'ù5·�94–Žœ0&üJ&ö5’Ü“ $ÜÓ“ "žžOÿÈý\ÿÂ01?&ô9†ÿ°9†ÿª9Žý@0�ÿ& œ &óOÿ›9†ÿ•9Ü“ $ÒÜÓ“ "ÏžžOÿ{oÿu01?&ô9Ü“ $¬Ü ƒÓ“ "¤ž΀†ÿO_üâ¡Ä'C¤Ä&†—¦Äý%\Á&æ†ÿ)9†ÿ#9]'XX×– �'¦Äý03A1?&¿O? ÿ 944†ƒ·à¦b·ÀÖ XŽùH¦a­µˆ·Ð¶Æ‡÷à5´† ·ÐÆ"÷àŠ€·ÐÆd×þÜ„·Ðÿ9Ü“ $ÿÜ ƒÓ“ "Žý– ¦†—ž΀†þšü.¡Ä' C¤Ä&¦Äüu03A1?&ç †þt922222Ü ƒž΀ûû¡Ä& 03A1?&ñOþT9†þH9øååååååååååååååååååå@ ååååååååååååååååååååååååååA ååååååååååååååååååååååååååB ååååååååååååååååååååååååååC ååååååååååååååååååååååååååD ååååååååååååååååååååååååååE ååååååååååååååååååååååååååF ååååååååååååååååååååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå