IMD 1.18: 11/10/2014 14:34:32 mdos 6809 prom.sa prom.lo (bohm programmer)  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€000†·ì°†·ì°†ÿ·7.Ž0i½6¬Ž4ã½6¬¶üõ¶üõ½6°Ž0N�E'!¡„' 0Œ0i&ñ ×¶ì±¶ì±4½6ô5%έ˜ É?T1òS2R2zM2vP2'E0LL3D3ÑV3 Invalid command, select: T TO PERFORM A BLANK CHECK S to select a EPROM type R to read the copy EPROM M to read the master EPROM P to programm the copy EPROM E to exit the programm L to load the copy EPROM contents to memory D to dump memory contents into the EPROM V TO VERIFY COPY EPROM CONTENTS WITH MEMORY½6èOņÀ†»¶7.µ§¾9Ž4Y½6¬½6°�0%ó�5"ï„·7.9Ž4õ½6¬½6Ø2Ž5 ½6¬½6ؽ6èO|†w†r¶7.l g‰b0˜[M4b¦à+AX9† †4Ž4õ½6¬Î½6Ø2Ž5½6¬Î½6ؽ6èO†5¶7.  ‰0‰ûíM*924 Ž71ܧ€1?&÷5 Ž71Æ40½6´½6ʦ€½6¼3A1?'jä&ñ2a á5„† O4Ž4õ½6¬Î½6Ø2Ž5½6¬Î½6Ø4@Ž5'½6¬Î½6Ø15@½6èO�†|†w¶7.q l‰g0b‰]OM*c2a92Î71¦à& :§€1?&÷90¡€'ƒ;1'¯Á§À¦§À1?&çƒ71'+Ž59½6¬¦Â½6¼Ž5K½6¬¦Â½6¼Ž5P½6¬ìý6ʃ71&Ö9Ž5\½6¬9Ž4õ½6¬Î½6Ø4@Ž5½6¬Î½6Ø4@Ž5'½6¬Î½6ؽ6èìä'Pƒ#Ì퉨†£¶7.�¦b˜¦c“¦ÀŽ1?&÷|M+vM+ìbÃíbìäƒíä*¬2d9w2d9 Select type 0=2716 1=2732 2=2764 3=27128 4=27256 5=2532 your choice ? Enter command : Start address EPROM: Data: Number of bytes: Memory address: Data should be:was:at address  Data equal BUSY.....WAIT NO RESPONSE MICRO-PROM RESPONSE $82 EXPECTED BY CHECK¶ì°…'ù¶ì±94¶ì°…'ù5·ì±94Ž5û¡€'Œ6¬&÷Ž5ã½6¬5– Unknown error½6´½6¬5–ProgrammingEPROM not blank�Too mutch data‚INVALID COMMANDƒEPROM TYPE WRONG„Data doesn't fit…Start address outside EPROM space†EPROM not empty‡EPROM will not proramm½ð'9½ð94½ð!59·7/4Ž7/½ð59ý7/4Ž7/½ð594Ž7/½ð$ûî„594Ž5i½6¬59OþƆþÁ†ÿþ¼þ¹½7¶ì°F$þ¢�‚&þ9Žÿ0&ü9Ž5y½6¬9Ž5’ õ ,[€+0010�ACIA�EQU�$FF00 0020‚ORG�$E000 0030�START�LDA�#3 0040‚STA�ACIA 0050‚LDA�#$11 0060‚STA�ACIA 0070‚LDA�#$FF 0080‚STA�TYPE 0090�MAIN�LDX�#T3 0100‚PRINT 0110‚IN 0120‚LDX�#MAIN2 0130�MAIN4�CMPA�X 0140‚BEQ�MAIN3 0150‚LEAX�3,X 0160‚CMPX�#MAIN2+27 0170‚BNE�MAIN4 0180‚LDX�#T1 0190‚PRINT 0200‚BRA�MAIN 0210�MAIN3�JSR�(1,X) 0220‚BRA�MAIN 0230�MAIN2�FDB�"t",TEST,"s",SEL,"r",READ,"m",MREAD,"p",PROG,"e",EXIT 0240‚FDB�"l",LOAD,"d",DUMP,"v",VERI 0250�T1�FCB�$D,$A,"Invalid�command,�select:" 0260‚FCB�$D,$A,"ˆt�to�perform�a�blank�check" 0270‚FCB�$D,$A,"ˆs�to�select�a�EPROM�type" 0280‚FCB�$D,$A,"ˆr�to�read�the�copy�EPROM" 0290‚FCB�$D,$A,"ˆm�to�read�the�master�EPROM" 0300‚FCB�$D,$A,"ˆp�to�programm�the�copy�EPROM" 0310‚FCB�$D,$A,"ˆe�to�exit�the�programm" 0320‚FCB�$D,$A,"ˆl�to�load�the�copy�EPROM�contents�to�memory" 0330‚FCB�$D,$A,"ˆd�to�dump�memory�contents�into�the�EPROM" 0340‚FCB�$D,$A,"ˆv�to�verify�copy�EPROM�contents�with�memory" 0350‚FCB�4 0360�EXIT�EXIT 0370�TEST�CLRA 0380‚LBSR�OUT 0390‚LDA�#4 0400‚LBSR�OUT 0410‚LDA�#3 0420‚LBSR�OUT 0430‚LDA�TYPE 0440‚LBSR�OUT 0450‚LBSR�IN 0460‚LBSR�ERROR 0470‚RTS 0480�SEL�LDX�#T2 0490‚PRINT 0500‚IN 0510‚CMPA�#'0 0520‚BLO�SEL 0530‚CMPA�#'5 0540‚BHI�SEL 0550‚ANDA�#$F 0560‚STA�TYPE 0570‚RTS 0580�PROG�LDX�#T5 0590‚PRINT 0600‚INPAR 0610‚TFR�U,Y 0620‚LDX�#T6 0630‚PRINT 0640‚INPAR 0650‚CLRA 0660‚LBSR�OUT 0670‚LDA�#7 0680‚LBSR�OUT 0690‚LDA�#2 0700‚LBSR�OUT 0710‚LDA�TYPE 0720‚LBSR�OUT 0730‚TFR�Y,D 0740‚LBSR�OUT 0750‚EXG�A,B 0760‚LBSR�OUT 0770‚TFR�U,D 0780‚TFR�B,A 0790‚LBSR�OUT 0800‚LBSR�IN 0810‚PSHS�A 0820‚LBSR�ERROR 0830‚LDA�S+ 0840‚BMI�PROG2 0850‚LBSR�IN 0860‚LBSR�ERROR 0870�PROG2�RTS 0880�MREAD�LDA�#1 0890‚BRA�READ2 0900�READ�LDA�#0 0910�READ2�PSHS�A 0920‚LDX�#T5 0930‚PRINT 0940‚LDU�#0 0950‚INPAR 0960‚TFR�U,Y 0970‚LDX�#T7 0980‚PRINT 0990‚LDU�#1 1000‚INPAR 1010‚CLRA 1020‚LBSR�OUT 1030‚LDA�#8 1040‚LBSR�OUT 1050‚PULS�A 1060‚LBSR�OUT 1070‚LDA�TYPE 1080‚LBSR�OUT 1090‚TFR�Y,D 1100‚LBSR�OUT 1110‚EXG�A,B 1120‚LBSR�OUT 1130‚TFR�U,D 1140‚LBSR�OUT 1150‚EXG�A,B 1160‚LBSR�OUT 1170‚LBSR�IN 1180‚TSTA 1190‚BPL�READ9 1200‚LBSR�ERROR 1210‚RTS 1220�READ9�EXG�U,Y 1230‚PSHS�Y 1240‚LDX�#BUF 1250�READ6�LBSR�IN 1260‚STA�X+ 1270‚LEAY�-1,Y 1280‚BNE�READ6 1290‚PULS�Y 1300‚LDX�#BUF 1310�READ4�LDB�#16 1320‚PSHS�B 1330‚TFR�U,D 1340‚CRLF 1350‚OUTH2S 1360�READ5�LDA�X+ 1370‚OUTH1S 1380‚LEAU�1,U 1390‚LEAY�-1,Y 1400‚BEQ�READ3 1410‚DEC�S 1420‚BNE�READ5 1430‚LEAS�1,S 1440‚BRA�READ4 1450�READ3�PULS�B,PC 1460�VERI�LDA�#1 1470‚BRA�LOAD9 1480�LOAD�CLRA 1490�LOAD9�PSHS�A 1500‚LDX�#T5 1510‚PRINT 1520‚LDU�#0 1530‚INPAR 1540‚TFR�U,Y 1550‚LDX�#T7 1560‚PRINT 1570‚LDU�#1 1580‚INPAR 1590‚PSHS�U 1600‚LDX�#T9 1610‚PRINT 1620‚LDU�#0 1630‚INPAR 1640‚TFR�U,X 1650‚PULS�U 1660‚CLRA 1670‚LBSR�OUT 1680‚LDA�#8 1690‚LBSR�OUT 1700‚LDA�#0 1710‚LBSR�OUT 1720‚LDA�TYPE 1730‚LBSR�OUT 1740‚TFR�Y,D 1750‚LBSR�OUT 1760‚EXG�A,B 1770‚LBSR�OUT 1780‚TFR�U,D 1790‚LBSR�OUT 1800‚EXG�A,B 1810‚LBSR�OUT 1820‚LBSR�IN 1830‚TSTA 1840‚BPL�LOAD8 1850‚LBSR�ERROR 1860‚LEAS�1,S 1870‚RTS 1880�LOAD8�TFR�U,Y 1890‚LDU�#BUF 1900‚LDA�S+ 1910‚BNE�LOAD4 1920�LOAD3�LBSR�IN 1930‚STA�X+ 1940‚LEAY�-1,Y 1950‚BNE�LOAD3 1960‚RTS 1970�LOAD4�LBSR�IN 1980‚CMPA�X+ 1990‚BEQ�LOAD5 2000‚CMPU�#BUF+1024 2010‚BEQ�LOAD5 2020‚STX�U++ 2030‚S TA�U+ 2040‚LDA�-1,X 2050‚STA�U+ 2060�LOAD5�LEAY�-1,Y 2070‚BNE�LOAD4 2080‚CMPU�#BUF 2090‚BEQ�LOAD10 2100�LOAD12�LDX�#T12 2110‚PRINT 2120‚LDA�-U 2130‚OUTH1S 2140‚LDX�#T13 2150‚PRINT 2160‚LDA�-U 2170‚OUTH1S 2180‚LDX�#T14 2190‚PRINT 2200‚LDD�--U 2210‚SUBD�#1 2220‚OUTH2S 2230‚CMPU�#BUF 2240‚BNE�LOAD12 2250‚RTS 2260�LOAD10�LDX�#T15 2270‚PRINT 2280‚RTS 2290�DUMP�LDX�#T5 2300‚PRINT 2310‚LDU�#0 2320‚INPAR 2330‚PSHS�U 2340‚LDX�#T7 2350‚PRINT 2360‚LDU�#1 2370‚INPAR 2380‚PSHS�U 2390‚LDX�#T9 2400‚PRINT 2410‚LDU�#0 2420‚INPAR 2430�DUMP2�LDD�S 2440‚BEQ�DUMP4 2450‚CMPD�#$400 2460‚BLS�DUMP7 2470‚LDD�#$400 2480�DUMP7�TFR�D,Y 2490‚ADDD�#6 2500‚LBSR�OUT 2510‚EXG�A,B 2520‚LBSR�OUT 2530‚LDA�#2 2540‚LBSR�OUT 2550‚LDA�TYPE 2560‚LBSR�OUT 2570‚LDA�2,S 2580‚LBSR�OUT 2590‚LDA�3,S 2600‚LBSR�OUT 2610�DUMP3�LDA�U+ 2620‚LBSR�OUT 2630‚LEAY�-1,Y 2640‚BNE�DUMP3 2650‚LBSR�IN 2660‚TSTA 2670‚BMI�DUMP5 2680‚LBSR�IN 2690‚TSTA 2700‚BMI�DUMP6 2710‚LDD�2,S 2720‚ADDD�#$400 2730‚STD�2,S 2740‚LDD�S 2750‚SUBD�#$400 2760‚STD�S 2770‚BPL�DUMP2 2780�DUMP4�LEAS�4,S 2790‚RTS 2800�DUMP6�EQU�* 2810�DUMP5�LBSR�ERROR 2820‚LEAS�4,S 2830‚RTS 2840�T2�FCB�$D,$A,"Select�type�0=2716",$D,$A 2850‚FCB�"Œ1=2732",$D,$A 2860‚FCB�"Œ2=2764",$D,$A 2870‚FCB�"Œ3=27128",$D,$A 2880‚FCB�"Œ4=27256",$D,$A 2890‚FCB�"Œ5=2532‚your�choice�?",4 2900�T3�FCB�$D,$A,"Enter�command�:",4 2910�T5�FCB�$D,$A,"Start�address�EPROM:",4 2920�T6�FCB�$D,$A,"Data:",4 2930�T7�FCB�$D,$A,"Number�of�bytes:",4 2940�T9�FCB�$D,$A,"Memory�address:",4 2950�T12�FCB�$D,$A,"Data�should�be:",4 2960�T13�FCB�"was:",4 2970�T14�FCB�"at�address�",4 2980�T15�FCB�$D,$A,"Data�equal",4 2990�IN�LDA�ACIA 3000‚BITA�#1 3010‚BEQ�IN 3020‚LDA�ACIA+1 3030‚RTS 3040�OUT�PSHS�A 3050�OUT2�LDA�ACIA 3060‚BITA�#2 3070‚BEQ�OUT2 3080‚PULS�A 3090‚STA�ACIA+1 3100‚RTS 3110�ERROR�PSHS�D,X 3120‚LDX�#ERROR2 3130�ERROR5�CMPA�X+ 3140‚BEQ�ERROR3 3150‚CMPX�#ERROR4 3160‚BNE�ERROR5 3170‚LDX�#T4 3180‚PRINT 3190‚PULS�D,X,PC 3200�T4�FCB�$D,$A,"Unknown�error",4 3210�ERROR3�CRLF 3220‚PRINT 3230‚PULS�D,X,PC 3240�ERROR2�FCB�0,4 3250‚FCB�1,"Programming",4 3260‚FCB�3,"EPROM�not�blank",4 3270‚FCB�$81,"Too�mutch�data",4 3280‚FCB�$82,"Software�error",4 3290‚FCB�$83,"EPROM�type�not�selected",4 3300‚FCB�$84,"Data�doesn't�fit",4 3310‚FCB�$85,"Start�address�outside�EPROM�space",4 3320‚FCB�$86,"EPROM�not�empty",4 3330‚FCB�$87,"EPROM�will�not�proramm",4 3340�ERROR4�EQU�* 3350�TYPE�RMB�1 3360�BUF�RMB�1050 3370‚END åååA†ÿ— ƃ½�¨Æ†½�¨Æ‰½�¨Æ½�¨Æ½�¨Æ½�¨Æ½�¨†€·D96 ½½ƒS½ƒœ%^D}ï+ó½„T½ u– �¥&½ƒd½—_½‡ï}'z½‡ê½�`¶2„'%¶3„'¶4„'}®&¶õ£Æ½�¨†ƒ½„H ¤†½„M �9Îÿ½ÿ¿D¶D„Š@·Dƽ�¨½’ƽ�¨  ;Æ�½�¨Æ½�¨} 'c†µãÒ&}' R†ÿ— Þ½œëÎÿ7Æ„½�¨Æ½�¨ 7½ƒuîÿ7}9'þ7'kÞ½œ Þ½œ½—†—½š…†—ÞÆÿ½…`½œÍ D†µãÒ'†½„M}õ'†½„M½ƒ7}&kν’P½„T½ u†µãÒ&(†û½„H†@µãÒ&þ7'8 ÿ7Œ&}9' Þ½œë†ÿ— }'z} 'z }9&†µãÑ& ~‚Ù†ÿ—†—–ˆ€—Þ½“À†‘&½�`†@µãÒ& ½žuD}õ&6z†@µãÒ&$}9&} &}õ&}' ÆÚ½�¨ ~�·~�E½ƒœ$õ~�}&ÅÎÿ7ÎÑÿ9ÎUÿ;½‰-ÞæVÄ÷9ãáÆÿ×÷ôƽ�¨Æ½�¨~�€ÞæV+*}9&}õ& þ7 ÿ7} '} &~�·~�E|9ãá~�€ãáÆ‡½�¨†?´DŠ ·Dƃ½�¨Æ†½�¨Æ‰½�¨Æ�½�¨Æ½�¨~�·ß½�`}ï+ø}ï�½—_}'zÞßþãÐÿEþãÒÿGÞ9†ºãзãІï´ãзãÐ967Þ†k½ˆŸö9'†W½ˆŸZ&øß329ß~„' 9½�` 9½�`%9Á&};'çÆƒ½„)ƽ„>þ< ÖÁ&}>'ÏÆ†½„)þ?ƽ„> ¾Á &}A'LƉ½„)þBƽ„>~ƒ�Á&8Þ¼<& ƃ½„)ƽ„>~ƒ•¼?& Ɔ½„)ƽ„>~ƒ•¼B& Ɖ½„)ƽ„>~ƒ• 97ƽ�¨Æ½�¨Æ ½�¨3½�¨9†ü½„H½„M9´D ºD·D9þ•ÿîþ—ÿîþ™ÿîþoÿþqÿþsÿ9ÎãÐoooo†p§†§†6§†6§Îãà†oJ&ú†‚·ãàÎ ÿãæ†·ãᆷãáÎÿ &ýãཊ½‡©½’:} &½Ÿ€ÎÿïàÿïâÎ?<ÿïàÎ4ÿï⽄ú½«<½‹+9Î…_÷ïÚ¦·ïÛ\Á&òÎØ† §Œà&ø†3·ïÜ9uPR !`ÿ¶ãá…€'…'þãâ~†…'þãä…'þãæ¶ãÀ*~Š=¶ãÈ*~ŠÈ;†Q½ˆŸß¦„«'R¦„««'H]'EÆ ½†Œ%>×Þ¦„D—¦F—m+xy¦—¦—¦—†·ãá†À·ãà–+ †ß´ãзãÐ  =„—† ºãзãÐÎ_¦' G§ff Y ñÞÿãâãä÷ãå¶:Š€·:†ƒ·ãá 9ö:Þ 9†€µ:'2s}&*Ö½† ßÞ†€¥'Þ ß&¶ãЈ ·ãÐÞ¦„—¦—;¶ãЄ &OÆÞ½ˆH# –ÖÞ½ˆH#ᆠöø¶øÞ½ˆH" Ö–Þ½ˆH"Æö:Ä|·:ãá;Îø?OLá'�&ö 9 9Á"$]'!67Z÷í†·íÆµí'Z&øþ톽ˆ2329 9Á"$]'!76†ß½ˆzß Îí ZX½ˆ³– §–!§Þ23 9 97ÄÁ0"E]'B367ZßÎî„xÄ6†]'ZH ù2DDD½ˆŸß Ε½ˆŸ26M*ê Sä çÞ çÞ32 9 39Á0"^]'[Á/Ë67ZßÎî„xÄ6†]'ZH ù2DDD½ˆŸ7äÎ��#J½ˆŸ26¤]&26ª§33Ê€77 3C¤§3Ä77Þ332 9 967} &&Îî†oJ&úΕ†oJ&ú†0ß ½‡EJ&ù32Þ 9þ•ÿîþ—ÿîþ™ÿî Ü67~‡Æß Îm67Æß7½† ½ˆ)Þç§3 Z&ëÞ 329×1—2Þ19ß1Ö1–29ß17Ö1T×1Ö2V×2J&óÞ139ß1Ñ1.-‘29ß1�2Ò19ß1›2Ù19ß176›2Ù1—2×1Þ1239ß17Ö2X×2Ö1Y×1J&óÞ139×1—2ß3Þ1Ö3–4976_ß1›2Ù1—2×1Þ123976Oß1Û2™1×2—1Þ1239ß5½ˆâ½ˆ^½ˆ ½ˆâ]*½ˆ)Ê€Þ5967ß1s1s2†›2ÆÙ1—2×1Þ1329ß16—3–2�3—2–1‚—1Þ129ß17×3Ö2Ð3×2Ö1Â×1Þ1396ß"Þ7¦ß7Þ9§ß9Þ; ß;.ë2Þ"9ß"ÎO_vAvB$Û@™?FVvAvB &ïÞ"9HY—>×=HYHY›>Ù=976ß"†Þ''Lx(y'y&y%+�!&í—$Î)Ʀ§Z&ø)*+,Î(Æ ¦¢§ Z&ö$Î(Æ ¦©§ Z&ö  y,y+y*y)t%v&v'v(z$&½Þ"239Î&ÿžÎ¤ÿ³¸£·À¢†·ãÀ·ãȆ·Æ·ãÀ†‘·ãȶãÉÎÿÙÿÛ9¶ãÀ…&>…'6}¢'1þž¦·ãÁÿž}£'þ  ÿ &£ �&¢†ß´Æ·Æ·ãÀ}ã Á;}¸&½þ³öãÁçÿ³}·'þµ ÿµ&£·Î¤ÿ³ ˜Á 'Œ³&�Æÿ÷¸ÆôÆ÷Æ÷ãÀ~ŠD¶ãÉÎÙm'ŒÝ' ô§;67ÿĶÙþÚÿÙöÜ÷Ûܽª þÄ329ÿÄ6}¢&Î&}£'þ¾ÿž†ÿ·¢† ºÆ·Æ·ãÀþÄ29ÿÄ6Τ}·'þ¾ÿ³}ãÁ¸†€ºÆ·Æ·ãÀþÄ296†´Æ·Æ·ãÀ2967ÿÄ}¸'½‹|}¹'½‹¸þÄ329Τ½‹ìΨÿºÎ&ÿ¼ÎŒÀÿݽ‹ÿ% ½‹+}ß& ½‹+Î&†§†§½Šÿß9΂½‹ìΆÿºÎ‘ÿ¼ÎŒ¨ÿݽ‹ÿ% Α}ß'½¦r ζ±½¥ð¹9ÿ7ÎÐÿ9Îÿ;½‰-9ÎŒ0ÿÇî¼Ð& þÇî¼Ò'þdž½ˆŸÿǼÝ&ß 9þÇî­9G DOŒÁG DIŒÈG AO� G AI�G TC�WG TS�tG ST�|G TM�‘S ID�ºS DO�ÞS MMŽ HOLDŽ�ABORŽ“BUZZŽ—REC1Ž›REC2ŽŸREC3Ž£RSETާLOAD�ýSTARŽ«S IMŽÈG IM޽BACK޵MINBü Ε† Î�†ÿÇ·Ô½ŽñþÇæÿdžX6$†1Œ†0½�)½�"2J&í½� zÔ&Ú†½�)ß 9ÎO ÎoÿǽŽñÆ��}¹' ½ŒüΑÿ¼½¥ó��~Œü67�� ½�"Z&ö½� 329þǦÿÇþ¼½�¡ÿ¼9½ŽñÎÿÇÆ�Î�Ì�ʽ� Æ�Ã�Á~ŒüÎ2†~ŒÍ½�¶9þ¼½�¡ÿ¼½� ~Œüþº† ¡&ƽ�e%þÎÿ7½�ÆÎ7ÿǽ�2~Œü9þº ¦� ' ÎÿÁ~€Æ½�eþÎÿÁ~€Æ½Ž|%"öÏ'Á0"¦� &¦�0'�1&Ê€½†ö~ŒÁ 9ƽŽ|%÷¦ÿºÃ� &$ÆþÎÿËþº½�e%áþ˶ϧþËÿΆÿ·ý�þ¼¶ν�¡¶Ͻ�¡ÿ¼Æ}Ã&ƽ�"þΦÿÎþ¼½�¡ÿ¼Z&è½� ~Œüþº¦� &½�e% 9 9Æ Æ Æ Æ Æ Æ Æ Æ÷À|ß 9†ÿ· ~€�%ÿ ·£9� %ûÿµ··|ß9ƽŽ|%ÿºþÎÿ¾½Ž|%þΆÿ9���9�þ¼¶Ò§¶Ó§ÿ¼96† �† �29�ÞÆ�Z&û96† �29þ¼§ÿ¼9½�À0+� / �+�.€ 9 9�å%HHHH�Ü% ûÕ÷Õ9~�867÷ÔÍÎϦ� '$� ' �·%ÆxÏyÎyÍZ&ô»Ï·ÏzÔ*Ø … 32967DDDD‹0�9#‹§ÄË0Á9#Ëç329ÿË7Æ@Îÿÿ½¡`¶ãÀ ' G$ô¶ãÁ„þË39Z&äÆ�½�¨ ~€7öãÀWW$ù·ãÁ39¶D+9†�é�º�S&ú�´�9'6�1&ðÕ½�L€·Ö�&½�LzÖ' §¡& ï\'φ™·ãÁÎÿÿ &ý ~€9½�L·×½�L·Øþ×96½ŠÝ½‹aöÀ'2 öãжãÐ2&'SÄ' Á'Á "ÑC'×CÁ&7ƽ�¨3À×D 9×CÖD&øÖC 967„�&† D�&† <�&† 4�&† ,� & ;�&† �&† �& =�&†@ �'J 32937]+ C´ãÒ·ãÒ32 9ºãÒ ô37]+ †÷´ãÓ·ãÓ32 9†ºãÓ ò37]+ †÷´ãÑ·ãÑ æ†ºãÑ·ãÑ Ü37†@]+ C´ãзãÐ32 9ºãÐ ô67ÿ†@µãÒ&,¶ &'þ½‘ž~‘˜67ÿ†@µãÒ&Î ½‘ž 67ÿþ�32þ9ÿ!ÁÀ"Z„À&Á"Ë \Ê€ ëÀþ!½‘ç %�@&þ!†½ˆŸ½‘ç �€&þ!†½ˆŸ½‘ç  96„8DDD½ˆŸ†€Ä'DZ&üª§2967ÿÆ ÷öõ†ÿ·ôÎà†?oJ&úÎàÿÎëÿÎöÿÎÿÎ÷†oJ&úΛ†!oJ&ú329ßM67ˆŸßEÎIßIÎøßKÎø<ßTÞMî† ½ˆŸßG†—XÞT¦�ÿ&+–XL—XÞGßGÞIßIÞEßEÞKßKÞTßT�&Ó32ÞM 9—SÖXÁ/À½†  Î,ZX½ˆ³î½ˆ)ÞIç§ÞGîŒÿ'ªY6†½ˆzyY†½ˆ2–S�'2½ˆÇ×Q—RÄ?]&'�"# €Îø+–X½ˆŸ7潡3î Ú32 ÞK潆ö~’ƒ}Y& ½“…$ öÁ"ÖX½‘z ½“…$ öÁ"ÖX½‘Ž–S� #ÎÞIæ¦ÞGî6†½ˆz†½ˆ22½ˆÇ–S� &]+¥ ]* ÞKæÊ€½†ö œÞE$†&½ˆŸîÖQÄ–R½ˆH" 9}Q*†‘S'ó 9†‘S'ë öß_67†?½ˆŸßZ^†—]—\Ö\½‡E�x]& |]|^ÞZßZ|\†1‘\&à23Þ_9×aÅ€'F–]ÞZ¥ 'þ6&ö8Á# 67Æ÷8ÞZ¥'¥' Æ@Û\½‘z Æ@Û\½‘` ¥'Æ@Û\½‘ŽÎøS¦‘\' Œøc&ó ¦„€˜a„€æÄ½†ö967O·¼—nÎßs†·ïàÆd¶ïà*Z&ø¶¼Š·¼†?Æÿ|ïà|n ½•|ïà|n½•>Þs6–n…2&*Ûr™qGVŒ'%½•ÓÞsë©Ë‰GV§ç–n�'ßs ¢—q×r ø§ç½•¥ 놷ïàÎÿ7Îÿ9Îÿ;½‰-}¼'  329ÎbÆ4÷ïá÷ïãÆ<¶ïâ„§÷ïã¶ïâ÷ïá§Œl' Û9Îb¦æßyŒl'¡-&á#¦æ ç åÞyooÎb¦æßyŒl'¡.&á$¦æ ç åÞyooÎl¦æ 멌b&õ9Ά@_à¢XI—o×p�B,�>-9†B_—o×p¶¼Š€·¼9†>_ î—q×r½•áÞs§ç9ÎO_vqvr$Ûp™oFVvqvr &ï�@-†?Æÿ97ZÎ2½ˆ³ßuoXXνˆ³ßwæ¦Î+½ˆH#† Þuª§Þwæ¦Î+½ˆH# †Þuª§�0'<Þwæ¦î½ˆÇ7]*ÆŒÆÞuêç3ÄΠ½ˆH"%Þu†ª§Ö…ZX&ÆSô5÷5Þw6H„½ˆŸ2î39Ö…ZX&Æú5÷5Æ€Û…½‘ŽÞwæ¦Î€½ˆH"†€Þuª§Þwæ¦Î€½ˆH"†@Þuª§Þu¦…ð& §„ DDª§ �ÄÀÁÀ'–TTêÄ0Á0'ŒÄ &†ª§ ÄP&†ª§~–†67ßy¦�'ÆîM+½ ; ½ŸËÞy¦�'\îM+½ ; ½ŸËÞy\¦ �' î M+½ ; ½ŸËÞy23967½¡`Îoß�þîß{–|—~}x~y}x~ y}x~y}–{—|{x|y{x|y{x|y{–~›|—~–}™{—}½”p5Æ×…½–߃~˜%Þ�æ¦Þƒ½ˆÇ×—€þÄm'Þ{–€½ˆH#}' 7Æ€Û…½‘Ž3þm'Þ}–€½ˆH#}'}9' 7Æ€Û…½‘z3½˜HÖ…Á''\Þ�ß�~—¶…&7Æ€Û…½‘zÆνšf3Á'\~—¶239~—À–…�&_Þ�îß�½¢�S½¢ƒ[ÎSÿ7Î#ÿ9Î0ÿ;½‰-½™oÎ#ÿ7ÎWÿ9Îÿ;½‰-½š-Î;ÿ7Îkÿ9Îÿ;½‰-ÞŽÿí 9�&_Þ�îß�½¢�ƒ½¢ƒ‹Îƒÿ7Î#ÿ9Î0ÿ;½‰-½™oÎ#ÿ7·ÿ9Îÿ;½‰-½š-Î;ÿ7Λÿ9Îÿ;½‰-ÞŽÿí"9Þ�îß�½¢�³½¢ƒ»Î³ÿ7Î#ÿ9Î0ÿ;½‰-½™oÎ#ÿ7ηÿ9Îÿ;½‰-½š-Î;ÿ7ÎËÿ9Îÿ;½‰-ÞŽÿí$9½¢Œ#+’Î’ÿ7Ζÿ9Îÿ;½‰-}–*x–t–½¢ŒK–– ½¢ŒO––}–*O}’+†·;·<9½¢Œ/'–½¢Š’––½¢Ž?––½¢ŽC’’½¢Š–’’½¢Œ3/–½¢Ž–›Ò–½¢Œ–+–½¢Š–7–½¢ŽG––½¢Š–’’½¢Š’;;9¶;* Îÿ;ÿ=ߎ &�/¶<»='Îÿÿ;Îÿÿ=Îÿÿߎ ½¡°;Ž9Îÿkÿmÿ›ÿ�ÿËÿÍÿí ÿí"ÿí$9þ…½šçÎ?ÿ7Îoÿ9Îÿ;½‰-þî|…½šçÎ?ÿ7Οÿ9Îÿ;½‰-þî |…½šçÎ?ÿ7ÎÏÿ9Îÿ;½‰-9ß�΀–�„?Ö‘¡&á'% ŒØ'†½ˆŸ ä߈îßžÞˆ†Ö…Z' Z'½ˆŸ½ˆŸÿ7Î’ÿ9Îÿ;½‰-½¢žž½¢’š½¢”C½¢–G½¢�›Úšš½¢�›ÞGG½¢�›ÚCC½¢�š›Ö?½¢�›Úž–½¢Ž–šK½¢ŒšKO9Λâÿ7Îoÿ9Îÿ;½‰-Λâÿ7Οÿ9Îÿ;½‰-Λâÿ7ÎÏÿ9Îÿ;½‰-90ÿÿdé`ÿ0?À67ß§†½ˆŸß£Îø?ߥ¢Æ¦�'M|¢Z&óÞ£–¢H½ˆŸß£Æ¢Þ£ |¢Z&ö32Þ§9ߣ7ÎøO–¢½ˆŸæÁÿ' †ÿÞ£î+½ ;Þ£3 Ò½ŸË öߥ7Îø/–¢½ˆŸæÞ£–¢H½ˆŸD‹î+ ½ ;Þ¥3~œ½ŸË õ67ÿã†9½ˆŸÿåΕÆÿçþå¦ÿåþç§Z&ë32þã967ÿãÎøæÁÿ'½†öŒø&ðþã32967ÿãmV+F†�½ˆŸÿåÎøÿçŒø'3¦�ÿ'#�1þå¶齈Ÿå'Ε½ˆŸå& þçæÊ€½†öþçÿç Èþã329JéÆM' XJ]&ø|é ñ9½Ÿ;�8½ž²þÿìΦÿî�þÿìαÿî�9Æ þì¦ÿìþî§ÿîZ&ë967ÿêsôþÿðþÿò}ô& þÿðþÿòþð† m&J&ø}ô&ƽ�¨†ï½„H }ô& ƈ½�¨†½„MÆ þòÿîþð¦ÿìþî¨ÿîþì¤&QZ&çþòöð¶ñ½ˆ�ÿò÷ð·ñþðÆ oZ&ú}ô'þðÿþòÿ þðÿþòÿ32þê}ô'9~��}ô'ÆÊ€½�¨ÆÊ€½�¨ ž½�`%9Á&Ê€†µãÒ'Ä} &ë½�¨ æÁ&Æ îÁ&67ÿê eÁ&φÿ· È67ÿêÎ ¦´û§÷û¦´ü§÷ü¦´ý'zö' O † ·öO§÷ý¦ ´þ§ ÷þO}ö&Æ ÷öÆ ªZ&úM')ÆõãÒ&"Î ÿìΛÿî½�…ÆÊ€½�¨ÆÊ€½�¨3÷õ732þê967ÿêþ¦´÷§÷÷¦´ø§÷ø¦´ù§÷ù¦ ´ú§ ÷ú Ä67ÿÎÆ½†Ì\Á&øÎoÆçoŒ�&óΆÆþ罈ŸŒq&ôþÁÿoÿqÿs32þ967ÿ½¡¦�þ&O§§§þ§†(§þîöÄ?¶½ˆÇ7Ä÷)·*+,þ7ÿ'%&½‰þ3Ä€ú)ç¶*§¶+§¶,§oo32þ967ÿ½¡†ÿ§¶�& †þ§†·þ„?·§¶§þ½†Ì32þ967ÿ_\Á&~¡½¡†µãÒ&†@µãÒ&¦„þ�þ&þ Z7ÿ7Î ÿ9Îÿ;½‰-þîÿþîÿ Î m+½¡8 hd|½¡8h f¦æþ§çþ¶ §¶§3îÁ#½†Ì~ {32þ 9½¡ÿ½¡$ÿ9Îo†½¡-9Ά½¡-97Z'½ˆŸ ø39ÿÆ ¦7ö3&© ¢§ Z&ëþ9}ãÒ+9Îÿîÿîÿîÿí ÿí"ÿí$|½ö9÷¾}ï+|À&|¿}ãÒ+î_}D+Æÿ÷ ~€0îî¦6¦6¦6O66¦„6¦60¦„@&7¦'†hiiiiJ&ój â¦*l&l¦*¦CæS§çl&lîî222§2§2220î11n0îîO666¦6¦6_760¦*¦C§¦C§l&l¦M&¦M'†dffffJ&ól â¦*¦Š€§îî22§222§2§2§0î11n   _ Æ Æ Æ0îîO6¦6¦6¦6¦60îîO6¦6¦6¦6¦6O66666660]'^Á'T Tm*)l&%l&!l&† ffff J&ôhfll)'if13îî2§2§2§2§† 1J&ü0î11]' n s m S ¨† �c†�_†§_f ffj'$ë ¦© §¦©§ffVf Ýç¦ èÄ€oHh«) F§†�m'¯l 4*"6¦…ð2&�€& †?§ Ý p l ‘Ä€Ê?†ÿl _O§§§oç æ ¹7† �M†�I†§¦ HæXj-1'@. ����‹ ë����Ë ß f fff9 ff f f 9. ” ] Y š ¦ Œ§�Ö�Þ¦ *† �y¦*†�q2�&n¦« §¦© §¦© §¦ ©((§†f gfffJ&õll(iV ­ ¡ * * ¡ ¡§m *†�! )åfiii i¦…ð&؆�, Ò ( o Ò Ò q¦  §¦¢ §¦¢ §¦ ¢% � Š ¦6_J&ü¦ªªª'3hY¦…ð&j)j� ðlÊVf2 J&ü„9†hiiiJ&õ9Æo á I � � ­J&üccccl& l& l&l) Z&ü9 † † Ó Ï Ë† ffffJ&ôll Û†�à† �Ü)Ø'Ö†df f f J&õd fffæ †6Xi i ihiiiঠ¢§ ¦ ¢§ ¦¢ §$  › — “ë¦ ©§ ¦ ©§ ¦© § l2J&¶†hiiiJ&õ¦è Ä€oHh   (* Á‹ »‹) ³ õ½¦r6¦�'�@ õ29ÎØÖ©–ª½ˆU÷)·*ÎPÿ'ÿAÎÿ+ÿ%½‰þ)ÿ?½‰KÎØöA¶B½ˆg967߯ީ� ' � '§ ½¦±� '�© †P½ˆŸß©œ­&½¦ÙÞ©½¦ÊÞ¯3296† �ņ �Á29�ó�ñ�ï96† ½¦²=*&]&  åßµ¶=ö>à¢÷@·?îÿA½‰KÞµ}Ð&öA  yAé©92Ê%´^õ× § ›&/W²Šq¦˜îÒäÌRK .ã¶á q‘ ³d~#[ ×â'3 ìÎF+ dÿÿÿÿÿÿ΂oŒ‰&ø† ÆŒÎ‚½©¯†ÆÎƒ½©¯†XÆÎ…½©¯†<ÆÎ†½©¯† ÆÎˆ½©¯–¸·‰†Æ0΂·sÆ0ëçÆ0ëçzs'†.§ 憧9—µ×¶Ñ·"-‘¸"–¸�µ—¸Ö·Ò¶×·–µÖ¶l Þ9¦_½‰n«6¦_½‰n«6¦'† «Æ÷t_½‰nHY·>÷=½‰w÷=·>þ=2½ˆŸÿ=¶>ö=zt&×9·ÍÎÄDDDD'Ë J ù ¶Í„' Ëd$|ÎJ ô¶ÍDDDD·Í&¶Î ¶Î Ëè‰zÍ&ö9Ϊ–sà¢%|s õë©7ÿtösË0Þ±çß±3þtŒª &Ó9 'èd M'ÞÄn}Ú'}& ½¬½«Ð† ·9½¦©Úε¢½¥ðη3½¥ðΪÕßÄ9�8,L€1-H�-9·tη÷½¥ðη3½¥ðΪößÄ9½µ•)*Î;J' Î>J'ÎAJ&æ]'îß̶tΫ.H½ˆŸînζ±½¥ð~ªÃ«f°2°Í¾`³m´V´ÐÎØÿ«Î߀ÿ­¹½«f9æ×Èß¿—Á9¦ß¿Æ×É—È9†—Ú½¦©Ñß½¬þøˆ¦�(*½¦rþø€†½«O† —ɽ¬õ½¦}þø„†½«O½¬õ½¦r½¦r½­Wþø‚†½«O½¬õ½¦}þøˆ†½«O½¬õ½¦r½¬§½«ÐΪ½ßÄ9½¦±ÎØ †½ˆŸ½¦Êþøˆ¦�(*½¦r½­ø½¦}½®r½¦r½¦r½¯½¯R½¦}½¯š½¦±Îß0†2½ˆŸ½¦Ê9½¦±Î؆½ˆŸ½¦Ê¶D„&ƽ¦„ 0þ 4235ˆBEQ„CHTM11ƒBRANCH�TO�EXIT�IF�CR 4236ˆBRA„CHTM04 4237�* 4238�*�ENTER�HERE�AFTER�KEY�ENTRY 4239�* 4240�CHTM03�JSR„INDEC„CHECK�IF�DECIMAL�CHARCTER 4241ˆBVS„CHTM06ƒINCORRECT�ENTRY 4242�CHTM04�LDX„TEMP1 4243ˆSTAAƒ0,X 4244ˆSTX„TEMP1 4245ˆRETURN�CHTM05 4246�* 4247�*�ENTER�HERE�AFTER�KEY�ENTRY 4248�* 4249�CHTM05�JSR„INDEC 4250�CHTM06�BVS„CHTM12ƒINCORRECT�ENTRY 4251ˆLDX„TEMP1 4252ˆSTAAƒ1,X 4253ˆINX 4254ˆINX 4255ˆSTX„TEMP1 4256ˆDEC„R1 4257ˆBEQ„CHTM09ƒBRANCH�IF�HH.MM.SS�ARE�ENTERED 4258ˆRETURN�CHTM08ƒSKIP�THE�.�IN�THE�ENTRY 4259�CHTM08�JSR„OUTCH„DISPLAY�. 4260ˆRETURN�CHTM03 4261�*�TEST�IF�ENTRIES�ARE�CORRECT 4262�CHTM09�LDX„#NUMBER 4263ˆLDAAƒ#1 4264ˆCMPAƒ0,X 4265ˆBLT„CHTM12ƒBRANCH�IF�TIME�>�19�HOURS 4266ˆBNE„CHTM10ƒBRANCH�IF�TIME�<�10�HOURS 4267ˆLDAAƒ#7 4268ˆCMPAƒ1,X 4269ˆBLT„CHTM12ƒBRANCH�IF�TIME�>�17�HOURS 4270�CHTM10�LDAAƒ#5 4271ˆCMPAƒ2,X 4272ˆBLT„CHTM12ƒBRANCH�IF�>�59�MINUTES 4273ˆCMPAƒ4,X 4274ˆBLT„CHTM12ƒBRANCH�IF�>�59�SECONDS 4275ˆLDX„#NUMBER 4276ˆJSR„TIMSECƒRESULT�IN�A,B�AND�IN�X 4277ˆSTX„NUMBER 4278ˆLDX„#M25…/CHANGES�OK?�/ 4279ˆJSR„PDATA 4280ˆRETURN�CHTM11 4281�* 4282�*�ENTER�HERE�AFTER�KEY�ENTRY 4283�* 4284�CHTM11�LDX„EDVECTƒRETURN�ADDRESS 4285ˆJMP„X 4286�* 4287�CHTM12�LDX„#M7†/INCORRECT�ENTRY/ 4288ˆJSR„PDATA 4289ˆJMP„CHTM00ƒTRY�AGAIN 4585ˆPAGE 4590�CHDOƒEQU„*ˆCHANGES�THE�DIGITAL�OUTPUTS�IN�THE�STATUS 4595�*�ENTERED�WITH�ADDRESS�OF�OUTPUT�DATA�IN�OUTPUT 4600ˆINITƒSYSTAB+10,CNST10!  4605ˆJSR„NAMDSPƒDISPLAY�DIGITAL�OUTPUTS 4610ˆCURPOS�LINE3,0 4615ˆJSR„DOVAL 4620ˆLDAAƒ#1¨ 4625ˆSTAAƒDOBYTEƒUSED�AS�COUNTER 4630ˆMOVEƒOUTPUT,DIGOUT,6 4635ˆCURPOS�LINE15,0 4640ˆJSR„CLRDSP 4645�CHDO1‚INITƒSYSTAB+10,CNST10 4650ˆLDABƒDOBYTE 4655ˆCMPBƒ#7‡ 4660ˆBEQ„CHDO3AƒBRANCH�IF�DONE 4665�CHDO2‚DECB 4670ˆBEQ„CHDO3 4675ˆADDA2X�#CNST80,POINTR�POINT�X�TO�CORRECT�ENTRY 4680ˆLDAAƒCOUNT 4685ˆSUBAƒ#8 4690ˆSTAAƒCOUNT 4695ˆBRA„CHDO2 4700�CHDO3‚LDAAƒCOUNT 4705ˆBGT„CHDO4 4710�CHDO3A�JMP„CHDO19ƒALL�DO'S�DONE 4715�CHDO4‚CMPAƒ#8 4720ˆBLT„CHDO5„NR�OF�DO'S�TO�BE�DISPLAYED�YET 4725ˆLDAAƒ#8 4730�CHDO5‚STAAƒR6‡USED�AS�COUNTER 4735ˆSTAAƒCOUNT„MAXIMUM�IS�8 4740ˆSTX„TEMPX 4745ˆJSR„NAMDSP 4750ˆJSR„PCRLF 4755ˆLDX„TEMPX 4760ˆDEX 4765ˆSTX„POINTRƒPOINT�TO�DO�NR 4770�CHDO6‚RETURN�CHDO8 4775�* 4780�*�ENTER�HERE�AFTER�KEY�ENTRY 4785�* 4790�CHDO8‚CMPAƒ#$D†CR? 4795ˆBNE„CHDO7„ 4800ˆJMP„CHDO18ƒJMP�FOR�NEXT�8�D.O.'S�OR�EXIT 4805�CHDO7‚LDABƒ#9 4810ˆCMPAƒ#$20…SPACE 4815ˆBEQ„CHDO17ƒBRANCH�FOR�NEXT�DO 4820ˆPSHA 4825ˆLDX„POINTR 4830ˆLDABƒ0,X 4835ˆSTABƒSAVE1„DO�NR 4840ˆLDABƒ7,X†DO�TYPE 4845ˆSTABƒR0 4850ˆPULA 4855ˆLDX„#M18…/CLOSED/ 4860ˆCMPAƒ#'C 4865ˆBEQ„CHDO10ƒDISPLAY�CLOSED 4870ˆLDX„#M17…/OPEN/ 4875ˆLDABƒR0 4880ˆCOMBŒCOMPLEMENT�R0,�BIT�0 4885ˆANDBƒ#$01… 4890ˆSTABƒR0 4895ˆCMPAƒ#'O 4900ˆBEQ„CHDO10 4905ˆJMP„CHDO23ƒBRANCH�IF�ERROR 4910�CHDO10�JSR„PDATA1 4915ˆLDX„#DIGOUT 4920ˆSTX„BUFPTRƒDATA�POINTER 4925ˆLDX„POINTR 4930ˆTST„R0 4935ˆBEQ„CHDO11ƒBRANCH�IF�1�TO�0�TRANSITION�FOR�THE�D.O. 4940ˆJSR„LOCK…CHECK�THE�INTERLOCK 4945ˆBRA„CHDO12 4950�CHDO11�JSR„CONLCKƒCHECK�THE�CONDITIONAL�INTERLOCKS 4955�CHDO12�BCC„CHDO13ƒBRANCH�IF�NO�ERRORS 4960ˆJMP„CHDO24ƒINTERLOCK�ERROR 4965�CHDO13�LDABƒSAVE1„DO�NR. 4970ˆLDX„#DIGOUT‚POINT�TO�DATA 4975ˆJSR„TSTBITƒGET�THE�D.O.�BIT�IN�THE�CARRY 4980ˆJSR„SETBITƒSET�CORRECT�DIGITAL�OUTPUT�BIT 4985ˆLDABƒ#3 4990�CHDO17�JSR„SPACE 4995ˆDEC„R6‚ 5000ˆBEQ„CHDO18ƒBRANCH�IF�DONE�WITH�THIS�LINE 5005ˆADDA2X�#CNST10,POINTR� 5010ˆJMP„CHDO6„NEXT�OUTPUT 5015�CHDO18�INC„DOBYTE 5020ˆJSR„PCRLF 5025ˆJMP„CHDO1„NEXT�OUTPUTS 5030�CHDO19�LDX„#M25…/ALL�CHANGES�OK?/ 5035ˆJSR„PDATA 5040ˆRETURN�CHDO20 5045�* 5050�*�ENTER�HERE�AFTER�KEY�ENTRY 5055�* 5060�CHDO20�CMPAƒ#'Y 5065ˆBEQ„CHDO21ƒBRANCH�IF�OK 5070ˆJMP„CHDO…TRY�AGAIN 5075�CHDO21�LDX„#DIGOUT‚NEW�VALUES�IN�THE�OUTPUTFIELD 5080ˆSTX„SOURCE 5085ˆLDX„OUTPUT 5090ˆSTX„DESTIN 5095ˆLDX„#6‡LENGTH�OF�DATA�RECORD 5100ˆSTX„LENGTH 5105ˆJSR„BUFBUFƒMOVE�DATA�TO�CORRECT�MEMORY 5110�CHDO22�LDX„EDVECT 5115ˆJMP„XˆRETURN�TO�NEXT�LEVEL�SUBROUTINE 5120�*�ERROR 5125�CHDO23�LDAAƒ#'? 5130ˆJSR„OUTCH 5135ˆLDABƒ#1 5140ˆJSR„LEFT…CURSOR�1�POSITION�LEFT 5145ˆJMP„CHDO6„TRY�AGAIN 5150�CHDO24�LDABƒ#6 5155ˆJSR„LEFT 5160ˆLDX„#M24…/INTERLOCK�ERROR/ 5165ˆJSR„PDATA1 5170ˆJSR„PCRLF 5175ˆJMP„CHDO1 5180ˆSPC�3ƒ 5185�LOCKƒEQU„*ˆCHECKS�THE�INTERLOCK�AND�CONDIT.�INTERLOCK 5190�*�X�POINTS�TO�DO�NR�IN�SYSTEMFILE 5195ˆSTX„SAVEX 5200ˆCLC 5205ˆLDABƒ8,X†GET�INTERLOCK�NR 5210ˆBEQ„LOCK2„NO�INTERLOCK 5215ˆLDX„BUFPTR 5220ˆJSR„TSTBITƒTEST�OTHER�D.O. 5225ˆBCS„LOCK4„BRANCH�IF�CARRY�SET�DUE�TO�INTERLOCK�ERROR 5230ˆLDX„SAVEX„POINTER�TO�SYSTAB�ENTRY 5235�LOCK2‚LDABƒ9,X†GET�COND.�INTERLOCK�NR 5240ˆBEQ„LOCK4„NO�CONDIT.�INTERLOCK 5245ˆLDX„BUFPTR 5250ˆJSR„TSTBITƒTEST�OTHER�D.O. 5255ˆBCC„LOCK3„COMPLEMENT�THE�CARRY�BIT 5260ˆCLC 5265ˆRTS 5270�LOCK3‚SEC�INTERLOCK�ERROR 5275�LOCK4‚RTS 5280ˆSPC„3 5285�CONLCK�EQU„*ˆCHECKS�THE�CONDITIONAL�INTER" LOCKS�OF�THE�OTHER 5290�*�D.O.'S�WHEN�A�D.O.�IS�DEACTIVATED 5295ˆLDX„SYSTAB+10�THE�CONDITIONAL�INTERLOCK�ARE�IN�THE�SYSTEMFILE 5300ˆLDABƒ0,X 5305ˆSTABƒR1‡TOTAL�NR.�OF�D.O.'S 5310ˆINX 5315ˆSTX„TEMPX„POINTS�TO�D.O.�NR 5320�CONLC1�LDABƒ9,X†COND.�INTERL.�NR 5325ˆCMPBƒSAVE1„D.O.�NR�OF�DO�TO�BE�CHANGED 5330ˆBNE„CONLC2ƒBRANCH�IF�NOT�COND.�INTERLOCK 5335ˆLDABƒ0,X†GET�D.O.�NR�TO�CHECK�ITS�VALUE 5340ˆLDX„BUFPTRƒPOINT�TO�DATA 5345ˆJSR„TSTBIT 5350ˆBCS„CONLC3ƒBRANCH�IF�COND.�INTERLOCK�ERROR 5355�CONLC2�ADDA2X�#CNST10,TEMPX 5360ˆDEC„R1‡ 5365ˆBNE„CONLC1ƒBRANCH�FOR�NEXT�D.O. 5370ˆCLC�NO�ERRORS 5375�CONLC3�RTS 5380ˆPAGE 5385�RCEDIT�EQU„*ˆRECIPE�EDITOR 5395ˆJSR„CLRALL 5400�RCP1ƒLDX„#M27…/ENTER�STEP�NR/ 5405ˆJSR„PDATA1 5420ˆJMP„INSTEPƒGET�STEPNR 5425�RCP1A‚BVS„RCP3…ERROR 5430ˆLDAAƒVAL1 5435ˆCMPAƒ#CR 5440ˆBNE„RCP2…BRANCH�IF�NO�EXIT�REQUESTED 5445ˆJMP„JOB00„EXIT�TO�JOBSELECTION 5450�RCP2ƒLDABƒVAL1+1 5455ˆJSR„BCDBINƒCHANGE�ENTRY�TO�BINARY 5460ˆTSTA 5465ˆBNE„RCP3…ERROR 5470ˆSTABƒSTEPNO 5475ˆLDX„RECIPE‚ 5480ˆLDAAƒ#TOTSTP‚OFFSET�TO�TOTAL�STEPNR�BYTE�IN�THE�HEADER 5485ˆJSR„AXA 5490ˆLDAAƒ0,X†GET�TOTAL�NR�OF�STEPS 5495ˆSBA 5500ˆBGT„RCP4…BRANCH�IF�STEPNR�IS�OK 5505ˆLDX„#M23…/TOO�LARGE�A�NR/ 5510ˆBRA„RCP3A� 5515�RCP3ƒLDX„#M7†/INCORRECT�ENTRY/ 5520�RCP3A‚JSR„PDATA 5530ˆJMP„RCP1…TRY�AGAIN 5535�*�COMPUTE�START�ADDRESS�OF�THE�STEP 5540�RCP4ƒINX 5545ˆLDABƒSTEPNO 5546ˆINCBŒADJUST�STEPNO�FOR�ADDRPT�ROUTINE 5550ˆLDAAƒ#STPLEN 5555ˆJSR„ADDRPTƒADD�B-1�TIMES�A�TO�X�REG 5560ˆSTX„STEPPT 5565�* 5570�RCP6ƒCURPOS�LINE1,0 5575ˆJSR„CLRDSP 5580ˆLDX„#M4†/‚STEP�/ 5585ˆJSR„PDATA1 5590ˆPARAM‚#0,STEPNO,#DSPBUF 5595ˆJSR„STEPNRƒDISPLAY�STEPNR 5600ˆLDX„#M16…/(1)�TIME�ETC.�/ 5605ˆJSR„PDATA 5620ˆRETURN�RCP6A 5625�* 5630�*�ENTER�HERE�AFTER�KEY�ENTRY 5635�* 5640�RCP6A‚CMPAƒ#CR 5645ˆBNE„RCP6B 5650ˆJMP„RCEDITƒEXIT�FROM�THIS�STEP 5655�RCP6B‚SUBAƒ#$30 5660ˆBLT„RCP6…TRY�AGAIN 5665ˆPSHA 5670ˆCURPOS�LINE2,0 5675ˆJSR„CLRDSP 5680ˆPULA 5685ˆDECA 5690ˆBEQ„STTIMEƒBRANCH�IF�TIME�CHANGE 5695ˆJMP„RCP7…CHECK�FOR�D.O.�CHANGE 5700�*�CHANGE�THE�TIME�IN�A�STEP 5705�STTIME�LDX„STEPPT 5710ˆLDX„1,X†GET�TIME�ENTRY 5715ˆSTX„SECOND 5720ˆLDX„#RCP6CƒRETURN�ADDRESS 5725ˆSTX„EDVECT 5730ˆJMP„CHTIMEƒGET�NEW�ENTRY 5735�RCP6C‚CMPAƒ#$D 5736ˆBEQ„RCP10„EXIT�WITHOUT�TIME�CHANGE 5737ˆCMPAƒ#'Y 5740ˆBNE„STTIMEƒBRANCH�IF�TIME�NOT�OK 5745ˆLDX„STEPPT 5750ˆLDAAƒNUMBER 5755ˆSTAAƒ1,X†AND�STORE�IT� 5760ˆLDAAƒNUMBER+1 5765ˆSTAAƒ2,X 5770�RCP10‚JMP„RCEDITƒEXIT�FROM�THIS�STEP 5775�RCP7ƒDECA 5780ˆBNE„RCP8‚ 5785�*�DIGITAL�OUTPUTS 5790ˆLDX„STEPPT 5795ˆLDAAƒ#DOMSK1‚OFFSET�IN�STEP�OF�D.O.'S 5800ˆJSR„AXA 5805ˆSTX„OUTPUTƒADDRESS�OF�DATA 5810ˆLDX„#RCEDIT‚RETURN�ADDRESS 5815ˆSTX„EDVECT 5820ˆJMP„CHDO…CHANGE�THE�DIGITAL�OUTPUTS 5825�RCP8ƒDECA 5830ˆBNE„RCP10„TRY�AGAIN 5835�*�SETPOINT�CHANGE 5840ˆLDX„STEPPT 5845ˆLDAAƒ#AIN04ƒOFFSET�IN�STEP 5850ˆJSR„AXA 5855ˆSTX„OUTPUTƒADDRESS�OF�DATA 5860ˆLDAAƒ#1 5865ˆSTAAƒRFLAG„SET�FLAG�FOR�RECIPE�CHANGE 5870ˆLDX„#RCEDIT‚RETURN�ADDRESS 5875ˆSTX„EDVECT 5880ˆJMP„SPRECPƒCHANGE�THE�SETPOINTS 5885ˆPAGE 5890�LOTNR‚EQU„*ˆCHANGES�THE�LOTNR 5900ˆJSR„CLRALL 5905ˆLDX„#M32…/LOT�NUMBER:/ 5910ˆJSR„PDATA1 5915ˆLDX„RECIPE 5920ˆLDAAƒ#9‡SKIP�FIRST�9�BYTES�IN�RECIPE�HEADER 5925ˆJSR„AXA 5930ˆSTX„RECIPE 5935ˆMOVEƒRECIPE,DSPBUF,15 5940ˆLDAAƒ#4 5945ˆSTAAƒDSPBUF+15 5950ˆLDX„#DSPBUF 5955ˆJSR„PDATA1 5960ˆLDX„#M33…/NEW�NUMBER:/ 5965ˆJSR„PDATA 5970ˆLDABƒ#$20 5975ˆLDX„RECIPE 5980ˆDEX 598# 5ˆSTABƒ0,X†PUT�SPACE�BEFORE�THE�LOT�NR 5990ˆINX 5995ˆLDABƒ#15†MAX�15�CHAR. 6000�LOTNR1�STX„OUTPUT 6005ˆSTABƒR3 6010ˆRETURN�LOTNR5 6015�* 6020�*�ENTER�HERE�AFTER�KEY�ENTRY 6025�* 6030�LOTNR5�CMPAƒ#CR 6035ˆBEQ„LOTNR4ƒBRANCH�IF�DONE 6040�LOTNR2�CMPAƒ#CR 6045ˆBEQ„LOTNR3ƒBRANCH�IF�CR 6050ˆJSR„OUTCH 6055ˆLDX„OUTPUT 6060ˆSTAAƒ0,X 6065ˆINX 6070ˆSTX„OUTPUT 6075ˆDEC„R3 6080ˆBEQ„LOTNR4ƒBRANCH�IF�MAX.�NUMBER�LENGTH�IS�ENTERED 6085ˆRETURN�LOTNR2 6090�* 6095�LOTNR3�LDAAƒ#$20…FILL�REMAINDER�WITH�CHARACTERS 6100ˆLDX„OUTPUT 6105ˆSTAAƒ0,X 6110ˆINX 6115ˆSTX„OUTPUT 6120ˆDEC„R3 6125ˆBNE„LOTNR3 6130�LOTNR4�JMP„JOB00„RETURN�TO�JOBSELECTION 6135ˆPAGEƒ 6140�RCNAME�EQU„*ˆCHANGES�THE�RECIPE�NAME 6150ˆJSR„CLRALL 6155ˆLDX„#M34…/RECIPE�NAME:/ 6160ˆJSR„PDATA1 6165ˆMOVEƒRECIPE,DSPBUF,8 6170ˆLDAAƒ#4 6175ˆSTAAƒDSPBUF+8 6180ˆLDX„#DSPBUF 6185ˆJSR„PDATA1ƒDISPLAY�OLD�NAME 6190ˆLDX„#M35…/NEW�NAME�:/ 6195ˆJSR„PDATA 6200ˆLDABƒ#8‡MAX�8�CHARACTERS 6205ˆLDX„RECIPE 6210ˆJMP„LOTNR1ƒ 6215ˆSPC„3 6220�TSTBIT�EQU„*ˆBITNR�TO�BE�CHECKED�IN�B-REG 6225�*�X�POINTS�TO�START�OF�THE�DATA;�EXITS�WITH�BIT�VALUE�IN�THE�CARRY�AND 6226ˆPSHBŒBITNR�IN�B�REG 6230ˆCLRA 6235�TSTB1‚STABƒBLOOP 6240ˆSUBBƒ#8 6245ˆBLE„TSTB2„BRANCH�IF�OFFSET�IS�CORRECT�FOR�THIS�INPUT 6250ˆINCAŒBLOOP�HAS�(BITNR�+1)MODULO�8 6255ˆBRA„TSTB1„CHECK�THE�NEXT�BYTE 6260�TSTB2‚STAAƒR4‡KEEP�THE�OFFSET 6265ˆJSR„AXA 6270ˆJSR„GETBIT 6271ˆPULB 6275ˆRTS 6280ˆSPC„3 6285�GETBIT�EQU„* 6290�*�ENTERED�WITH�(BITNR�+1)�IN�BLOOP 6295�*�SELECTS�THE�CORRESPONDING�BIT�OUT�OF�A�BYTE�POINTED�TO�BY�X�AND 6300�*�PUTS�IT�IN�THE�CARRY 6305�* 6310ˆLDABƒBLOOP 6315ˆLDAAƒ0,X 6320�GET01‚RORAŒROTATE�RIGHT;�BIT�IN�CARRY 6325ˆDECB® 6330ˆBNE„GET01„ROTATE�TILL�REQUESTED�BIT�IS�IN�THE�CARRY 6335ˆRTS 6340ˆPAGEƒ 6345�SETBIT�EQU„*ˆSETS�OR�CLEARS�THE�D.O.�BIT�IN�THE�CARRY 6350�*�R0=0�CLEAR�BIT;�R0=1�SET�BIT;�MOVES�BIT�BACK�INTO�BYTE 6355�* 6360ˆLDABƒBLOOP„BITPOSITION�IN�A�BYTE 6365ˆLSR„R0‡BIT�0�OF�R0�IN�THE�CARRY 6370�SETB1‚ROLAŒMOVE�BIT�BACK 6375ˆDECB 6380ˆBNE„SETB1 6385ˆSTAAƒ0,X„RETURN�THE�BYTE 6390ˆRTS�DONE 6392ˆSPC„3 6394�FNDBIT�EQU„* 6396�*�ENTERED�WITH�(BITNR�+1)�IN�B-REG 6398�*�SELECTS�THE�CORRESPONDING�BIT�OUT�OF�A�BYTE�POINTED�TO�BY�X�BY 6400�*�SHIFTING�LEFT�AND�PUTS�IT�IN�THE�CARRY 6402�* 6403ˆPSHA 6404ˆJSR„AXA†ADD�OFFSET�TO�POINTER 6405ˆJSR„TSTBITƒFIND�BIT 6406ˆPSHBŒBIT�NR 6407ˆLDABƒBLOOP 6408ˆLDAAƒ0,X†GET�BYTE 6409�FND01‚ROLAŒROTATE�LEFT;�BIT�IN�CARRY 6410ˆDECB® 6412ˆBNE„FND01„ROTATE�TILL�REQUESTED�BIT�IS�IN�THE�CARRY 6413ˆPULB 6414ˆPULA 6415ˆRTS 6416ˆPAGE 6417�INSTEP�EQU„*ˆGETS�A�1-3�DIGIT�DECIMAL�NR�AND�STORES�IT�IN�VAL1 6418�*�ON�ERROR�THE�OVERFLOW�BIT�IS�SET 6419ˆCLR„VAL1+1 6420ˆRETURN�INSTP0 6421�* 6425�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6430�* 6435�INSTP0�JSR„INNR 6440ˆBVS„INSTP3ƒBRANCH�IF�ERROR 6445ˆSTAAƒVAL1 6450ˆCMPAƒ#CR 6455ˆBEQ„INSTP3ƒBRANCH�IF�CR 6460ˆRETURN�INSTP4 6465�* 6470�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6475�* 6480�INSTP4�JSR„INNR…GET�DECIMAL�CHAR. 6485ˆBVS„INSTP3 6490ˆLDABƒVAL1…GET�FIRST�ENTRY 6495ˆCMPAƒ#CR 6500ˆBEQ„INSTP1ƒBRANCH�IF�CR 6505ˆASLB 6510ˆASLB 6515ˆASLB 6520ˆASLB 6525ˆABA 6530ˆSTAAƒVAL1+1ƒTWO�HEX�CHARACTERS�IN�A�BYTE 6535ˆRETURN�INSTP5 6540�* 6545�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6550�* 6555�INSTP5�JSR„INNR…NEXT�CHAR. 6560ˆBVS„INSTP3ƒBRANCH�IF�ERROR 6565ˆCMPAƒ#CR 6570ˆBEQ„INSTP2ƒBRANCH�IF�CR 6575ˆLDABƒVAL1+1 6580ˆASLB 6585ˆASLB 6590ˆA$ SLB 6595ˆASLB 6600ˆABA 6605ˆSTAAƒVAL1+1 6610ˆBRA„INSTP3 6615�INSTP1�STABƒVAL1+1 6620�INSTP2�CLR„VAL1 6625�INSTP3�JMP„RCP1A 6630ˆSPC„2 6635�INNRƒEQU„*ˆINPUTS�DECIMAL�NUMBER�OR�CR 6640ˆCMPAƒ#CR 6645ˆBEQ„INOK…BRANCH�IF�CR 6650�INDEC‚JSR„OUTCH 6655ˆSUBAƒ#$30…CHANGE�TO�DECIMAL 6660ˆBLT„INERR„BRANCH�IF�ERROR 6665ˆCMPAƒ#9 6670ˆBLE„INOK…BRANCH�IF�OK 6675�INERR‚SEV 6680�INOKƒRTS 6685ˆPAGEƒ 6690�***************************** 6695�*‚STRINGS‚AND‚CONSTANTS‚* 6700�***************************** 6705�M1…FCC„/TUBE�LEVEL�JOB�SELECTION/ 6710ˆFCB„CR,LF 6715ˆFCC„/(1)‚TUBE�STATUS�DISPLAY/ 6720ˆFCB„CR,LF 6725ˆFCC„/(2)‚DIGITAL�OUTPUT�STATUS�DISPLAY/ 6730ˆFCB„CR,LF 6735ˆFCC„'(3)‚STATUS�CHANGE' 6740ˆFCB„CR,LF 6741ˆFCC„/(4)‚MAINTENANCE�COMMANDS/ 6742ˆFCB„CR,LF 6745ˆFCC„'(5)‚RECIPE�CHANGE' 6750ˆFCB„CR,LF 6755ˆFCC„'(6)‚LOT�NUMBER�CHANGE' 6760ˆFCB„CR,LF 6765ˆFCC„'(7)‚RECIPE�NAME�CHANGE' 6770ˆFCB„LF,EOF 6775�M2…FCC„/‚STATUS�/ 6780ˆFCB„EOF 6785�M3…FCC„/‚BOAT�/ 6790ˆFCB„EOF 6795�M4…FCC„/‚STEP�/ 6800ˆFCB„EOF 6805�M5…FCC„/‚TIME�/ 6810ˆFCB„EOF 6815�M6…FCC„/PRESS�ANY�KEY�FOR�JOB�SELECTION�/ 6820ˆFCB„EOF 6825�M7…FCC„/INCORRECT�ENTRY/ 6830ˆFCB„CR,LF,EOF 6835�M8…FCC„/ID�/ 6840ˆFCB„EOF 6845�M9…FCC„/RN�/ 6850ˆFCB„EOF 6855�M10„FCC„/FN�/… 6860ˆFCB„EOF 6865�M11„FCB„$C1,$C2,$20,EOF�/AB�/ 6870�M12„FCB„$C1,$CC,$20,EOF�/AL�/ 6875�M13„FCB„$C8,$CC,$20,EOF�/HD�/ 6885�M14„FCC„/�ON�/„ 6890ˆFCB„EOF 6895�M15„FCC„/OFF�/… 6900ˆFCB„EOF 6905�M17„FCC„/OPEN‚/„ 6910ˆFCB„EOF 6915�M18„FCC„/CLOSED/… 6920ˆFCB„EOF 6925�M19„FCC„/STATUS�CHANGE/ 6930ˆFCB„CR,LF 6935�M16„FCC„/(1)‚TIME/ 6940ˆFCB„CR,LF 6945ˆFCC„/(2)‚DIGITAL�OUTPUTS/ 6950ˆFCB„CR,LF 6955ˆFCC„/(3)‚SETPOINTS/ 6960ˆFCB„CR,LF 6962�M30„FCC„/…YOUR�SELECTION:�/ 6964ˆFCB„EOF 6970�M20„FCC„/„TIME�=�/ 6975ˆFCB„EOF 6980�M21„FCC„/NEW�TIME�=�/ 6985ˆFCB„EOF 6990�M23„FCC„/NUMBER�TOO�LARGE/ 6995ˆFCB„EOF 7000�M24„FCC„/INTERLOCK�ERROR/ 7005ˆFCB„EOF 7010�M25„FCC„/CHANGES�OK?�/… 7015ˆFCB„EOF 7030�M27„FCC„/ENTER�THE�STEP�NUMBER�OR�CR�TO�EXIT/ 7031ˆFCB„CR,LF,EOF 7060�M31„FCC„/RATIO�ERROR/ 7065ˆFCB„EOF 7070�M32„FCC„/LOT�NUMBER:�/ 7075ˆFCB„EOF 7080�M33„FCC„/NEW�NUMBER:�/ 7085ˆFCB„EOF 7090�M34„FCC„/RECIPE�NAME:�/ 7095ˆFCB„EOF 7100�M35„FCC„/ƒNEW�NAME:�/ 7105ˆFCB„EOF 7110�M36„FCC„/ENTER�THE�RECIPE�NUMBER�(1-3)/ 7115ˆFCB„CR,LF,EOF 7116�M38„FCC„/COMMAND�MODE;�LEAVE�THIS�FUNCTION�BY�TYPING�CTRL-A/ 7117ˆFCB„CR,LF,EOF 7120ˆPAGE 7125ˆEND FOLLOWS 0414��LDX�#32 0416�IDL1�LDAA�DSPBUF-1,X 0418�‚ASLA 0420�‚ASLA 0422�‚STAA�P3AAD 0424��LDAA�P3AAD 0426��DEX 0428�‚BNE�IDL1�D.O.�NR 3800�DOVAL1�LDX„POINTR 3775ˆBEQ„DOVAL9ƒBRANCH�IF�NO�D.O.'S 3761ˆJSR„INIT2„SET�PARAMETERS 3760ˆLDX„SYSTAB+10�DOPTR 3750�LAY 0442��CLRA 0444��STAA�P3AAD 0446��BRA�IDLE 0448��PAGE 0450�*‚THIS�SECTION�IS�SCHEDULED�10�TIMES�/ 0452�*‚SECOND�BY�THE�REAL-TIME�CLOCK. 0454��SPC�1 0456�TIMINT�LDAA�#$FF 0458�‚STAA�P3ABD 0460��LDAA�#$7F 0462��STAA�P3ABD�KICK�I/O�TIMER 0464��LDAA�P3ABD�CLEAR�INTERRUPT 0466��LDAA�P1AAD�READ�DIGITAL�INPUTS 0468��TAB�SAVE�READING 0470��EORB�LASTDI�COMPARE�TO�LAST�READING 0472��STAA�LASTDI�STORE�NEW�D.I.�VALUE 0474��LDAA�KEYCHG 0476��BNE�CHKKBD�BRANCH�IF�THERE�IS�A�KEYSWITCH 0478�*…POSITION�CHANGE�NOT�YET�PROCESSED. 0480��BITB�#$80 0482��BEQ�JSRCTR�BRANCH�IF�NO�KEYSWITCH�POSITION 0484�*…CHANGE�SINCE�LAST�D.I.�READ. 0486��INC�KEYCHG�S% ET�KEYSWITCH�POSITION-CHANGE�FLAG 0488�CHKKBD�LDAA�KEYBSY 0490��BNE�JSRCTR�BRANCH�IF�KEYBOARD�ACTIVE 0492��STAA�KEYCHG�CLEAR�FLAG 0494��JSR�SETBTH�CLEAR�ANY�MULTIPLE-STROKE 0496�*…KEY�ENTRY�IN�PROGRESS�AND�SET�TO 0498�*…CURRENT-STATUS�DISPLAY. 0500��SPC�3 0502�JSRCTR�JSR�DIFCTR�GO�CHECK�INPUT�COUNTERS�/ 0504�*…UPDATE�STATUS�BITS�IN�DICHNG. 0506��SPC�3 0508�*ƒ'DIFDUN'�SETS�BITS�IN�DIFALT�AS 0510�*…REQUIRED�TO�SHOW�ANY�CHANGE-OF-STATE. 0512��SPC�1 0514�DIFDUN�LDAA�DICHNG 0516��EORA�DIFALT 0518��ANDA�DICHNG 0520��STAA�DICHNG�SAVE�CHANGE-OF-STATE�(0�TO�1). 0522��TAB‚SAVE�DICHNG�VALUE 0524��ORAA�DIFALT 0526��STAA�DIFALT�UPDATE�CURRENT�STATUS�- 0528�*…CHANGE-OF-STATE�/�ACCUMULATIVE. 0530��BITB�#$20 0532��BEQ�PMPLIM�BRANCH�IF�NOT�AT�2-TORR 0534�*ƒTRANSITION�(ABOVE-TO-BELOW). 0536��LDAA�STNDBY 0538��ADDA�MANSET 0540��BEQ�DIFD01�BRANCH�IF�NOT�IN�STANDBY�OR 0542�*…MANIFOLD�SETUP. 0544��LDAA�MODFLG 0546��BNE�DIFD00�BRANCH�IF�NOT�IN�STATUS�(DISPLAY)�MODE 0548��JSR�SETBTH�ELSE,�UPDATE�DISPLAY�TO�SHOW�'/RDY' 0550�DIFD00�LDAA�MODFLG+1 0552��BNE�DIFD01�BRANCH�IF�REMOTE�NOT�IN�STATUS�MODE 0554��INCA 0556��STAA�PANEL�SET�PANEL�SELECT 0558��JSR�SETDSP�UPDATE�DISPLAY�TO�SHOW�'/RDY' 0560��CLR�PANEL�RESET�SELECT 0562�DIFD01�JMP�DICHEK 0564�PMPLIM�BITB�#$08 0566��BNE�PLIM00 0568��JMP�DICHEK�BRANCH�IF�NOT�AT�PUMPDOWN-LIMIT 0570�*…TRANSITION�(ABOVE-TO-BELOW). 0572�PLIM00�LDAA�STNDBY 0574��BEQ�PLIM02�BRANCH�IF�NOT�IN�STANDBY 0576��LDAA�LASTDO+1 0578��ORAA�#$40 0580��STAA�LASTDO+1�OPEN�PV07�TO�EVACUATE�MANIFOLE 0582�PLIM02�JMP�DICHEK 0584��PAGE 0586�DIFCTR�CLRA 0588��STAA�DICHNG 0590��LDAA�LASTDI 0594�DIF01�LDAB�#$01 0596��STAB�R0�SAVE�BIT�MASK 0598��LDX�#1�GET�COUNT/LIMIT�TBL�INDEX 0600��BSR�CHKCTR�CHECK�DOOR�OPEN 0602��BRA�DIF02�TO�NEXT�CHECK 0604�CHKCTR�ANDA�R0�MASK�FAULT�BIT 0606��BNE�CKCT01�BRANCH�IF�SET 0608��CLR�FLTCTR-1,X�ELSE,�CLEAR�COUNTER 0610��COMB�COMPLEMENT�BIT-SELECT 0612��ANDB�DIFALT 0614��STAB�DIFALT�CLEAR�BIT�IN�DIFALT 0616��RTS�DONE 0618�CKCT01�LDAB�FLTCTR-1,X 0620��INCB�BUMP�FAULT�COUNT 0622��SUBB�FLTLMT-1,X 0624��BEQ�CKCT02�BRANCH�IF�AT�LIMIT 0626��ADDB�FLTLMT-1,X 0628��STAB�FLTCTR-1,X 0630��RTS�DONE 0632�CKCT02�STAB�FLTCTR-1,X�CLEAR�COUNTER 0634��ORAA�DICHNG 0636��STAA�DICHNG�SET�FAULT�BIT 0638��RTS�DONE 0640�DIF02�LDAA�LASTDI 0642��LDAB�#$02 0644��STAB�R0 0646��LDX�#2 0648��BSR�CHKCTR�CHECK�OVER-PRESSURE 0650�DIF03�LDAA�LASTDI 0652��LDAB�#$04 0654��STAB�R0 0656��LDX�#3 0658��BSR�CHKCTR�CHECK�PRESSURE�=�1�ATM. 0660�DIF04�LDAA�LASTDI 0662��LDAB�#$08 0664��STAB�R0 0666��LDX�#4 0668��BSR�CHKCTR�CHECK�PUMP-DOWN�PRESSURE�LEVEL 0670�DIF05�LDAA�LASTDI 0672��LDAB�#$10 0674��STAB�R0 0676��LDX�#5 0678��BSR�CHKCTR�CHECK�LEAK-CHECK�PRESSURE�LIMIT 0680�DIF06�LDAA�LASTDI 0682��LDAB�#$20 0684��STAB�R0 0686��LDX�#6 0688��BSR�CHKCTR�CHECK�PRESSURE�<�2�TORR 0690��SPC�2 0692��RTS�COUNTER�UPDATE�DONE�/�RETURN 0694��PAGE 0696�*�D.I.�READINGS�COMPLETE�/�PROCESS�INPUTS 0698��SPC�2 0700�DICHEK�LDAB�DIFALT 0702��LDAA�ABBUSY 0704��ADDA�BAKFIL 0706��ADDA�STNDBY 0708��ADDA�MANSET 0710��BNE�CKADIO�BRANCH�IF�NOT�IDLE 0712��PSHB 0714��LDAB�LASTDI 0716��RORB 0718��RORB 0722��ANDB�#$80 0724��LDAA�LASTDO+1 0726��ANDA�#$7F 0728��ABA 0730��STAA�LASTDO+1�SET�PV08�ACCORDING�TO�DOOR�POSITION 0732��PULB 0734�CKADIO�BITB�#$02 0736��BEQ�CKADI2�BRANCH�IF�NOT�OVER-PRESSURE 0738��SPC�1 0740�CKADI1�ANDB�DICHNG 0742��B& ITB�#$02 0744��BNE�CKAD1A�BRANCH�IF�AT�OVER-PRESSURE�TRANSITION 0746��JMP�DECBAS 0748�CKAD1A�CLRA�PROCESS�AN�OVER-PRESSURE 0750��STAA�LASTDO 0752��STAA�LASTDO+2 0754��STAA�BAKFIL 0756��LDAA�#$44 0758��STAA�LASTDO+1 0760��LDX�#MSGOVR 0762��JSR�TRMSET�SET�UP�TERMINATION�STATUS�MESSAGE 0764��JSR�SETSON�TURN�ON�SONALERT 0766��JSR�SETIDL�GO�SET�UP�IDLE�STATE 0768��JMP�DECBAS 0770��SPC�1 0772�CKADI2�BITB�#$01 0774��BEQ�CKADI3�BRANCH�IF�DOOR�CLOSED 0776��LDX�#MSGDOR 0778��LDAA�ABBUSY 0780��BNE�CKAD2A�BRANCH�IF�RUNNING 0782��ADDA�STNDBY 0784��ADDA�MANSET 0786��ADDA�BAKFIL 0788��BNE�CKAD2B�BRANCH�IF�NOT�IDLE 0790��ANDB�DICHNG 0792��BITB�#$01 0794��BNE�CKAD2B�BRANCH�IF�AT�DOOR-OPENING�TRANSITION 0796��JMP�DECBAS�ELSE,�CONTINUE 0798��PAGE 0800�*…THE�FOLLOWING�SECTION�IS 0802�*…EXECUTED�FOR�LEAK-CHECK�FAILURE, 0804�*…OVER�2-TORR,�DOOR�OPEN,�OR�ON�AN�ABORT. 0806��SPC�1 0808�CKAD2A�JSR�TRMSET�SET�UP�TERMINATION�STATUS�MESSAGE 0810��LDAA�PRCLNG�GET�PROCESS�LENGTH�(#/STEPS) 0812��DECA 0814��STAA�CURSTP�SET�TO�LAST�STEP 0816��LDAB�#1 0818��STAB�TIMBAS 0820��LDX�ZERO 0822��STX�TIMCTR�SET�UP�A�STEP-END�TIMEOUT 0824��CLR�HLDFLG 0826��JSR�SETSON�TURN�ON�SONALERT 0828��LDAA�CNTABT 0830��STAA�DLYABT 0832��JMP�DECBAS 0834�CKAD2B�CLRA 0836‚STAA�STNDBY 0837‚STAA�MANSET 0838��STAA�BAKFIL 0840��STAA�DLYSLO 0842��STAA�LASTDO 0844��STAA�LASTDO+2 0846��LDAA�LASTDO+3 0848��ANDA�#$80 0850��STAA�LASTDO+3 0852��LDAA�#$C0 0854��STAA�LASTDO+1�SHUT�ALL�VALVES�EXCEPT�7,3 0856��JSR�SETBTH�UPDATE�DISPLAY 0858��JMP�DECBAS 0860��SPC�1 0862�CKADI3�LDAA�ABBUSY 0864��ADDA�STNDBY 0866��ADDA�MANSET 0868��BEQ�CKABKF�BRANCH�IF�IN�IDLE 0870��BITB�#$20 0872��BEQ�CKAD3A�BRANCH�IF�>�2�TORR 0874��JMP�DECBAS 0876�CKAD3A�LDAB�DLY2TR 0878��BEQ�CKAD3B�BRANCH�IF�NO�CHECK-DELAY 0880��JMP�DECBAS 0882�CKAD3B�LDAB�MANSET 0884��ADDB�STNDBY 0886��BNE�CKAD2B�BRANCH�IF�IN�MANIFOLD�SETUP 0888�*ƒOR�IN�STANDBY. 0890��LDX�STPINX 0892��LDAB�0,X 0894��DECB 0896��BNE�CKAD3C�BRANCH�IF�NOT�IN�PUMP/CHK1 0898��JMP�DECBAS� 0900�CKAD3C�STX�VAL2 0902��LDX�#PRCBUF 0904��JSR�XSUB 0906��BLE�CKAD3D�BRANCH�IF�NOT�JUST�STARTED 0908��JMP�DECBAS 0910�CKAD3D�LDX�#MSG2TR 0912��BRA�CKAD2A 0914��PAGE 0916�CKABKF�LDAA�BAKFIL 0918��BEQ�DECBAS�BRANCH�IF�NO�BACKFILL�IN-PROGRESS 0920��SUBA�#2 0922��BNE�CKABK0�BRANCH�IF�NOT�IN�BACKFILL�CAUSED 0924�*…BY�EXCESSIVE�POWER-FAIL�DOWN-TIME. 0926��LDAA�DELAY 0928��BNE�DECBAS�BRANCH�IF�DISPLAY�UPDATE 0930�*ƒDELAY�COUNTER�IS�ACTIVE. 0932��LDAA�LASTDO+1 0934��BGE�CKABK2�BRANCH�IF�VENT�OPEN 0936��BITB�#$04 0938��BEQ�DECBAS�BRANCH�IF�NOT�AT�1�ATM. 0940��LDAA�#30 0942��STAA�DELAY�SET�FOR�3.0�'�DELAY 0944��LDAB�LASTDO+1 0946��ANDB�#$78�OPEN�VENT�(PV08) 0948��STAB�LASTDO+1 0950��BRA�DECBAS 0952�CKABK0�LDAA�DLY1AT�GET�1-ATMOSPHERE�CHECK-DELAY 0954��BNE�DECBAS�BRANCH�IF�CHECK-DELAY�SET 0956��LDAA�DLYABT 0958��BNE�DECBAS�BRANCH�IF�IN�ABORT/PUMPDOWN 0960��BITB�#$04 0962��BEQ�DECBAS�BRANCH�IF�NOT�AT�1�ATM. 0964�CKABK2�CLRA 0966��STAA�BAKFIL�SET�BACKFILL�DONE 0968��STAA�SONLRT 0970��LDAA�LASTDO+3 0972��ORAA�#$80 0974��STAA�LASTDO+3�TURN�ON�SONALERT 0976��JSR�SETBTH 0978��BRA�DECBAS 0980��PAGE 0982�*…ROUTINE�TO�SET�PROCESS�IDLE 0984��SPC�1 0986�SETIDL�LDX�#-1 0988��STX�TIMCTR�TURN�TIMER�OFF 0990��CLRA 0992��STAA�ABBUSY�CLEAR�PROCESS-ACTIVE�FLAG 0994��STAA�STNDBY 0996��STAA�MANSET 0998��STAA�CURSTP�RESET�STEP�COUNT 1000��STAA�HLDFLG�CLEAR�' HOLD�FLAG 1002��STAA�DLYABT 1004��STAA�DLYSLO 1006��JSR�SETBTH 1008��RTS 1010��SPC�3 1012�HOLDIT�LDAA�#1 1014��STAA�HLDFLG 1016��LDAA�TIMBAS 1018��STAA�SAVBAS�SAVE�TIMBAS�VALUE�FOR�RESTART 1020��CLR�LASTDO+3�CLEAR�ANY�SOFTSTARTS 1022��RTS 1024��SPC�3 1026�SETSON�LDAA�#$8A 1028��STAA�SONLRT�ACTIVATE�SONALERT 1030��LDAA�LASTDO+3 1032��ORAA�#$80 1034��STAA�LASTDO+3� 1036��RTS 1038��SPC�3 1040�TRMSET�LDAA�ABBUSY 1042��BEQ�TRMRTS 1044��STX�TRMMSG 1046��LDAA�CURSTP 1048��STAA�TRMSTP 1050��LDX�TIMCTR 1052��STX�TRMTIM 1054�TRMRTS�RTS 1056��PAGE 1058�*„DECREMENT�THE�10/SECOND�COUNTER 1060�DECBAS�LDAA�NMIBSY 1062��BNE�NMISET�BRANCH�IF�JUST�RETURNED 1064�*ƒFROM�POWER-FAIL. 1066��JMP�DEC08�ELSE,�CONTINUE 1068�NMISET�CLR�NMIBSY�CLEAR�FLAG 1070��LDAA�CNT2TR 1072��STAA�DLY2TR�SET�2-TORR�CHECK-DELAY 1074��LDAB�COUNT3 1076��BGT�DEC00�BRANCH�IF�INTERMEDIATE�DOWN-TIME 1078��BEQ�DECBA0�BRANCH�IF�<�1.0�MINUTE 1080��LDAB�ABBUSY 1082��BEQ�CKOTHR�BRANCH�IF�NOT�RUNNING 1084��JMP�DEC06A�ELSE,�GO�SET�UP�SHUTDOWN�COND'NS 1086�CKOTHR�LDAB�STNDBY 1088��ADDB�MANSET 1090��BEQ�DEC01C�BRANCH�IF�IDLE�OR�IN�BACKFILL 1092��JMP�DEC06B�ELSE,�SET�UP�IDLE�STATE�COND'NS 1094�DECBA0�LDAA�COUNT2 1096��SUBA�LIMIT1 1098��BGE�DEC00�BRANCH�FOR�INTERMEDIATE�DOWN-TIME 1100��JMP�DEC07�ELSE,�DOWN�<�LIMIT1 1102�*ƒ(NO�CHANGES�IN�THIS�CASE). 1104��SPC�1 1106�***�PROCESS�AN�INTERMEDIATE�DOWN-TIME 1108��SPC�1 1110�DEC00�LDAA�ABBUSY 1112��BEQ�DEC01C�SKIP�IF�NO�PROCESS�RUNNING 1114��LDX�STPINX 1116��CPX�#PRCBUF 1118��BLT�DEC01C�BRANCH�IF�'START'�JUST�OCCURRED 1120��LDAA�0,X 1122��SUBA�#3 1124��BEQ�DEC03�BRANCH�IF�IN�'LEAKCHECK' 1126��DECA 1128��BGT�DEC02�BRANCH�IF�STEP�#�>�4 1130�DEC01�LDX�SSTIME 1132��INX 1134��STX�VAL2 1136��LDX�TIMCTR 1138��JSR�XSUB 1140��BGE�DEC01C�BRANCH�IF�(TIMCTR.GE.SSTIME) 1142��LDX�SSTIME 1144��INX 1146��STX�TIMCTR�RESET�FOR�SOFTSTARTS 1148�DEC01B�LDAA�#1 1150��STAA�TIMBAS 1152�DEC01C�LDX�SAVEDO 1154��STX�LASTDO 1156��LDAA�SAVEDO+2 1158��STAA�LASTDO+2 1160��LDAB�LASTDO+3 1162��ANDB�#$80 1164��ORAB�SAVEDO+3 1166��STAB�LASTDO+3 1168��JMP�DEC07�GO�UPDATE�TIME�DISPLAY 1170�DEC02�SUBA�#9 1172��BGE�DEC01�BRANCH�IF�IN�ST'D-STEPS�#13-17 1174��ADDA�#6 1176��BGT�DEC04�BRANCH�IF�NOT�IN�ST'D�STEP�5-7 1178�DEC02A�LDX�5,X 1180��INX 1182��STX�TIMCTR�RESET�TO�START�OF�STEP�FOR�5-7 1184��BRA�DEC01B 1186�DEC03�STAA�VAL2�ENTERED�HERE�IF�IN�'LEAKCHECK' 1188��STAA�TIMCTR 1190��INCA 1192��STAA�TIMBAS 1194��STAA�TIMCTR+1 1196��LDAB�#18 1198��STAB�VAL2+1 1200��JSR�XSUB 1202��STX�STPINX 1204��LDAB�CURSTP 1206��SUBB�#2 1208��STAB�CURSTP�RESET�TO�START�OF� 1210�*ƒPRECEDING�STEP. 1212��JMP�DEC07 1214�DEC04�STAA�R7�SAVE�((CURRENT�ST'D-STEP�#)�-�7) 1216��LDAA�#5 1218��STAA�R6 1220��JSR�FINDER�SEARCH�FOR�ST'D-STEP�#5 1222��TSTB 1224��BEQ�DEC06�BRANCH�IF�NOT�FOUND 1226�DEC05�STAA�HLDFLG�CLEAR�HOLD�FLAG 1228��LDAA�R7�RETRIEVE�((CURRENT�ST'D-STEP#)-7) 1230��SUBA�#2 1232��STAA�R7�SAVE�((CURRENT�ST'D-STEP�#)�-�9) 1234��BLE�DEC05C�BRANCH�FOR�O2�PREPURGE�STEPS�(8,9) 1236��LDAA�#1 1238��STAA�SAVBAS 1240��JSR�X2AB 1242��LDX�1,X 1244��STX�SAVEDO 1246��JSR�AB2X 1248��LDX�3,X 1250��STX�SAVEDO+2�SET�UP�SAVBAS�AND�SAVEDO�FOR� 1252�*ƒ'PWR/HOLD'�CONDITION. 1254��LDX�#9 1256��STX�VAL2 1258��LDX�STPINX 1260��LDAA�TIMCTR 1262��STAA�7,X 1264��LDAA�TIMCTR+1 1266��STAA�8,X 1268�DEC05A�JSR�XSUB 1270��LDAA�0,X 1272��SUBA�#10 1274��BLT�DEC05B�BRANCH�FOR�S( T'D-STEPS�#1-9 1276��SUBA�#2 1278��BGT�DEC05B�BRANCH�FOR�ST'D-STEP13+ 1280��LDAA�7,X 1282��ORAA�#$80�SET�SKIP-BIT�FOR�THIS�DEP.STEP 1284��STAA�7,X�DISABLE�ON�RERUN 1286�DEC05B�CPX�#PRCBUF 1288��BNE�DEC05A 1290��JSR�STRT07�GO�SET�UP�PREPURGE�STEPS�ACCORDING 1292�*ƒTO�NATURE�(DOPED,UNDOPED)�OF�1ST�DEP.�STEP. 1294�DEC05C�LDAA�#5 1296��STAA�R6 1298��JSR�FINDER�GET�ST'D-STEP�#5�DATA 1300��STAB�CURSTP�SET�CURSTP�FOR�ST'D-STEP�#5 1302��STX�STPINX�SET�STPINX�FOR�ST'D-STEP�#5 1304��STAA�TIMCTR 1306��INCA 1308��STAA�TIMBAS 1310��LDAB�#4 1312��STAB�TIMCTR+1�SET�FOR�0.3'�IN�ST'D-STEP�#5 1314��LDX�1,X 1316��STX�LASTDO 1318��LDX�STPINX 1320��LDAA�3,X 1322��STAA�LASTDO+2 1324��LDAA�LASTDO+3 1326��ANDA�#$80 1328��ORAA�4,X 1330��STAA�LASTDO+3�SET�UP�ST'D-STEP�5�D.O.'S 1332��LDAA�R7�RETRIEVE�((CURRENT�ST'D-STEP#)=9) 1334��BLE�DEC07�BRANCH�FOR�O2�PREPURGE 1336�DEC06�JSR�HOLDIT 1338��INC�HLDFLG 1340��LDAA�#10 1342��STAA�SONLRT 1344��BRA�DEC07 1346�DEC06A�LDX�#MSGPWR 1348��JSR�TRMSET�SET�UP�POWER-FAIL�SHUTDOWN 1350�DEC06B�JSR�SETIDL 1352��LDAB�LASTDO+1 1354��ORAB�#$40�OPEN�PV07 1356��STAB�LASTDO+1 1358��BGE�DEC08�BRANCH�IF�VENT�OPEN 1360��JSR�SETSON 1362��BRA�DEC08 1364�DEC07�LDX�TIMCTR 1366��JSR�X2AB 1368��JSR�TIMUPD 1370��JSR�SETBTH 1372�DEC08�LDAA�ABORTS 1374��BEQ�DEC0�BRANCH�IF�ABORT�NOT�REQUESTED 1376��CLR�ABORTS�ELSE,�RESET�FLAG 1378��LDX�#MSGABT 1380��JMP�CKAD2A�SWITCH�TO�ABORT/BACKFILL 1382�DEC0�LDAA�SONLRT 1384��BEQ�DEC0A 1386��DECA 1388��STAA�SONLRT 1390��TAB 1392��ANDA�#$7F 1394��BNE�DEC0A 1396��BITB�#$80 1398��BEQ�SONON 1400�SONOFF�LDAA�#10 1402��STAA�SONLRT 1404��LDAA�LASTDO+3 1406��ANDA�#$7F 1408��STAA�LASTDO+3 1410��BRA�DEC0A 1412�SONON�LDAA�#$8A 1414��STAA�SONLRT 1416��LDAA�LASTDO+3 1418��ORAA�#$80 1420��STAA�LASTDO+3 1422�DEC0A�DEC�TIMBAS�DECREMENT�THE�10/SEC�CTR 1424��BEQ�DEC1�BRANCH�IF�TIMED�OUT 1426��JMP�TOCKSS�ELSE,�TO�DIG.�OUT�ROUTINE 1428�DEC1�LDAA�#60 1430��STAA�TIMBAS‚RESET�TIMBAS 1432��LDAA�DLYSLO 1434��BEQ�DEC1V�BRANCH�IF�NO�SLOW-PUMP�TIMING 1436�*ƒ(IN�STANDBY�OR�MANIFOLD�SETUP). 1438��DECA 1440��STAA�DLYSLO 1442��BEQ�DEC1U�BRANCH�IF�JUST�TIMED�OUT 1444��TST�MANSET 1446��BNE�DEC1V�BRANCH�IF�IN�MANIFOLD�SETUP 1448��DECA� 1450��BNE�DEC1V�BRANCH�IF�NOT�0.1�MIN.�LEFT�IN�'DLYSLO'�IN�STANDBY 1452��INCA 1454��ORAA�LASTDO+3 1456��STAA�LASTDO+3�SET�N2�SOFTSTART 1458��BRA�DEC1V 1460�DEC1U�LDAA�LASTDO+2 1462��ANDA�#$FE 1464��STAA�LASTDO+2�CLOSE�PV17�(SLOW�PUMP) 1466��LDAA�LASTDO 1468��ORAA�#$01 1470��STAA�LASTDO�OPEN�PV09�(FAST�PUMP) 1472��TST�MANSET� 1474��BNE�DEC1V�BRANCH�IF�IN�MANIFOLD�SETUP 1476��LDAA�LASTDO+3 1478��ANDA�#$FE 1480��STAA�LASTDO+3�CLEAR�N2�SOFTSTART 1482��LDAA�LASTDO+1 1484��ORAA�#$02 1486��STAA�LASTDO+1�OPEN�PV02�(N2�PURGE)�IF�IN�STANDBY 1488�DEC1V�LDAA�DELAY 1490��BEQ�DEC1W�BRANCH�IF�NO�DISPLAY-UPDATE�DELAY 1492��DECA 1494��STAA�DELAY 1496�DEC1W�LDAA�STNDBY 1498��DECA 1500��BLE�DEC1X�BRANCH�IF�STNDBY=�0�OR�1 1502��STAA�STNDBY�SET�TO�1 1504��CLRB� 1506��BRA�DEC1Y 1508�DEC1X�LDAA�MANSET 1510��DECA� 1512��BLE�DEC1Z�BRANCH�IF�MANSET=�0�OR�1 1514��STAA�MANSET�SET�TO�1 1516��LDAB�#$01 1518�DEC1Y�STAA�LASTDO+2�OPEN�PV17�(SLOW�PUMP) 1520��LDAA�#$84�CLOSE�PV2,3,�AND�8 1522��ABA�SETUP�PV01�AS�REQUIRED 1524��STAA�LASTDO+1 1526��CLRA 1528��STAA�LASTDO 1530��STAA�LASTDO+3 1532��JSR�SETBTH 1534��JMP�DIGOUT 1536�DEC1Z�LDAA�DLY2TR 1538��BEQ�DECBA1 1540��DEC�DLY2TR�DEC) REMENT�2-TORR�CHECK-DELAY�COUNT 1542�DECBA1�LDAA�DLY1AT 1544��BEQ�DECBA3 1546��DEC�DLY1AT�DECREMENT�1-ATM�CHECK-DELAY�COUNT 1548�DECBA3�LDX�TIMCTR 1550��BEQ�DECBA4�BRANCH�IF�TIME�=�0 1552��LDAA�DLYABT 1554��BEQ�DECBA4�BRANCH�IF�NO�ABORT/PUMPDOWN 1556�*…IN�PROGRESS. 1558��DECA 1560��STAA�DLYABT�DECREMENT�ABORT/PUMPDOWN�COUNTER 1562��CLRB 1564��JSR�TIMUPD�UPDATE�TIME�DISPLAY 1566��LDAA�DLYABT 1568��BNE�TOCKSS�BRANCH�IF�NOT�DONE 1570��JMP�TRNOFF�ELSE,�GO�END�ABORT/PUMPDOWN; 1572�*…BEGIN�THE�BACKFILL. 1574�DECBA4�LDAA�HLDFLG 1576��BNE�TOCKSS‚TO�DIG.�OUT�CHECK 1578�DEC2�LDAB�ABBUSY 1580��BNE�DEC3 1582�TOCKSS�JMP�DIGOUT‚TO�DIG.�OUT�CHECK 1584�DEC3�LDX�TIMCTR�GET�TIME�REMAINING 1586��BNE�NONZRO 1588��JMP�LODNXT‚WERE�IN�HOLD;�HOLD�IS�CLEAR; 1590�*„PROCEED�WITH�RUN 1592�NONZRO�DEX�DECREMENT�COUNTER 1594�‚STX�TIMCTR 1596��JSR�X2AB 1598��JSR�TIMUPD�UPDATE�TIME�DISPLAY�AS�REQ'D 1600�EXMTIM�LDX�TIMCTR�GET�CURRENT�TIME 1602��BNE�GETSST�BRANCH�IF�NOT�AT�STEP-END 1604��JMP�ENDCHK�ELSE,�GO�CHECK�END-CONDITIONS 1606��PAGE 1608�*ƒTHIS�SUBROUTINE�SCANS�PREVIOUSLY-EXECUTED 1610�*ƒSTEPS�FOR�A�SPECIFIED�ST'D-STEP�#�(IN�R6). 1612�*ƒON�RETURN,�B-REG.�=�0�IF�NOT�FOUND; 1614�*ƒELSE,�B-REG.�=�CURSTP�VALUE�AND�X-REG.�= 1616�*ƒSTPINX�VALUE�FOR�THE�REQ'D�STEP. 1618��SPC�1 1620�FINDER�LDX�#9 1622��STX�VAL2 1624��LDX�STPINX 1626��LDAB�CURSTP 1628�FIND00�LDAA�0,X 1630��SUBA�R6 1632��BNE�FIND02�BRANCH�IF�NOT�A�MATCH 1634��LDAA�5,X 1636��ADDA�6,X 1638��BNE�FNDRTS�BRANCH�IF�TIME�NOT�0 1640�FIND02�DECB 1642��CPX�#PRCBUF 1644��BEQ�FNDRTS�BRANCH�IF�NO�MATCH�FOUND 1646��JSR�XSUB�DECREMENT�STPINX�VALUE 1648��BRA�FIND00�CHECK�NEXT�STEP 1650�FNDRTS�CLRA 1652��RTS 1654��PAGE 1656�GETSST�LDAA�CURSTP 1658��LDX�STPINX 1660��JSR�NXTSTP 1662��TSTA 1664��BNE�GETSS1�BRANCH�IF�THERE�IS�ANOTHER 1666�*…STEP�WITH�NON-ZERO�TIME. 1668��JMP�DIGOUT�ELSE,�BYPASS�SOFT-START�CHECKS 1670�GETSS1�STX�SAVX�SAVE�ADDRESS�OF�NEXT�STEP 1672��LDX�TIMCTR�GET�CURRENT�TIME�VALUE 1674��STX�VAL2�STORE�FOR�USE�NOW�AND�BELOW�(SSCHK2) 1676��LDX�SSTIME�GET�N2�SOFTSTART�INTERVAL 1678��JSR�XSUB 1680��BNE�SSCHK2�BRANCH�IF�N2�SOFTSTART�CHECK�NOT�DUE 1682�SSCHEK�LDAA�LASTDO+1 1684��ANDA�#$03 1686��BNE�SSCHK2�BRANCH�IF�N2�ALREADY�ON(PV01�OR�02) 1688��LDX�SAVX�RETRIEVE�NEXT-STEP�ADDRESS 1690��LDAA�2,X�CHECK�VALVE�SETTINGS(PV01�OR�02) 1692��BITA�#$03 1694��BEQ�SSCHK2�BRANCH�IF�NOT�TURNING�N2�ON 1696��LDAA�LASTDO+3 1698��ORAA�#$01�SET�N2�SOFTSTART�BIT 1700��STAA�LASTDO+3 1702�SSCHK2�LDX�SSTIME+2�GET�REACTIVE-GAS�SOFTSTART�INTERVAL 1704��JSR�XSUB 1706��BEQ�SETSS�BRANCH�IF�SOFTSTART�CHECK 1708�*…DUE�ON�FLOWMETERS�CONTROLLING� 1710�*…REACTIVE�GASES. 1712��JMP�DIGOUT�ELSE,�GO�PERFORM�D.O.'S 1714�SETSS�LDAA�LASTDO+1 1716��LDX�SAVX�RETRIEVE�NEXT-STEP�ADDRESS 1718��EORA�2,X 1720��ANDA�2,X 1722��LSRA 1724��LSRA 1726��ANDA�#$0E 1728��ORAA�LASTDO+3 1730��STAA�LASTDO+3�SET�SOFTSTARTS�AS�REQUIRED 1732�*…FOR�FLOWMETERS�CONTROLLING�REACTIVE�GASES. 1734��LDX�STPINX 1736��LDAA�0,X 1738��SUBA�#5 1740��BNE�SETSS1�BRANCH�IF�NOT�ST'D�STEP�5 1742��LDAA�LASTDO 1744��ANDA�#$FE 1746��STAA�LASTDO�ELSE,�CLOSE�PV09�NOW 1748�SETSS1�JMP�DIGOUT 1750��PAGE 1752�*…THIS�SUBROUTINE�IS�CALLED�WITH�THE�CURRENT-STEP 1754�*ƒVALUES�FOR�'CURSTP'�AND�'STPINX'�IN�THE�A�AND 1756�*ƒX�REGISTERS,�RESPECTIVELY. 1758�*…IT�COMPUTES�AND�RETURNS; 1760�*ˆ-‚IN�THE�X-REGISTER,�THE�STARTING�ADDRESS 1762�*ˆ-‚IN* �THE�A-REGISTER,�THE�'CURSTP'�VALUE 1764�*ƒFOR�THE�NEXT�PROCESS�STEP�WITH�NON-ZERO�TIME. 1766�*…IF�THERE�ARE�NONE,�THE�X�AND�A�REGISTERS�ARE 1768�*ƒSET�TO�ZERO�ON�RETURN. 1770��SPC�1 1772�NXTSTP�INCA 1774��INX 1776��INX 1778��INX 1780��INX 1782��INX 1784��INX 1786��INX 1788��INX 1790��INX 1792��TAB 1794��SUBB�PRCLNG 1796��BGE�NXTS01�BRANCH�IF�END�OF�PROCESS 1798��LDAB�7,X 1800��BLT�NXTSTP�BRANCH�IF�THIS�STEP�SKIPPED 1802��LDAB�5,X 1804��ORAB�6,X 1806��BEQ�NXTSTP�BRANCH�IF�TIME�IS�ZERO 1808��RTS�RETURN�INDEX�VALUES 1810�NXTS01�CLRA 1812��LDX�ZERO 1814��RTS�RETURN�ZERO�VALUES 1816��PAGE 1818�*ƒTHIS�SUBROUTINE�UPDATES�THE�MAIN�AND/OR�REMOTE 1820�*…PANEL�TIME�DISPLAY. 1822��SPC�1 1824�TIMUPD�PSHA 1826��PSHB�SAVE�TIME�VALUE 1828��CLR�PANEL�CLEAR�DISPLAY�SELECT 1830��LDAB�EXMSTP 1832��BNE�TIMUP1�BRANCH�IF�IN�EXAM�PROC 1834��LDAA�KEYTYP 1836��TAB 1838��SUBA�#7 1840��BNE�TIMUP0�BRANCH�IF�NOT�IN�EXAM�MEMORY 1842��LDAA�ADRDTA 1844��BNE�TIMUP1�BRANCH�IF�ADDRESS�ALREADY�ENTERED 1846�TIMUP0�EORB�#$84 1848��BEQ�TIMUP1�BRANCH�IF�IN�'OPERATOR' 1850�*ƒCHANGE-TIME�//�MAIN�PANEL. 1852��PULB 1854��PULA�RETRIEVE�TIME�VALUE 1856��PSHA 1858��PSHB 1860��JSR�TIMCVT�GO�UPDATE�MAIN�PANEL�DISPLAY 1862�TIMUP1�LDAA�KEYTYP 1864��EORA�#$94 1866��STAA�R0 1868��PULB 1870��PULA 1872��TST�R0� 1874��BEQ�TIMUP2�BRANCH�IF�IN�'OPERATOR' 1876�*ƒCHANGE-TIME�//�MAIN�PANEL. 1878��INC�PANEL�SET�DISPLAY�SELECT�TO�REMOTE 1880��JSR�TIMCVT�UPDATE�REMOTE�DISPLAY 1882�TIMUP2�RTS 1884��SPC�2 1886�ENDCHK�LDAB�DIFALT 1888��LDX�STPINX 1890��LDAA�0,X 1892��SUBA�#5 1894��BEQ�CKPRES�BRANCH�IF�AT�END�OF�'PUMP/CHK3' 1896��ADDA�#3 1898��BEQ�CKPRES�BRANCH�IF�AT�END�OF�'PUMP/CHK2' 1900��DECA 1902��BNE�LODNXT�BRANCH�IF�NOT�AT�END�OF�'LEAK�CHEK'�STEP 1904��BITB�#$08 1906��BNE�LODNXT�BRANCH�IF�PRESS.�L.T.�40�MICRONS 1908��LDX�#MSGLCK 1910��JMP�CKAD2A�ELSE,�FAILED�LEAK�CHECK�/�ABORT 1912�CKPRES�BITB�#$08 1914��BNE�LODNXT�BRANCH�IF�BELOW�REQUIRED 1916�*…PUMPDOWN�PRESSURE�LEVEL. 1918�SETHLD�JSR�HOLDIT�PUT�IN�HOLD�IF�WE 1920�*…DIDN'T�MAKE�THE�PUMPDOWN�PRESSURE�LIMIT. 1922��JSR�SETBTH�UPDATE�THE�DISPLAY�TO�'IN�HOLD' 1924��JMP�DIGOUT�GO�PERFORM�D.O.'S 1926��PAGE 1928�*�LOAD�NEXT-STEP�DATA�HERE 1930�LODNXT�LDAA�CURSTP 1932��LDX�STPINX 1934��JSR�NXTSTP 1936��TSTA 1938��BNE�LODNX1�BRANCH�IF�THERE�IS 1940�*ƒANOTHER�STEP�WITH�NON-ZERO�TIME. 1942��JMP�TRNOFF�ELSE,�SET�UP�BACKFILL 1944�LODNX1�STAA�CURSTP�UPDATE�CURSTP 1946��STX�STPINX�UPDATE�STPINX 1948��LDAA�0,X 1950��SUBA�#2 1952��BNE�LODNX2�BRANCH�IF�NOT�ENTERING 1954�*…'PUMP/CHK2'. 1956��LDAA�STP2TR 1958��BRA�LODNX3 1960�LODNX2�LDAA�CNT2TR 1962�LODNX3�STAA�DLY2TR�SET�2-TORR�CHECK-DELAY�CTR 1964�LOADOS�LDAB�1,X 1966��STAB�LASTDO 1968��LDAA�2,X 1970��STAA�LASTDO+1 1972��LDAA�3,X 1974��STAA�LASTDO+2 1976��LDAA�LASTDO+3 1978��ANDA�#$80 1980��ORAA�4,X 1982��STAA�LASTDO+3 1984��LDAB�7,X 1986��LDAA�8,X 1988��ABA 1990��BEQ�LODNX7�BRANCH�IF�NO�'TIME-REMAINING' 1992��LDAA�8,X 1994��JSR�AB2X 1996��BRA�LODNX8 1998�LODNX7�LDX�5,X‚GET�TIME�/�NEXT�STEP 2000�LODNX8�STX�TIMCTR‚LOAD�NEXT-STEP�TIME 2002��JSR�X2AB 2004��JSR�TIMUPD�UPDATE�THE�TIME�DISPLAY 2006��JSR�SETBTH‚GO�INITIALIZE�DISPLAY 2008��JMP�GETSST�SEE�IF�SOFTSTARTS�REQUIRED 2010��PAGE 2012�TRNOFF�LDAA�CNT1AT 2014��STAA�DLY1AT�SET�1-ATMOSPHERE�CHECK-DELAY�COUNT 2016��CLR�CURSTP�SET�STEP�#�TO�0 2018��CLR�HLDFLG‚CLEAR�HOLDS 2020��LDAA�#1 2022��STAA�BAK+ FIL�SET�THE�BACKFILL-IN-PROGRESS�FLAG 2024�‚LDX�#-1 2026�‚STX�TIMCTR�SET�TIMER�OFF 2028��LDAA�DLYABT 2030��BNE�TOFF2�BRANCH�IF�ABORTED�TO�BACKFILL 2032�TOFF1�CLRA 2034��LDX�#9 2036��STX�VAL2 2038��LDX�#PRCBUF+234 2040�TOFF1A�STAA�7,X�ZERO�THE�TIME-REMAINING�COUNTER 2042��STAA�8,X 2044��JSR�XSUB 2046��CPX�#PRCBUF 2048��BNE�TOFF1A�BRANCH�IF�MORE�STEPS�TO�ZERO 2050��STAA�LASTDO 2052��STAA�LASTDO+2 2054��LDAA�#$C0 2056��STAA�LASTDO+1 2058��BRA�TOFF3 2060�TOFF2�CLRA 2062��STAA�LASTDO+2 2064��INCA 2066��STAA�LASTDO 2068��LDAA�#$84 2070��STAA�LASTDO+1 2072�TOFF3�LDAA�LASTDO+3 2074��ANDA�#$80 2076��STAA�LASTDO+3 2078�ZROBSY�CLRA 2080��STAA�ABBUSY 2082��JSR�SETBTH 2084��SPC�1 2086�DIGOUT�JSR�PFMOUT 2088��LDAA�MODFLG 2090��BEQ�DIG08 2092�DIG07�LDAA�EXMSTP 2094��ADDA�DEPSTP 2096��BNE�OUTDUN�BRANCH�IF�IN�EXAM�PROCESS 2098�DIG08�LDX�#LASTDO 2100��STX�VAL1 2102��JSR�DSPYDO�GO�DISPLAY�D.O.�VALUES 2104�OUTDUN�JMP�RETURN 2106��SPC�1 2108�MSGIDL�FCC�$ASM�/�MICON1$ 2110�MSGTRM�FCC�/�TERM�***�/ 2112�MSGHLD�FCC�/�IN�HOLD‚/ 2114�MSGPHD�FCC�$�PWR/HOLD�$ 2116�MSGABP�FCC�$ABORT�/�PUMP$ 2118�MSGSBY�FCC�$STANDBY�/PMP$ 2120�MSGMST�FCC�$MAN-SET�/PMP$ 2122�MSGBAK�FCC�/BACKFILLING�/ 2124��PAGE 2126�*…SUBROUTINE�TOPLIN�-�ENTERED�WITH�PROCESS 2128�*ƒSTEP�#�(SEQUENCE�#)�IN�A-REG.,�STEP-ENTRY 2130�*ƒADDRESS�(PRCBUF)�IN�X-REG.� 2132�*…THIS�SUBROUTINE�LOADS�A�PROCESS-STEP 2134�*ƒDESCRIPTION�TO�THE�'MODE'�LINE�OF 2136�*ƒTHE�DISPLAY. 2138�*�***�CHANGES�R0-R5,�R7-R9,�VAL1,�VAL2�*** 2140��SPC�2 2142�TOPLIN�LDAB�#$20 2144��STAB�R4 2146��STAA�R5�SAVE�STEP�#�(COUNT)�IN�R5 2148��LDAA�X�GET�STEP-TYPE�INDEX 2150��BGT�LODSTD�BRANCH�IF�ST'D�STEP 2152�LODTRM�LDX�#MSGTRM-2 2154��BRA�XFRMSG 2156�LODSTD�LDAB�EXMSTP 2158��ADDB�DEPSTP 2160��BNE�NOTHLD�BRANCH�IF�DISPLAYING�PROCESS�SPEC 2162��LDAB�HLDFLG 2164��BEQ�NOTHLD�BRANCH�IF�NOT�IN�A�'HOLD' 2166��SUBB�#2 2168��BGE�LODPHD�BRANCH�IF�IN�'PWR/HOLD' 2170�LODHLD�LDX�#MSGHLD-2 2172��BRA�XFRMSG 2174�LODPHD�LDX�#MSGPHD-2 2176��BRA�XFRMSG 2178�NOTHLD�DECA 2180��STAA�VAL2+1 2182��CLR�VAL2 2184��LDX�LNGSTP 2186��STX�VAL1 2188��JSR�HSMUL 2190��LDX�#STEPS-2 2192��JSR�XADD 2194��JSR�X2AB 2196��PSHA 2198��PSHB�SAVE�STEP-DESCRIPTION�ADDRESS 2200��STX�VAL2 2202��LDX�#11 2204��JSR�XADD�SET�TO�ADDRESS�OF� 2206�*…((STANDARD-STEP�DIGITAL�OUT�ENTRY)-1). 2208��STX�R8�SAVE�IN�R8 2210��LDAA�R5 2212��JSR�GETPNX�GET�ADDRESS�OF�PROCESS-SPEC 2214�*…DIGITAL�OUT�ENTRY 2216��STX�VAL1 2218��DEX 2220��STX�R9�SAVE�IN�R9 2222��LDAB�#6 2224�BUMPIT�LDX�R8 2226��INX 2228��STX�R8 2230�GETVAL�LDAA�X 2232��LDX�R9 2234��INX 2236��STX�R9 2238�CMPVAL�EORA�X�COMPARE�D.O.'S�AND�TIMES 2240��BEQ�TSTBNX 2242�SETAST�LDAA�#$2A�FLAG�MODIFIED�STEPS� 2244�*…WITH�AN�ASTERISK 2246��STAA�R4 2248��BRA�RTRVDS 2250�TSTBNX�DECB 2252��BNE�BUMPIT 2254�RTRVDS�PULB 2256��PULA 2258��JSR�AB2X�RESTORE�STEP-DESCRIPTION�ADDR. 2260�XFRMSG�STX�R8 2262��JSR�LODMSG 2264��LDAA�R4 2266��TST�PANEL 2268��BNE�XFRMS1�BRANCH�FOR�REMOTE�PANEL 2270��STAA�DSPBUF+2 2272��BRA�XFRMS2 2274�XFRMS1�STAA�DSPBUF+18 2276�XFRMS2�LDAA�R5 2278��BSR�BINDEC 2280��TST�PANEL 2282��BNE�XFRMS3�BRANCH�FOR�REMOTE�PANEL 2284��STX�DSPBUF 2286��BRA�XFRMS4 2288�XFRMS3�STX�DSPBUF+16 2290�XFRMS4�RTS 2292��PAGE 2294�*ƒTHE�FOLLOWING�SUBROUTINE�LOADS�THE 2296�*ƒL.E.D./VALVE�INDICATORS�PART�OF�THE 2298�*ƒDISPLAY. 2300�*ƒENTERED�WITH�ADDRESS�OF�THE�2-BYTE 2302�*ƒENTRY�TO�BE�DISPLAYE, D�CONTAINED 2304�*ƒIN�VAL1. 2306��SPC�1 2308�DSPYDO�LDAA�TSTFLG 2310��BNE�DSPDO1�BRANCH�IF�LAMP-TEST�IN�PROGRESS 2312��LDX�VAL1 2314��LDAA�1,X 2316��STAA�P1ABD 2318��LDAA�0,X 2320��STAA�P2ABD 2322�DSPDO1�RTS 2324��SPC�2 2326�*ƒBINARY�TO�HEX-ASCII�CONVERSION�ROUTINE 2328��SPC�1 2330�HEXCVT�TAB 2332�‚LSRB 2334�‚LSRB 2336�‚LSRB 2338��LSRB 2340�‚SUBB�#9 2342�‚BLE�HX01 2344�‚ADDB�#$07 2346�HX01�ADDB�#$39 2348��ANDA�#$0F 2350�‚SUBA�#9 2352�‚BLE�HX02 2354�‚ADDA�#$07 2356�HX02�ADDA�#$39 2358�‚RTS 2360�‚PAGE 2362�* 2364�*…CONVERTS�TIME�(TENTHS�OF�MINUTES) 2366�*…TO�AN�ASCII�REPRESENTATION 2368�*…AND�STORES�RESULT�IN�DISPLAY�BUFFER. 2370�*…TIME�IS�CONTAINED�IN�A-REG.(LSB) 2372�*…AND�B-REG.�(MSB). 2374��SPC�2 2376�TIMCVT�LDX�#100 2378��BSR�DIVIDR 2380��BSR�BINDEC 2382��TST�PANEL 2384��BNE�TIMCV1�BRANCH�FOR�REMOTE�DISPLAY 2386��STX�DSPBUF+14 2388��BRA�TIMCV2 2390�TIMCV1�STX�DSPBUF+30 2392�TIMCV2�LDAA�R2 2394��BSR�BINDEC 2396��TST�PANEL� 2398��BNE�TIMCV3�BRANCH�FOR�REMOTE�DISPLAY 2400��STX�DSPBUF+12 2402��BRA�TIMCV4 2404�TIMCV3�STX�DSPBUF+28 2406�TIMCV4�RTS 2408��SPC�3 2410�*…'DIVIDR'�COMPUTES�B/A�DIVIDED�BY�X�; 2412�*ŠQUOTIENT�(<127)�TO�R2 2414�*ŠREMAINDER�(<127)�TO�R3 2416�* 2418�*…CHANGES�A,B,X,R2,R3,VAL1. 2420��SPC�1 2422�DIVIDR�CLR�R2 2424��STX�VAL2 2426��JSR�AB2X 2428�SUBIT�JSR�XSUB 2430��BLT�ADDBAK 2432��INC�R2 2434��CPX�ZERO 2436��BEQ�DIVDUN 2438��BRA�SUBIT 2440�ADDBAK�JSR�XADD 2442�DIVDUN�JSR�X2AB 2444��STAA�R3 2446��RTS 2448��PAGE 2450�* 2452�*…BINDEC�CONVERTS�A�BINARY�VALUE�IN�A-REG 2454�*…TO�ASCII�DECIMAL�IN�THE�X-REG.�THE�RESULT 2456�*…IS�ASSUMED�TO�BE�LESS�THAN�100�BASE�10. 2458�* 2460�BINDEC�LDX�#$3030 2462��STX�R0 2464�SUBMOR�SUBA�#10 2466�‚BLT�BD1 2468��INC�R0 2470��TSTA 2472�‚BEQ�BD2 2474��BRA�SUBMOR 2476�BD1�ADDA�#10 2478��ADDA�R1 2480��STAA�R1 2482�BD2�LDX�R0 2484��RTS 2486��SPC�3 2488�* 2490�*…HIGH-SPEED,�16-BIT�MULTIPLY 2492�* 2494�*…((VAL1)�*�(VAL2))�TO�A,B,VAL2 2496�* 2498�HSMUL�PSHB 2500��PSHA 2502��LDX�#16 2504�‚CLR�A 2506�‚CLR�B 2508�‚ROR�VAL2 2510�‚ROR�VAL2+1 2512�NXTT�BCC�ROTAT 2514�‚ADD�B�VAL1+1 2516�‚ADC�A�VAL1 2518�ROTAT�RORA 2520�‚ROR�B 2522�‚ROR�VAL2 2524�‚ROR�VAL2+1 2526�‚DEX 2528�‚BNE�NXTT 2530��PULA 2532��PULB 2534�‚RTS 2536��PAGE 2538�*‚THE�INTERRUPT�HANDLER�FOLLOWS 2540��SPC�2 2542�INTRPT�EQU�* 2544�SAVREG�LDX�#20 2546�STOREG�LDAA�0,X‚ 2548��PSHA 2550��DEX 2552��BNE�STOREG 2554��LDAA�0,X‚GET�R0�FOR�STORE 2556��PSHA 2558�CK2�LDAA�P3ABC 2560��BITA�#$80 2562��BEQ�CK3 2564��JMP�TIMINT 2566�CK3�LDAA�P2AAC 2568��BITA�#$80 2570��BEQ�CK4 2572��JMP�KEYBRD 2574�CK4�LDAA�P1AAC�TEST�FOR�AUXILIARY�KEYS 2576��BITA�#$80 2578��BEQ�CK5 2580��JMP�CHGMOD�TO�CHANGE-MODE�ROUTINE 2582�CK5�BITA�#$40 2584��BEQ�RETURN 2586��JMP�ENTDTA�TO�ENTER-DATA�ROUTINE 2588�RETURN�LDX�#-21 2590�LODREG�PULA‚RESTORE�PSEUDO�REGISTERS 2592�‚STAA�21,X 2594�‚INX 2596��BNE�LODREG 2598�RTI�RTI 2600��PAGE 2602�*…NMI�ROUTINE�FOLLOWS�- 2604��SPC�1 2606�NMIRTN�LDAA�PRCBUF+250 2608��SUBA�PWRDWN 2610��BNE�NMIRTI�BRANCH�IF�RAMSET�HAS�NOT 2612�*…YET�BEEN�RUN�(NMI�ROUTINE�NOT�IN�RAM). 2614��LDAA�NMIBSY�GET�PWRDWN�BUSY�FLAG 2616��BEQ�NOTBSY�BRANCH�IF�NOT�ALREADY�ACTIVE 2618�NMIRTI�RTI 2620�NOTBSY�INC�NMIBSY�SET�BUSY�FLAG 2622��CLRA� 2624��STAA�COUNT1 2626��STAA�COUNT2�CLEAR�DOWN-TIME�COUNTERS 2628��STAA�COUNT3 2630��LDX�LASTDO 2632��STX�SAVEDO 2634��LDX�LASTDO+2 2636��STX�SAVEDO+2 2638��LDAA�R7 26- 40��PSHA 2642��LDAA�VAL1 2644��PSHA 2646��LDAA�VAL1+1 2648��PSHA 2650��LDAA�P1AAC 2652��PSHA 2654��LDAA�P2AAC 2656��PSHA 2658��LDAA�P3AAC 2660��PSHA 2662��LDAA�P3ABC 2664��PSHA 2666��LDAA�#4 2668��STAA�P1AAC 2670��STAA�P2AAC 2672��STAA�P3ABC 2674�*�THE�FOLLOWING�INSTRUCTIONS�BLANK�THE�DISPLAY 2676��LDAA�#$2C 2678��STAA�P3AAC 2680��LDX�#32 2682�NMIDSP�LDAA�#$80 2684��STAA�P3AAD 2686��LDAA�P3AAD 2688��DEX 2690��BNE�NMIDSP 2692��LDAA�#4 2694��STAA�P3AAC 2696��LDAA�#1 2698��STAA�P3AAD 2700��JMP�PRCBUF+250 2702��SPC�1 2704�*…RETURN�CONTROL�HERE�WITH�POWER�RESTORATION 2706��SPC�1 2708�PWRBAK�PULA 2710��STAA�P3ABC 2712��PULA 2714��STAA�P3AAC 2716��PULA 2718��STAA�P2AAC 2720��PULA 2722��STAA�P1AAC 2724��PULA 2726��STAA�VAL1+1 2728��PULA 2730��STAA�VAL1 2732��PULA 2734��STAA�R7 2736��RTI 2738��PAGE 2740�*…POWER-DOWN�ROUTINE�FOLLOWS‚- 2742�*‡THIS�ROUTINE�IS�LOADED�TO�R.A.M.�AT�INITIALIZATION 2744�*‡IN�THE�SPACE�IMMEDIATELY�FOLLOWING�PRCBUF.‚IT�IS 2746�*‡ENTERED�ON�THE�POWER-FAIL�NMI�AND�TIMES�THE� 2748�*‡INTERVAL�DURING�WHICH�POWER�IS�OFF.� 2750��SPC�2 2752�PWRDWN�LDAA�#100 2754��BSR�TORLY1�GO�DELAY�0.1�SECOND 2756��LDAA�#$FF 2758��STAA�P3ABD 2760��LDAA�#$7F 2762��STAA�P3ABD�KICK�I/O�TIMER 2764��BSR�TORLY2�WRITE�D.O.'S 2766��LDAA�P1AAD 2768��BITA�#$40 2770��BNE�TORLY4�BRANCH�IF�POWER�BACK�ON 2772��BITA�#$02 2774��BEQ�PWR01�BRANCH�IF�NOT�OVERPRESSURE 2776�PWR00�LDAA�#$80 2778��STAA�COUNT3�DISABLE�TIMER 2780��LDAA�#$04 2782��STAA�LASTDO+1�SHUT�PV1-7;�OPEN�PV8(VENT) 2784��STAA�P1ABD 2786��CLRA 2788��STAA�LASTDO�SHUT�PV9-16 2790��STAA�P2ABD 2792��STAA�LASTDO+2�SHUT�PV17 2794��STAA�LASTDO+3�CLEAR�ANY�SOFTSTARTS 2796��BSR�RELAY2�WRITE�D.O.'S 2798��BRA�PWRDWN 2800�PWR01�LDAB�COUNT3 2802��BLT�PWRDWN�BRANCH�IF�DOWN�>�LIMIT2 2804�PWR02�LDAA�COUNT1 2806��INCA 2808��STAA�COUNT1�INCREMENT�0.1�SECOND�COUNTER 2810��SUBA�#10 2812��BNE�PWRDWN�BRANCH�IF�NOT�AT�1.0�SEC.�INCREMENT 2814��STAA�COUNT1�CLEAR�0.1�SECOND�COUNTER 2816��LDAA�COUNT2 2818��INCA 2820��STAA�COUNT2�INCREMENT�1.0�SECOND�COUNTER 2822��TAB�SAVE�SECONDS�COUNT 2824��SUBA�LIMIT1 2826��BNE�PWR03�BRANCH�IF�SECONDS�COUNTER 2828�*ƒNOT�AT�LIMIT1. 2830��LDAB�COUNT3 2832��BNE�PWRDWN�BRANCH�IF�MINUTES�COUNTER 2834�*ƒNOT�AT�ZERO. 2836��LDAA�#$84�ISOLATE�THE�TUBE�IF�AT�LIMIT1 2838��STAA�LASTDO+1 2840��STAA�P1ABD 2842��STAB�LASTDO 2844��STAB�LASTDO+2 2846��STAB�LASTDO+3 2848��STAB�P2ABD 2850��BSR�RELAY2 2852��BRA�PWRDWN 2854�TORLY1�BSR�RELAY1 2856��RTS 2858�TORLY2�BSR�RELAY2 2860��RTS 2862�TORLY4�BRA�RELAY4 2864�RELAY5�BRA�PWRDWN 2866�RELAY6�BRA�PWR00 2868�PWR03�SUBB�#60 2870��BNE�PWRDWN�BRANCH�IF�NOT�AT�1.0�MINUTE 2872�*„INCREMENT 2874��STAB�COUNT2�CLEAR�1.0�SECOND�COUNTER 2876��LDAA�COUNT3 2878��INCA 2880��STAA�COUNT3 2882��SUBA�LIMIT2 2884��BLT�RELAY5�BRANCH�IF�TIME�<�LIMIT2 2886�PWR04�LDAB�#$80 2888��STAB�COUNT3 2890��LDAA�ABBUSY 2892��ADDA�MANSET 2894��ADDA�STNDBY 2896��BEQ�RELAY5�NO�BACKFILL�IF�NOT 2898�*ƒCURRENTLY�ACTIVE. 2900��LDAA�#2 2902��STAA�BAKFIL�SET�FOR�POWER-FAIL�BACKFILL 2904��STAB�P1ABD�UPDATE�L.E.D.�DISPLAY 2906��STAB�LASTDO+1�BEGIN�BACKFILL 2908��BRA�PWR06 2910�RELAY1�BSR�DLY 2912��RTS 2914�RELAY2�BSR�PFMOUT 2916��RTS 2918�RELAY3�BRA�RELAY5 2920�RELAY4�BRA�PWR08 2922�PWR06�LDAA�#100 2924��BSR�DLY�DELAY�0.1�SECOND 2926��LDAA�#$FF 2928��STAA�P3ABD 2930��LDAA�#$7F 2932��STAA�P3ABD�KICK�I/O�TIMER 2934��BSR�PFMOUT�WRITE�D.O.'S 2. 936��LDAA�P1AAD 2938��BITA�#$40 2940��BNE�PWR08�BRANCH�IF�POWER�ON 2942��BITA�#$02 2944��BNE�RELAY6�BRANCH�FOR�OVERPRESSURE 2946��BITA�#$04 2948��BEQ�PWR06�BRANCH�IF�NOT�AT�1�ATM. 2950��CLRA 2952��STAA�P1ABD�CLEAR�L.E.D.'S 2954��STAA�LASTDO+1�OPEN�VENT�VALVE 2956��LDAA�#30 2958��STAA�DELAY�SET�UP�3.0'�DISPLAY-UPDATE�DELAY 2960��BRA�RELAY3�GO�LOOP�UNTIL�POWER�ON 2962�PWR08�LDAA�#100 2964��BSR�DLY�DELAY�FOR�100�MSEC.�BEFORE�JUMPING�TO�PROM 2966��JMP�PWRBAK 2968��PAGE 2970�DLY�PSHB 2972�A5TOB�LDAB�#$A5 2974�DECB�DECB 2976�‚BNE�DECB 2978�‚DECA 2980��BGT�A5TOB 2982�‚PULB 2984�DLYRTS�RTS 2986��SPC�2 2988�PFMOUT�LDAA�#$2D 2990��STAA�P3ABC 2992��LDX�LASTDO 2994��STX�VAL1 2996��LDX�LASTDO+2 2998��STX�VAL2 3000��LDAB�#16 3002�SHFMOR�LDX�#VAL1 3004��BSR�SHFTDO 3006��STAA�R7 3008��LDX�#VAL2 3010��BSR�SHFTDO 3012��ROLA 3014��ANDA�R7 3016��STAA�P3ABD 3018��DECB 3020��BNE�SHFMOR 3022��LDAA�#5 3024��STAA�P3ABC 3026��LDAA�#$FF 3028��STAA�P3ABD 3030��LDAA�#$FB 3032��STAA�P3ABD�LATCH�OUTPUTS 3034��RTS 3036��SPC�3 3038�SHFTDO�CLRA 3040��ASL�1,X 3042��ROL�0,X 3044��ROLA 3046��COMA 3048�SHFRTS�RTS 3050�‚PAGE 3052�*‚THE�FOLLOWING�SEQUENCE�INITIALIZES�R.A.M. 3054�RAMSET�LDX�#900 3056��CLRA 3058�ZROMOR�STAA�SAVX+1,X 3060��DEX 3062��BNE�ZROMOR 3064��COMA 3066��STAA�KEYTYP�INITIALIZE�KEY-FUNCTION�VALUE 3068��LDX�#-1 3070��STX�TIMCTR‚SET�A�SIDE�TO�OFF 3072��LDAA�#$40 3074��STAA�LASTDO+1�SET�PV07�OPEN�(MAN.�PUMP) 3076��LDAA�#1 3078��STAA�RESET�SET�'RESET'�FLAG 3080��JSR�ASMMSG‚LOAD�IDLE�MESSAGE�TO�DISPLAY 3082��INC�PANEL 3084��JSR�ASMMSG�SET�UP�REMOTE�DISPLAY 3086��LDAA�#60 3088��STAA�TIMBAS 3090��LDAA�#15 3092��STAA�MANPRG 3094��LDAA�#3 3096��STAA�CNTABT 3098��STAA�STP2TR�'PUMP/CHK2'�2-TORR�CHECK-DELAY 3100��DECA 3102��STAA�CNT2TR 3104��DECA 3106��STAA�O2PRG 3108��STAA�CNT1AT 3110��STAA�SSTIME+1 3112��STAA�SSTIME+3 3114��LDAA�#20 3116��STAA�CNTSLO 3118��LDAA�#23 3120��STAA�AUX2TR 3122��LDX�#$0505 3124��STX�FLTLMT 3126��STX�FLTLMT+4�ESTABLISH�FAULT-APPEARANCE�CHECK-COUNTS 3128��LDAA�#5 3130��STAA�FLTLMT+2 3132��LDAA�#2 3134��STAA�FLTLMT+3 3136��LDAA�#$80 3138‚STAA�PRCBUF+144�SET�UP�STEP�17�AS�THE�TERMINATOR 3140‚LDAA�#18 3142‚STAA�MAXSTP�ESTABLISH�STANDARD-STEP�TOTAL 3144‚DECA 3146‚STAA�PRCLNG�16�STEPS�IN�THE�PROCESS�+1�FOR�THE�PROGRAM�TO�EXECUTE�OK!!!! 3147‚LDAA�#16 3148‚STAA�LNGSTP+1�STEPLENGTH 3152‚LDX�#STDPRC+16 3154‚STX�INDEX 3155‚LDAA�#16�STEPNR�FOR�GETPNX 3156�CTULOD�LDX�INDEX 3158��DEX 3160��STX�INDEX 3162��LDAB�X 3164��PSHA 3166��PSHB 3168��JSR�GETPNX 3170��DEX 3172��PULB 3174��JSR�XFRSTP 3176��PULA 3178��DECA 3180��BNE�CTULOD 3182��INCA 3184��STAA�LIMIT1 3186��LDAA�#15 3188��STAA�LIMIT2 3190��LDX�#PWRDWN 3192��STX�VAL2 3194��STX�R8�SOURCE�ADDRESS�FOR�XFER 3196��LDX�#SHFRTS+1 3198��JSR�XSUB 3200��STX�R0�LENGTH�OF�POWER-FAIL�FOUTINE 3202��LDX�#PRCBUF+250 3204��STX�R9�DESTINATION�ADDRESS�FOR�XFER 3206��JSR�BUFBUF�XFER�POWER-FAIL�ROUTINE�TO�R.A.M. 3208�‚RTS 3210��SPC�3 3212�STDPRC�FCB�1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 3214‚SPC�1 3216�*�ST'D-STEP�SEQUENCE�FOR�STANDARD�PROCESS. 3218�‚PAGE 3220�*‚BUFBUF�LOADS�CONTENTS�OF�BUFFER�AT 3222�*‚ADDRESS�(R8)�TO�BUFFER�AT�ADDRESS�(R9); 3224�*‚BUFFER�LENGTH�IN�R0-R1.�(CHANGES�R8,�R9, 3226�*‚R2,R3,VAL1) 3228�BUFBUF�PSHA 3230�‚PSHB 3232�‚BSR�X2AB 3234�‚PSHA 3236�‚PSHB 3238��LDX�R0 3240��STX�R2 3242�XFRMOR�LDX�R8 3244�‚LDAA�0,X 3246�‚INX 3248�‚STX�R8 / 3250�‚LDX�R9 3252�‚STAA�0,X 3254�‚INX 3256�‚STX�R9 3258��LDX�R2 3260�‚DEX 3262��STX�R2 3264��BGT�XFRMOR 3266�XFRDUN�PULB 3268�‚PULA 3270�‚BSR�AB2X 3272�‚PULB 3274�‚PULA 3276�‚RTS 3278�‚PAGE 3280�*‚TRANSFER�A�REG.�TO�LOW‚BITS�OF�X-REG.; 3282�*‚TRANSFER�B�REG.�TO�HIGH�BITS�OF�X-REG. 3284�*‚(CHANGES�VAL1) 3286�AB2X�STAA�VAL1+1 3288�‚STAB�VAL1 3290�‚LDX�VAL1 3292�‚RTS 3294�‚SPC�3 3296�*‚TRANSFER�HIGH�BITS�OF�X-REG.�TO�B�REG./ 3298�*‚TRANSFER�LOW‚BITS�OF�X-REG.�TO�A�REG. 3300�*‚(CHANGES�VAL1) 3302�X2AB�STX�VAL1 3304�‚LDAA�VAL1+1 3306��LDAB�VAL1 3308��RTS 3310�‚SPC�3 3312�*‚ADDS�VAL2(2)�TO�X-REG.�(CHANGES�VAL1) 3314�XADD�PSHA 3316�‚PSHB 3318�‚BSR�X2AB 3320�‚ADDA�VAL2+1 3322�‚ADCB‚VAL2 3324�‚BSR�AB2X 3326�‚PULB 3328�‚PULA 3330�‚RTS 3332�‚SPC�3 3334�*‚SUBTRACTS�VAL2(2)�FROM�X-REG.�(CHANGES�VAL1) 3336�XSUB�PSHA 3338�‚PSHB 3340�‚BSR�X2AB 3342�‚SUBA�VAL2+1 3344�‚SBCB�VAL2 3346�‚BSR�AB2X 3348�‚PULB 3350�‚PULA 3352�‚RTS 3354�‚PAGE 3356�KEYBRD�CLRB 3358��BRA�CHKBSY 3360�CHGMOD�LDAB�#$80 3362��BRA�CHKBSY 3364�ENTDTA�LDAB�#$81 3366�CHKBSY�LDAA�KEYBSY 3368��BEQ�GETADR�BRANCH�IF�KEY�ROUTINE�NOT�BUSY 3370��LDAA�P1AAD�ELSE,�CLEAR�INTERRUPT 3372��LDAA�P2AAD 3374��JMP�RETURN�AND�RETURN 3376�GETADR�INC�KEYBSY�SET�BUSY�FLAG 3378��LDAA�#4 3380��STAA�P1AAC 3382��STAA�P2AAC 3384��CLI 3386��CLR�PANEL�SET�PANEL-SELECT�TO�MAIN�PANEL 3388��TSTB�CHECK�INTERRUPT�TYPE-FLAG 3390��BLT�KBDAUX�BRANCH�IF�AUXILIARY�KEY 3392�‚LDAA�P2AAD‚GET�KEY�ADDRESS 3394�‚COMA„COMP.�TO�GET�4X4�ADDR. 3396��ANDA�#$1F�MASK�FOR�KEY�ADDRESS 3398��BITA�#$10 3400��BEQ�JMP4X4�BRANCH�FOR�MAIN�KEYBOARD 3402��INC�PANEL�ELSE,�SET�PANEL�SELECT�TO�REMOTE 3404��LDAB�LASTDI 3406��BLT�CHKENT�BRANCH�IF�KEY�SET�TO�'DISABLE' 3408�JMPRTN�JMP�KEYRTN�ELSE,�EXIT 3410�CHKENT�TAB 3412��SUBB�#$1A 3414��BLT�JMP4X4�BRANCH�FOR�REMOTE�KEYS�0-9 3416��BGT�JMPRTN�BRANCH�FOR�INVALID�KEY�ADDR. 3418��LDAB�#$82�VALUE�FOR�REMOTE�'ENTER�DATA' 3420��BRA�KBDAUX 3422�JMP4X4�JMP�KBD4X4 3424�KBDAUX�CLR�PANEL�SET�SELECT�FOR�MAIN�PANEL 3426��BITB�#$02 3428��BNE�EDRMT�BRANCH�FOR�REMOTE�'ENTER-DATA' 3430��LDAA�KEYTYP 3432��EORA�#$94 3434��BNE�MAINAX�BRANCH�NOT�REMOTE�'OPERATOR'�TIME-CHANGE 3436�CLRPNL�CLR�PANEL 3438�CHGBSY�LDX�#MSGCHG 3440��STX�R8 3442��JSR�LODMSG�DISPLAY�'CHNG�IN�PROG' 3444��BRA�JMPRTN�EXIT 3446�MAINAX�BITB�#$01 3448��BNE�EDMAIN�BRANCH�FOR�MAIN�'ENTER-DATA' 3450��JMP�CHANGE�ELSE,�GO�PERFORM�'CHANGE�MODE' 3452�EDRMT�INC�PANEL�SET�SELECT�FOR�REMOTE�PANEL 3454��LDAA�KEYTYP 3456��EORA�#$94 3458��BNE�JMPRTN�BRANCH�IF�NOT�REMOTE�'OPERATOR' 3460�*…TIME-CHANGE. 3462��BRA�ENT01B 3464�EDMAIN�LDAA�MODFLG� 3466��BNE�ENT01 3468��JMP�KEYERR�CURRENTLY�IN�STATUS�MODE 3470�ENT01�LDAA�KEYTYP‚DATA�ENTERED�HERE 3472��BGT�ENT02B 3474��BLT�ENT01A 3476��JMP�CHGSTP�BRANCH�FOR�CHANGE�STEP�# 3478�ENT01A�SUBA�#$84 3480��BEQ�ENT01B�BRANCH�IF�AN�'OPERATOR' 3482�*…CHANGE-TIME�IS�IN�PROGRESS. 3484��JMP�KEYERR�ELSE,�EXIT 3486�ENT01B�LDAA�KEYCNT 3488��BEQ�ENT01C�BRANCH�IF�NO�CHANGE�TO 3490�*…CURRENTLY-DISPLAYED�STEP. 3492��JMP�CHGDEP�ELSE,�GO�ENTER�NEW�DEPOSIT�TIME 3494�ENT01C�JMP�SAVDEP�DISPLAY�NEXT�DEPOSIT�STEP,�IF�ANY 3496�ENT02B�SUBA�#3 3498��BNE�ENT03 3500��JMP�CHGVLV�BRANCH�FOR�OPEN�VALVE 3502�ENT03�DECA 3504��BNE�ENT04 3506��JMP�CHGTIM�BRANCH�FOR�CH@NGE�TIME 3508�ENT04�DECA 3510��BNE�ENT05 3512��JMP�CHGVLV�BRANCH�FOR�CLOSE�VALVE 3514�ENT05�SUBA�#2 3516��BNE�KEYERR�ERROR�-�TERMI0 NATE�ENTRY 3518��PAGE 3520�EXAMEM�LDAA�ADRDTA�EXAMINE�MEMORY 3522��BNE�NOTADR�BRANCH�IF�ADDR.�ENTERED 3524��INC�ADRDTA�SET�FOR�ADDR.�ENTERED 3526�ADDROK�JSR�LODADR�LOAD�ADDR.�TO�DISPLAY 3528�DSPVAL�LDX�EXMADR‚LOAD�VALUE�TO�DISPLAY 3530�‚LDAA�X 3532��CLR�KEYCNT‚CLEAR�KEYSTROKE�COUNTER 3534�DSPBYT�JSR�HEXCVT 3536�BYT2A�STAB�DSPBUF+14 3538�‚STAA�DSPBUF+15‚STORE�VALUE�TO�DIS�PLAY 3540��LDX�#$2020 3542��STX�DSPBUF+12 3544�‚BRA�KEYRTN 3546��SPC�3 3548�NOTADR�LDAA�KEYCNT‚GET�KEYSTROKE�COUNT 3550�‚BNE�CHGVAL‚CHANGE�MEMORY 3552�‚LDX�EXMADR 3554�‚INX 3556�‚STX�EXMADR 3558��BRA�ADDROK 3560�CHGVAL�BSR�CHKKSW‚CHECK�KEYSWITCH�SETTING 3562��LDAA�CHGMEM+1 3564��CLR�CHGMEM+1 3566�‚LDX�EXMADR 3568�‚STAA�X 3570�‚BRA�DSPVAL 3572��SPC�3 3574�CHKKSW�LDAA�LASTDI 3576��BGE�KSWRTS‚BRANCH�IF�KEY�IN�ENABLE�POS. 3578��PULA 3580��PULA 3582��LDX�#MSGDIS 3584��BRA�OTRERR�ABORT�KEY�ENTRY 3586�KSWRTS�RTS‚RETURN;�KEYSWITCH�O.K. 3588��PAGE 3590�KEYERR�LDX�#MSGINV�'INVALID�KEY'�MSG�ADDR 3592�OTRERR�STX�R8�SAVE�MESSAGE�ADDR 3594��CLR�PANEL�RESET�PANEL-SELECT 3596��JSR�LODMSG�LOAD�MESSAGE�TO�DISPLAY 3598��BSR�PARAMS�CLEAR�KEYBOARD�PARAMETERS 3600��LDAB�TIMCTR 3602��BLT�OTååå1;€2€088ŽÿO·X·XC·X·X·X·X † ·X†·X·X·X L·X·X ½Á¿†€·X O·X ¶X¶X¶X †,·X Î ¦cHH·X¶X &ó†·X †·X†½ÁxO·X Ö†ÿ·X †·X ¶X ¶XØ—–P&Å€' |P–S&—P½ÆS½¸Ý–˜%”—š%—%Å '–K›L'–T&½ÆS–U& L—½Æ{~¹DÅ&~¹D–K'–'Š@—'~¹DO—–Æ×Î� ”&oSÔ%×%9æ\à'ëç9çš—9–Æ×Î�Ö–Æ×Î�Ë–Æ×Î�À–Æ×Î�µ–Æ ×Î�ª9Ö%–H›N›K›L&7ÖVVÄ€–'„—'3Å'#ÔÅ&~ºŽO—&—(—N†D—'ÎȽº½ºt½ºP~ºŽÅ'RÎÈ–H&›K›L›N&&ÔÅ& ~ºŽ½º–�J—„Æ×0Þß.J½ºt–>—8~ºŽO—K—L—N—9—&—(–)„€—)†À—'½ÆS~ºŽ–H›K›L'0Å '~ºŽÖ6'~ºŽÖLÛK&ÇÞ…æZ&~ºŽßÎ�½Â®/~ºŽÎÈ' Ž–N'v€&–@&n–',Å'f†—@Ö'Äx×' Z–7&V–8&RÅ'NO—N—M–)Š€—)½ÆS >Îÿÿß.O—H—K—L—„—J—8—9½ÆS9†—J–0—1)9†Š—M–)Š€—)9–H' ߊ–„—‡Þ.߈9–R&~»ÊR–<—6ÖE.'ÖH'~»©ÖKÛL'5~»¯–D�F,~»¿–H'%Þ…Œ�-¦€':J.(Þ2ßÞ.½Â®, Þ2ß.†—0Þ*ß&–,—(Ö)Ä€Ú-×)~»¿€ ,Ô‹."îß. Ú——.L—0—/Æ×½Â®ß…Ö„Àׄ~»¿—†—½¼°]'p—J–€—/<†—1½Âšîß*½Â“îß,Î ßÞ…–.§–/§½Â®¦€ - €.¦Š€§Œ�&è½Çe†—½¼°×„ß…—.L—0Æ×/îß&Þ…¦—(–)„€ª—)–/"½ºh|J† —M ÎÈK½º½ºPÖ'Ê@×',½ºt Þ.½Âš½½I½ÆS–I' IÎÈ?~¹¢–M'"J—M„&Å€' † —M–)„—) †Š—M–)Š€—)z0'~¼–†<—0–9'1J—9'}L&'J&$Lš)—) –(„þ—(–&Š—&}L& –)„þ—)–'Š—'–@'J—@–KJ/—K_ –LJ/—LÆ—(†„—'O—&—)½ÆS~¾A–6'z6–7'z7Þ.'–8'J—8_½½I–8& ~½õ–J&ÖH&~¾AÞ.&~½¤ ß.½Âš½½IÞ.&%~½|Î ßÞ…Ö„¦�&¦«& ZŒ�'½Â® éO9–„Þ…½½+M&~¾AßÞ.ßÞ2½Â®&–'„&Þ¦…'–)Š—)Þ4½Â®'~¾A–'Þ¨¤DD„š)—)Þ…¦€&–&„þ—&~¾ALÐ�, æ-íæê'ç9OÞ967ÖZ&–W€&–a& È„'3267½¿q–Wˆ”—32}'|½¿q9Ö%Þ…¦€'‹' J&Å&ÎÈ3~¹¢Å& ½ºh½ÆS~¾A–„Þ…½½+M&~½õ—„ß…¦€&–; –<—6æ×&¦—'¦—(–)„€ª—)æ¦'¦½Â“ îß.½Âš½½I½ÆS~¼Ò–=—7„J†—NÎÿÿß.–8&OÎ ßÎz§§½Â®Œ�&ô—&—(†À—' O—(L—&†„—'–)„€—)O—H½ÆS½Áƒ–T'–Z›[&Î&ß ½¿H~ÀASM / MICON1 TERM *** IN HOLD PWR/HO1 LD ABORT / PUMPSTANDBY /PMPMAN-SET /PMPBACKFILLING Æ ×—¦.ξc dÖZÛ[&ÖJ'À,ξm Qξw LJ—Þ�ß ½¿ÌÎÎÆ½Â¡½Âš67ßÎ ½Â¡ß–½Å¤ß ß ÆÞß¦Þ ß ¨'†*— Z&ç32½Â“߽˕–}&—f —v–�v}&ßd ßt9–O& Þ ¦·X¦·X9TTTTÀ /ËË9„€ /‹‹99Îd��:}&ßr ß‚–�+}&ßp ߀9߽“½Â®- |œ' ò½Â¡½Âš—9Î00߀ -|M' ô‹ ›—Þ976ÎO_vv$Û ™ FVvv &ï239Φ6 &ú¦6¶X …€'~¸o¶X…€'~»¶X…€'~¾…@'~ÂÂÎÿë2§&ú;¶аÀ¥&–R';|RO—C—D—EÞ&ß*Þ(ß,–6– 6– 6¶X6¶X6¶X 6¶X 6†·X·X·X †,·X Î †€·X¶X &õ†·X †·X~Š2·X 2·X 2·X2·X2— 2— 2—;†d�a†ÿ·X †·X �X¶X…@&T…'†€—E†—'·XO—&·X—(—)�h ÌÖE-È–CL—C€ &¿—C–DL—D�F&$ÖE&¯†„—'·X×&×(×)÷X�7 ›�09�09 2 ‘ ªÀ<&‹×D–EL—E�G-íÆ€×E–H›L›K'ᆗN÷X×' �:9�B9 Î +†d�.†ÿ·X †·X �-¶X…@&…&³…'áO·X—'†—@ цd�~À‹7Æ¥Z&ýJ.ø39†-·X Þ&ß Þ(ßÆÎ � —Î�I”·X Z&놷X †ÿ·X †û·X 9OhiIC9΄O§ &ûC—WÎÿÿß.†@—'†—Q½Ë«|½Ë«†<—0†—A†—>—;J—–V&Þ]ß] Ý� –``Þ]§ Ó–,22ÎÄ 9ÎÃè߽˕�mÖ.-–/ _O½¿q¶X¶X† ·X†·XS~ÀCHNG IN PROGINVALID KEY INVALID REQ KEY DISABLEDCHANGE DONE RUN COMPLETE�O—Z—[—\—VÖWC—WOÞßXÀ&ß]ß_—a9Î † §c &û97—½Âš67–6DDDD—  Î ß½¿Ì2„›—32½Â“3–9½Ã –Y�Í—�Œ/~Å–ZZ&Z&ôÀ-~ŽŤ Ö&7ÖZ†€§×�O§Œ‰&ø~ÅÆçß Z×Þ�ß ½¿ÌÎÎҽ¡ßÎß½Âm9¦6�Ø2M-~ÅÆ–ZL6½Å¤ 3~Ī @€ @€–Y'½ÄO—Æ€/ÎÃô~ï'_‹ .\×ÖZ&–L' –€ -€/½Ã ]&u–W€'–€.‹- Ö%Å &ÎÈ'~ïÎ&�ÎÄ ~ïßÞ½Â¡ßÆþ–€'€'_–W€6ÞßÎÄö½Â¡¦Þ3]'C¤ ª§9_J½Â“ß Î ß½¿ÌΑ½Â¡9Ð�-~Å�à�¦O—\—V—X—YC—W~ʤ–X½ÄO–Y½ÄO6×Îdß ½¿Ì2_½Â“½Â¡ß9½Ã �×–Z&Þ'Þ..~Å}H'øÞ…Þß.ÎÄ ~ïÐ�-~ŽŤ Ö–ç§~ÅÆ�ž–[½Å¤Ö–ç§O—V—X—Y~ÃÆ� ~ÃÆ†—T�9½ÄDÎ&ß ½¿H†�T—T&� U|�9½Ä&}&T U}H'–„Þ…½¾³Ö.–/½¿q9½Ë«9×C„˜Wˆ„&~Ö\'~ÉàÅ'ÄÀ&~É~À&Æ”~É–.~Ã¬Ë ×À '~È –H'h–J'^Þ.&–%…'T–J€- Þ*ß&Þ,ß(Þ.O—JßÞ2½Â®½Âš],Þ…¦€&–%…' Îß.†—1–1—0~Ȩ߽š½Ë•½Â“ß|½Ë•½Ä&~ÃÆ–�J.ÎÈ Ú½Èy–Q&ÎÈW Î� eÎ ßÎ�¦/€- €.O§§½Â¡ êÎ�æ/?¦-¦«' À ' Z' Z'½Â¡ ㆠ†—Œ�'½Â®æÐ&ÖAç ìÀ&èÖBç â9O—QL—HO—‡Þß.߈·߅–'„¿—'Æ×0~É~ INACTIVE ACTIVE NO PROCESS DOOR OPEN OVERPRESS OVR 2TORR LEAK FAIL ABORTED POWR FAIL NOT RESET NO DEP STEPSÖH'922~ÇE–N›K›L›H'ÎÇ÷22~Ç/–%…'ÎÈ ð…'ÎÈ ç9Z& �ʽºh½ÆS~ÃÆZ&X–Z'~ÅÆ–H›N'ÎÇ÷~Ç/L—QÞߊ½Ä&–K›L'!_×K×L×&×(×)×6×9ÆÀ×'Æ×NÖ=×7Æ<×0 ³—&—(—)†@Ö%Å'Š—' ŸZ&½Èy†—K–:—6–?—9~ÇÞZ&ÖH&ÎÇë~Ç/×I~ÃÆZ&&–K& ½Èy†—L Ó–K—LKÖ'Ľ€'Ê×'½ÆS~ÇEË&¶Xˆÿ&¶Xˆÿ' †ÿ·X·X—O O óË& M–)„—)~ÇEË&R–…€'LÆ„–T&F×W–[—|[–[Ð�'&½Å¤¦…þ'í¦…'熗\}&—T —U–[½Ê«~ÃÆ–'½ÆS~ÃÆÎÈc~Ç/–TÖÅ'–UM&~ÃÆÄ×–\J&~Êò/?~Ë] OPEN VLV# CLOSE VLV# CHG TIME ENTER STEP EXAM MEM –&–Z&~Å€/~ÅÎÊ% €&–…'ÎÈ~ïÎÊÆß–—W×\½Ë•~ÃÆJ&ÎÊ èJ&ÎÊ à€&ÎÊ1Æ ׋'~ì–��Z&—Z|Z–Z�~ÃÆ6½Å¤ß 2½¾³Þ–Wˆ”'ß ½¿Hæ,_O ¦'¦ 榽¿q9æ¦HYHYHYHYçÖħ9–À /À'~ìÖZ'ù~ÅÆ|VÎX�Í–[',–X½¿Y}&×p—q ×€—�–Y½¿Y}&×r—s~ÃÆ×‚—ƒ~ÃÆ–Y½¿Y×n—o–W€'~ÃÆ–X½¿Y×l—m~ÃÆ|V–a& Î]½ÊÜ�~ÃÆÎ_½ÊÜ–`~Ãz–]½¿Y72 6–^½¿Y762—o2—n2—m2—l9Îd}'Îtß Î ß½Âm9–N&I–K&@–L&7–%…'ÎÈ LÞŠ&–Q'ξY ?ÎÄ :�8–‡½¿²}&ßd ßtÖˆ–‰½¿q9ξ› ξ� –8&ξ§  –8_½¿qξƒß ‡ßÎ00}&ßpßr ߀߂½Ë•–KšL'!–%… '}& Î/RßlÎDYßn Î/Rß|ÎDYß~9 PUMP/CHK1„ PUMP/CHK2„ LEAK CHEK„ N2 PRG 1 † PUMP/CHK3„ª MAN PRG 1Ô MAN PRG 2ô O2 PRG 1 œ O2 PRG 2 ¼ LTO1/XDOP}œ LTO2/DOPEë¼ LTO3/DOPEë¼@ LTO4/DOPEë¼€ 02 POSPRGŒ PUMP DOWN„ N2 PRG 2 † EVAC MANFÄ *SPECIAL*„¿íÀ'À(¸MEMORY'�FUNCTION); 0240�*ƒ0�=�ADDRESS�NOT�YET�ENTERED 0242�*ƒ1�=�ADDRESS�HAS�BEEN�ENTERED 0244��SPC�1 0246�*ƒL.E.D.�DISPLAY�- 0248��SPC�1 0250�DSPINX�RMB�2�DISPLAY�BUFFER�INDEX 0252�DSPBUF�RMB�32�CURRENT-DISPLAY�BUFFER‚ 0254��SPC�2 0256�*ƒPROCESS�SPECIFICATION�AND�SEQUENCING�- 0258��SPC�1 0260�CURSTP�RMB�1‚NUMBER�OF�CURRENTLY- 0262�*ƒEXECUTING�PROCESS�STEP�-�THIS�IS�A 0264�*ƒSEQUEN H€S00500000002F8 S11B000049424D33353020202020202020202020202020202020202034 S11B00187FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFE4 S11B00307FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFCC S11B00487FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFB4 S11B00607FFF7FFF2020202020200400000A000007F507F507F57FFF48 S11B00787FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF84 S11B00907FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF0000000068 S11B00A800000000000000000000000000000000000000008F0A0002A1 S11B00C0E8000000B4000008910FD007F57FFF7FFF7FFF7FFF7FFF7F1F S11B00D8FF1FFE7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F85 S11B00F0FF7FFF7FFF7FFF7FFF7FFF400000000000000000000000003F S11B01080000000000000000000000000038D174000004B0000007F5AE S11B012007F507F57FFF7FFF7FFF7FFF7FFF7FFF1FFE7FFF7FFF7FFF40 S11B01387FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFC3 S11B01507FFF40000000000000000000000000000000000000000000D5 S11B01680000000000000080000258000007F507F507F57FFF7FFF7F32 S11B0180FF7FFF7FFF7FFF1FFE7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDC S11B0198FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF400000000000001C S11A01B00000000000000000000000000000000000000038D1748037 S9 åå K€TT ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ3 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 00.00.10.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.20.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@€  åååN€S00500000001F9 S11B00005454202020202020202020202020202020202020202020207C S11B00187FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFE4 S11B00307FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFCC S11B00487FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFB4 S11B00607FFF7FFF2020202020200200000A000003FA03FA03FA7FFF47 S11B00787FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF84 S11B00907FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF2000000048 S11B00A80000000000000000000000000000000000000000000038D133 S11B00C07400000014000003FA03FA03FA7FFF7FFF7FFF7FFF7FFF7FB0 S11B00D8FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F24 S11B00F0FF7FFF7FFF7FFF7FFF7FFF200000000000000000000000005F S11401080000000000000000000000000038D17480E5 S9 å P€PRE ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 00.00.00.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 4  ååå S€Z0 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,@ÿ￞,@ÿ￞ 00.00.00.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁÈ.sÁÈ.sÁÈÿÿÿÿa}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  ååå V€TTEST ÿa}ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,@ÿ￞,@ÿ￞ 00.00.00.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@EINS 00.12.30P–P—.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿD8†  å5 åå Y€T1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,ÿ÷­ž,ÿ÷­ž 00.00.00.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.10.sÁÈ.sÁÈ.sÁÈÿÿÿa}ÿÁÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@€  ååå\€S00500000001F9 S11B00005431202020202020202020202020202020202020202020209F S11B00187FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFE4 S11B00307FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFCC S11B00487FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFB4 S11B00607FFF7FFF20202020202002000006000003FA03FA03FA7FFF4B S11B00787FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF84 S11B00907FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF2000000048 S11B00A80000000000000000000000000000000000000000000038D133 S11B00C0740000000A000003FA03FA03FA7FFF7FFF7FFF7FFF41997F5E S11B00D8FF0CCC7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FCA S11B00F0FF7FFF7FFF7FFF7FFF7FFFE00000000000000000000000009F S11401080000000000000000000000000038D17480E5 S9 å^€T2 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ,ÿ÷­ž,ÿ÷­ž 00.00.00.sÁÈ.sÁÈ.sÁÈÿÿÿÿÿÿÿÿ6 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  å}`|ï€þ7125ˆEND 7120ˆPAGE 7117ˆFCB„CR,LF,EOF 7116�M38„FCC„/COMMAND�MODE;�LEAVE�THIS�FUNCTION�BY�TYPING�CTRL-A/ 7115ˆFCB„CR,LF,EOF 7110�M36„FCC„/ENTER�THE�RECIPE�NUMBER�(1-3)/ 7105ˆFCB„EOF 7100�M35„FCC„/ƒNEW�NAME:�/ 7095ˆFCB„EOF 7090�M34„FCC„/RECIPE�NAME:�/ 7085ˆFCB„EOF 7080�M33„FCC„/NEW�NUMBER:�/ 7075ˆFCB„EOF 7070�M32„FCC„/LOT�NUMBER:�/ 7065ˆFCB„EOF 7060�M31„FCC„/RATIO�ERROR/ 7031ˆFCB„CR,LF,EOF 7030�M27„FCC„/ENTER�THE�STEP�NUMBER�OR�CR�TO�EXIT/ 7015ˆFCB„EOF 7010�M25„FCC„/CHANGES�OK?�/… 7005ˆFCB„EOF 7000�M24„FCC„/INTERLOCK�ERROR/ 6995ˆFCB„EOF 6990�M23„FCC„/NUMBER�TOO�LARGE/ 6985ˆFCB„EOF 6980�M21„FCC„/NEW�TIME�=�/ 6975ˆFCB„EOF 6970�M20„FCC„/„TIME�=�/ 6964ˆFCB„EOF 6962�M30„FCC„/…YOUR�SELECTION:�/ 6960ˆFCB„CR,LF 6955ˆFCC„/(3)‚SETPOINTS/ 6950ˆFCB„CR,LF 6945ˆFCC„/(2)‚DIGITAL�OUTPUTS/ 6940ˆFCB„CR,LF 6935�M16„FCC„/(1)‚TIME/ 6930ˆFCB„CR,LF 6925�M19„FCC„/STATUS�CHANGE/ 6920ˆFCB„EOF 6915�M18„FCC„/CLOSED/… 6910ˆFCB„EOF 6905�M17„FCC„/OPEN‚/„ 6900ˆFCB„EOF 6895�M15„FCC„/OFF�/… 6890ˆFCB„EOF 6885�M14„FCC„/�ON�/„ 6875�M13„FCB„$C8,$CC,$20,EOF�/HD�/ 6870�M12„FCB„$C1,$CC,$20,EOF�/AL�/ 6865�M11„FCB„$C1,$C2,$20,EOF�/AB�/ 6860ˆFCB„EOF 6855�M10„FCC„/FN�/… 6850ˆFCB„EOF 6845�M9…FCC„/RN�/ 6840ˆFCB„EOF 6835�M8…FCC„/ID�/ 6830ˆFCB„CR,LF,EOF 6825�M7…FCC„/INCORRECT�ENTRY/ 6820ˆFCB„EOF 6815�M6…FCC„/PRESS�ANY�KEY�FOR�JOB�SELECTION�/ 6810ˆFCB„EOF 6805�M5…FCC„/‚TIME�/ 6800ˆFCB„EOF 6795�M4…FCC„/‚STEP�/ 6790ˆFCB„EOF 6785�M3…FCC„/‚BOAT�/ 6780ˆFCB„EOF 6775�M2…FCC„/‚STATUS�/ 6770ˆFCB„LF,EOF 6765ˆFCC„'(7)‚RECIPE�NAME�CHANGE' 6760ˆFCB„CR,LF 6755ˆFCC„'(6)‚LOT�NUMBER�CHANGE' 6750ˆFCB„CR,LF 6745ˆFCC„'(5)‚RECIPE�CHANGE' 6742ˆFCB„CR,LF 6741ˆFCC„/(4)‚MAINTENANCE�COMMANDS/ 6740ˆFCB„CR,LF 6735ˆFCC„'(3)‚STATUS�CHANGE' 6730ˆFCB„CR,LF 6725ˆFCC„/(2)‚DIGITAL�OUTPUT�STATUS�DISPLAY/ 6720ˆFCB„CR,LF 6715ˆFCC„/(1)‚TUBE�STATUS�DISPLAY/ 6710ˆFCB„CR,LF 6705�M1…FCC„/TUBE�LEVEL�JOB�SELECTION/ 6700�***************************** 6695�*‚STRINGS‚AND‚CONSTANTS‚* 6690�***************************** 6685ˆPAGEƒ 6680�INOKƒRTS 6675�INERR‚SEV 6670ˆBLE„INOK…BRANCH�IF�OK 6665ˆCMPAƒ#9 6660ˆBLT„INERR„BRANCH�IF�ERROR 6655ˆSUBAƒ#$30…CHANGE�TO�DECIMAL 6650�INDEC‚JSR„OUTCH 6645ˆBEQ„INOK…BRANCH�IF�CR 6640ˆCMPAƒ#CR 6635�INNRƒEQU„*ˆINPUTS�DECIMAL�NUMBER�OR�CR 6630ˆSPC„2 6625�INSTP3�JMP„RCP1A 6620�INSTP2�CLR„VAL1 6615�INSTP1�STABƒVAL1+1 6610ˆBRA„INSTP3 6605ˆSTAAƒVAL1+1 6600ˆABA 6595ˆASLB 6590ˆASLB 6585ˆASLB 6580ˆASLB 6575ˆLDABƒVAL1+1 6570ˆBEQ„INSTP2ƒBRANCH�IF�CR 6565ˆCMPAƒ#CR 6560ˆBVS„INSTP3ƒBRANCH�IF�ERROR 6555�INSTP5�JSR„INNR…NEXT�CHAR. 6550�* 6545�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6540�* 6535ˆRETURN�INSTP5 6530ˆSTAAƒVAL1+1ƒTWO�HEX�CHARACTERS�IN�A�BYTE 6525ˆABA 6520ˆASLB 6515ˆASLB 6510ˆASLB 6505ˆASLB 6500ˆBEQ„INSTP1ƒBRANCH�IF7 �CR 6495ˆCMPAƒ#CR 6490ˆLDABƒVAL1…GET�FIRST�ENTRY 6485ˆBVS„INSTP3 6480�INSTP4�JSR„INNR…GET�DECIMAL�CHAR. 6475�* 6470�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6465�* 6460ˆRETURN�INSTP4 6455ˆBEQ„INSTP3ƒBRANCH�IF�CR 6450ˆCMPAƒ#CR 6445ˆSTAAƒVAL1 6440ˆBVS„INSTP3ƒBRANCH�IF�ERROR 6435�INSTP0�JSR„INNR 6430�* 6425�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6421�* 6420ˆRETURN�INSTP0 6419ˆCLR„VAL1+1 6418�*�ON�ERROR�THE�OVERFLOW�BIT�IS�SET 6417�INSTEP�EQU„*ˆGETS�A�1-3�DIGIT�DECIMAL�NR�AND�STORES�IT�IN�VAL1 6416ˆPAGE 6415ˆRTS 6414ˆPULA 6413ˆPULB 6412ˆBNE„FND01„ROTATE�TILL�REQUESTED�BIT�IS�IN�THE�CARRY 6410ˆDECB® 6409�FND01‚ROLAŒROTATE�LEFT;�BIT�IN�CARRY 6408ˆLDAAƒ0,X†GET�BYTE 6407ˆLDABƒBLOOP 6406ˆPSHBŒBIT�NR 6405ˆJSR„TSTBITƒFIND�BIT 6404ˆJSR„AXA†ADD�OFFSET�TO�POINTER 6403ˆPSHA 6402�* 6400�*�SHIFTING�LEFT�AND�PUTS�IT�IN�THE�CARRY 6398�*�SELECTS�THE�CORRESPONDING�BIT�OUT�OF�A�BYTE�POINTED�TO�BY�X�BY 6396�*�ENTERED�WITH�(BITNR�+1)�IN�B-REG 6394�FNDBIT�EQU„* 6392ˆSPC„3 6390ˆRTS�DONE 6385ˆSTAAƒ0,X„RETURN�THE�BYTE 6380ˆBNE„SETB1 6375ˆDECB 6370�SETB1‚ROLAŒMOVE�BIT�BACK 6365ˆLSR„R0‡BIT�0�OF�R0�IN�THE�CARRY 6360ˆLDABƒBLOOP„BITPOSITION�IN�A�BYTE 6355�* 6350�*�R0=0�CLEAR�BIT;�R0=1�SET�BIT;�MOVES�BIT�BACK�INTO�BYTE 6345�SETBIT�EQU„*ˆSETS�OR�CLEARS�THE�D.O.�BIT�IN�THE�CARRY 6340ˆPAGEƒ 6335ˆRTS 6330ˆBNE„GET01„ROTATE�TILL�REQUESTED�BIT�IS�IN�THE�CARRY 6325ˆDECB® 6320�GET01‚RORAŒROTATE�RIGHT;�BIT�IN�CARRY 6315ˆLDAAƒ0,X 6310ˆLDABƒBLOOP 6305�* 6300�*�PUTS�IT�IN�THE�CARRY 6295�*�SELECTS�THE�CORRESPONDING�BIT�OUT�OF�A�BYTE�POINTED�TO�BY�X�AND 6290�*�ENTERED�WITH�(BITNR�+1)�IN�BLOOP 6285�GETBIT�EQU„* 6280ˆSPC„3 6275ˆRTS 6271ˆPULB 6270ˆJSR„GETBIT 6265ˆJSR„AXA 6260�TSTB2‚STAAƒR4‡KEEP�THE�OFFSET 6255ˆBRA„TSTB1„CHECK�THE�NEXT�BYTE 6250ˆINCAŒBLOOP�HAS�(BITNR�+1)MODULO�8 6245ˆBLE„TSTB2„BRANCH�IF�OFFSET�IS�CORRECT�FOR�THIS�INPUT 6240ˆSUBBƒ#8 6235�TSTB1‚STABƒBLOOP 6230ˆCLRA 6226ˆPSHBŒBITNR�IN�B�REG 6225�*�X�POINTS�TO�START�OF�THE�DATA;�EXITS�WITH�BIT�VALUE�IN�THE�CARRY�AND 6220�TSTBIT�EQU„*ˆBITNR�TO�BE�CHECKED�IN�B-REG 6215ˆSPC„3 6210ˆJMP„LOTNR1ƒ 6205ˆLDX„RECIPE 6200ˆLDABƒ#8‡MAX�8�CHARACTERS 6195ˆJSR„PDATA 6190ˆLDX„#M35…/NEW�NAME�:/ 6185ˆJSR„PDATA1ƒDISPLAY�OLD�NAME 6180ˆLDX„#DSPBUF 6175ˆSTAAƒDSPBUF+8 6170ˆLDAAƒ#4 6165ˆMOVEƒRECIPE,DSPBUF,8 6160ˆJSR„PDATA1 6155ˆLDX„#M34…/RECIPE�NAME:/ 6150ˆJSR„CLRALL 6140�RCNAME�EQU„*ˆCHANGES�THE�RECIPE�NAME 6135ˆPAGEƒ 6130�LOTNR4�JMP„JOB00„RETURN�TO�JOBSELECTION 6125ˆBNE„LOTNR3 6120ˆDEC„R3 6115ˆSTX„OUTPUT 6110ˆINX 6105ˆSTAAƒ0,X 6100ˆLDX„OUTPUT 6095�LOTNR3�LDAAƒ#$20…FILL�REMAINDER�WITH�CHARACTERS 6090�* 6085ˆRETURN�LOTNR2 6080ˆBEQ„LOTNR4ƒBRANCH�IF�MAX.�NUMBER�LENGTH�IS�ENTERED 6075ˆDEC„R3 6070ˆSTX„OUTPUT 6065ˆINX 6060ˆSTAAƒ0,X 6055ˆLDX„OUTPUT 6050ˆJSR„OUTCH 6045ˆBEQ„LOTNR3ƒBRANCH�IF�CR 6040�LOTNR2�CMPAƒ#CR 6035ˆBEQ„LOTNR4ƒBRANCH�IF�DONE 6030�LOTNR5�CMPAƒ#CR 6025�* 6020�*�ENTER�HERE�AFTER�KEY�ENTRY 6015�* 6010ˆRETURN�LOTNR5 6005ˆSTABƒR3 6000�LOTNR1�STX„OUTPUT 5995ˆLDABƒ#15†MAX�15�CHAR. 5990ˆINX 5985ˆSTABƒ0,X†PUT�SPACE�BEFORE�THE�LOT�NR 5980ˆDEX 5975ˆLDX„RECIPE 5970ˆLDABƒ#$20 5965ˆJSR„PDATA 5960ˆLDX„#M33…/NEW�NUMBER:/ 5955ˆJSR„PDATA1 5950ˆLDX„#DSPBUF 5945ˆSTAAƒDSPBUF+15 5940ˆLDAAƒ#4 5935ˆMOVEƒRECIPE,DSPBUF,15 5930ˆSTX„RECIPE 5925ˆJSR„AXA 5920ˆLDAAƒ#9‡SKIP�FIRST�9�BYTES�IN�RECIPE�HEADER 5915ˆLDX„RECIPE 5910ˆJSR„PDATA1 5905ˆLDX„#M32…/LOT�NUMBER:/ 5900ˆJSR„CLRALL 5890�LOTNR‚EQU„*ˆC8 HANGES�THE�LOTNR 5885ˆPAGE 5880ˆJMP„SPRECPƒCHANGE�THE�SETPOINTS 5875ˆSTX„EDVECT 5870ˆLDX„#RCEDIT‚RETURN�ADDRESS 5865ˆSTAAƒRFLAG„SET�FLAG�FOR�RECIPE�CHANGE 5860ˆLDAAƒ#1 5855ˆSTX„OUTPUTƒADDRESS�OF�DATA 5850ˆJSR„AXA 5845ˆLDAAƒ#AIN04ƒOFFSET�IN�STEP 5840ˆLDX„STEPPT 5835�*�SETPOINT�CHANGE 5830ˆBNE„RCP10„TRY�AGAIN 5825�RCP8ƒDECA 5820ˆJMP„CHDO…CHANGE�THE�DIGITAL�OUTPUTS 5815ˆSTX„EDVECT 5810ˆLDX„#RCEDIT‚RETURN�ADDRESS 5805ˆSTX„OUTPUTƒADDRESS�OF�DATA 5800ˆJSR„AXA 5795ˆLDAAƒ#DOMSK1‚OFFSET�IN�STEP�OF�D.O.'S 5790ˆLDX„STEPPT 5785�*�DIGITAL�OUTPUTS 5780ˆBNE„RCP8‚ 5775�RCP7ƒDECA 5770�RCP10‚JMP„RCEDITƒEXIT�FROM�THIS�STEP 5765ˆSTAAƒ2,X 5760ˆLDAAƒNUMBER+1 5755ˆSTAAƒ1,X†AND�STORE�IT� 5750ˆLDAAƒNUMBER 5745ˆLDX„STEPPT 5740ˆBNE„STTIMEƒBRANCH�IF�TIME�NOT�OK 5737ˆCMPAƒ#'Y 5736ˆBEQ„RCP10„EXIT�WITHOUT�TIME�CHANGE 5735�RCP6C‚CMPAƒ#$D 5730ˆJMP„CHTIMEƒGET�NEW�ENTRY 5725ˆSTX„EDVECT 5720ˆLDX„#RCP6CƒRETURN�ADDRESS 5715ˆSTX„SECOND 5710ˆLDX„1,X†GET�TIME�ENTRY 5705�STTIME�LDX„STEPPT 5700�*�CHANGE�THE�TIME�IN�A�STEP 5695ˆJMP„RCP7…CHECK�FOR�D.O.�CHANGE 5690ˆBEQ„STTIMEƒBRANCH�IF�TIME�CHANGE 5685ˆDECA 5680ˆPULA 5675ˆJSR„CLRDSP 5670ˆCURPOS�LINE2,0 5665ˆPSHA 5660ˆBLT„RCP6…TRY�AGAIN 5655�RCP6B‚SUBAƒ#$30 5650ˆJMP„RCEDITƒEXIT�FROM�THIS�STEP 5645ˆBNE„RCP6B 5640�RCP6A‚CMPAƒ#CR 5635�* 5630�*�ENTER�HERE�AFTER�KEY�ENTRY 5625�* 5620ˆRETURN�RCP6A 5605ˆJSR„PDATA 5600ˆLDX„#M16…/(1)�TIME�ETC.�/ 5595ˆJSR„STEPNRƒDISPLAY�STEPNR 5590ˆPARAM‚#0,STEPNO,#DSPBUF 5585ˆJSR„PDATA1 5580ˆLDX„#M4†/‚STEP�/ 5575ˆJSR„CLRDSP 5570�RCP6ƒCURPOS�LINE1,0 5565�* 5560ˆSTX„STEPPT 5555ˆJSR„ADDRPTƒADD�B-1�TIMES�A�TO�X�REG 5550ˆLDAAƒ#STPLEN 5546ˆINCBŒADJUST�STEPNO�FOR�ADDRPT�ROUTINE 5545ˆLDABƒSTEPNO 5540�RCP4ƒINX 5535�*�COMPUTE�START�ADDRESS�OF�THE�STEP 5530ˆJMP„RCP1…TRY�AGAIN 5520�RCP3A‚JSR„PDATA 5515�RCP3ƒLDX„#M7†/INCORRECT�ENTRY/ 5510ˆBRA„RCP3A� 5505ˆLDX„#M23…/TOO�LARGE�A�NR/ 5500ˆBGT„RCP4…BRANCH�IF�STEPNR�IS�OK 5495ˆSBA 5490ˆLDAAƒ0,X†GET�TOTAL�NR�OF�STEPS 5485ˆJSR„AXA 5480ˆLDAAƒ#TOTSTP‚OFFSET�TO�TOTAL�STEPNR�BYTE�IN�THE�HEADER 5475ˆLDX„RECIPE‚ 5470ˆSTABƒSTEPNO 5465ˆBNE„RCP3…ERROR 5460ˆTSTA 5455ˆJSR„BCDBINƒCHANGE�ENTRY�TO�BINARY 5450�RCP2ƒLDABƒVAL1+1 5445ˆJMP„JOB00„EXIT�TO�JOBSELECTION 5440ˆBNE„RCP2…BRANCH�IF�NO�EXIT�REQUESTED 5435ˆCMPAƒ#CR 5430ˆLDAAƒVAL1 5425�RCP1A‚BVS„RCP3…ERROR 5420ˆJMP„INSTEPƒGET�STEPNR 5405ˆJSR„PDATA1 5400�RCP1ƒLDX„#M27…/ENTER�STEP�NR/ 5395ˆJSR„CLRALL 5385�RCEDIT�EQU„*ˆRECIPE�EDITOR 5380ˆPAGE 5375�CONLC3�RTS 5370ˆCLC�NO�ERRORS 5365ˆBNE„CONLC1ƒBRANCH�FOR�NEXT�D.O. 5360ˆDEC„R1‡ 5355�CONLC2�ADDA2X�#CNST10,TEMPX 5350ˆBCS„CONLC3ƒBRANCH�IF�COND.�INTERLOCK�ERROR 5345ˆJSR„TSTBIT 5340ˆLDX„BUFPTRƒPOINT�TO�DATA 5335ˆLDABƒ0,X†GET�D.O.�NR�TO�CHECK�ITS�VALUE 5330ˆBNE„CONLC2ƒBRANCH�IF�NOT�COND.�INTERLOCK 5325ˆCMPBƒSAVE1„D.O.�NR�OF�DO�TO�BE�CHANGED 5320�CONLC1�LDABƒ9,X†COND.�INTERL.�NR 5315ˆSTX„TEMPX„POINTS�TO�D.O.�NR 5310ˆINX 5305ˆSTABƒR1‡TOTAL�NR.�OF�D.O.'S 5300ˆLDABƒ0,X 5295ˆLDX„SYSTAB+10�THE�CONDITIONAL�INTERLOCK�ARE�IN�THE�SYSTEMFILE 5290�*�D.O.'S�WHEN�A�D.O.�IS�DEACTIVATED 5285�CONLCK�EQU„*ˆCHECKS�THE�CONDITIONAL�INTERLOCKS�OF�THE�OTHER 5280ˆSPC„3 5275�LOCK4‚RTS 5270�LOCK3‚SEC�INTERLOCK�ERROR 5265ˆRTS 5260ˆCLC 5255ˆBCC„LOCK3„COMPLEMENT�THE�CARRY�BIT 5250ˆJSR„TSTBITƒTEST�OTHER�D.O. 5245ˆLDX„BUFPTR 5240ˆBEQ„LOCK4„NO�CONDIT.�INTERLOCK 5235�LOCK2‚LDABƒ9,X†GET�COND.�INTERLOCK�NR 5230ˆLDX„SAVEX„POINTER�TO�SYSTAB�ENTRY 5225ˆBCS„LOCK4„BRANCH�IF9 �CARRY�SET�DUE�TO�INTERLOCK�ERROR 5220ˆJSR„TSTBITƒTEST�OTHER�D.O. 5215ˆLDX„BUFPTR 5210ˆBEQ„LOCK2„NO�INTERLOCK 5205ˆLDABƒ8,X†GET�INTERLOCK�NR 5200ˆCLC 5195ˆSTX„SAVEX 5190�*�X�POINTS�TO�DO�NR�IN�SYSTEMFILE 5185�LOCKƒEQU„*ˆCHECKS�THE�INTERLOCK�AND�CONDIT.�INTERLOCK 5180ˆSPC�3ƒ 5175ˆJMP„CHDO1 5170ˆJSR„PCRLF 5165ˆJSR„PDATA1 5160ˆLDX„#M24…/INTERLOCK�ERROR/ 5155ˆJSR„LEFT 5150�CHDO24�LDABƒ#6 5145ˆJMP„CHDO6„TRY�AGAIN 5140ˆJSR„LEFT…CURSOR�1�POSITION�LEFT 5135ˆLDABƒ#1 5130ˆJSR„OUTCH 5125�CHDO23�LDAAƒ#'? 5120�*�ERROR 5115ˆJMP„XˆRETURN�TO�NEXT�LEVEL�SUBROUTINE 5110�CHDO22�LDX„EDVECT 5105ˆJSR„BUFBUFƒMOVE�DATA�TO�CORRECT�MEMORY 5100ˆSTX„LENGTH 5095ˆLDX„#6‡LENGTH�OF�DATA�RECORD 5090ˆSTX„DESTIN 5085ˆLDX„OUTPUT 5080ˆSTX„SOURCE 5075�CHDO21�LDX„#DIGOUT‚NEW�VALUES�IN�THE�OUTPUTFIELD 5070ˆJMP„CHDO…TRY�AGAIN 5065ˆBEQ„CHDO21ƒBRANCH�IF�OK 5060�CHDO20�CMPAƒ#'Y 5055�* 5050�*�ENTER�HERE�AFTER�KEY�ENTRY 5045�* 5040ˆRETURN�CHDO20 5035ˆJSR„PDATA 5030�CHDO19�LDX„#M25…/ALL�CHANGES�OK?/ 5025ˆJMP„CHDO1„NEXT�OUTPUTS 5020ˆJSR„PCRLF 5015�CHDO18�INC„DOBYTE 5010ˆJMP„CHDO6„NEXT�OUTPUT 5005ˆADDA2X�#CNST10,POINTR� 5000ˆBEQ„CHDO18ƒBRANCH�IF�DONE�WITH�THIS�LINE 4995ˆDEC„R6‚ 4990�CHDO17�JSR„SPACE 4985ˆLDABƒ#3 4980ˆJSR„SETBITƒSET�CORRECT�DIGITAL�OUTPUT�BIT 4975ˆJSR„TSTBITƒGET�THE�D.O.�BIT�IN�THE�CARRY 4970ˆLDX„#DIGOUT‚POINT�TO�DATA 4965�CHDO13�LDABƒSAVE1„DO�NR. 4960ˆJMP„CHDO24ƒINTERLOCK�ERROR 4955�CHDO12�BCC„CHDO13ƒBRANCH�IF�NO�ERRORS 4950�CHDO11�JSR„CONLCKƒCHECK�THE�CONDITIONAL�INTERLOCKS 4945ˆBRA„CHDO12 4940ˆJSR„LOCK…CHECK�THE�INTERLOCK 4935ˆBEQ„CHDO11ƒBRANCH�IF�1�TO�0�TRANSITION�FOR�THE�D.O. 4930ˆTST„R0 4925ˆLDX„POINTR 4920ˆSTX„BUFPTRƒDATA�POINTER 4915ˆLDX„#DIGOUT 4910�CHDO10�JSR„PDATA1 4905ˆJMP„CHDO23ƒBRANCH�IF�ERROR 4900ˆBEQ„CHDO10 4895ˆCMPAƒ#'O 4890ˆSTABƒR0 4885ˆANDBƒ#$01… 4880ˆCOMBŒCOMPLEMENT�R0,�BIT�0 4875ˆLDABƒR0 4870ˆLDX„#M17…/OPEN/ 4865ˆBEQ„CHDO10ƒDISPLAY�CLOSED 4860ˆCMPAƒ#'C 4855ˆLDX„#M18…/CLOSED/ 4850ˆPULA 4845ˆSTABƒR0 4840ˆLDABƒ7,X†DO�TYPE 4835ˆSTABƒSAVE1„DO�NR 4830ˆLDABƒ0,X 4825ˆLDX„POINTR 4820ˆPSHA 4815ˆBEQ„CHDO17ƒBRANCH�FOR�NEXT�DO 4810ˆCMPAƒ#$20…SPACE 4805�CHDO7‚LDABƒ#9 4800ˆJMP„CHDO18ƒJMP�FOR�NEXT�8�D.O.'S�OR�EXIT 4795ˆBNE„CHDO7„ 4790�CHDO8‚CMPAƒ#$D†CR? 4785�* 4780�*�ENTER�HERE�AFTER�KEY�ENTRY 4775�* 4770�CHDO6‚RETURN�CHDO8 4765ˆSTX„POINTRƒPOINT�TO�DO�NR 4760ˆDEX 4755ˆLDX„TEMPX 4750ˆJSR„PCRLF 4745ˆJSR„NAMDSP 4740ˆSTX„TEMPX 4735ˆSTAAƒCOUNT„MAXIMUM�IS�8 4730�CHDO5‚STAAƒR6‡USED�AS�COUNTER 4725ˆLDAAƒ#8 4720ˆBLT„CHDO5„NR�OF�DO'S�TO�BE�DISPLAYED�YET 4715�CHDO4‚CMPAƒ#8 4710�CHDO3A�JMP„CHDO19ƒALL�DO'S�DONE 4705ˆBGT„CHDO4 4700�CHDO3‚LDAAƒCOUNT 4695ˆBRA„CHDO2 4690ˆSTAAƒCOUNT 4685ˆSUBAƒ#8 4680ˆLDAAƒCOUNT 4675ˆADDA2X�#CNST80,POINTR�POINT�X�TO�CORRECT�ENTRY 4670ˆBEQ„CHDO3 4665�CHDO2‚DECB 4660ˆBEQ„CHDO3AƒBRANCH�IF�DONE 4655ˆCMPBƒ#7‡ 4650ˆLDABƒDOBYTE 4645�CHDO1‚INITƒSYSTAB+10,CNST10 4640ˆJSR„CLRDSP 4635ˆCURPOS�LINE15,0 4630ˆMOVEƒOUTPUT,DIGOUT,6 4625ˆSTAAƒDOBYTEƒUSED�AS�COUNTER 4620ˆLDAAƒ#1¨ 4615ˆJSR„DOVAL 4610ˆCURPOS�LINE3,0 4605ˆJSR„NAMDSPƒDISPLAY�DIGITAL�OUTPUTS 4600ˆINITƒSYSTAB+10,CNST10 4595�*�ENTERED�WITH�ADDRESS�OF�OUTPUT�DATA�IN�OUTPUT 4590�CHDOƒEQU„*ˆCHANGES�THE�DIGITAL�OUTPUTS�IN�THE�STATUS 4585ˆPAGE 4289ˆJMP„CHTM00ƒTRY�AGAIN 4288ˆJSR„PDATA 4287�CHTM12�LDX„#M7†/INCORRECT�ENTRY/ 4286�* 4285ˆJMP„X 4284�CHTM11�LDX„EDVECTƒRETURN�ADDRESS 4283�* 4282�*�ENTER�HERE�AFTER�KEY�ENTRY 4281�* 4280ˆRETURN�CHTM11 42: 79ˆJSR„PDATA 4278ˆLDX„#M25…/CHANGES�OK?�/ 4277ˆSTX„NUMBER 4276ˆJSR„TIMSECƒRESULT�IN�A,B�AND�IN�X 4275ˆLDX„#NUMBER 4274ˆBLT„CHTM12ƒBRANCH�IF�>�59�SECONDS 4273ˆCMPAƒ4,X 4272ˆBLT„CHTM12ƒBRANCH�IF�>�59�MINUTES 4271ˆCMPAƒ2,X 4270�CHTM10�LDAAƒ#5 4269ˆBLT„CHTM12ƒBRANCH�IF�TIME�>�17�HOURS 4268ˆCMPAƒ1,X 4267ˆLDAAƒ#7 4266ˆBNE„CHTM10ƒBRANCH�IF�TIME�<�10�HOURS 4265ˆBLT„CHTM12ƒBRANCH�IF�TIME�>�19�HOURS 4264ˆCMPAƒ0,X 4263ˆLDAAƒ#1 4262�CHTM09�LDX„#NUMBER 4261�*�TEST�IF�ENTRIES�ARE�CORRECT 4260ˆRETURN�CHTM03 4259�CHTM08�JSR„OUTCH„DISPLAY�. 4258ˆRETURN�CHTM08ƒSKIP�THE�.�IN�THE�ENTRY 4257ˆBEQ„CHTM09ƒBRANCH�IF�HH.MM.SS�ARE�ENTERED 4256ˆDEC„R1 4255ˆSTX„TEMP1 4254ˆINX 4253ˆINX 4252ˆSTAAƒ1,X 4251ˆLDX„TEMP1 4250�CHTM06�BVS„CHTM12ƒINCORRECT�ENTRY 4249�CHTM05�JSR„INDEC 4248�* 4247�*�ENTER�HERE�AFTER�KEY�ENTRY 4246�* 4245ˆRETURN�CHTM05 4244ˆSTX„TEMP1 4243ˆSTAAƒ0,X 4242�CHTM04�LDX„TEMP1 4241ˆBVS„CHTM06ƒINCORRECT�ENTRY 4240�CHTM03�JSR„INDEC„CHECK�IF�DECIMAL�CHARCTER 4239�* 4238�*�ENTER�HERE�AFTER�KEY�ENTRY 4237�* 4236ˆBRA„CHTM04 4235ˆBEQ„CHTM11ƒBRANCH�TO�EXIT�IF�CR 4234ˆCMPAƒ#$D† 4233ˆBVS„CHTM06ƒINCORRECT�ENTRY 4232�CHTM01�JSR„INNR…CHECK�IF�DECIMAL�CHARCTER�OR�CR 4231�* 4230�*�ENTER�HERE�AFTER�KEY�ENTRY 4229�* 4228ˆRETURN�CHTM01 4227ˆSTABƒR1‡COUNTER 4226ˆLDABƒ#3 4225ˆSTX„TEMP1 4224ˆLDX„#NUMBER 4223ˆJSR„PDATA� 4222�CHTM00�LDX„#M21…/NEW�TIME�=/ 4221ˆJSR„PDATA1 4220ˆLDX„#DSPBUF 4219ˆJSR„TIMCVT‚CONVERT�OLD�TIME�TO�DISPLAY�FORMAT 4218ˆJSR„PDATA1 4217ˆLDX„#M20…/TIME�=�/ 4216�*�ENTERED�WITH�THE�OLD�TIME�IN�SECOND;�NEW�TIME�IN�VAL1,X,NUMBER 4215�CHTIME�EQU„*ˆDISPLAYS�THE�TIME�AND�GETS�THE�NEW�VALUE 4210ˆPAGE 4209ˆJMP„SPSTATƒCHANGE�DESIRED�SETPOINTS 4208ˆINC„SPFLAG 4207ˆSTX„OUTPUT 4206ˆLDX„#AIMIR+6�START�ADDRESS�OF�DATA 4205ˆBNE„EDITSTƒINCORRECT�ENTRY 4200�EDIT04�DECA 4195ˆJMP„CHDO…CHANGE�DESIRED�DIGITAL�OUTPUTS 4190ˆSTX„OUTPUT 4185ˆLDX„#DOMIRƒSTART�ADDRESS�OF�THE�DATA 4180ˆBNE„EDIT04ƒBRANCH�FOR�SETPOINT�CHANGE 4175ˆDECA 4170ˆCLR„RFLAG 4165ˆSTX„EDVECTƒRETURN�VECTOR 4160�EDIT03�LDX„#EDIT02 4155ˆJMP„JOB00 4151�EDIT02�CLR„SPFLAGƒEND�OF�SETPOINT�CHANGE�IN�STATUS 4150ˆSTX„TIME+1 4145ˆLDX„NUMBERƒREPLACE�OLD�TIME�WITH�NEW�TIME 4140ˆBNE„EDIT01ƒBRANCH�IF�NOT�SURE 4135ˆCMPAƒ#'Y 4132ˆBEQ„EDIT02ƒEXIT�WITHOUT�TIME�CHANGE 4131�EDIT1A�CMPAƒ#$D 4130ˆJMP„CHTIMEƒDISPLAY�AND�GET�THE�TIME�CHANGE 4125ˆSTX„EDVECTƒRETURN�VECTOR 4120ˆLDX„#EDIT1A 4115ˆSTX„SECOND 4110�EDIT01�LDX„TIME+1 4105�*�TIME�CHANGE 4100ˆBNE„EDIT03ƒBRANCH�IF�DIG.�OUTPUT�CHANGE 4095ˆBLT„EDITSTƒINCORRECT�ENTRY 4090ˆSUBAƒ#$31 4085ˆPULA 4080ˆJSR„CLRDSP 4075ˆCURPOS�LINE2,0 4070ˆPSHA 4065ˆBEQ„EDIT02ƒBRANCH�IF�CR;�EXIT 4060�EDIT00�CMPAƒ#CR 4055�* 4050�*�ENTER�HERE�AFTER�KEY�ENTRY 4045�* 4040ˆRETURN�EDIT00 4025ˆJSR„PDATA1 4020ˆLDX„#M19…STATUS�CHANGE�SELECTION 4015ˆJSR„CLRALL 4005�EDITST�EQU„*ˆSTATUS�EDITOR 4000ˆPAGEƒ 3995�DOVAL9�RTS 3990ˆBRA„DOVAL1 3985ˆSTAAƒCOUNT1 3980ˆLDAAƒ#8 3975ˆJSR„PCRLF 3970ˆJSR„PCRLF 3965ˆBNE„DOVAL1 3960ˆDEC„COUNT1 3955ˆADDA2X�#CNST10,POINTR 3950ˆJSR„SPACE 3945ˆLDABƒ#3 3940ˆBEQ„DOVAL9 3935ˆDEC„COUNT 3925�DOVAL6�JSR„PDATA1 3920ˆLDX„#M17…/OPEN/�N.O.�OUTPUT 3915ˆBEQ„DOVAL6ƒBRANCH�IF�N.C.�OUTPUT 3910ˆLDAAƒR5 3905�DOVAL4�LDX„#M18…/CLOSED/ 3900ˆBRA„DOVAL6ƒ 3895ˆLDX„#M18…/CLOSED/�NORMALLY�OPEN�OUTPUT 3890ˆBEQ„DOVAL6ƒBRANCH�IF�NORMALLY�CLOSED�OUTPUT 3885ˆLDAAƒR5 3880ˆLDX„#M17…/OPEN/ 3875ˆBCC„DOVAL4ƒBRANCH�IF�D.O.�=0 3870ˆJSR„GETBIT 3865ˆJSR„AXA 3; 860ˆLDAAƒR4 3855ˆLDX„OUTPUT 3850ˆSTAAƒR5 3845ˆLDAAƒ7,X†GET�D.O.�TYPE 3840�DOVAL3�STAAƒR4 3835ˆBRA„DOVAL2 3830ˆINCA 3825ˆBLE„DOVAL3ƒBRANCH�IF�OFFSET�IS�CORRECT 3820ˆSUBBƒ#8 3815�DOVAL2�STABƒBLOOP„DO�NR�IS�STORED�IN�BLOOP�MODULO�8 3810ˆCLRA 3805ˆLDABƒ0,X†GET}€} À�0010ˆNAM„ACCESSƒ 0015ˆOPT„LLEN=120,REL 0020ˆSPC„3 0025ˆXDEFƒTUBACC,INITTA,POINTR,JOB00 0026ˆXDEFƒCONLCK,DSPAI,DSPAO,LOCK,M23,M24,M25,M31,M7,M38 0027ˆXDEFƒNAMAO,NAMDSP,SETBIT,TSTBIT,INIT1,INIT2 0030ˆXDEFƒRFLAG,STEPPT,COUNT,COUNT1,TEMPX,VALVE,DOBYTE,TEMP1,SAVEX 0035ˆXDEFƒSAVE1,BUFPTR,BLOOP,R0,R1,R2,R5,R6,R7,DVECTR,EDVECT,OFFSET 0040ˆXDEFƒOUTPUT,EXIT,RCEDIT,EDIT02 0045ˆSPC„1 0050ˆXREFƒPDATA,PDATA1,OUTCH,PCRLF,PCRLF3,SPACE,SCROLL,CLRDSP,LEFT 0055ˆXREFƒNOBLNK,BLINK,CURSOR,TOSCR,BOSCR,CLRALL 0060ˆXREFƒCVTSP,CVTNUM,INT2FP,IPOLR,IPOL,TIMCVT,TIMSEC,BCDBIN 0065ˆXREFƒBINBCD,NUMBER,FACTOR,SECOND,BUFADD,DSPBUF,BUFFER 0070ˆXREFƒDIV4,DIVID,DIVISR,RCPTR1,RCPTR2,RCPTR3,SYSTAB 0075ˆXREFƒFPDIV,FPMUL,FIX,HSMUL,MUL1,MUL2,DISPTM,R3,R4 0080ˆXREFƒAXA,CPBAX,BUFBUF,SOURCE,DESTIN,LENGTH,COMMND,TUBRDY 0085ˆXREFƒIMTC1,TIME,CURSTP,ACTIV,AIMIR,AOMI1,DIMIR,DOMIR,ABSTAT 0090ˆXREFƒALSTAT,HLSTAT,TCERR,ABVEC 0095ˆXREFƒSPFLAG,SPSTAT,SPRECP,FNDAO,AOVAL,ADDRPT 0100ˆSPC„3 0105�DSTIME�EQU„10‡5�SECOND�REFRESH�TIME 0110ˆBSCT 0115ˆSPC„1 0120�R0…RMB„1 0125�R1…RMB„1 0130�R2…RMB„1 0135�R5…RMB„1 0140�R6…RMB„1 0145�R7…RMB„1 0150�POINTR�RMB„2 0155�OFFSET�RMB„1 0160�BUFPTR�RMB„2ˆADDRESS�OF�BUFFER 0165�DVECTR�RMB„2ˆJUMP�VECTOR�FOR�INTERRUPT�SERVICE�ROUTINE 0170�EDVECT�RMB„2ˆRETURN�VECTOR�TO�HIGHER�LEVEL�'SUBROUTINES' 0175�COUNT‚RMB„1ˆCOUNTER 0180�COUNT1�RMB„1ˆIDEM 0185�OUTPUT�RMB„2 0190�RECIPE�RMB„2ˆADDRESS�OF�RECIPE�POINTER�TO�RECIPE�1,2�OR�3 0195�RCPPTR�RMB„2ˆADDRESS�OF�RECIPE�BEING�EXECUTED 0200�STEPPT�RMB„2ˆSTARTADDRES�OF�A�STEP 0205�SAVEX‚RMB„2 0210�TEMPX‚RMB„2 0215�TEMP1‚RMB„2 0220�VAL1ƒRMB„2 0225�UPDATE�RMB„1ˆ1�=�UPDATE�STATUS�DISPLAY 0230�MEMOƒRMB„4 0235�RFLAG‚RMB„1ˆRECIPE�=�1/STATUS�=0 0240�DIGOUT�RMB„6 0245�VALVE‚RMB„1 0250�BLOOP‚RMB„1 0255�DOBYTE�RMB„1 0260�STEPNO�RMB„1 0265�SAVE1‚RMB„1 0270ˆSPC�3ƒ 0275�*******�MACRO�DEFINITIONS�******* 0280�* 0285�*�MACRO�WHICH�SETS�INTITIAL�PARAMETERS�FOR�NAME�DISPLAY; 0290�*�ARGUMENTS�ARE�THE�SYSFILE�POINTER�AND�THE�OFFSET�IN�AN�ENTRY� 0295�INITƒMACR 0300ˆLDX„\0 0302ˆLDAAƒ#\1 0303ˆJSR„INIT1 0340ˆENDM 0345ˆSPC„2 0350�*�THIS�MACRO�SENDS�CURSOR�INSTRUCTIONS�TO�THE�CRT 0355�*�THE�SPECIFIED�ARGUMENT�IS�THE�LINE�NUMBER 0360�*�OF�THE�INSTRUCTION,�FOLLOWED�BY�THE�POSITION�ON�THE�LINE 0365�*�IT�CALLS�BLINK�TO�PUT�CURSOR�ON�SCREEN 0370�CURPOS�MACR 0375ˆJSR„NOBLNK 0380ˆLDX„#\0 0385ˆLDAAƒ#\1 0390ˆJSR„AXA 0395ˆJSR„BLINK 0400ˆENDM 0405ˆPAGEƒ 0410�*�MACRO�MOVE�SETS�THE�PARAMETERS�FOR�BUFBUF�AND�CALLS�BUFBUF 0415�*�THE�ARGUMENTS�ARE�SOURCE�POINTER,�DESTINATION,�LENGTH�OF�DATASTRING 0420�MOVEƒMACR 0425ˆLDX„\0 0430ˆSTX„SOURCE 0435ˆLDX„#\1 0440ˆSTX„DESTIN 0445ˆLDX„#\2� 0450ˆSTX„LENGTH 0455ˆJSR„BUFBUF 0460ˆENDM 0465ˆSPC„2 0470�*�MACRO�TO�PUT�VALUES�IN�A,�B�AND�X�REGISTER 0475�PARAM‚MACR 0480ˆLDAAƒ\0 0485ˆLDABƒ\1 0490ˆLDX„\2 0495ˆENDM 0500ˆSPC„2 0505�*�MACRO�WHICH�ADDS�OFFSET�TO�POINTER;�RESULT�IN�POINTER�AND�X 0510�ADDA2X�MACR 0515ˆLDAAƒ\0 0520ˆLDX„\1 0525ˆJSR„AXA 0530ˆSTX„\1 0535ˆENDM 0540ˆSPC„3 0545�*�MACRO�WHICH< �PUTS�RETURN�ADDRESS�FOR�KEYBOARD�ENTRY�IN�DVECTR 0550�*�ARGUMENT�IS�RETURN�ADDRESS 0555�RETURN�MACR 0560ˆLDX„#\0 0565ˆSTX„DVECTR 0570ˆRTS 0575ˆENDM 0580ˆPAGE 0585ˆPSCT 0590ˆSPC„1 0595�TUBACC�EQU„*ˆENTRY�FOR�TUBE�LEVEL�ACCESS�FROM�MAIN�TUBE� 0600�*�CONTROLLER�SOFTWARE 0605ˆTSTAŒCHECK�KEYBOARD�ENTRY 0610ˆBEQ„TUB01„BRANCH�IF�NO�CHARACTER 0615ˆLDX„DVECTRƒ 0620ˆJMP„XˆJUMP�TO�KEY�HANDLING�ROUTINE 0625�TUB01‚TST„UPDATE 0630ˆBEQ„EXIT…BRANCH�IF�NOT�STATUS�DISPLAY 0635ˆTST„DISPTM 0640ˆBNE„EXIT…BRANCH�IF�NO�UPDATE�YET 0645ˆJSR„DSHEADƒSTATUS�HEADER�REFRESH 0650ˆJSR„DSPVALƒSTATUS�DISPLAY�REFRESH 0655ˆLDAAƒ#DSTIMEƒRESET�THE�DISPLAY�REFRESH�COUNTER 0660ˆSTAAƒDISPTM 0665�EXITƒRTS 0670ˆSPC„3 0675�JOB00‚EQU„*ˆJOB�SELECTION�FOR�TUBE�ACCESS 0685ˆJSR„CLRALL 0690ˆCLR„UPDATEƒNO�TUBE�STATUS�DISPLAY 0695�JOB01‚LDX„#M1†/JOB�SELECTION�ETC./ 0700ˆJSR„PDATA 0705�JOB11‚LDX„#M30…/YOUR�SELECTION�:�/ 0710ˆJSR„PDATA 0715ˆRETURN�JOB02 0720�* 0725�*�ENTER�HERE�AFTER�KEY�ENTRY 0730�* 0731�JOB02‚CMPAƒ#$38…A�HAS�KEYBOARD�ENTRY 0732ˆBGE„JOB09„INCORRECT�ENTRY 0735ˆSUBAƒ#$31…A�HAS�KEYBOARD�ENTRY 0740ˆBLT„JOB09„INCORRECT�ENTRY 0741ˆCMPAƒ#4 0742ˆBLT„JOB07„BRANCH�IF�FIRST�4�FUNCTIONS 0743ˆSTAAƒR3‡TEMP�STORAGE 0744�*�ASK�WHICH�RECIPE�HAS�TO�BE�CHANGED�(1,2,3) 0746ˆLDX„#M36…/ENTER�STEP�NR/ 0748ˆJSR„PDATA 0750ˆLDX„#M30…/YOUR�SELECTION�:�/ 0752ˆJSR„PDATA 0754ˆRETURN�JOB04 0756�* 0758�*�ENTER�HERE�AFTER�KEY�ENTRY 0760�* 0762�JOB04‚JSR„INDEC„CHECK�IF�IT�IS�A�NUMBER 0764ˆBVS„JOB09„BRANCH�IF�NOT�A�NUMBER 0766ˆLDX„#RCPTR1‚RECIPE�POINTER 0768ˆDECA 0770ˆBEQ„JOB06„BRANCH�IF�RECIPE�1�SELECTED 0772ˆLDX„#RCPTR2‚RECIPE�POINTER 0774ˆDECA 0776ˆBEQ„JOB06„BRANCH�IF�RECIPE�2�SELECTED 0778ˆLDX„#RCPTR3‚RECIPE�POINTER 0780ˆDECA 0782ˆBNE„JOB09„BRANCH�IF�ERROR 0784�JOB06‚LDABƒ0,X 0786ˆTSTB 0788ˆBEQ„JOB09„BRANCH�IF�ERROR 0790ˆINX 0792ˆLDX„0,X†GET�ADRESS�OF�START�OF�RECIPE 0794ˆSTX„RECIPEƒPOINTER�FOR�THE�RECIPE�EDITOR 0796ˆLDAAƒR3 0798�JOB07‚LDX„#JOBTAB 0799ˆASLA 0800ˆJSR„AXA 0801ˆLDX„0,X†GET�STARTING�ADDRESS�OF�REQUESTED�FUNCTION 0802ˆJMP„X†EXECUTE�SELECTED�FUNCTION;�RETURN�IS�ALWAYS�TO�JOB00 0803�* 0804�JOB09‚LDX„#M7†INCORRECT�ENTRY 0805ˆJSR„PDATA 0806ˆJMP„JOB01 0807�* 0808�JOBTAB�FDB„DSPTUB 0809ˆFDB„DSPDO 0810ˆFDB„EDITST 0811ˆFDB„COMMND 0812ˆFDB„RCEDIT 0813ˆFDB„LOTNR 0814ˆFDB„RCNAME 1010ˆPAGEƒ 1015�INITTA�EQU„*ˆINITIALISATION�OF�TUBE�LEVEL�ACCESS�VARIABLES 1040ˆLDX„#LINE1ƒINITIATE�CURSOR�TO�LINE�1 1045ˆSTX„TOSCR„INITIATE�TOP�OF�SCREEN�TO�LINE�1 1050ˆLDX„#LINE25 1055ˆSTX„BOSCR„POINTS�AT�FIRST�LINE�PAST�THE�SCREEN 1056ˆCLR„TUBRDYƒCOMMUNICATION�COMMAND�FLAG 1065ˆJSR„DSPTUBƒDISPLAY�STATUS 1070ˆRTS 1071ˆSPC„3 1072�INIT1‚EQU„*ˆSETS�THE�PARAMETERS�SPECIFIED�BY�THE�MACRO 1073ˆLDABƒ0,X†INIT�IN�THE�CORRECT�POSITIONS 1074ˆSTABƒCOUNT 1075ˆINX 1076ˆINX 1077ˆSTX„POINTR 1078ˆSTAAƒOFFSET 1079ˆRTS 1080ˆSPC„3 1081�INIT2‚EQU„*ˆSETS�THE�PARAMETERS�TO�DISPLAY�VALUES�WITH� 1082ˆLDAAƒ0,X† 1083ˆINX�SYSTAB 1084ˆSTX„POINTR 1085ˆLDABƒ#8 1093ˆSTABƒCOUNT1 1095ˆSTAAƒCOUNT 1096ˆRTS 1097ˆPAGE 1098�DSPTUB�EQU„*ˆDISPLAYS�THE�TUBE�STATUS;�NOT�ON�INTERRUPT�BASIS 1099ˆLDAAƒ#1 1100ˆSTAAƒUPDATE 1101ˆJSR„CLRALLƒCLEAR�DISPLAY 1102ˆCLR„SPFLAGƒNO�CHANGES�IN�RECIPE�OR�STATUS 1103ˆCLR„RFLAG 1104ˆJSR„DSHEAD 1105ˆLDX„SYSTAB+8�DIPTR 1106ˆLDAAƒ0,X†NR�OF�DIGITAL�INPUTS 1110ˆCMPAƒ#40 1115ˆBPL„DSPT02ƒBRANCH�IF�>40�DI�ENTRIES�(NO�LF) 1120�*�DISPLAY�THE�TC�NAMES 1125ˆJSR„PCRLF 1130�DSPT02= �INITƒSYSTAB,CNST07 1135ˆLDAAƒ#9 1140ˆSTAAƒCOUNT1 1145ˆJSR„NAMDSP 1150ˆJSR„PCRLF3 1155�*�DISPLAY�THE�ANALOG�INPUT�NAMES 1160ˆINITƒSYSTAB+4,CNST15 1165ˆJSR„NAMDSP 1170ˆJSR„PCRLF 1175ˆJSR„PCRLF 1180�*�ANALOG�OUTPUTS�+�AUX.�TC'S 1190ˆJSR„NAMAO 1205ˆINITƒSYSTAB+2,CNST15 1210ˆJSR„NAMDSP 1215ˆJSR„PCRLF3 1220�*�DIGITAL�INPUTS 1225ˆINITƒSYSTAB+8,CNST07 1230ˆJSR„NAMDSP 1235�*�BOTTOM�LINE 1240ˆJSR„PCRLF 1245ˆJSR„BLINE„ 1250�*�DISPLAY�THE�VALUES 1255ˆJSR„DSPVAL 1260ˆRETURN�JOB00 1265ˆSPC„3 1270�DSPVAL�EQU„*ˆEXISTS�OF�SUBROUTINE�CALLS�FOR�THE�DISPLAY 1275�*–OF�THE�ACTUAL�VALUES 1280ˆCURPOS�LINE3,0 1285ˆLDX„SYSTAB+8�DIPTR 1290ˆLDAAƒ0,X†NR�OF�DIGITAL�INPUTS 1295ˆCMPAƒ#40 1300ˆBPL„DSP01„BRANCH�IF�>40�DIGITAL�INPUTS�HAVE�TO�BE�DISPLAYED 1305ˆJSR„PCRLF 1310�DSP01‚JSR„DSPTC„TC�VALUES 1315ˆJSR„PCRLF3 1325ˆJSR„DSPAI„AI�VALUES 1330ˆJSR„PCRLF 1335ˆJSR„PCRLF 1340ˆJSR„DSPAO„AO�VALUES 1355ˆJSR„DSPAUXƒAUXILIARY�TC�VALUES 1360ˆJSR„PCRLF3 1365ˆJSR„DSPDI„DI�VALUES 1370ˆCURPOS�LINE24,50 1375ˆRTS 1380ˆSPCƒ3 1385�DSHEAD�EQU„*ˆDISPLAY�HEADER 1390ˆCURPOS�LINE1,0 1395ˆLDAAƒACTIV 1400ˆANDAƒ#$03…CHECK�IF�RECIPE�SELECTED 1405ˆBNE„DSHEA1ƒBRANCH�IF�RECIPE�SELECTED 1410�*�PUT�SPACES�IN�DISPLAY 1415ˆLDABƒ#24 1420ˆJSR„SPACE 1425ˆBRA„DSHEA5 1430�DSHEA1�LDX„RCPTR1+1�ADDRESS�OF�RECIPE�1 1435ˆDECAŒ 1440ˆBEQ„DSHEA4 1445ˆLDX„RCPTR2+1�ADDRESS�OF�RECIPE�2 1450ˆDECAƒ 1455ˆBEQ„DSHEA4 1460ˆLDX„RCPTR3+1�ADDRESS�OF�RECIPE�3 1465�DSHEA4�STX„POINTR 1470ˆMOVEƒPOINTR,DSPBUF,24 1475ˆLDAAƒ#4 1480ˆSTAAƒDSPBUF+24 1485ˆLDX„#DSPBUF 1490ˆJSR„PDATA1 1495�* 1500�DSHEA5�LDX„#M2†/STATUS/ 1505ˆJSR„PDATA1 1510ˆJSR„PROCST 1515�* 1520ˆJSR„BOAT…DISPLAY�BOAT�POSITION 1525�* 1530ˆLDX„#M4†/STEP/ 1535ˆJSR„PDATA1 1540ˆPARAM‚#0,CURSTP,#DSPBUF 1545ˆJSR„STEPNR 1550�* 1555ˆLDX„#M5†/TIME/ 1560ˆJSR„PDATA1 1565ˆLDABƒCURSTP 1570ˆBNE„DSHEA6ƒBRANCH�IF�NOT�STEP�0 1575ˆLDABƒABVEC 1580ˆBNE„DSHEA6ƒBRANCH�IF�TIME�DISPLAY 1581ˆLDABƒ#8 1582ˆJSR„SPACEƒPUT�SPACES,�WHEN�TIME�HAS�NO�MEANING 1583ˆBRA„DSHEA7 1585�DSHEA6�LDX„TIME+1ƒPUT�CURRENT�TIME�ENTRY�IN�SECOND 1590ˆSTX„SECOND 1595ˆJSR„TIMCVT 1600ˆLDX„#DSPBUF 1605ˆJSR„PDATA1 1610�DSHEA7�JSR„PCRLF 1615ˆRTS 1620ˆPAGEƒ 1625�BLINE‚EQU„*ˆDISPLAY�THE�BOTTOM�LINE 1630ˆCURPOS�LINE24,10 1635ˆLDX„#M6†/PRESS�ANY�KEY�ETC./ 1640ˆJSR„PDATA1 1645ˆRTS 1650ˆSPC„3 1655�BOATƒEQU„*ˆDISPLAYS�THE�BOAT�POSITION 1660ˆLDX„SYSTAB+4�ANALOG�OUTPUT�16�IS�DEDICATED�TO�BOAT�PULLER�CONTR 1665ˆLDABƒ0,X†NR�OF�A.I.'S 1666ˆINCBŒBOAT�PULLER�IS�NOT�INCLUDED�IN�TOTAL�NR�OF�A.I.'S 1675ˆINX 1680ˆLDAAƒ#CNST15 1685ˆJSR„ADDRPTƒADD�A�(B-1)�TIMES�TO�X 1686ˆSTX„POINTR 1690�*�FOUND�LAST�A.I.�ENTRY;�CHECK�IF�IT�IS�THE�BOAT�PULLER 1695�BOAT2‚LDABƒ0,X 1700ˆCMPBƒ#16 1705ˆBNE„BOAT9„NO�BOAT 1710ˆSTABƒBLOOP 1715ˆLDX„#AIMIRƒPOINTER�IN�AI�STATUS 1720ˆLDAAƒ#36 1725ˆJSR„AXA†POINT�TO�DATA 1730ˆJSR„DSPNUMƒRESULT�IS�IN�DSPBUF,�READY�FOR�DISPLAY 1735ˆLDX„#$2025ƒSPACE,% 1740ˆSTX„DSPBUF+2 1745ˆLDAAƒ#4 1750ˆSTAAƒDSPBUF+4 1755ˆLDX„#M3 1760ˆJSR„PDATA1 1765ˆLDX„#DSPBUF 1770ˆJSR„PDATA1 1785�BOAT9‚RTS 1825ˆPAGEƒ 1830�NAMDSP�EQU„* 1835ˆTST„COUNT 1840ˆBEQ„NAMRTSƒBRANCH�IF�NOTHING�HAS�TO�BE�DISPLAYED 1845ˆLDAAƒ#9 1850ˆCMPAƒCOUNT1 1855ˆBEQ„NAM01„COUNT1�IS�SET�TO�8,�UNLESS�IT�WAS�ALREADY 1860ˆDECAŒTO�9 1865ˆSTAAƒCOUNT1 1866�NAM01‚TST„SPFLAG 1867ˆBEQ„NAM02„BRANCH�IF�NOT�SETPOINT�CHANGE�IN�STATUS�DISPLAY 1868ˆLDAAƒ13,X…DISPLAY�ONLY�THE�LINKED�A.I.'S 1869ˆBNE„NAM02 1870ˆDEC„COUNT 1880ˆBEQ„NAMRTS> ƒBRANCH�IF�DONE 1890ˆBRA„NAM03„CHECK�NEXT�ENTRY 1891�NAM02‚MOVEƒPOINTR,DSPBUF,6�NAME�IN�DSPBUF 1892ˆLDAAƒ#4 1893ˆSTAAƒDSPBUF+6 1894ˆLDX„#DSPBUF 1895ˆJSR„PDATA1 1896ˆDEC„COUNT 1900ˆBEQ„NAMRTSƒBRANCH�IF�DONE 1905ˆLDABƒ#3 1910ˆJSR„SPACE 1915�NAM03‚ADDA2X�OFFSET,POINTR�COMPUTE�NEXT�ENTRY�IN�SYSFILE 1920ˆDEC„COUNT1 1925ˆBNE„NAM01„BRANCH�IF�THIS�LINE�IS�NOT�FULL 1930ˆJSR„PCRLF 1935ˆJSR„PCRLF 1940ˆLDAAƒ#8 1945ˆSTAAƒCOUNT1ƒ8�ENTRIES�ON�EACH�LINE 1950ˆBRA„NAM01 1955�NAMRTS�RTS 1960ˆSPC„2 1965�NAMAO‚EQU„*ˆDISPLAY�UNLINKED�A.O.'S 1966ˆCLRA 1967�NAMAO1�STAAƒR7 1968ˆLDX„SYSTAB+12�UNLINKED�A.O.�TABLE 1969ˆJSR„AXA†A�HAS�OFFSET�IN�TABLE 1970ˆLDABƒ0,X†GET�A.O.�NR�OR�ZERO�IF�END�OF�ENTRY'S 1971ˆBEQ„NAMAO5ƒBRANCH�IF�DONE 1972ˆSTABƒR2 1973ˆJSR„FNDAO„GET�POSITION�IN�SYSTAB�OF�THIS�A.O. 1974ˆINXƒPOINT�TO�NAME 1975ˆSTX„POINTR 1980ˆMOVEƒPOINTR,DSPBUF,6 2030ˆLDAAƒ#4 2035ˆSTAAƒDSPBUF+6 2040ˆLDX„#DSPBUF 2045ˆJSR„PDATA1ƒDISPLAY�NAME 2050ˆLDABƒ#3 2055ˆJSR„SPACE 2056ˆLDAAƒR7‡OFFSET�IN�SYSTAB+12 2057ˆINCA 2075ˆBRA„NAMAO1ƒ 2080�NAMAO5�RTS 2085ˆPAGEƒ 2090�PROCST�EQU„*ˆDISPLAYS�PROCES�STATUS�IN�THREE�FIELDS 2095ˆLDAAƒACTIV„CONTAINS�THE�STATUS�INFO 2100ˆPSHAŒSAVE�IT 2105ˆLDX„#M8†/ID/ 2110ˆBITAƒ#$80 2115ˆBNE„PROC05ƒBRANCH�IF�IDLE 2120ˆLDX„#M9†/RN/ 2125ˆBITAƒ#$40 2130ˆBNE„PROC05ƒBRANCH�IF�IN�RUN 2135ˆLDX„#M10…/FN/ 2140ˆBITAƒ#$20 2145ˆBNE„PROC05ƒBRANCH�IF�FINISHED 2150ˆLDABƒ#3 2155ˆJSR„SPACE„SKIP�FIELD�IF�NONE�OF�THE�ABOVE 2160�* 2165�PROC01�LDX„#M11…/AB/ 2170ˆPULA 2175ˆPSHAŒSAVE�ACTIVE�AGAIN 2180ˆBITAƒ#$08 2185ˆBNE„PROC06ƒBRANCH�IF�ABORTED 2190ˆLDX„#M12…/AL/ 2195ˆBITAƒ#$10 2200ˆBNE„PROC06ƒBRANCH�IF�ALARM 2205ˆLDABƒ#3 2210ˆJSR„SPACE„SKIP�THIS�DATA�FIELD 2215�* 2220�PROC02�LDX„#M13…/HD/ 2225ˆPULA 2230ˆBITAƒ#$04 2235ˆBNE„PROC07ƒBRANCH�IF�IN�HOLD 2240ˆLDABƒ#3 2245ˆJSR„SPACE„SKIP�THIS�DATA�FIELD 2250ˆBRA„PROC08 2255�* 2260�PROC05�JSR„PDATA1 2265ˆBRA„PROC01 2270�PROC06�JSR„PDATA1 2275ˆBRA„PROC02 2280�PROC07�JSR„PDATA1 2285�PROC08�RTS 2290ˆSPC„3 2295�STEPNR�EQU„*ˆGET�STEPNR�AND�CONVERT�IT�TO�ASCII 2300�*�ENTERED�WITH�STEPNR�IN�B,�DSPBUF�IN�X;�A�=0 2305ˆSTX„BUFADDƒRESULT�OF�BINAIR�TO�BCD�CONVERSION�IN�DSPBUF 2310ˆJSR„BINBCD 2315ˆLDAAƒ#4 2320ˆSTAAƒDSPBUF+5 2325ˆLDX„#DSPBUF+2�MAXIMUM�IS�A�3�DIGIT�STEPNR 2330ˆJSR„PDATA1 2335ˆRTS 2340ˆPAGEƒ 2345�DSPTC‚EQU„*ˆDISPLAYS�TEMPERATURES 2350ˆLDX„SYSTABƒTCPTR�IS�IN�SYSTAB 2355ˆJSR„INIT2„GET�PARAMETERS 2365ˆBEQ„DSPTC9ƒBRANCH�IF�NO�ENTRY 2374ˆLDAAƒ#9 2376ˆSTAAƒCOUNT1 2378ˆLDX„#IMTC1ƒPOINTER�FOR�THE�TC�VALUES 2380ˆSTX„MEMO— 2381�*�COMPUTE�BITNR�TO�FIND�CORRECT�BIT�IN�ALARM/ABORT�STATUS 2382�DSPTC1�LDX„POINTR 2383ˆCLRA 2384ˆLDABƒ0,X†GET�TC�NR� 2385ˆCMPBƒ#6 2386ˆBGT„DSPTC3ƒNO�ALARM/ABORT�FROM�CALIBRATION�T.C. 2387ˆINCA 2388ˆCMPBƒ#2 2389ˆBLEƒDSPTC3ƒT.C'S�1,2�HAVE�POSITION�1�IN�BYTE 2390ˆINCA 2391ˆCMPBƒ#4 2392ˆBLE„DSPTC3ƒT.C'S�3,4�HAVE�POSITION�2�IN�BYTE 2393ˆINCAŒT.C'S�5,6�HAVE�POSITION�3 2410�DSPTC3�STAAƒBLOOPƒBLOOP=0�IF�NO�ALARM/ABORT�CHECK 2415ˆLDX„MEMO 2420ˆJSR„TCVAL„CONVERT�AND�DISPLAY�THIS�VALUE 2425ˆTST„COUNT„ALREADY�DECREMENTED�IN�TCVAL 2430ˆBEQ„DSPTC9ƒBRANCH�IF�FINISHED 2435ˆLDX„MEMO 2440ˆINX 2445ˆINX 2450ˆSTX„MEMO 2455ˆADDA2X�#CNST07,POINTR 2460ˆBRA„DSPTC1 2465�DSPTC9�RTS 2470ˆSPC„3 2475�TCVAL‚EQU„*ˆCONVERTS�AND�DISPLAYS�A�VALUE�IN�X�AS�DEGR.�C. 2480ˆLDX„XˆGET�THE�VALUE 2485ˆJSR„IPOLR„CONVERT�BITCOUNTS�TO�DEGREES 2490ˆLDX„#DSPBUF 2495ˆSTX„BUFADD 2500ˆJSR„BINBCD 2505ˆLDX„? #$2043 2510ˆSTX„DSPBUF+5�FILL�DISPLAY�BUFFER 2515ˆLDX„#$2004 2520ˆSTX„DSPBUF+7 2525ˆLDAAƒ#8 2535ˆJSR„ALAB…TEST�FOR�ABORT,�ALARM�STATUS 2536ˆBCC„TCVAL1ƒBRANCH�IF�OK 2537ˆLDX„0,X†GET�MESSAGE 2538ˆSTX„DSPBUF+5 2540�TCVAL1�LDX„#DSPBUF+1 2545ˆJSR„PDATA1 2550ˆDEC„COUNT„NO�SPACES�AFTER�THE�LAST�ENTRY 2555ˆBEQ„TCVAL9 2560ˆLDABƒ#2 2565ˆJSR„SPACE 2570�TCVAL9�RTS 2575ˆSPC„3 2580�DSPAI‚EQU„*ˆDISPLAYS�THE�ANALOG�INPUT�VALUES 2585ˆLDX„SYSTAB+4�AIPTR�IS�IN�SYSTAB+4 2586ˆJSR„INIT2„SET�INITIAL�PARAMETERS 2600ˆBEQ„DSPAI9 2625�DSPAI1�LDX„POINTR 2630ˆLDABƒ0,X†GET�A.I.�NR� 2635ˆSTABƒBLOOP 2636ˆTST„SPFLAG 2637ˆBEQ„DSPAI7ƒBRANCH�IF�NOT�SETPOINT�CHANGE�IN�STATUS�DISPLAY 2638ˆLDAAƒ14,X…DISPLAY�ONLY�THE�LINKED�A.I.'S 2639ˆBNE„DSPAI6ƒBRANCH�FOR�DISPLAY 2640ˆADDA2X�#CNST07,POINTR 2641ˆBRA„DSPAI5ƒNEXT�ENTRY 2642�DSPAI7�LDX„#AIMIR+6�STATUS�DISPLAY 2645ˆTST„RFLAG 2650ˆBEQ„DSPAI2ƒBRANCH�IF�STATUS�DISPLAY 2660�DSPAI6�LDX„#BUFFER‚A.I.�VALUE�POINTER�FOR�SETPOINT�CHANGE 2670�DSPAI2�LDAAƒ#2‡USE�A.I.�NR�TO�FIND�THE�VALUE�OF�THIS�A.I. 2675ˆJSR„ADDRPTƒIN�AI-MIRROR 2680�DSPAI3�JSR„DSPNUMƒCONVERTS�AND�DISPLAYS�THE�VALUE 2681ˆCLRAŒOFFSET�IS�0 2690ˆJSR„ALAB…CHECK�ALARMS,�ABORTS;�REG�A�=0�FOR�OFFSET 2695�DSPAI4�JSR„PRALABƒPRINT�INFO 2700�DSPAI5�DEC„COUNT 2705ˆBEQ„DSPAI9 2710ˆADDA2X�#CNST08,POINTR�POINT�TO�NEXT�ENTRY�IN�SYSFILE 2715ˆDEC„COUNT1 2720ˆBNE„DSPAI1ƒBRANCH�IF�NOT�AT�END�OF�THE�LINE 2725ˆJSR„PCRLF 2730ˆJSR„PCRLF„NEXT�LINE 2735ˆLDAAƒ#8 2740ˆSTAAƒCOUNT1 2745ˆBRA„DSPAI1 2750�DSPAI9�RTS 2755ˆSPC„3 2760�DSPNUM�EQU„*ˆCONVERTS�AND�DISPLAYS�A�VALUE�POINTED�TO�BY�X 2765ˆLDAAƒ0,X†GET�FIRST�BYTE 2770ˆCMPAƒ#$7F…CHECK�FOR�DON'T�CARE 2775ˆPSHA 2780ˆBEQ„DSPNM1ƒBRANCH�IF�DON'T�CARE 2790ˆANDAƒ#$F†12�SIGNIFICANT�BITS 2795ˆLDABƒ1,X†2ND�DATA�BYTE 2800ˆJSR„INT2FPƒCONVERT�TO�FLOATING�POINT;RESULT�IN�NUMBER 2805�DSPNM1�ADDA2X�#CNST07,POINTR 2810ˆMOVEƒPOINTR,DSPBUF+1,7�FACTOR�+�UNIT�IN�DSPBUF 2815ˆPULAŒ 2820ˆCMPAƒ#$7F 2825ˆBEQ„DSPNM2ƒBRANCH�IF�DON'T�CARE 2830ˆJSR„CVTNUMƒ 2835ˆBRA„DSPNM3 2840�DSPNM2�LDX„#$2020ƒSPACES 2845ˆSTX„DSPBUF+1 2850ˆSTX„DSPBUF+3 2855ˆLDAAƒ#'D 2860ˆSTAAƒDSPBUF 2865�DSPNM3�LDX„#$2004 2870ˆSTX„DSPBUF+8 2875ˆLDX„#DSPBUF 2880ˆRTS 2885ˆSPC„3 2890�DSPAO‚EQU„*ˆDISPLAY�THE�ANALOG�OUTPUTS 2895ˆCLRA 2900�DSPAO1�STAAƒR7„ 2905ˆLDX„SYSTAB+12�UNLINKED�A.O.�TABLE 2910ˆJSR„AXA†A�HAS�OFFSET�IN�TABLE 2915ˆLDABƒ0,X†GET�A.O.�NR�OR�ZERO�IF�END�OF�ENTRY'S 2920ˆBEQ„DSPAO9ƒBRANCH�IF�DONE 2921ˆSTABƒR2 2930ˆJSR„FNDAO„GET�POSITION�IN�SYSTAB�OF�THIS�A.O. 2940ˆSTX„POINTR 2941ˆLDABƒR2 2942ˆTST„RFLAG 2943ˆBNE„DSPAO4ƒBRANCH�IF�RECIPE�DISPLAY 2944ˆTST„SPFLAG 2945ˆBNE„DSPAO4ƒBRANCH�IF�STATUS�CHANGE�DISPLAY 2946ˆJSR„AOVAL„FIND�VALUE�IN�A.O.�STATUS 2947ˆBRA„DSPAO5 3005�DSPAO4�LDX„TEMPX„POINT�TO�START�OF�DATA-2 3010ˆINX 3015ˆINX 3020ˆSTX„TEMPX 3025�DSPAO5�JSR„DSPNUMƒCONVERT�AND�DISPLAY�THE�VALUE 3030ˆJSR„PDATA1 3031ˆLDAAƒR7‡GET�OFFSET�IN�SYSTAB+12 3032ˆINCA 3050ˆBRA„DSPAO1 3055�DSPAO9�RTS 3095ˆPAGE 3100�DSPAUX�EQU„*‚DISPLAYS�THE�AUXILIARY�TC�INPUTS 3105ˆLDX„SYSTAB+2�AUXPTR�IS�IN�SYSTAB+2 3106ˆJSR„INIT2 3120ˆBEQ„DSPAU9ƒNONE�TO�DISPLAY 3135�DSPAU0�LDAAƒ14,X…0=�TEMPERATURE�CONV.;�1=�LINEAIR 3140ˆLDABƒ0,X†AUX�TC�NR 3145ˆSTABƒBLOOP 3150ˆLDX„#IMTC1 3155ˆPSHA 3160ˆLDAAƒ#2 3165ˆJSR„ADDRPTƒCOMPUTE�THE�OFFSET�IN�TCMIRROR 3170ˆPULA 3175�DSPAU3�TSTA 3180ˆBEQ„DSPAU4ƒTEMP.�CONVERSION 3185ˆJSR„DSPNUMƒCONVERTS�AND�DISPLAYS�A�VALUE 3190ˆLDAAƒ#8ƒINITIAL�OFFSET@ �IN�ABORT/ALARM�STATUS 3200ˆJSR„ALAB…CHECK�ALARMS�AND�ABORTS 3205ˆJSR„PRALAB 3210ˆDEC„COUNT 3215ˆBRA„DSPAU5 3220�DSPAU4�JSR„TCVAL„DISPLAYS�TEMP.�AND�DECREMENTS�COUNT 3225ˆADDA2X�#CNST07,POINTR 3230�DSPAU5�TST„COUNT 3235ˆBEQ„DSPAU9 3240ˆADDA2X�#CNST08,POINTR 3245ˆBRA„DSPAU0 3250�DSPAU9�RTS 3255ˆSPC„3 3260�DSPDI‚EQU„*ˆDISPLAY�THE�DIGITAL�INPUT�STATUS 3265ˆLDX„SYSTAB+8�DIPTR 3266ˆJSR„INIT2 3280ˆBNE„DSPDI1 3285ˆJMP„DSPD11ƒEXIT 3310�DSPDI1�LDX„POINTR 3315ˆLDABƒ0,X†GET�DIGITAL�INPUT�NR 3320ˆLDX„#DIMIRƒPOINT�TO�DATA 3325ˆJSR„TSTBIT 3330ˆBCC„DSPDI4„BRANCH�IF�OFF 3335ˆLDX„#M14…/ON/ 3340ˆBRA„DSPDI5 3345�DSPDI4�LDX„#M15…/OFF/ 3346�DSPDI5�STABƒBLOOP„BITNR 3350ˆJSR„PDATA1 3360ˆLDAAƒ#2‡INITIAL�OFFSET�IN�THE�ABORT,�AL,�HL�BLOCKS 3361ˆJSR„ALAB…CHECK�FOR�ABORTS�ETC. 3455ˆBCS„DSPDI9ƒBRANCH�IF�ALARM 3460ˆLDABƒ#3 3465ˆJSR„SPACE 3470ˆBRA„DSPD10 3480�DSPDI9�JSR„PDATA1 3485�* 3490�DSPD10�DEC„COUNT 3495ˆBEQ„DSPD11ƒBRANCH�IF�DONE 3500ˆLDABƒ#2 3505ˆJSR„SPACE 3510ˆADDA2X�#CNST07,POINTR 3515ˆDEC„COUNT1 3520ˆBNE„DSPD1A� 3525ˆJSR„PCRLF 3530ˆJSR„PCRLF 3535ˆLDAAƒ#8 3540ˆSTAAƒCOUNT1 3545�DSPD1A�JMP„DSPDI1 3550�DSPD11�RTS 3555ˆSPC„3 3560�ALABƒEQU„*ˆCHECKS�FOR�ABORT�AND�ALARM�STATUS; 3565�*�PUTS�CORRECT�LABEL�IN�DSPBUF 3570�*�ENTERED�WITH�OFFSET�IN�ALARM�AND�AB.�STATUS�IN�REG�A 3575�*�NR�OF�INPUT�IN�BLOOP;�IF�BLOOP=0,�NO�ALARM/ABORT�CHECK 3580�* 3586ˆLDABƒBLOOP 3587ˆBEQ„ALAB3„NO�ABORT/ALARM�CHECK 3590ˆLDX„#ABSTAT 3600ˆJSR„FNDBIT 3605ˆBCC„ALAB1„BRANCH�IF�NOT�ABORT 3606ˆLDX„#M11…/AB/ 3615ˆBRA„ALAB3 3620�ALAB1‚LDX„#ALSTAT 3624ˆJSR„FNDBIT 3628ˆBCC„ALAB2„BRANCH�IF�OK 3632ˆLDX„#M12…/AL/ 3633ˆBRA„ALAB3 3649�ALAB2‚LDX„#HLSTAT 3652ˆJSR„FNDBIT 3655ˆBCC„ALAB3„BRANCH�IF�OK 3658ˆLDX„#M13…/HL/ 3659�ALAB3‚RTS 3660ˆSPC„3 3661�PRALAB�EQU„*ˆPRINTS�THE�MESSAGE�AL,AB,�HD�OR�UNIT�FOR�A.I. 3662ˆBCC„PRAL01ƒDSPBUF�OK 3663ˆLDX„0,X†GET�MESSAGE 3665ˆSTX„DSPBUF+5 3667ˆLDAAƒ#$20 3669ˆSTAAƒDSPBUF+7 3671�PRAL01�LDX„#DSPBUF 3672ˆJSR„PDATA1 3673ˆRTS 3675ˆPAGE 3680�DSPDO‚EQU„*ˆDIGITAL�OUTPUT�DISPLAY 3690ˆJSR„CLRALL 3695ˆJSR„DSHEAD 3700ˆJSR„PCRLF 3705ˆINITƒSYSTAB+10,CNST10 3710ˆJSR„NAMDSP 3715ˆCURPOS�LINE4,0 3720ˆLDX„#DOMIRƒSTART�ADDRESS�OF�DATA 3725ˆSTX„OUTPUT 3730ˆJSR„DOVAL„DISPLAY�DIGITAL�OUTPUT�VALUES 3735ˆJSR„BLINE„BOTTOM�LINE 3740ˆRETURN�JOB00„ANY�KEY�ENTRY�CHANGES�DISPLAY�TO�JOBSELECTION 3745ˆSPC„2 3750�DOVAL‚EQU„*ˆDISPLAY�D.O.�SETTING;�DATA�ADDRESS�IS�IN�OUTPUT 3760ˆLDX„SYSTAB+10�DOPTR 3761ˆJSR„INIT2„SET�PARAMETERS 3775ˆBEQ„DOVAL9ƒBRANCH�IF�NO�D.O.'S 3800�DOVAL1�LDX„POINTR 3805ˆLDABƒ0,X†GET�D.O.�NR 3810ˆCLRA 3815�DOVAL2�STABƒBLOOP„DO�NR�IS�STORED�IN�BLOOP�MODULO�8 3820ˆSUBBƒ#8 3825ˆBLE„DOVAL3ƒBRANCH�IF�OFFSET�IS�CORRECT 3830ˆINCA 3835ˆBRA„DOVAL2 3840�DOVAL3�STAAƒR4 3845ˆLDAAƒ7,X†GET�D.O.�TYPE 3850ˆSTAAƒR5 3855ˆLDX„OUTPUT 3860ˆLDAAƒR4 3865ˆJSR„AXA 3870ˆJSR„GETBIT 3875ˆBCC„DOVAL4ƒBRANCH�IF�D.O.�=0 3880ˆLDX„#M17…/OPEN/ 3885ˆLDAAƒR5 3890ˆBEQ„DOVAL6ƒBRANCH�IF�NORMALLY�CLOSED�OUTPUT 3895ˆLDX„#M18…/CLOSED/�NORMALLY�OPEN�OUTPUT 3900ˆBRA„DOVAL6ƒ 3905�DOVAL4�LDX„#M18…/CLOSED/ 3910ˆLDAAƒR5 3915ˆBEQ„DOVAL6ƒBRANCH�IF�N.C.�OUTPUT 3920ˆLDX„#M17…/OPEN/�N.O.�OUTPUT 3925�DOVAL6�JSR„PDATA1 3935ˆDEC„COUNT 3940ˆBEQ„DOVAL9 3945ˆLDABƒ#3 3950ˆJSR„SPACE 3955ˆADDA2X�#CNST10,POINTR 3960ˆDEC„COUNT1 3965ˆBNE„DOVAL1 3970ˆJSR„PCRLF 3975ˆJSR„PCRLF 3980ˆLDAAƒ#8 3985ˆSTAAƒCOUNT1 3990ˆBRA„DOVAL1 3995�DOVAL9�RTS 4000ˆPAGEƒ 4005�EDITST�EQU„*ˆSTATUS�EDITOR 4015ˆJSR„A CLRALL 4020ˆLDX„#M19…STATUS�CHANGE�SELECTION 4025ˆJSR„PDATA1 4040ˆRETURN�EDIT00 4045�* 4050�*�ENTER�HERE�AFTER�KEY�ENTRY 4055�* 4060�EDIT00�CMPAƒ#CR 4065ˆBEQ„EDIT02ƒBRANCH�IF�CR;�EXIT 4070ˆPSHA 4075ˆCURPOS�LINE2,0 4080ˆJSR„CLRDSP 4085ˆPULA 4090ˆSUBAƒ#$31 4095ˆBLT„EDITSTƒINCORRECT�ENTRY 4100ˆBNE„EDIT03ƒBRANCH�IF�DIG.�OUTPUT�CHANGE 4105�*�TIME�CHANGE 4110�EDIT01�LDX„TIME+1 4115ˆSTX„SECOND 4120ˆLDX„#EDIT1A 4125ˆSTX„EDVECTƒRETURN�VECTOR 4130ˆJMP„CHTIMEƒDISPLAY�AND�GET�THE�TIME�CHANGE 4131�EDIT1A�CMPAƒ#$D 4132ˆBEQ„EDIT02ƒEXIT�WITHOUT�TIME�CHANGE 4135ˆCMPAƒ#'Y 4140ˆBNE„EDIT01ƒBRANCH�IF�NOT�SURE 4145ˆLDX„NUMBERƒREPLACE�OLD�TIME�WITH�NEW�TIME 4150ˆSTX„TIME+1 4151�EDIT02�CLR„SPFLAGƒEND�OF�SETPOINT�CHANGE�IN�STATUS 4155ˆJMP„JOB00 4160�EDIT03�LDX„#EDIT02 4165ˆSTX„EDVECTƒRETURN�VECTOR 4170ˆCLR„RFLAG 4175ˆDECA 4180ˆBNE„EDIT04ƒBRANCH�FOR�SETPOINT�CHANGE 4185ˆLDX„#DOMIRƒSTART�ADDRESS�OF�THE�DATA 4190ˆSTX„OUTPUT 4195ˆJMP„CHDO…CHANGE�DESIRED�DIGITAL�OUTPUTS 4200�EDIT04�DECA 4205ˆBNE„EDITSTƒINCORRECT�ENTRY 4206ˆLDX„#AIMIR+6�START�ADDRESS�OF�DATA 4207ˆSTX„OUTPUT 4208ˆINC„SPFLAG 4209ˆJMP„SPSTATƒCHANGE�DESIRED�SETPOINTS 4210ˆPAGE 4215�CHTIME�EQU„*ˆDISPLAYS�THE�TIME�AND�GETS�THE�NEW�VALUE 4216�*�ENTERED�WITH�THE�OLD�TIME�IN�SECOND;�NEW�TIME�IN�VAL1,X,NUMBER 4217ˆLDX„#M20…/TIME�=�/ 4218ˆJSR„PDATA1 4219ˆJSR„TIMCVT‚CONVERT�OLD�TIME�TO�DISPLAY�FORMAT 4220ˆLDX„#DSPBUF 4221ˆJSR„PDATA1 4222�CHTM00�LDX„#M21…/NEW�TIME�=/ 4223ˆJSR„PDATA� 4224ˆLDX„#NUMBER 4225ˆSTX„TEMP1 4226ˆLDABƒ#3 4227ˆSTABƒR1‡COUNTER 4228ˆRETURN�CHTM01 4229�* 4230�*�ENTER�HERE�AFTER�KEY�ENTRY 4231�* 4232�CHTM01�JSR„INNR…CHECK�IF�DECIMAL�CHARCTER�OR�CR 4233ˆBVS„CHTM06ƒINCORRECT�ENTRY 4234ˆCMPAƒ#$D† 4235ˆBEQ„CHTM11ƒBRANCH�TO�EXIT�IF�CR 4236ˆBRA„CHTM04 4237�* 4238�*�ENTER�HERE�AFTER�KEY�ENTRY 4239�* 4240�CHTM03�JSR„INDEC„CHECK�IF�DECIMAL�CHARCTER 4241ˆBVS„CHTM06ƒINCORRECT�ENTRY 4242�CHTM04�LDX„TEMP1 4243ˆSTAAƒ0,X 4244ˆSTX„TEMP1 4245ˆRETURN�CHTM05 4246�* 4247�*�ENTER�HERE�AFTER�KEY�ENTRY 4248�* 4249�CHTM05�JSR„INDEC 4250�CHTM06�BVS„CHTM12ƒINCORRECT�ENTRY 4251ˆLDX„TEMP1 4252ˆSTAAƒ1,X 4253ˆINX 4254ˆINX 4255ˆSTX„TEMP1 4256ˆDEC„R1 4257ˆBEQ„CHTM09ƒBRANCH�IF�HH.MM.SS�ARE�ENTERED 4258ˆRETURN�CHTM08ƒSKIP�THE�.�IN�THE�ENTRY 4259�CHTM08�JSR„OUTCH„DISPLAY�. 4260ˆRETURN�CHTM03 4261�*�TEST�IF�ENTRIES�ARE�CORRECT 4262�CHTM09�LDX„#NUMBER 4263ˆLDAAƒ#1 4264ˆCMPAƒ0,X 4265ˆBLT„CHTM12ƒBRANCH�IF�TIME�>�19�HOURS 4266ˆBNE„CHTM10ƒBRANCH�IF�TIME�<�10�HOURS 4267ˆLDAAƒ#7 4268ˆCMPAƒ1,X 4269ˆBLT„CHTM12ƒBRANCH�IF�TIME�>�17�HOURS 4270�CHTM10�LDAAƒ#5 4271ˆCMPAƒ2,X 4272ˆBLT„CHTM12ƒBRANCH�IF�>�59�MINUTES 4273ˆCMPAƒ4,X 4274ˆBLT„CHTM12ƒBRANCH�IF�>�59�SECONDS 4275ˆLDX„#NUMBER 4276ˆJSR„TIMSECƒRESULT�IN�A,B�AND�IN�X 4277ˆSTX„NUMBER 4278ˆLDX„#M25…/CHANGES�OK?�/ 4279ˆJSR„PDATA 4280ˆRETURN�CHTM11 4281�* 4282�*�ENTER�HERE�AFTER�KEY�ENTRY 4283�* 4284�CHTM11�LDX„EDVECTƒRETURN�ADDRESS 4285ˆJMP„X 4286�* 4287�CHTM12�LDX„#M7†/INCORRECT�ENTRY/ 4288ˆJSR„PDATA 4289ˆJMP„CHTM00ƒTRY�AGAIN 4585ˆPAGE 4590�CHDOƒEQU„*ˆCHANGES�THE�DIGITAL�OUTPUTS�IN�THE�STATUS 4595�*�ENTERED�WITH�ADDRESS�OF�OUTPUT�DATA�IN�OUTPUT 4600ˆINITƒSYSTAB+10,CNST10 4605ˆJSR„NAMDSPƒDISPLAY�DIGITAL�OUTPUTS 4610�CHDOA‚CURPOS�LINE3,0 4615ˆJSR„DOVAL 4620ˆLDAAƒ#1¨ 4625ˆSTAAƒDOBYTEƒUSED�AS�COUNTER 4630ˆMOVEƒOUTPUT,DIGOUT,6 4635ˆCURPOS�LINE15,0 4640ˆJSR„CLRDSP 4645�CHDO1‚INITƒSYSTAB+10,CNST10 4650ˆLDABƒDOBYTE 4655ˆCMPBƒ#7‡ B 4660ˆBEQ„CHDO3AƒBRANCH�IF�DONE 4665�CHDO2‚DECB 4670ˆBEQ„CHDO3 4675ˆADDA2X�#CNST80,POINTR�POINT�X�TO�CORRECT�ENTRY 4680ˆLDAAƒCOUNT 4685ˆSUBAƒ#8 4690ˆSTAAƒCOUNT 4695ˆBRA„CHDO2 4700�CHDO3‚LDAAƒCOUNT 4705ˆBGT„CHDO4 4710�CHDO3A�JMP„CHDO19ƒALL�DO'S�DONE 4715�CHDO4‚CMPAƒ#8 4720ˆBLT„CHDO5„NR�OF�DO'S�TO�BE�DISPLAYED�YET 4725ˆLDAAƒ#8 4730�CHDO5‚STAAƒR6‡USED�AS�COUNTER 4735ˆSTAAƒCOUNT„MAXIMUM�IS�8 4740ˆSTX„TEMPX 4745ˆJSR„NAMDSP 4750ˆJSR„PCRLF 4755ˆLDX„TEMPX 4760ˆDEX 4765ˆSTX„POINTRƒPOINT�TO�DO�NR 4770�CHDO6‚RETURN�CHDO8 4775�* 4780�*�ENTER�HERE�AFTER�KEY�ENTRY 4785�* 4790�CHDO8‚CMPAƒ#$D†CR? 4795ˆBNE„CHDO7„ 4800ˆJMP„CHDO18ƒJMP�FOR�NEXT�8�D.O.'S�OR�EXIT 4805�CHDO7‚LDABƒ#9 4810ˆCMPAƒ#$20…SPACE 4815ˆBEQ„CHDO17ƒBRANCH�FOR�NEXT�DO 4820ˆPSHA 4825ˆLDX„POINTR 4830ˆLDABƒ0,X 4835ˆSTABƒSAVE1„DO�NR 4840ˆLDABƒ7,X†DO�TYPE 4845ˆSTABƒR0 4850ˆPULA 4855ˆLDX„#M18…/CLOSED/ 4860ˆCMPAƒ#'C 4865ˆBEQ„CHDO10ƒDISPLAY�CLOSED 4870ˆLDX„#M17…/OPEN/ 4875ˆLDABƒR0 4880ˆCOMBŒCOMPLEMENT�R0,�BIT�0 4885ˆANDBƒ#$01… 4890ˆSTABƒR0 4895ˆCMPAƒ#'O 4900ˆBEQ„CHDO10 4905ˆJMP„CHDO23ƒBRANCH�IF�ERROR 4910�CHDO10�JSR„PDATA1 4915ˆLDX„#DIGOUT 4920ˆSTX„BUFPTRƒDATA�POINTER 4925ˆLDX„POINTR 4930ˆTST„R0 4935ˆBEQ„CHDO11ƒBRANCH�IF�1�TO�0�TRANSITION�FOR�THE�D.O. 4940ˆJSR„LOCK…CHECK�THE�INTERLOCK 4945ˆBRA„CHDO12 4950�CHDO11�JSR„CONLCKƒCHECK�THE�CONDITIONAL�INTERLOCKS 4955�CHDO12�BCC„CHDO13ƒBRANCH�IF�NO�ERRORS 4960ˆJMP„CHDO24ƒINTERLOCK�ERROR 4965�CHDO13�LDABƒSAVE1„DO�NR. 4970ˆLDX„#DIGOUT‚POINT�TO�DATA 4975ˆJSR„TSTBITƒGET�THE�D.O.�BIT�IN�THE�CARRY 4980ˆJSR„SETBITƒSET�CORRECT�DIGITAL�OUTPUT�BIT 4985ˆLDABƒ#3 4990�CHDO17�JSR„SPACE 4995ˆDEC„R6‚ 5000ˆBEQ„CHDO18ƒBRANCH�IF�DONE�WITH�THIS�LINE 5005ˆADDA2X�#CNST10,POINTR� 5010ˆJMP„CHDO6„NEXT�OUTPUT 5015�CHDO18�INC„DOBYTE 5020ˆJSR„PCRLF 5025ˆJMP„CHDO1„NEXT�OUTPUTS 5030�CHDO19�LDX„#M25…/ALL�CHANGES�OK?/ 5035ˆJSR„PDATA 5040ˆRETURN�CHDO20 5045�* 5050�*�ENTER�HERE�AFTER�KEY�ENTRY 5055�* 5060�CHDO20�CMPAƒ#'Y 5065ˆBEQ„CHDO21ƒBRANCH�IF�OK 5070ˆJMP„CHDOA…TRY�AGAIN 5075�CHDO21�LDX„#DIGOUT‚NEW�VALUES�IN�THE�OUTPUTFIELD 5080ˆSTX„SOURCE 5085ˆLDX„OUTPUT 5090ˆSTX„DESTIN 5095ˆLDX„#6‡LENGTH�OF�DATA�RECORD 5100ˆSTX„LENGTH 5105ˆJSR„BUFBUFƒMOVE�DATA�TO�CORRECT�MEMORY 5110�CHDO22�LDX„EDVECT 5115ˆJMP„XˆRETURN�TO�NEXT�LEVEL�SUBROUTINE 5120�*�ERROR 5125�CHDO23�LDAAƒ#'? 5130ˆJSR„OUTCH 5135ˆLDABƒ#1 5140ˆJSR„LEFT…CURSOR�1�POSITION�LEFT 5145ˆJMP„CHDO6„TRY�AGAIN 5150�CHDO24�LDABƒ#6 5155ˆJSR„LEFT 5160ˆLDX„#M24…/INTERLOCK�ERROR/ 5165ˆJSR„PDATA1 5170ˆJSR„PCRLF 5175ˆJMP„CHDO1 5180ˆSPC�3ƒ 5185�LOCKƒEQU„*ˆCHECKS�THE�INTERLOCK�AND�CONDIT.�INTERLOCK 5190�*�X�POINTS�TO�DO�NR�IN�SYSTEMFILE 5195ˆSTX„SAVEX 5200ˆCLC 5205ˆLDABƒ8,X†GET�INTERLOCK�NR 5210ˆBEQ„LOCK2„NO�INTERLOCK 5215ˆLDX„BUFPTR 5220ˆJSR„TSTBITƒTEST�OTHER�D.O. 5225ˆBCS„LOCK4„BRANCH�IF�CARRY�SET�DUE�TO�INTERLOCK�ERROR 5230ˆLDX„SAVEX„POINTER�TO�SYSTAB�ENTRY 5235�LOCK2‚LDABƒ9,X†GET�COND.�INTERLOCK�NR 5240ˆBEQ„LOCK4„NO�CONDIT.�INTERLOCK 5245ˆLDX„BUFPTR 5250ˆJSR„TSTBITƒTEST�OTHER�D.O. 5255ˆBCC„LOCK3„COMPLEMENT�THE�CARRY�BIT 5260ˆCLC 5265ˆRTS 5270�LOCK3‚SEC�INTERLOCK�ERROR 5275�LOCK4‚RTS 5280ˆSPC„3 5285�CONLCK�EQU„*ˆCHECKS�THE�CONDITIONAL�INTERLOCKS�OF�THE�OTHER 5290�*�D.O.'S�WHEN�A�D.O.�IS�DEACTIVATED 5295ˆLDX„SYSTAB+10�THE�CONDITIONAL�INTERLOCK�ARE�IN�THE�SYSTEMFILE 5300ˆLDABƒ0,X 5305ˆSTABƒR1‡TOTAL�NR.�OF�D.O.'S 5310ˆINX 5315ˆSTX„TEMPX„POINTS�TO�D.O.�NR 5320�CONLC1�LDABƒ9,X†COND.�INTERLC .�NR 5325ˆCMPBƒSAVE1„D.O.�NR�OF�DO�TO�BE�CHANGED 5330ˆBNE„CONLC2ƒBRANCH�IF�NOT�COND.�INTERLOCK 5335ˆLDABƒ0,X†GET�D.O.�NR�TO�CHECK�ITS�VALUE 5340ˆLDX„BUFPTRƒPOINT�TO�DATA 5345ˆJSR„TSTBIT 5350ˆBCS„CONLC3ƒBRANCH�IF�COND.�INTERLOCK�ERROR 5355�CONLC2�ADDA2X�#CNST10,TEMPX 5360ˆDEC„R1‡ 5365ˆBNE„CONLC1ƒBRANCH�FOR�NEXT�D.O. 5370ˆCLC�NO�ERRORS 5375�CONLC3�RTS 5380ˆPAGE 5385�RCEDIT�EQU„*ˆRECIPE�EDITOR 5395ˆJSR„CLRALL 5400�RCP1ƒLDX„#M27…/ENTER�STEP�NR/ 5405ˆJSR„PDATA1 5420ˆJMP„INSTEPƒGET�STEPNR 5425�RCP1A‚BVS„RCP3…ERROR 5430ˆLDAAƒVAL1 5435ˆCMPAƒ#CR 5440ˆBNE„RCP2…BRANCH�IF�NO�EXIT�REQUESTED 5445ˆJMP„JOB00„EXIT�TO�JOBSELECTION 5450�RCP2ƒLDABƒVAL1+1 5455ˆJSR„BCDBINƒCHANGE�ENTRY�TO�BINARY 5460ˆTSTA 5465ˆBNE„RCP3…ERROR 5470ˆSTABƒSTEPNO 5475ˆLDX„RECIPE‚ 5480ˆLDAAƒ#TOTSTP‚OFFSET�TO�TOTAL�STEPNR�BYTE�IN�THE�HEADER 5485ˆJSR„AXA 5490ˆLDAAƒ0,X†GET�TOTAL�NR�OF�STEPS 5495ˆSBA 5500ˆBGT„RCP4…BRANCH�IF�STEPNR�IS�OK 5505ˆLDX„#M23…/TOO�LARGE�A�NR/ 5510ˆBRA„RCP3A� 5515�RCP3ƒLDX„#M7†/INCORRECT�ENTRY/ 5520�RCP3A‚JSR„PDATA 5530ˆJMP„RCP1…TRY�AGAIN 5535�*�COMPUTE�START�ADDRESS�OF�THE�STEP 5540�RCP4ƒINX 5545ˆLDABƒSTEPNO 5546ˆINCBŒADJUST�STEPNO�FOR�ADDRPT�ROUTINE 5550ˆLDAAƒ#STPLEN 5555ˆJSR„ADDRPTƒADD�B-1�TIMES�A�TO�X�REG 5560ˆSTX„STEPPT 5565�* 5570�RCP6ƒCURPOS�LINE1,0 5575ˆJSR„CLRDSP 5580ˆLDX„#M4†/‚STEP�/ 5585ˆJSR„PDATA1 5590ˆPARAM‚#0,STEPNO,#DSPBUF 5595ˆJSR„STEPNRƒDISPLAY�STEPNR 5600ˆLDX„#M16…/(1)�TIME�ETC.�/ 5605ˆJSR„PDATA 5620ˆRETURN�RCP6A 5625�* 5630�*�ENTER�HERE�AFTER�KEY�ENTRY 5635�* 5640�RCP6A‚CMPAƒ#CR 5645ˆBNE„RCP6B 5650ˆJMP„RCEDITƒEXIT�FROM�THIS�STEP 5655�RCP6B‚SUBAƒ#$30 5660ˆBLT„RCP6…TRY�AGAIN 5665ˆPSHA 5670ˆCURPOS�LINE2,0 5675ˆJSR„CLRDSP 5680ˆPULA 5685ˆDECA 5690ˆBEQ„STTIMEƒBRANCH�IF�TIME�CHANGE 5695ˆJMP„RCP7…CHECK�FOR�D.O.�CHANGE 5700�*�CHANGE�THE�TIME�IN�A�STEP 5705�STTIME�LDX„STEPPT 5710ˆLDX„1,X†GET�TIME�ENTRY 5715ˆSTX„SECOND 5720ˆLDX„#RCP6CƒRETURN�ADDRESS 5725ˆSTX„EDVECT 5730ˆJMP„CHTIMEƒGET�NEW�ENTRY 5735�RCP6C‚CMPAƒ#$D 5736ˆBEQ„RCP10„EXIT�WITHOUT�TIME�CHANGE 5737ˆCMPAƒ#'Y 5740ˆBNE„STTIMEƒBRANCH�IF�TIME�NOT�OK 5745ˆLDX„STEPPT 5750ˆLDAAƒNUMBER 5755ˆSTAAƒ1,X†AND�STORE�IT� 5760ˆLDAAƒNUMBER+1 5765ˆSTAAƒ2,X 5770�RCP10‚JMP„RCEDITƒEXIT�FROM�THIS�STEP 5775�RCP7ƒDECA 5780ˆBNE„RCP8‚ 5785�*�DIGITAL�OUTPUTS 5790ˆLDX„STEPPT 5795ˆLDAAƒ#DOMSK1‚OFFSET�IN�STEP�OF�D.O.'S 5800ˆJSR„AXA 5805ˆSTX„OUTPUTƒADDRESS�OF�DATA 5810ˆLDX„#RCEDIT‚RETURN�ADDRESS 5815ˆSTX„EDVECT 5820ˆJMP„CHDO…CHANGE�THE�DIGITAL�OUTPUTS 5825�RCP8ƒDECA 5830ˆBNE„RCP10„TRY�AGAIN 5835�*�SETPOINT�CHANGE 5840ˆLDX„STEPPT 5845ˆLDAAƒ#AIN04ƒOFFSET�IN�STEP 5850ˆJSR„AXA 5855ˆSTX„OUTPUTƒADDRESS�OF�DATA 5860ˆLDAAƒ#1 5865ˆSTAAƒRFLAG„SET�FLAG�FOR�RECIPE�CHANGE 5870ˆLDX„#RCEDIT‚RETURN�ADDRESS 5875ˆSTX„EDVECT 5880ˆJMP„SPRECPƒCHANGE�THE�SETPOINTS 5885ˆPAGE 5890�LOTNR‚EQU„*ˆCHANGES�THE�LOTNR 5900ˆJSR„CLRALL 5905ˆLDX„#M32…/LOT�NUMBER:/ 5910ˆJSR„PDATA1 5915ˆLDX„RECIPE 5920ˆLDAAƒ#9‡SKIP�FIRST�9�BYTES�IN�RECIPE�HEADER 5925ˆJSR„AXA 5930ˆSTX„RECIPE 5935ˆMOVEƒRECIPE,DSPBUF,15 5940ˆLDAAƒ#4 5945ˆSTAAƒDSPBUF+15 5950ˆLDX„#DSPBUF 5955ˆJSR„PDATA1 5960ˆLDX„#M33…/NEW�NUMBER:/ 5965ˆJSR„PDATA 5970ˆLDABƒ#$20 5975ˆLDX„RECIPE 5980ˆDEX 5985ˆSTABƒ0,X†PUT�SPACE�BEFORE�THE�LOT�NR 5990ˆINX 5995ˆLDABƒ#15†MAX�15�CHAR. 6000�LOTNR1�STX„OUTPUT 6005ˆSTABƒR3 6010ˆRETURN�LOTNR5 6015�* 6020�*�ENTER�HERE�AFTER�KEY�ENTRY 6025�* 6030�LOTNR5�CMPAƒ#CR 6035ˆBEQ„LOTNR4ƒBRANCH�IF�DONE 6040�LOTNR2�CMPAƒ#CD R 6045ˆBEQ„LOTNR3ƒBRANCH�IF�CR 6050ˆJSR„OUTCH 6055ˆLDX„OUTPUT 6060ˆSTAAƒ0,X 6065ˆINX 6070ˆSTX„OUTPUT 6075ˆDEC„R3 6080ˆBEQ„LOTNR4ƒBRANCH�IF�MAX.�NUMBER�LENGTH�IS�ENTERED 6085ˆRETURN�LOTNR2 6090�* 6095�LOTNR3�LDAAƒ#$20…FILL�REMAINDER�WITH�CHARACTERS 6100ˆLDX„OUTPUT 6105ˆSTAAƒ0,X 6110ˆINX 6115ˆSTX„OUTPUT 6120ˆDEC„R3 6125ˆBNE„LOTNR3 6130�LOTNR4�JMP„JOB00„RETURN�TO�JOBSELECTION 6135ˆPAGEƒ 6140�RCNAME�EQU„*ˆCHANGES�THE�RECIPE�NAME 6150ˆJSR„CLRALL 6155ˆLDX„#M34…/RECIPE�NAME:/ 6160ˆJSR„PDATA1 6165ˆMOVEƒRECIPE,DSPBUF,8 6170ˆLDAAƒ#4 6175ˆSTAAƒDSPBUF+8 6180ˆLDX„#DSPBUF 6185ˆJSR„PDATA1ƒDISPLAY�OLD�NAME 6190ˆLDX„#M35…/NEW�NAME�:/ 6195ˆJSR„PDATA 6200ˆLDABƒ#8‡MAX�8�CHARACTERS 6205ˆLDX„RECIPE 6210ˆJMP„LOTNR1ƒ 6215ˆSPC„3 6220�TSTBIT�EQU„*ˆBITNR�TO�BE�CHECKED�IN�B-REG 6225�*�X�POINTS�TO�START�OF�THE�DATA;�EXITS�WITH�BIT�VALUE�IN�THE�CARRY�AND 6226ˆPSHBŒBITNR�IN�B�REG 6230ˆCLRA 6235�TSTB1‚STABƒBLOOP 6240ˆSUBBƒ#8 6245ˆBLE„TSTB2„BRANCH�IF�OFFSET�IS�CORRECT�FOR�THIS�INPUT 6250ˆINCAŒBLOOP�HAS�(BITNR�+1)MODULO�8 6255ˆBRA„TSTB1„CHECK�THE�NEXT�BYTE 6260�TSTB2‚STAAƒR4‡KEEP�THE�OFFSET 6265ˆJSR„AXA 6270ˆJSR„GETBIT 6271ˆPULB 6275ˆRTS 6280ˆSPC„3 6285�GETBIT�EQU„* 6290�*�ENTERED�WITH�(BITNR�+1)�IN�BLOOP 6295�*�SELECTS�THE�CORRESPONDING�BIT�OUT�OF�A�BYTE�POINTED�TO�BY�X�AND 6300�*�PUTS�IT�IN�THE�CARRY 6305�* 6310ˆLDABƒBLOOP 6315ˆLDAAƒ0,X 6320�GET01‚RORAŒROTATE�RIGHT;�BIT�IN�CARRY 6325ˆDECB® 6330ˆBNE„GET01„ROTATE�TILL�REQUESTED�BIT�IS�IN�THE�CARRY 6335ˆRTS 6340ˆPAGEƒ 6345�SETBIT�EQU„*ˆSETS�OR�CLEARS�THE�D.O.�BIT�IN�THE�CARRY 6350�*�R0=0�CLEAR�BIT;�R0=1�SET�BIT;�MOVES�BIT�BACK�INTO�BYTE 6355�* 6360ˆLDABƒBLOOP„BITPOSITION�IN�A�BYTE 6365ˆLSR„R0‡BIT�0�OF�R0�IN�THE�CARRY 6370�SETB1‚ROLAŒMOVE�BIT�BACK 6375ˆDECB 6380ˆBNE„SETB1 6385ˆSTAAƒ0,X„RETURN�THE�BYTE 6390ˆRTS�DONE 6392ˆSPC„3 6394�FNDBIT�EQU„* 6396�*�ENTERED�WITH�(BITNR�+1)�IN�B-REG 6398�*�SELECTS�THE�CORRESPONDING�BIT�OUT�OF�A�BYTE�POINTED�TO�BY�X�BY 6400�*�SHIFTING�LEFT�AND�PUTS�IT�IN�THE�CARRY 6402�* 6403ˆPSHA 6404ˆJSR„AXA†ADD�OFFSET�TO�POINTER 6405ˆJSR„TSTBITƒFIND�BIT 6406ˆPSHBŒBIT�NR 6407ˆLDABƒBLOOP 6408ˆLDAAƒ0,X†GET�BYTE 6409�FND01‚ROLAŒROTATE�LEFT;�BIT�IN�CARRY 6410ˆDECB® 6412ˆBNE„FND01„ROTATE�TILL�REQUESTED�BIT�IS�IN�THE�CARRY 6413ˆPULB 6414ˆPULA 6415ˆRTS 6416ˆPAGE 6417�INSTEP�EQU„*ˆGETS�A�1-3�DIGIT�DECIMAL�NR�AND�STORES�IT�IN�VAL1 6418�*�ON�ERROR�THE�OVERFLOW�BIT�IS�SET 6419ˆCLR„VAL1+1 6420ˆRETURN�INSTP0 6421�* 6425�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6430�* 6435�INSTP0�JSR„INNR 6440ˆBVS„INSTP3ƒBRANCH�IF�ERROR 6445ˆSTAAƒVAL1 6450ˆCMPAƒ#CR 6455ˆBEQ„INSTP3ƒBRANCH�IF�CR 6460ˆRETURN�INSTP4 6465�* 6470�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6475�* 6480�INSTP4�JSR„INNR…GET�DECIMAL�CHAR. 6485ˆBVS„INSTP3 6490ˆLDABƒVAL1…GET�FIRST�ENTRY 6495ˆCMPAƒ#CR 6500ˆBEQ„INSTP1ƒBRANCH�IF�CR 6505ˆASLB 6510ˆASLB 6515ˆASLB 6520ˆASLB 6525ˆABA 6530ˆSTAAƒVAL1+1ƒTWO�HEX�CHARACTERS�IN�A�BYTE 6535ˆRETURN�INSTP5 6540�* 6545�*�ENTER�HERE�AFTER�INTERRUPT�FROM�KEYBOARD 6550�* 6555�INSTP5�JSR„INNR…NEXT�CHAR. 6560ˆBVS„INSTP3ƒBRANCH�IF�ERROR 6565ˆCMPAƒ#CR 6570ˆBEQ„INSTP2ƒBRANCH�IF�CR 6575ˆLDABƒVAL1+1 6580ˆASLB 6585ˆASLB 6590ˆASLB 6595ˆASLB 6600ˆABA 6605ˆSTAAƒVAL1+1 6610ˆBRA„INSTP3 6615�INSTP1�STABƒVAL1+1 6620�INSTP2�CLR„VAL1 6625�INSTP3�JMP„RCP1A 6630ˆSPC„2 6635�INNRƒEQU„*ˆINPUTS�DECIMAL�NUMBER�OR�CR 6640ˆCMPAƒ#CR 6645ˆBEQ„INOK…BRANCH�IF�CR 6650�INDEC‚JSR„OUTCH 6655ˆSUBAE ƒ#$30…CHANGE�TO�DECIMAL 6660ˆBLT„INERR„BRANCH�IF�ERROR 6665ˆCMPAƒ#9 6670ˆBLE„INOK…BRANCH�IF�OK 6675�INERR‚SEV 6680�INOKƒRTS 6685ˆPAGEƒ 6690�***************************** 6695�*‚STRINGS‚AND‚CONSTANTS‚* 6700�***************************** 6705�M1…FCC„/TUBE�LEVEL�JOB�SELECTION/ 6710ˆFCB„CR,LF 6715ˆFCC„/(1)‚TUBE�STATUS�DISPLAY/ 6720ˆFCB„CR,LF 6725ˆFCC„/(2)‚DIGITAL�OUTPUT�STATUS�DISPLAY/ 6730ˆFCB„CR,LF 6735ˆFCC„'(3)‚STATUS�CHANGE' 6740ˆFCB„CR,LF 6741ˆFCC„/(4)‚MAINTENANCE�COMMANDS/ 6742ˆFCB„CR,LF 6745ˆFCC„'(5)‚RECIPE�CHANGE' 6750ˆFCB„CR,LF 6755ˆFCC„'(6)‚LOT�NUMBER�CHANGE' 6760ˆFCB„CR,LF 6765ˆFCC„'(7)‚RECIPE�NAME�CHANGE' 6770ˆFCB„LF,EOF 6775�M2…FCC„/‚STATUS�/ 6780ˆFCB„EOF 6785�M3…FCC„/‚BOAT�/ 6790ˆFCB„EOF 6795�M4…FCC„/‚STEP�/ 6800ˆFCB„EOF 6805�M5…FCC„/‚TIME�/ 6810ˆFCB„EOF 6815�M6…FCC„/PRESS�ANY�KEY�FOR�JOB�SELECTION�/ 6820ˆFCB„EOF 6825�M7…FCC„/INCORRECT�ENTRY/ 6830ˆFCB„CR,LF,EOF 6835�M8…FCC„/ID�/ 6840ˆFCB„EOF 6845�M9…FCC„/RN�/ 6850ˆFCB„EOF 6855�M10„FCC„/FN�/… 6860ˆFCB„EOF 6865�M11„FCB„$C1,$C2,$20,EOF�/AB�/ 6870�M12„FCB„$C1,$CC,$20,EOF�/AL�/ 6875�M13„FCB„$C8,$CC,$20,EOF�/HD�/ 6885�M14„FCC„/�ON�/„ 6890ˆFCB„EOF 6895�M15„FCC„/OFF�/… 6900ˆFCB„EOF 6905�M17„FCC„/OPEN‚/„ 6910ˆFCB„EOF 6915�M18„FCC„/CLOSED/… 6920ˆFCB„EOF 6925�M19„FCC„/STATUS�CHANGE/ 6930ˆFCB„CR,LF 6935�M16„FCC„/(1)‚TIME/ 6940ˆFCB„CR,LF 6945ˆFCC„/(2)‚DIGITAL�OUTPUTS/ 6950ˆFCB„CR,LF 6955ˆFCC„/(3)‚SETPOINTS/ 6960ˆFCB„CR,LF 6962�M30„FCC„/…YOUR�SELECTION:�/ 6964ˆFCB„EOF 6970�M20„FCC„/„TIME�=�/ 6975ˆFCB„EOF 6980�M21„FCC„/NEW�TIME�=�/ 6985ˆFCB„EOF 6990�M23„FCC„/NUMBER�TOO�LARGE/ 6995ˆFCB„EOF 7000�M24„FCC„/INTERLOCK�ERROR/ 7005ˆFCB„EOF 7010�M25„FCC„/CHANGES�OK?�/… 7015ˆFCB„EOF 7030�M27„FCC„/ENTER�THE�STEP�NUMBER�OR�CR�TO�EXIT/ 7031ˆFCB„CR,LF,EOF 7060�M31„FCC„/RATIO�ERROR/ 7065ˆFCB„EOF 7070�M32„FCC„/LOT�NUMBER:�/ 7075ˆFCB„EOF 7080�M33„FCC„/NEW�NUMBER:�/ 7085ˆFCB„EOF 7090�M34„FCC„/RECIPE�NAME:�/ 7095ˆFCB„EOF 7100�M35„FCC„/ƒNEW�NAME:�/ 7105ˆFCB„EOF 7110�M36„FCC„/ENTER�THE�RECIPE�NUMBER�(1-3)/ 7115ˆFCB„CR,LF,EOF 7116�M38„FCC„/COMMAND�MODE;�LEAVE�THIS�FUNCTION�BY�TYPING�CTRL-A/ 7117ˆFCB„CR,LF,EOF 7120ˆPAGE 7125ˆEND åååååååååF ååååååååååååååååååååååååååG ååååååååååååååååååååååååååH ååååååååååååååååååååååååååI ååååååååååååååååååååååååååJ ååååååååååååååååååååååååååK ååååååååååååååååååååååååååL åååååååååååååååååååååååååå