IMD 1.18: 14/10/2014 21:20:31 philips tape soft  BASIC 0300220580SCTASM \l|„Œ”œÿÿÿÿÿÿÿÿþüÀÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿüÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿLIST CMHrMDOSOV0 SY\2ÿÿNDATA SA<ÿÿAS OR DIR CMürÿÿPESFT3SAhÿÿPESFT3LOˆMDOSOV4 SYŒ2ÿÿT ORÌÿÿSTER RCÄMDOS SY2ÿÿC1 ORMDOSOV6 SYœ2ÿÿPESOFTLXðMFA SA,MFA LO<ÿÿPESFT4SAŒÿÿPESFT4LO¨ÿÿ RCxTAPESFT8SAðÿÿ RCÐÿÿAS RC`MDOSOV1 SYl2ÿÿ RCÔÿÿPESFT2SAHÿÿPESFT2LOdÿÿPESFT5SA¬ÿÿPESFT5LOÌÿÿMES SAÿÿPESFT1LO(ÿÿPESFT1SA MFA2 LODMDOSOV3 SY„2MDOSER SY¤%ÿÿST ORDDEL CMÁ&æ¦Î½à–Š0·žÖ–Τ½àþ¦'Z\'+þ§ÿþÿ á} &Ü| ¦J"ÒÎ?(æ~>ÿ¦Î m'»¡'Æ?' ò|&|æîÿ7½6 þ†§Î ­ Îÿ½ð$½ð! 9þÿ þÿÆÎ?þ †.§ÿ ÆÎ?þæþ †:§çÿþÿ9þÿþ»·$|¶Á&ö½à9½å9þ¦·G»·$| Å0î ÿ~”626 §2§9DDDD„‹09#‹90 T1”3»8Õ "#$ %&'()*+,-.5TtINVALID MESSAGE \3 AT \8UNIF. I/O ERROR-STATUS=\3 AT \8PROM I/O ERROR-STATUS=\3 AT XXXX ON DRIVE X-PSN XXXX0MDOSOV SYÿÿÿÿÿÿÿÿÿÿÿÿÿÿs ý6ÎÐöë 6Îâöí 6Îçöï 6Îéöñ6ÿ*0¦€§$j¦Î_…\€$û÷8¦H·G·DÎÂæ¦÷´·µ¶6ΩÆ@?% 2·0æî 229†V— ½èS½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò­ ”~޽ü½ü½ü½ü½ü ½½½¿ Î †ªæ§÷ ¡ç'î ÿ þÿúÿþÿøÿÎ/ÿÿúÎÿÿÿø¾ †/η°|°ÿ ƒÎ©Æ?$~kæ ¦ þ ƒ§çŒÐ&Ü_Î …?9½èSÎ ŠÆ?Î …?:½èS¾ 9µååå €  ss~©~½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½ò½òÿææ÷åî' ÿèÎè†?þè Î ÿèþÿíþæî ';½À îÿïZ†9þè ÿóÎó†?_þó½Î$~‘þg?'ÿõÿý Îÿõ ÿýÎÿëöåÎê?þõ'~rÿ÷½.&.%,þõÿûÎÿñ½]%½.& % þñÿñ ë½l ½l~§½]$È~§ÿù÷ø½.%'þæÆå &Îÿõ~4þ÷ÿ÷¼è'½]$Ö Ûþ÷&~öè¶é?&½Î$ þæî&éþ÷ÿèþæm &m 'Æå ' þý¼ù'~þùÿõþèÿñ½.êçþõÿõþñ ÿñ&éöåÎê?þæî &þíÆ€O?Zþíçþù?1?1ÿë ÿëöåÎê?þím+ øÿóþù¼ý'Kþèÿñ_† ½Î$÷ñ·ò¶ò?,ÿèþùÿï?)ÿùöòþï½™þóç§ÿó îÿýþè&¸~ùþó ÿó÷ñ† & þóÿó –·÷_þè?&½Î$¶é·÷¶÷þè?,ÿèþù?(ÿùöñû÷þï½™þóç§~‰Îÿÿÿûþíÿïîöý¶þ½Î&^þý½‡XXZþû?'ÿõ½gÊ€þóç§öåÎê?þæî &öë¶ìþæç § _9þæöý¶þç§öû¶üç§öõ¶öç § Û½‡XXþû?'ÿûþï~Æ 9Æ úÆ öÆ òÆ îÆ êÿææ÷åþÿíþæî &~…½ÀÆtÎÿþíÿÿÎÿ?þæîŒÿÿ'~vþææ÷óÄøTTTÁ-Á#~•ë÷ìöåÎê?öóÄXXXXþí?'¦ÿ'~™þæo o Îm*~KÿóÎÿëöåÎê?þóî* öåÎê?~K½‡÷èÿõ½.%SäçþõÿõöèZ÷è&æþóÿó Á?0?0ÿñþíÿóþóî*~‰½‡è÷éÿõþèöñ¶ò½Î%R?.÷ñ·òþóÿóþñ&ǽ©þææ¦Ê€þóç§ÿóþíÆ†t?)¼ó' þóoo äöåÎê?þï~½©öéðò¶òþõ?(½™þïç§þõöò½™þóç§ÿó~Áöõ¶öνÎ$9 þí?( å9ÄTFVFVD6YYYO FZ,ü29þõÿõƆÿ½Î9þñö÷¶ø½Î$ þñÿ÷þûÿù9½gÄ|WW\7½gÄ?%39ZXX7½gÄ?%3O?*9þóöí¶î?-½gÎ?)ÿï9ÿëöåÎê?þíÆm+ \Á:/õ11~…Á'÷9 åå € p ss½ò½ò~·~Á~~â~ ~~ 9~½~å~‚~~1~N~N~ÿ0îî¦90êç9½X0oƽ8]'Á'd*&ÆàÖ.&PÆ‚½8]' *&ÆÊÀ:&† 0î?ÆÁ½8† 0î?£0æ90î î¦;' ' 0î l&lî¦9Æu ¼#'zÆ€½± ‘„?6½ Å€& 'õÅ@'?$ @?%Ä?0îî]'§Z0½Y¡?%äŠ0 äÄ?')760á'î î?0¦î ?23*& ½ ?$ù?$õ†*190î6?29ƽ±0î†?ƈ½8~'6Á'-þ ¶ öÿ?-?&0 )?&þ?)ö ¶ ?/%ö¶?/$¶ ‹öÉÿ0ç§_ŒÆŒÆ2W9¦ …@&-„ $*¦?%$¦ ?%þÿÝî'?/'þÝ ì~­~°~³þÝî'ðÿßþÝîŒDK&~¸þߦJ0îæ Ä%Aþß]'† ?(Z ÷ÿßî'»¶àöß0î§ ç¦ Š@§ ¦„?Ч Æ0¦îç9ÆŒÆŒÆ í0îæ Äþߦ·á¦ $ à † ?(zá&ð Ù~€6¦ …@'¦…'¦ „¿§ oo Æ ÆŒÆ 2ç9ÆŒÆÿŒÆÿ”÷–¦…'~Z… '~]„&~]™|™¦„·—'''~`¦…&™æ¦§ç…'|œþ”æ ¦ Áÿ&ÿ&o o î …'sœîÿ’­”$~cþ”¦„?Š@§}–&~¶¶—'~¶›}–*~9˜þ”¦æî½Î%xæþ”l&l¶—&Á'ÜÁ &}œ/%}™& |˜†±˜&ĽG 0}™& }˜'7½G3%!¶—&¶–' Á & ½š ¶š·š½$~T~À›Æ½$6~T¶—&%}–' þ”îæÁ '!}œ,þ”Œ &æ Å '  $~T½š%ø~i}–&|› ¶—&ôöšP½9›Æ ½%}œ. Æ ½%ƽ9ÆE}–+ ÆH}–'ÆD›½$~TšO}–+þ”æ¦î ?.]'~fÿ$ùL»š·š›}–&|› ¶—'ô½%C}–*~r~µ}›'7ÄðTTTTþ’½‹3% Äþ’½‹9Ê0Á:%Ë9ö˜˜Ê€› Èþ”æŒÆŒÆ ŒÆ ŒÆŒÖŒÆÁ' 7þ’­”3þ”ç]' 9zþ&}ÿ* †V·þM†7K$>0îîî† § 1Îÿ ' ¶üôG$÷öüõÄ 9 9†W·þ}ÿ*†7 ¶üý„_·üô† 0î11n†~ù϶üý„?·üô†½ð}ÿ&¯­ ÛW½ð ÒÁ & }ÿ*Î]À &ý9 ¾|ÿb}ÿ*»†0¹†µ† ±†­ÿb}ÿ*œ¡†9½ðÆO™Z&û ‹ËÆ2OZ&û† ½ð§ Ïååå€`~°~¬½ü½ü½üÆ _÷çÿåîÿãþåÆå'~͆¤&~ц ¥&÷½$~Üèîþ忦ç§}ç&†¤'''~Ø~êþã†é¥'|éþåæÁ - ÁZ.½$~ܽ¨%_ Æ÷ë½%$~Ü}é'ZÁ& ½œ'ÝM&ZJþåç§è?%æ½$Å~ÜÁ&½~áÁ&(½%êþåîÿìþ忦þì?/'™æÿì½%É åÎñá'…¶ø¡&ôÁ &8þåîç}é'}ë&½– ½$~Ü}î'~å}è'~î½úþåo_9½Û'Á&|î]*Ä'÷ìÆ ½¿zì' ô½¿~4½%$~Ü}ç'ÁH' ½Û' ÁE&|î ÁD'½… Öï}ç&tþ冤&i†·ê½p%¾½}÷ð&~ö}î'Á&ô}ç'Á&ëzð' ½p%—½}½¿ î½p%н}}ï&̽%%äÁ &÷þ忦á&¡'m&jj~Ù†ÿ •0îç] 9Æ ôÆ ½ú íÆ ÷0îæÁ &î}ç&Æ åÆ áÆ ÝÆ Ù7þãî­å39þãî­å9þå†@ª„§þ ãî­ å9þ冀ª„¿ é½%%%½…"$1111~öXXXX÷[½%% ½…%æû[ 9À0%Ëé% Ë*Ë%Ë 9}ê+½%9½09¶ï·ï97Á &½39Æ ½%Æ ½9þ忦î?/9þ忦î}ê&M&ZJ½Î97½¨%3ç½gþåç§9†·è39þㆥ9 ÿ!€8½ü½ü~¬~~Žÿ†¥'~úæ¦ ÷· †¤&þî­ þ†ª§o_9þ†¥'ᆥ' þ† ¥'~vþ†¤''&¼?8'¸~ìþ†@¥'Xæ ¦ Áÿ&ÿ'Læ¦&]'Cî?/'=Æ€?'?$þî?/?&%ï ?$þç#§$î?/%o ÷þ† ª§?†ß¤§]'~ìþoo†¥&~Êî Œÿÿ&Qþ†À¥'~þ¦· æ îÿ„øDDD-#~ · Î ?ö ÄXXXXþ?'†ÿÆ?þæ Î ?þÆ ?'?"%~Ê0§ç] 9Æ îÆ êÆ æîÆå&0îo_90î?&ZæÄøTTTÁ-PÁ"LŠ÷‹æ þÿŒÎ‰?0îæÄXXXXþŒ?'æÁÿ''ÿŠ0îÆ ?'ÿŒÎŠ6Æ ?20î?90îç 9Æ õÆ ñÄ&~…÷¾îÿ¿¦·É0îîÿÁÄ' „æÄ&Ûþ¿Æ?$~‰½¢ÿÇö¾Ä'Mþ¿¦ æ„Äÿ·Ã÷ÄþÁ¦ æ·Å÷Æ„Äÿ±Ã'~‘ñÄ&øö¾Ä&þǶÅöƧ ç öÉÎÊ?_9ÆþÁ?%~þ¿ö¾Ä' ¶ÅöƧ çÆ ?'ÿÏþÁ?'ÿÑÎÏÆ?öÉÎÊ?þÇÆ½•þÁÆ@?%!öÉÎÊ?þdžÿ¡&ƽ•~Æ 9Æ úÆ öÆ ò†ÿ?öÉÎÊ?9¦îÿÍ„HHHH?(ÄøVVVË÷Ì9#€H  ~½ÿ.Æå&~dž@¥ &~ËOîÿ0þ.†¥'¦„'~ïþ0†€¥&.~Ͻo_9þ0†¥'þ.†?¤§†¤'&~¦~¥|O àþ0† ¥&~Ó½þ0†¥&~Bþ.½ÿÆ ?'Æ?$Á'Æ ? ?þ.†¤&~µ~×þ.†¤' †€¥'~ë†÷¤§oo†ÿ§ § §§ooæ!¦"ç#§$îÿ3þ.æ îÿ5Î2?þ5æ*~Û¦þ.ç §þ5Æ:m+Z&÷~Ûæ¦Äþ.ç§~P}O'~P½?6'~œm 'Æ ?'ÿ3þ.îÿ5Æ Î3?&þ.îÿ3þ.Æ ?'ÿ5ÆÎ3?~Pþ.î¦ þ.§?'üÁ 'øÁ '¦ «þ0†@¥&~Ó½þ.¦„§„&þ0†¥&† †þ.æÄø6§2'& þ0Æå&~ïþ0Æå&~6þ.½ÿÆ ?'Æ?$Á&~ßÁ&~ãÁ&~çÆ ? ?þ.†ª§~à' ''~ï}O'~Pþ.îÿKþ.îÿMþ.Æ ?'?$þ.ç§?%Æ?'?$þ.ç§½?7öK¶Lç§öM¶Nç§m&~S†ª§~¿þ0†¥&~φ`¤`&½~›0îç] 9Æ ôÆ ðÆ ìÆ èÆ äÆ àÆ ÜÆ ØÆ ÔÆ ÐÆ ÌÆ ÈÆ ÄÆ Àæ!¦"  â‹ÉH&911 èþ.†ï¤§9þ0î­.$11~ó9%€X  ½~~+•ƒhAs@ÿÿ&ÿÿ˜°°Ï‘LOAD=MDOSMAPR:0,CMDI:1;MO=#LP;MAPF;EXIT OBJA=MDOSOV6:1 00;LOAD=RLOAD:1 D:1  END CHAIN¶HHHHC„ð´'Æ1~? $Æ0 õþ9ÿþ- ÿ-ÎæÊ ç?'Æ ×þÿ9½? %ÑÎA¦@'C\&ÿ0æî$§ ']'Z ñ¶„·0¦¦î9Æ)~ÿþ¦ÿþ9¦*'..'*½ñJ'tC'fL'_ÿ½øS&~dÿ½øT'%Æ2 ¹6ö'ÎA? 2.&4Î(? ? $~C½ð #6¶·-ö¶ô´þ?/  ½~2~k¶„· óÿ|½~þAŒ@L&õÎA½ñ¼&ê Ò¶ö´ôºú·÷ ¸O †6ÎæÄßç?&%2M' ¶&ÎA? þÿþÿÎ_?ÎA9Á &4¶'Æ3~¶+Æ4 ô¶Š·Îÿÿÿ'Î?& ?&Î? ~~aÆ?'ÿþÿÎ6½(2&þ9Æ ? þÿ‘Î???ooÆ0+( # €+ .‹ ÿ7ÆxyZ&÷»·3Z&Ò9 '€xýý~ Î!jÆ?έoßþ_Î!e?þ!hîÿ!;¼&%þ!hî ÿ!>¼&ÎÂÿ!jÎ!—ÿ!lÆÎ!j?' †RŒ†I— ½èS úÆ? ¶ÿ'~ †U~ HÎ ¦ …@'ÎE¦ …@' þ{'3Îj? ,Î ?%È?%ÄÆêçÎE?%·?%³Îj?%¬?%¨Î!5? †=·3ήÆO? ? _÷3÷¶„·έßþÿ!AÎ!Eÿ!C†0§§ÎCMÿ!NÎ!A?]&5ö!EÁ0-.Á3.*þ!AßþÆÎ!E?Á'†Á'†Á'†Á'† ? ~ Î!^? Æ€?#¶Š€·~  MDOS . !q!ðWHAT?!q!ný½ååå )€ 0B01COMMANDSYNTAXERROR 0502NAMEREQUIRED 0603\0DOESNOTEXIST 1B04FILENAMENOTFOUND 0805\0DUPLICATEFILENAME 1A06DUPLICATEFILENAME 0D07OPTIONCONFLICT 3008CHAINABORTEDBYBREAKKEY 3109CHAINABORTEDBYSYSTEMERRORSTATUSWORD 1C10FILEISDELETEPROTECTED 2411DEVICENOTREADY 0E12INVALIDTYPEOFOBJECTFILE 0F13INVALIDLOADADDRESS 1314INVALIDFILETYPE 1F15\0HASINVALIDFILETYPE 1E16CONFLICTINGFILETYPES 2717INVALIDDATATRANSFERTYPE 2218DEVICEALREADYRESERVED 2319DEVICENOTRESERVED 2520INVALIDOPEN/CLOSEDFLAG 2621ENDOFFILE 2922BUFFEROVERFLOW 2A23CHECKSUMERROR 1524LOGICALSECTORNUMBEROUTOFRANGE 0725INVALIDFILENAME 2B26FILEISWRITEPROTECTED 2027\0ISWRITEPROTECTED 0928DEVICENAMENOTFOUND 0429INVALIDLOGICALUNITNUMBER 1230INVALIDEXECUTIONADDRESS 0A31INVALIDDEVICE 1132INVALIDRIB 1D33TOOMANYSOURCEFILES 1634INVALIDSTART/ENDSPECIFICATIONS 1735INVALIDPAGEFORMAT 1436FILEEXHAUSTEDBEFORELINEFOUND 2837ENDOFMEDIA 1838INVALIDLINENUMBERORRANGE 1939LINENUMBERENTEREDBEFORESOURCEFILE 0240DIRECTORYSPACEFULL 0341INSUFFICIENTDISKSPACE 1042SEGMENTDESCRIPTORSPACEFULL 2C43INVALIDDIRECTORYENTRYNO.AT\8 2D44CANNOTDEALLOCATEALLSPACE,DIRECTORYENTRYEXISTSAT\8 2E45RECORDLENGTHTOOLARGE 0C46INTERNALSYSTEMERRORAT\8 2147INVALIDSCALL 2F48CHAINOVERLAYDOESNOTEXIST 3249CHAINABORTEDBYILLEGALOPERATOR 3350CHAINABORTEDBYUNDEFINEDLABEL 3451CHAINABORTEDBYPREMATUREENDOFFILE 3552SECTORBUFFERSIZEERROR 3653INSUFFICIENTMEMORY åå$-€#($ $0300  _"Í"à"çg"Ù"ñ)1#5  "ž_"µ"·# 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½.#×)½.#×1–)Á & & Æ1×1†0—) —1 ö &×1 îÖ1Á0&~$Ý–)'ø·!l·!‡·"Ý÷!q÷!Œ÷"ä„—)—Ä×1ׂÞw¦ 'ù '$;&`¦ßYÎ%A¡' Œ%k&ô Jî­ÞY â11–!+Î!Z&Î!u½0$Î Æ? ¦Y'?–)—½èu– —–1—½èu– —€–!.~%k~'¦Æ ? ~1>Æ? ~1>–!&îJ—!9–!&æL ö–!&߆  — 9†€ ÷|%9|#†—(9|&9|"9|$9–'&´z'ÆÎ#-ÿ ¹Î ¹~.S–'&Ÿ|'Æ Î#" é $ë $”A$óC$ûD%I%L% N%R$ìS%U%V$äY%Z%3–+–€*~1þ–$&΀½/ß9ß7ß/ßQþßMÆ??$„€HYI—O×PÞO}!*DV—O×P„DVF›NÙM×S—T_†?/"m–!+½/) Îß*Îß,½&·Îß*Îß,½&·%EÞMßQ|-Æ7½&·3%5Z&ö–$'4Îß*ÞOß,κ–+ÎŒÖ,–-?-$?)ß,ÎßY½&·ÞY&è~1.~1$~1ÖO–PTFTF—[—\ÎßYß*Îß,Þ9¦ÆHZ&ü—;Æ×~+}½,å Ö~*½+}†ÿ—`_ÞGÿ µ|`Î ±½.Î µ½.‡Þwÿ µ æÁª'Þy æÄçÎ"´½/î|_þ µœI&Ì–_&Î!·~0$Î!Ƚ0$ÆcÞC? ab ßUb½.Å'XÖXÑ`"[}b'Ñc%R×d ×c×d|b-'Ý6–a'!_–cHY?%?1?1?*ÞG?)–dcLÆªç Æ ?'J&õ2,'¯ &–a&’|aÞC ÞC¦ &9½,å~* Á '~+hS'D&õ—e_ÞCÿ ©ÎSAÿ –· † · ½.{Å|&f]*Å'_6¶ ‘2&V6–_'yT$ 7Πƽ+m3T$† ± '· Î Æv`ÞGßaÎ ßcÆ Þc¦ßcÞa¡'*&!ßaZ&é –eS'†ª  ?¦Š€—f§|` ?'ßaœI&¿–`& Î ­½.‡Î"ž½/î2,&~*ª & –_&|_~*¤~)’½,å ø¦ &†*?9Z&ñ9–f'ÞGƪ† œI' m +ç ?( ò9ßwÿ ™¦ „§ ÞE–Š0§ßyÆ Îw?Î ™½.‡–&&Î"é½/îÆÞE?%{î ß*Îß,ß4ÞKß/ß=½02%eÎß_½-àÞA' Ö_–`?)ß_ßj íÞEÖ_–`ç§–‚Š0§æ ¦×l—mÆ?%~,ðÁ'~,Ì–!D%ø† ·"üÎ"ñ–'+½/î ½0$†·"ü–'+7' 9Æ€Î!~1)ÞCÆc? ¦N'ëY'½,å ý,åÎ!Û? ÞCoÆc? ¦ &ÞEÆ?%B½,ÔÆ?%A c ÿ ©ÞEî ÿ ½.{]&Å &ÁÎ ßwÿ ™ÞEßyÎwÆ ?Î ™½.‡ÞE½,Ô~,Î!=Æ‚~1)ÆÎ!~1)Öj–kç§Öl–mç §9ΠŽ0$Ɔ?#9¦ 6ÞIß/ß7ÞEî ß*ß2–‚—)½02%ÂÞK¦+ øæ6ÞI¦+ ø2§ç2„&ÞKÆu?'ßwÞI?'ßyÆ Îw?½0Y%…–—)ÞEî ß2ÞKß=½-àÞ?ß?ÞA ßA½-ÒÞAÖ_–`?/%½-› ÖO–P?/%½-Ï  äÞ_½-›½-Ï Ú½-àÞA&ÓÞ4'½0Y9ß,?$ÞA?-ßAÞ?ß*?)ß?Þ_?-ß_Þ4?)ß4½02Ö,–-ÄTFV72Þ/?)ß/9½0YÎß4ÞOß_ÞIß/9ÎßAÞ=½/ $9ß? ½/ %öœn&ò?'ßnÞA?'ßAÞ=ß= å†>?(¦„ð§†>oJ&ú†§9Î ßy† §Îw?† ± '~$Ö± &øö Á ' Á0,~$ÝÁ3.ù9Ÿr®Ÿw®ŸyžrÎw?9Ÿr®Ÿ{®Ÿ}žrÎ{?9Î ÿ «Î ©?9ƽ.SÆ.ÞyçßyÆÎw?9Æ Æ6¦·.¿¦·.Àîîÿ.½Î.½½1@29Æ Æ7ßrÎßW%½1%ÎW½1šX—XZ&ì—t2–tÞr]9ßuÞU ßuÞUßU¦Þu9ò 'ú9æ¦7ÄHYHY?%2Ä|ËI9Æ?]&9½1Îß*ß2Îß,ß4½02$~/ë–%&~/ؽ,åÎ!½/Þ'# ÿ ©½.{]&ë &çÞ7ßyÎ ßwÎwÆ? ½,åÎ!œe'&Ʀ?%îZ&ö¦ &äÞ7Æ ?'ßyÎwÆ? ½,åÎ!«8'0_¦ ' -ëz.ç\ îÁ"ß7Þ7†?(ßyÎw?†3'Þy?½0Y%9? Î ßwÆ? ]9½1$–#'2? %9?2¦ '' óÖ(Z& 6Î ½?52Æ:×(?3'?4 Ö?5 ? %? ? %9~1.ÎßnΠƽ.S½èi$½0…&öÞ*Ö,–-?)ß*tn9ÎßnÎ ¡Æ½.S½è$½0…%&ìÞ2Ö4–5?)ß2tn9½1>–1'4'7-9#Mk½1>–o'6Þ œp&0zo&3Ö 'æ–4&]*Ý7 T$×7*Þ ß<Þ߆—n3YÞ 9†—oÞ ßp Þ 9Þ ß ÞÆ€?'ßÞ Ö–ß?.Þ?)ß9–60Æ? 29Æ6? Î!ýƃ Î ëÆ„ Î ÒÆ…?#½0$–#' z('Î Ä?5 ô?]'/l&lÿ1sþ1s¦„ #‹‹0m&jjî§þ1s Z&Ýþ1s96†dfJ&ù296†hiJ&ù29A% 6‹¹2%€ 0%6‹Æ2%„9ååå7€ 0300Þþÿ)ÑÎ,{ÿ)ÓÎ)Ñ?'Å&~!#Æ Å&~'Æþ,|ŒDK&~'ÿ,yú,X÷,XÎ, ÿ)ÓÎ)Ñ?'Å& Æ Å'ÌÆþ,¡ŒDK'Ïÿ,žú,X÷,Xþ)Ñ_¦ 'W;' ó¦ÿ)Ñ 'G 'òÎ,`¡&3êþ)ÑD&â†=¡&*Î,»ÿ)ÓÎ)Ñ7?'Å'o~'3 ',& þ)Ñ ¸m&Ã~' ÷,[Å'Å`'$Å@'Å &ÎUDÅ€'ö,XÅ'¼,|''Å'¼,¡'~'Å&ùö,XÅ'¼,|'í Å'¼,¡'âÄ Á &~&ù…'… &Æ ñ, &ñ,©'銷,X„'~$Æ ñ, &¶,{·, ñ,©&þ,„ÿ,©ñ,¡&Î,|ÿ)ÑÎ,¡ÿ)ÓÎ)ÑÆ?ÆtSõ,['~'ö,[ÄPÁP'ôÆ ú,r÷,rÆ ú,—÷,—½)i$~'/ö,[Å 'Î,žÿ)ÑÎ)½ÿ)ÓÆ Î)Ñ?Î,q?'~&ð?&ùö,[Å@'~"Ýö,ˆÄ÷,­ö,‰÷,®þ,Šÿ,¯þ,„ÿ,³½'¨Æú,—÷,—Î,–?&Á?'},³&},´'³Á&¯,³,´ æ½'3Î,q?&~"ÊÁ &–ö,ˆÄÁ&WÎÿÿÿ,‚ÿ,§þ,Æ?'ÿ,’Î,q?'~"ÚÎ)Öÿ,µÎ*Uÿ,·ÿ,¹Î,–?&oþ,Æu?'ÿ)ÑÎ*Kÿ)ÓÎ)ÑÆ ?Îÿÿÿ,§Î,–?&Kö,[Å '"½'CÎ,q?'~&ðÎ)½ÿ)ÑÎ,žÿ)ÓÎ)ÑÆ ? %½'=})Ê'ÆBð)ʽ(*?þ,”ÿ,¹Î,–?&~"~&ðþ*Vÿ,µ ÿ,’ÿ,”þ*Xÿ,·Î,–½'‡þ,·ÿ)Íÿ)Ͻ'3Î,qæ#¦$þ)Í?/%~#¤Î,qæ¦ ÷)Í·)Î?'Á '~&ðÎ,–æ#¦$þ)Ï?/$Î,–?&~$Á &áö,ˆÄÁ'~"¸Îÿÿÿ,‚ÿ,§ÿ)Ëþ,Æ?'ÿ,’Î)Öÿ,µÎ*Uÿ,·Î,q?&¬Î,–?&¥þ,Æu?'ÿ)ÑÎ*Kÿ)ÓÆ Î)Ñ?'´½(g&ô ­Î,–æ#¦$þ)Ï?/$Î,–æ¦ ÷)Ï·)Ð?'Á ':~&ðþ)Íÿ)Ñþ)Ïÿ)ÓÆ€Î)Ñ? $~"¸?'½(g&íþ)Ñÿ)Íþ)Óÿ)Ïþ)Ëÿ)Ë~#þ)Ëÿ)ÑÎ-!ÿ)ÓÎ)ÑÆ½-âÎ-½(4~"¸ö,[Å '~'Å€'Sþÿ,^þÿÆÎ,»?þ,^ÿ$Á&~&ýÁ&~'$Á&~'~'ö,[Å'¶,]6¶,\644446ÎÿÿúþnÆ ñ, &Æ0÷, ½)i$~'/ö,XÅ&~&:Î,|ÿ)ÑÎ,¡ÿ)ÓÎ)ÑÆ ?Î,q?'~&ð?&ùö,ˆÄÁ'Á'~'¶,[…'~'…'Á&õÆ Á'ƶ,ˆ„x·,­¶,[…'Á&׆º,—·,— |)Õ¶,[…@&KÆú,—÷,—Î,–½)4'?'~&ð?&ù½'3Î,q?'Á &ë~"¸})Õ& þ,u¼,s'â|)Õþ,sÿ,œÎ,–?&Ë ÐÎCN¼,ž&~'Î+Yÿ,šÎ,Wÿ,œö,[Å&|)Õ½'‡½'3†½)'Î,q?'4Á &’†½)'Î,–?' Á &~"¸~&ðþ)Ëÿ)ÑÎ-ÿ)ÓÎ)ÑÆ½-?Î- ~$})Õ&î¼,s'±†½)'Î,–?'Á 'Ê~%&})Õ& î¼,˜'á|)Õþ,uö,s¶,t?.L·)¶þ,šö,˜¶,™?.L±)¶$·)¶þ,uÿ)Ñþ,šÿ)Óö)¶Î)Ñ? $~"¸?'½(©&í~%ÎCN¼,y&~'~'ö,[Å'¶,X…',r·,r†·,ˆ |)Õ,|ö,XÅ' Æ ñ,©&ÎSAÿ,©Î  ,¡ÿ)ÑÎ,|ÿ)ÓÎ)ÑÆ ?Î,q½)4'?'~&ð?&ùö,ˆÄÁ' Á'Á'~'ƶ,ˆ„x·,­ö,XÅ&Î,|ÿ)ÑÎ,¡ÿ)ÓÎ)ÑÆ ?ö,[Å@'~%]½'¨Æ~%Æ? ½'=?Æ õÆÎ,» îÆ êÆ æÆ âÆ ÞÆ ÚÆ ÖÆ ÒÆ ÎÆ ×Î, Æ ÃÆ6 ¿? $½'=?9Î,q½'hö,—ÄÁ&Æõ,—&Îÿÿ¼,¡'ú,—÷,—Î,–½'h9ÿ'…?'Á'_? þ'…?'Á'_? 9Î,–æÄüÊç½)4'?& ?&Î,Ô? 9~&ðÎ, Æ?'9ö,­Å€'~'(Ķ,ˆ„' '~' Á&ùö,XÄÁ& ö,­Ä¶,ˆ„&ãö,[Å'9Î,¡ÿ)ÑÎ,çÿ)ÓÎ)ÑÆ?þ,©ÿ,ðö, ÷,óÎ,ç? Î)ÖÆ? ö)ÖÁY'ÍÆ€?#½'=?Î(3?5Z&ø9Æ?#ö,[Å&? 9})Ê&ÿ(eÆ÷)ʽ(*þ(e?5|)Êö)ÊÁB-)Ê97þ)˼)·'ÿ)·ÿ)¹Î-!ÿ)»Î)¹Æ½-âÎ-½(437†€·)º)¹Î--ÿ)»Î)¹Æ½-â½(ì3Z97þ)˼)·'ÿ)·ÿ)¹Î-ÿ)»Î)¹Æ½-?Î- ½(437¶)¶·)º)¹Î-.ÿ)»Î)¹Æ½-?½(ì3Z9þ)Ñ æ÷)º)¹Î-5ÿ)»Î)¹Æ½-âþ)Óæÿ)Ó÷)ºÎ-=ÿ)»Î)¹Æ½-âÎ-#½(49µ,X'þ)Ëÿ)Ë9¦H&¦ R&¶,Y§¶,Z§ ¦ Š@§ o9¦U&ù¦ D&ó¶,ʧ¶,Ë ßþÿ,ÿ,µÆ??$„€HYIM&Á" 9DV„DVF÷)´·)µ»,‘ù,÷*V·*W»)µù)´?% ÿ,’ÿ,·ÿ*X 9ÿþ.˜$€NCWB LV@D€M*Z+XDK0  SA*Z+XDK 0 LO)Ö*UVERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? RECORD XXXXXSECTOR XXXX OFFSET XX SRC-XX DST-XX]&~-Ël&l÷-Þÿ-àÎ-Ìÿ-Û†·-ßþ-à¦æÎ-Öoîà¢%Î-Öl ñë©Î-Ö67¦‹0æ 'Z&ü§32Î-Öl&ll&lj ,Ãïî¦Î-Öî m&jjî§Î-Öl&lj&Þþ-àO9'èd ]'/l&lÿ.þ.¦„ #‹‹0m&jjî§þ. Z&Ýþ.96†dfJ&ù29  ½.G ½.Y$ 0îîî† §0î11nÿ. þ.œoo†<§þ. 9ÿ. þ.œ¦†4§†<§.¢.£¦+ z.£&÷z.¢&ò ¦%0îîîæÄÁ&„ þ. 9.#ä°„?€  0300O—$—%—&—#L—-† ·$ª·$À$v†0·$eÎ$fÆ ?Þþÿ%äÎ$eÿ%æÎ%ä?× _þ%ä¦ '@;&õ¦ '5E& ʆ ·$ª ìA& ʆ ·$ª·$À ÜL&Ê ÔS&Ê Ì 'ÈÆ ×!ö$e÷$†Ä' Á/Æ~#5÷$e– …'Æ ðÎÿ%ÒÎ$Ñÿ%Ô7×½èu3Î%Ñ?$Æ~#5Î$Ñÿ%ÖÎ$–ÿ%ØÎ%ÖÆ?Î$~½$1Æ Î$e¦&¦ '~"±Ö Å&÷Å&óÆ×" Æ×"? $~#¢Ö"Î$e?$~#–#'½#Ñ&ä–"J& –!…&¶$r… &Ò|&½#²–!„&~"Ÿ½$þ$pÿ%ÚÎ$·ÿ%ÜÆÎ%Ú½&ÃOö$v—'×(Þ'ÿ%ÚÎ$¿ÿ%ÜÆÎ%Ú½&Ãö$eþ$pÿ%ÒÎ%Qÿ%ÔÎ%Ñ?$Æ~#5Îÿ$¹Î%Qß'¦+„|‹Î$¹?Þ'ß'¦*íþ$¹–%Ö$?)ß$þ$¹ÿ%ÚÎ$¼ÿ%ÜÆÎ%Ú½&Ö!…&~"Ÿ¶%Q*†@Æ‚?#Î&.ÿ%ÖÎ$Ãÿ%ØÆ Î%Ö?~"ŸÎ00ÿ$ÃÆ Î$Å?Î%Qß)¦æÄ—(×'Î'†?Þ'ÿ%ÚÎ$Éÿ%ÜÆÎ%Ú½&ÃÞ)¦„ü‹—('Þ'ÿ%ÚÎ$Íÿ%ÜÆÎ%Ú½&ÃÎ$Ÿ½$1ö$ŸÁ 'Î$Ÿö$Ð?Î$ÄÆ½'§þ$ÃŒ57&Þ)¦+*†@Æ?#Î&ž½$1 Þ)ß)¦æ+? $~#¢~" Î$Ÿ½$1–"…'~#9~!_×+×,Æ Î$f¦&z+ – …&†—+ |+Œ$n'¦&òÎ$n¦&z, – …&† |,Œ$p'¦&ò|#Î$fÿ%ÖÎ%èÿ%ØÎ%ÖÆ ?~!Á&Æ€†@?#Î&9½$1 sÁ'Æ ? i–&'ä–!„',Þ$ÿ%ÚÎ&oÿ%ÜÆÎ%Ú½'Þ$ÿ%ÚÎ&tÿ%ÜÆÎ%Ú½&ÃÎ&R½$1–&—('Þ'ÿ%ÚÎ&˜ÿ%  ÜÆÎ%Ú½'Þ'ÿ%ÚÎ&œÿ%ÜÆÎ%Ú½&ÃÎ&v½$1–!…'Ö-Z'½$J?Î$fÿ%ÖÎ$Ÿÿ%ØÎ%ÖÆ?†.·$§þ$nÿ$¨9Ö++Î$fÿ%ÖÎ%èÿ%ØÎ%Ö?&–,*O J'þ$n¼%ð ¶$n±%ð9Î%Þÿ%ÖÎ$­ÿ%ØÎ%ÖÆ?Æ.¶$rÎ$­H%çŒ$²&õ¶$r„ª§9–!…&? 9z-&†<—-Æ?49?2Î%ò† Z'§ ø†§Î%ò?5?390 $Ñ%PDRIVE : 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&Ýþ&ö96†dfJ&ù29]&~'l&l÷'£ÿ'¥Î'‘ÿ' †·'¤þ'¥¦æÎ'›oîà¢%Î'›l ñë©Î'›67¦‹0æ 'Z&ü§32Î'›l&ll&lj ,Ãïî¦Î'›î m&jjî§Î'›l&lj&Þþ'¥O9'èd †«Š§‹Æ$†0§ Z&ì9ååD€8 0300ååŸ'¶ëÿE&Æ ? ?Æ øÆ ô_C'Æ×$†1·#/Þþÿ#:Î#/ÿ#<Î#:?† ±#0&Ó±#8&Îö#/Á0/ËÁ3.Ç÷#KÎ#>? Î#NÆ? ¶#NY'?ö#KÄ×ÎLß Î ß.Î ß½è"–ÆfD'ÆF÷ìÆ$T÷ì}$& ¶ëþ'&†ÿ ¶ìHH—,$†3— PΖ,+Î4ß½"°æOæ*üæ_Z&ýLm*÷\€K\€$û×)T×*†§½"нèu$#Ö–›Ù Ò €—×–—-ÆÎ-? %÷?–)€%€$Î Î"«ÿ!ðνÿ!î– —"Îÿæ},+ÎÿÌßÖÛ×ÖÉ×J*ñ½èx%–$DDDD›"öìÊ+#Äû÷솗#¶ìŠ@·ì½"°Æ'–*J&ýÎÀÚÿìÎÁÿÿì΂pÿì¶ì„ò·ì˜$…& ½"І2—~! „`·ì¶ì*û΂ÿì½"â΃÷ÿì†z·ìÎÿÿìÆ†΂ÿìµì'û·ìµì'ûÎÂpÿì…†‚|ìzì·ì½"â΃õÿìÆ~†@÷ìµì'ûÖ"÷ì_÷ìµì'ûÖ#÷ì_÷ìµì'û÷ìµì'ûöìÊ÷ì÷ìµì'û†ÿ·ì†@µì'ûÄ`÷ìÎÿÿìƬ–#L—#'5'~!Ó¶ì*ûzìzìV–#& –,+†#~!v½èr$~ ô–֛ɗ×|"–!‘"%~!R?†‚• 9—+þÿüß%Î#ÿÿüÎì†6§†>§æJ§9Î<>ÿìþìÞ%ÿÿü–+9†µì'û–*J&ý†·ìZ&îΪÆÿì΂ÿìµì'û–*J&ý†·ìZ&î9ž'³½è"†5—–#J_›Ù~! FORMAT DRIVE X? åååG€0010******************************************************************** 0020Ä* 0030AFPPRPSUSERSPECIFIEDMEASUREMENTPOSITI  ONSŠ* 0040Ä* 0050******************************************************************** 0060ˆ 0070…THEPATCHESREFERTOANOBSOLETELISTINGOFRPSMST15. 0080ˆ 0090ˆ 0100…PATCHESINEXISTINGSOFTWARE: 0110„ 0120†C197‡7EA900‰JMPSPECIAL† 0130„ 0140¡BEFORETHISSTATEMENTWAS 0150¡JMPIBM 0160„ 0170†C286‡36ŽPSHA 0180†C287‡BDA920‰JSRNEXTPT 0190†C28A‡32ŽPULA 0200„ 0210¡BEFORESTATEMENTSWERE 0220¡BEQPROBE3 0230¡JSRSHIFTR 0240¡THESEARENOTNEEDEDANYMORE 0250¡FORUNITSWITHNEWSTYLEPROBE 0260¡SPACING 0270† 0280******************************************************************** 0290‡ 0300…SPECIALREPLACESTHETHESOFTTHATWASUSEDINMODE8AND9(IBM) 0310…SPECIALINITIALISESSOMEVARIABLESANDSELECTSONEOUTOF 0320…TENUSERSPECIFIEDMEASUREMENTPROGRAMMS.FORTHISPURPOSE 0330…THEWAFERSIZETHUMBWHEELISUSED. 0340‡ 0350†A900†7F007B„SPECIALCLRDTHETA 03607F0118ŒCLRSTEP 0370BDA910ŒJSRTABPT…INITTABLEPOINTER 0380A600ŽLDAA0,X 03909780ŽSTAANUMPTSƒSTORENUMBEROFPOINTS 04007EC274ŒJMPRUNIT 0410‡ 0420******************************************************************** 0430„ 0440…TABPTCHECKSTHESELECTEDPROGRAMM(DIAMETHASWAFERSIZE) 0450…ANDRETURNSINXTHESTARTADDRESSOFTHESELECTEDTABLE. 0460…THISTABLEMUSTHAVEINTHEFIRSTBYTETHETOTALNUMBEROF 0470…POINTSTHATWILLBEMEASURED.NEXT,THETABLE(INROM) 0480…MUSTHAVETHEPAIRSOFTHETAANDRADIALSTEPS. 0490† 0500†A910†CEA940„TABPT‚LDX#TABLE 0510B60115‹LDAADIAMET 0520840FANDA#$F 053048ALSA 0540BDC0A8‹JSRADDA2X 0550EE00LDX0,X 056039RTS 0570‚ 0580******************************************************************** 0590„ 0600…NEXTPTLOADSTHENEXTPOSITIONFORTHEPROBEFROMTHETABLE 0610…ANDSTORESTHESEINNEWPO,STEPANDNEWTH. 0620…THEN,ITSTARTSTHETABLEANDCHUCKMOVEMENT. 0630„ 0640†A920†9694…NEXTPT‚LDAATFUNC 06508508BITA#8 06602715BEQOUTƒCHECKFORMODE8OR9 0670BDA910‹JSRTABPT 068009DEX†ADJUSTX 06909680LDAANUMPTS‚NUMBEROFPOINTS 070048ASLAƒMULTIPLYBY2FOROFFSETINTABLE 0710BDC0A8‹JSRADDA2X 0720A600LDAA0,X 0730977ESTAANEWPO 0740B70118‹STAASTEP 0750A601LDAA1,X 0760977FSTAANEWTH 0770BDB84D‹JSRMOVIT 078039‰OUT„RTS 0790ƒ 0800************************************************************************ 0810ƒ 0820†TABLEHASTHESTARTADDRESSESOFTHETENUSERPROGRAMMS. 0830†THISTABLEALWAYSMUSTHAVETENADDRESSES,BUTTHEADDRESSES 0840†MAYPOINTTOTHESAMEUSERPROGRAMM. 0850† 0860†A940†AA00ˆTABLEBEGINOFSEQUENCE0 0870†A942†AA40,,‚,,…,,ƒ1 0880†A944†.... 2 0890†....†.... 0900†....†.... 0910†A952†AC00ŽBEGINOFSEQUENCE9 0920„ 0930************************************************************************ 0940„ 0950…EACHUSERPROGRAMMCONSISTSOFATABLEWITHINTHEFIRSTBYTE 0960…THETOTALNUMBEROFPOINTSTOBEMEASURED. 0970…THEMAXIMUMNUMBEROFSTEPSIS127. 0980…EACHNEXTTWOBYTESCONTAINTHENEWPOSITIONOFTHE 0990…PROBE.THEPOSITIONISGIVENASTHENUMBEROFSTEPSOFTHE 1000…STEPPERMOTORSOFTHEPROBETABLEANDCHUCK,REFERREDTOTHE 1010…CENTERPOSITION. 1020‚ 1030ŠIMPORTANT:‚THETABLEISREADFROMTHEENDTOTHEBEGIM 1040šBYTHESUBROUTINENEXTPT 1050… 1060†AA00†03ŠTHISUSERPROGRAMMHAS3STEPS 1070†AA01†30…*„PROBEMOVES16STEPSFORWARDAND 108050„**ƒCHUCKTURNS16STEPSLEFT 10  90†AA03†40ƒ***‚PROBEMOVES48STEPSBACK(64FROMCENTRENOW) 110060…*„ANDCHUCKMOVES64STEPS(96TOTALNOW) 1110†AA05†10…*„PROBEMOVES16STEPSBACKAND 112020…*„CHUCKMOVES32STEPSRIGHT 1130„ 1140†AA40†07ŠTHISUSERPROGRAMMHAS7STEPS 1150†AA41†..ŠETC 1160.. 1170‡ 1180************************************************************************* åO€@ 0300O—"—%—&Þþÿ"ì¦ '.;' 'ñ|& ì¦ 'Y&|" ðS&|% ç 'ãÆ 9† ·"CÎ"DÆ ?Î"Cÿ"îÎ"ì?× ¶"C '„'/Æ ·"C– '…'Æ? ?…&† ±"C&±"L&}&&å† ±"C&"C"T½!n ? $?Î"CÖ!?$~!GÖ!Å&½!æ&â–%&¶"P… &×¶"P„À'Æ?#Î#½"Î#? DÖ!Å&$–"& Î"÷½"Î"ð? ? %CÎ"ÜÆ? ? %8¦Y&œÆÎ"C?$Æ ? ?Î#"½"Î#"? –!J&~ ¨þ"ì¦ ';'~ F?–!J'Å'Æ€?#Î#8½"Î#8? ÔÆ ? ?Á&ö~!5O—#—$Æ Î"D¦&z# %– „&†—!9– …&†—# |#Œ"L'¦&òÎ"L¦&z$ – …&†—$ |$Œ"L'¦&òÎ"Dÿ"ÞÎ"âÿ"àÆ Î"Þ?†—!9Ö#+Î"Dÿ"ÞÎ"âÿ"àÎ"Þ?&–$*O J'þ"L¼"ê ¶"L±"ê9ÿ"àÎ"Dÿ"ÞÆÎ"Þ?†.þ"à§¶"Lö"M§ç†:§¶"CŠ0§9 "\"Û DELETE  ? IS PROTECTED DELETED DOES NOT EXIST XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXX XXXT.C.CORRECTIONTABLE" 0290†PRINT"(3)STARTTHECALIBRATIONPROCEDURE" 0300†PRINT"(4)PRINTCALIBRATIONTABLES" 0310†PRINT\PRINTTAB(20);\INPUT"ENTERTHERIGHTKEY:"KEY 0320†IFKEY=0THEN0110 0330†IFKEY>5THEN0100 0340†ONKEYGOSUB0300,0400,0500,0 R€x 0300Þþÿ$?Î$Mÿ$AÎ$??' Å'~"×~"ÓÎ% ÿ$AÎ$??'+~"íÎ%ÿ$AÎ$??'*îÎ% ½#C%æÎ%½#C%Þö% '}%'ñ%&Ïö%¶%þ% ?/%Âþ$?¦ '{;'ÿ$? ðþ$?ÿ$?¦ 'd 'ïH&|% æL&|% ÝN&|% ÔF'~"Û½"ù'$~"ñö%)#øÁ„"ô÷%þ$?¦ '.&·½"ù'%Ýö%)Á #ÖÁc"Ò÷% þ$?~ ˆÎ$Nÿ$?Î%<ÿ$AÎ$?Æ?Î%Eÿ$AÎ$?Æ?ö$M÷%Hþÿ$bÆ??$΀?/$~"õ„€þ$b6†S±% 2&†?( ?) ÿ$dÎ$C?'~"Ê?&ùæÄÁ'~"á}%'Î%²? Î%KÆd? ?'ÿ%°}%' †L·$p†P·$qÎ$h?'~"Ê?&ùÆSñ% &þ% ÿ$TÎ$€}%'Î$ˆÿ$GÎ%ÿ$I}%'Î$€Æ?Î$„ÿ$Aþ%#ÿ$?Î$?ƽ%ÃÎ$C?':Á &/}%"'}%'}%%' ö% ð%%½$(½#ü?ÆSñ% 'ñ%'~"å~"éÁ '~"ÊÆLñ% &:ö%#¶%$þ% ?/$-? %·þ%#ÿ%#}%&~!¢ÆLñ%& ö%¶%?/$ì~!áþ$T í}%%&FÎ%9ÿ$Aþ% ÿ$?ÿ% ÆÎ$?½%ÃÎ%,ÿ$lÎ%1ÿ$nÎ$h?&BÎ%2ÿ$lþ%°ÿ$n½#¯&1ƽ$(Æ÷%%Î$€ÿ$lþ$Eÿ$nÆ÷%"½#¯&|%%ö%%ñ% -%%~"+Æ? ½#ü?Æ Æ Æ ? ?Æ çÆ ãÆ ߯ ìÆ èÆ6 äÎ%ÿ%&ÿ%_þ$?ÿ$?¦ '0-9.\Á# þ%§ÿ% ØÎ%&]'½&f%ç)å}%(&à †9O9æ'e÷#®ÁL'ÁS' 9m&úÿ%&ÿ%*_† ¡'\†L±#®'Á.ß ëÁ.Ù åÎ%&]'цL±#®'½&¸ ½&f)À%¾ö%(¶%)þ%*ç§ö#®ÁL&î'¦ 9þ$nö$l¶$m?-_¶%?/$ þ$lJ?(ÿ$nþ$l† ¡' † ¡#†%§?$þ$I?/$?% â? $11~!æÎ$h?9Î$h½$ Î$C½$ 9ÿ$&?'Á'_? þ$&?'Á'_? 9Î%Âÿ$lÎ%Âÿ$nÎ$h7?3Z&ù9$€%DK0 SACN  PB PAGE XXX XXXXXXXX.XX:X %JENTER HEADING:  ]&~&Ol&l÷&bÿ&dÎ&Pÿ&_†·&cþ&d¦æÎ&Zoîà¢%Î&Zl ñë©Î&Z67¦‹0æ 'Z&ü§32Î&Zl&ll&lj ,Ãïî¦Î&Zî m&jjî§Î&Zl&lj&Þþ&dO9'èd ]'Gÿ&µ÷&·oo þ&µHY%5HY%1«é%+HY%'§çî¦þ&µl&l?%_«§éç%z&·&ÆO9 û]'+ÿ&çooþ&çî¦þ&çl&l½&é%½'ª§Z&ßþ&ç9A% 6‹¹2%€ 0%6‹Æ2%„96†hiJ&ù29V‚€0010‚OPTL,LLEN=120 0020* 0030************************************ 0040* 0050*…THISPROGRAMMWILLREWINDTHE 0060*…TAPEUNITANDTHENWRITEA 0070*…BLOCKOFDATAONTHETAPE. 0080*…NEXT,ITWILLREWINDANDREAD 0090*…THEBLOCKFROMTHETAPEAND 0100*…SENDTHEDATATOTHESCREEN. 0110*…CHECKSUMONREADDATAISIN 0120*…ASPECIFICLOCATION. 0130* 0140************************************* 0150* 0160* 0170‚ORG$3000 0180* 0190MAINJSRINIT 0200‚JSRREWINDSTARTFROMBEGINTAPE 0210‚JSRDLY250 0220‚JSRDLY250 0230‚JSRWRFWD 0240‚JSRDLY250 0250‚JSRDLY250 0260‚JSRDLY250 0270‚JSRDLY250 0280‚JSRWRTBLK 0290‚JSRDLY250 0300‚JSRWRTBLK 0310‚JSRDLY250 0320‚JSRWRTBLK 0330‚JSRDLY250 0340‚JSRWRTBLK 0350‚JSRDLY250 0360‚JSRSTOP 0370‚JSRDLY250 0380‚JSRREWIND 0390‚JSRDLY250 0400‚JSRRDFWD 0410‚JSRREADBL 0420‚JSRREADBL 0430‚JSRREADBL 0440‚JSRREADBL 0450‚JSRDLY250 0460‚JSRSTOP 0470‚LDAACHKSUM 0480‚SWIACC.ACONTAINSCHECKSUM 0490* 0500* 0510PIAADEQU$E3D0 0520STPEQU$FF 0530REVEQU$FB 0540FWDEQU$FD 0550FWDWCDEQU$F5 0560* 0570WDAEQU$20 0580BETEQU$40 0590* 0600CHKSUMEQU$3800 0610TEMPEQU$3810 0620FLAGEQU$3820 0630* 0640INITLDX#$2E36 0650‚STXPIAAD 0660‚LDAA#$FF 0670‚STAAPIAAD 0680‚CLRCHKSUM 0690‚CLRFLAG 0700‚RTS 0710* 0720* 0730REWINDLDAA#REV 0740‚STAAPIAAD 0750‚LDAAPIAAD 0760‚BITA#BET 0770‚BNEREWIND 0780STOPLDAA#$FF 0790‚STAAPIAAD 0800‚RTS 0810* 0820* 0830WRFWDLDAA#FWDWCD 0840STORESTAAPIAAD 0850‚RTS 0860* 0870RDFWDLDAA#FWD 0880‚BSRSTORE 0890‚JSRDLY250 0900‚JSRDLY250 0910CLEARBSRSTOPTHISISTOCLEARREADLOGIC 0920‚LDAA#FWD 0930‚BSRSTORE 0940‚RTS 0950* 0960* 0970WRTBLKLDX$3900 0980‚LDAA#$AA 0990‚BRAWRITEB 1000NEXTBLDAA0,X 1010‚INX 1020‚CPX$3902 1030‚BEQWOUT 1040* 1050WRITEBLDAB#$8 1060‚BRAWB2 1070WB1JSRWAIT28WAIT28MUSEC 1080WB2RORA 1090‚PSHA 1100‚BCSW1 1110‚BSRWR0 1120‚BRAWRTBEX 1130W1BSRWR1 1140‚BRAWRTBEX 1150WRTBEXPULA 1160‚DECB 1170‚BNEWB1 1180‚BRANEXTB 1190WOUTRTS 1200* 1210* 1220WR0NOP 1230‚NOP 1240‚NOP 1250‚NOP 1260‚LDAA#$F5 1270‚BRACONT 1280CONTSTAAPIAAD 1290‚JSRWAIT 1300‚EORA#WDA 1310‚STAAPIAAD 1320‚RTS 1330* 1340WR1NOP 1350‚NOP 1360‚NOP 1370‚NOP 1380‚LDAA#$D5 1390‚BRACONT 1400* 1410* 1420WAITJSRWAIT14 1430‚NOP 1440‚NOP 1450‚NOP 1460‚NOP 1470‚JSRWAIT28 1480WAIT28JSRWAIT14 1490WAIT14RTS 1500* 1510* 1520READBLLDX$3904 1530‚LDAA PIAADCLEARINTFLAG 1540‚JSRDLY100 1550‚JSRCLEAR 1560READLDAB#8 1570WAI1LDAAPIAAD+1 1580‚BPLWAI1 1590‚LDAAPIAAD 1600‚RORA 1610‚RORTEMP 1620‚DECB 1630‚BEQSEND 1640‚BRAWAI1 1650* 1660SENDLDAATEMP 1670‚STAA$FCF5 1680‚ADDACHKSUM 1690‚STAACHKSUM 1700‚DEX 1710‚BNEREAD 1720‚RTSBYEBYE 1730* 1740DLY250PSHA 1750‚PSHB 1760‚LDAB#250 1770NXTJSRDLY1 1780‚DECB 1790‚BNENXT 1800‚PULB 1810‚PULA 1820‚RTS 1830* 1840DLY100PSHA 1850‚PSHB 1860‚LDAB#100 1870NXT100JSRDLY1 1880‚DECB 1890‚BNEN\€ --- PAGE‚001‚TAPESOFT.SA:1‰ 0001000001’************************************ 0002000002’* 0003000003’*…THISPROGRAMMWILLREWINDTHE 0004000004’*…TAPEUNITANDTHENWRITEA 0005000005’*…BLOCKOFDATAONTHETAPE. 0006000006’*…NEXT,ITWILLREWINDANDREAD 0007000007’*…THEBLOCKFROMTHETAPEAND 0008000008’*…SENDTHEDATATOTHESCREEN. 0009000009’*…CHECKSUMONREADDATAISIN 0010000010’*…ASPECIFICLOCATION. 0011000011’* 0012000012’************************************* 0013000013’* 0014000014’* 0015000015A3000“ORG„$3000 0016000016’* 0017000017A3000BD303D‚AMAINƒJSR„INIT 0018000018A3003BD304C‚AˆJSR„REWINDƒSTARTFROMBEGINTAP ****ERRORƒ211--00000 †00019A3006BD0000‚A0190‚JSRDLY250 ****ERRORƒ211--00019 †00020A3009BD0000‚A0200‚JSRDLY250 0021000021A300CBD305E‚AˆJSR„WRFWD ****ERRORƒ211--00020 †00022A300FBD0000‚A0220‚JSRDLY250 ****ERRORƒ211--00022 †00023A3012BD0000‚A0230‚JSRDLY250 ****ERRORƒ211--00023 †00024A3015BD0000‚A0240‚JSRDLY250 ****ERRORƒ211--00024 †00025A3018BD0000‚A0250‚JSRDLY250 0026000026A301BBD3075‚AˆJSR„WRTBLK ****ERRORƒ211--00025 †00027A301EBD0000‚A0270‚JSRDLY250 0028000028A3021BD3058‚AˆJSR„STOP ****ERRORƒ211--00027 †00029A3024BD0000‚A0290‚JSRDLY250 0030000030A3027BD304C‚AˆJSR„REWIND ****ERRORƒ211--00029 †00031A302ABD0000‚A0310‚JSRDLY250 0032000032A302DBD3064‚AˆJSR„RDFWD 0033000033A3030BD30C7‚AˆJSR„READBL ****ERRORƒ211--00031 †00034A3033BD0000‚A0340‚JSRDLY250 0035000035A3036BD3058‚AˆJSR„STOP 0036000036A3039B63800‚AˆLDAAƒCHKSUM 0037000037A303C3FSWIACC.ACONTAINSCHEC 0038000038’* 0039000039’* 0040000040ŠE3D0‚APIAAD‚EQU„$E3D0 0041000041Š00FF‚ASTP„EQU„$FF 0042000042Š00FB‚AREV„EQU„$FB 0043000043Š00FD‚AFWD„EQU„$FD 0044000044Š00F5‚AFWDWCDEQU„$F5 0045000045’* 0046000046Š0020‚AWDA„EQU„$20 0047000047Š0040‚ABET„EQU„$40 0048000048’* --- PAGE‚002‚TAPESOFT.SA:1‰ 0049000049Š3800‚ACHKSUMEQU„$3800 0050000050’* 0051000051A303DCE2E34‚AINITƒLDX„#$2E34 0052000052A3040FFE3D0‚AˆSTX„PIAAD USING"T.C.3CORRECTIONIS-###.#DEGRES",VALUE2/AA 2560†PRINT 2570†IFABS(VALUE0)<450ANDABS(VALUE1)<450ANDABS(VALUE2)<450THEN0575 2580†PRINTTAB(20);BLK$;"***CORRECTIONTOOBIG***";RBLK$ 25900575INPUT"NEWVALUESO.K.?(Y/N):"BUFF$ 2600†PRINTCLEAR$ 2610†PRINT\PRINT"WAIT" 2620†IFBUFF$<>"Y"THEN0580 2630†POSIT=SAVPOS\RWFLAG=0\TEMP=SETPOINT\GOSUB1000 2640†GOSUB9871 2650†GOTO0510 26600580RETURN 2670! 2680!ROUTINEFORTEMPFILEPRINTOUT 2690! 27000600LINE=1\QQQ=0 2710†INPUT"PRINT ALSOCAL.T.C.DEVIATIONTABLE?"BUFF$ 2720†IFBUFF$="Y"THENQQQ=1 2730†MESSAGE$=FILLER$(1,30) 2740†MESSAGE$=MESSAGE$CAT"ASMICCCALIBRATIONLISTING" 2750†GOSUB0800\NLF=4\GOSUB0820 2760†MESSAGE$=FILLER$(1,4)CATDATE$CAT"‚"CATTIME$ 2770†GOSUB0800\NLF=2\GOSUB0820 2780†IFQQQ=0THEN0789 2790†MESSAGE$="ŠCALIBRATIONT.C.DEVIATIONTABLE" 2800†GOSUB0800\NLF=2\GOSUB0820 2810†POINTER=144 2820†GOSUB0620 2830†POINTER=1200 2840†GOSUB0620 2850†GOSUB0830 2860†NLF=5\GOSUB0820 28700789MESSAGE$="ŠMAINT.C.CORRECTIONTABLE" 2880†GOSUB0800\NLF=2\GOSUB0820 2890†POINTER=2256 2900†GOSUB0620 2910†POINTER=3312 2920†GOSUB0620 2930†GOSUB0830 2940†RETURN 2950! 29600620MESSAGE$=ASTER$(1,50)CATASTER$(1,50) 2970†MESSAGE$=MESSAGE$CATASTER$(1,25)\GOSUB0800 2980†MESSAGE$="*" 2990†IFPOINTER=144ORPOINTER=2256THENBUFF=1ELSEBUFF=5 3000†FORCOUNT=1TO4 3010†MESSAGE$=MESSAGE$CAT"*******" 3020†MESSAGE$=MESSAGE$CATFILLER$(1,8)CAT"TUBE"CATNUMF$("##",BUFF) 3030†MESSAGE$=MESSAGE$CATFILLER$(1,8)CAT"*" 3040†BUFF=BUFF+1 3050†NEXTCOUNT 3060†GOSUB0800 3070†MESSAGE$=ASTER$(1,50)CATASTER$(1,50) 3080†MESSAGE$=MESSAGE$CATASTER$(1,25)\GOSUB0800 3090†MESSAGE$="*TEMP*ZNE1!ZNE2!ZNE3" 3100†MESSAGE$=MESSAGE$CATMESSAGE$ 3110†MESSAGE$=MESSAGE$CATMESSAGE$CAT"*" 3120†GOSUB0800 3130†MESSAGE$=ASTER$(1,50)CATASTER$(1,50) 3140†MESSAGE$=MESSAGE$CATASTER$(1,25)\GOSUB0800 3150†FORCOUNT1=1TO11 3160†RESTORE#3,POINTER 3170†READ#3,TEMP,VALUE0,VALUE1,VALUE2 3180†MESSAGE$="*" 3190†FORCOUNT=1TO4 3200†SETPOINT=TEMP\GOSUB4567 3210†VALUE0=VALUE0/AA 3220†VALUE1=VALUE1/AA 3230†VALUE2=VALUE2/AA 3240†MESSAGE$=MESSAGE$CATNUMF$("####",TEMP)CAT"‚" 3250†MESSAGE$=MESSAGE$CATNUMF$("-###.#",VALUE0)CAT"‚" 3260†MESSAGE$=MESSAGE$CATNUMF$("-###.#",VALUE1)CAT"‚" 3270†MESSAGE$=MESSAGE$CATNUMF$("-###.#",VALUE2)CAT"*" 3280†POINTER=POINTER+264 3290†RESTORE#3,POINTER 3300†READ#3,TEMP,VALUE0,VALUE1,VALUE2 3310†NEXTCOUNT 3320†GOSUB0800 3330†POINTER=POINTER-(264*4)+24 3340†NEXTCOUNT1 3350†MESSAGE$=ASTER$(1,50)CATASTER$(1,50) 3360†MESSAGE$=MESSAGE$CATASTER$(1,25)\GOSUB0800 3370†NLF=2\GOSUB0820 3380†RETURN 3390! 3400!PRINTERSUBROUTINE 3410! 34200800PRINT#2,MESSAGE$ 3430†LINE=LINE+1 3440†IFLINE=63THENNLF=4 3450†IFLINE=63THENGOSUB0820 3460†RETURN 3470! 3480!MULTIPLELINEFEEDSUBROUTINE 3490! 35000820FORLOOP=1TONLF 3510†PRINT#2 3520†LINE=LINE+1\IFLINE=67THENLINE=1 3530†NEXTLOOP 3540†RETURN 35500830PRINT#2,FFEED$ 3560†LINE=1 3570†RETURN 3580! 3590!ROUTINEFORREADANDWRITEINSYSTEMTABLE 3600! 36101000IFTABLE=1THENPOINTER=144 3620†IFTABLE=2THENPOINTER=2256 3630†IFTABLE=3THENPOINTER=0 3640†IFTABLE<3THENPOINTER=POINTER+(264*(NTUBE-1))+(24*(POSIT-1)) 3650†IFTABLE=3THENPOINTER=POINTER+(12*(POSIT-1)) 3660†RESTORE#3,POINTER 3670†IFTABLE=3THENREAD#3,TEMP,VALUE0 3680†IFTABLE=3THEN1010 3690†IFRWFLAG=1THENREAD#3,TEMP,VALUE0,VALUE1,VALUE2 3700†IFRWFLAG=0THENWRITE#3,TEMP,VALUE0,VALUE1,VALUE2 37101010RWFLAG=1 3720†RETURN 3730! 3740!SEARCHOFTHECLOSEDSETPOINT 3750!SETPOINTTOCONSIDEREINARG1RESULTINARG2 3760!MAGN=1CHECKFORHIGHER‚MAGN=0CHECKFORLOWER 3770! 37802000ARG2=0\GOODPOS=0 3790†IFMAGN=1THEN2100 3800†FORPOSIT=1TO11 3810†GOSUB1000 3820†IFTEMPAR G1THEN2007 3830†GOODPOS=POSIT\ARG2=TEMP 38402007NEXTPOSIT 38502010IFGOODPOS=0THEN2020 3860†POSIT=GOODPOS\GOSUB1000 3870†RETURN 38802020ARG2=0\RETURN 38902100ARG2=32000 3900†FORPOSIT=1TO11 3910†GOSUB1000 3920†IFTEMP>ARG2ORTEMP0THEN3002 4050†T1=50\C1=0\C11=0\C21=0 40603002MAGN=1\GOSUB2000\T2=TEMP\C2=VALUE0\C12=VALUE1\C22=VALUE2 4070†IFARG2<>0THEN3004 4080†T2=30000\C2=0\C12=0\C22=0 40903004IFT2-T1=0THENT2=T2+1 41003005C3=(C2-C1)\C13=(C12-C11)\C23=(C22-C21) 4110†C3=C3/(T2-T1) 4120†C13=C13/(T2-T1) 4130†C23=C23/(T2-T1) 4140†T1=ARG1-T1 4150†C3=C3*T1\C13=C13*T1\C23=C23*T1 4160†C0=INT(C1+C3)\C10=INT(C11+C13)\C20=INT(C21+C23) 4170†RETURN 4180! 4190! 4200!PORTSELECTION 42107000PORT=ACIABASE+((NTUBE-1)*:2) 4220†DATAPORT=PORT+1 4230†RETURN 4240! 4250!PRINTONPORTOFMESSAGE$ 4260! 42708000MESSAGE$=MESSAGE$CATCR$ 42808010FORP=1TOLEN(MESSAGE$) 4290†WAIT=0 43008020WAIT=WAIT+1\IFWAIT>1000THEN8315\IFPEEK(PORT)&:02=0THEN8020 4310†POKEDATAPORT,MESSAGE$(P) 4320†NEXTP 4330†RETURN 4340! 4350!GETAASCIIMESSAGE$ 4360! 43708300P=1 4380†WAIT=0 43908305WAIT=WAIT+1\IFWAIT>2000THEN8315\IFPEEK(PORT)&:1=0THEN8305 4400†MESSAGE$(P)=PEEK(DATAPORT) 4410†IFMESSAGE$(P)=4THEN8310 4420†P=P+1\GOTO8305 44308310LEN(MESSAGE$)=P-1 4440†RETURN 44508315PRINTCLEAR$\PRINT\PRINTTAB(20);BLK$; 4460†PRINT"**BADCOMMUNICATIONS**PROGRAMABORTED**";RBLK$\PRINT 4470†POKERECEIV,:0 4480†INPUT"HITANYKEY"RESP$ 4490†GOSUBPOP0 4500†GOTO0100 4510! 45208500POKERECEIV,:FF 4530†ONERRORGOTO8315 4540†GOSUB8000 4550†GOSUB8300 4560†ONERRORGOTO9000 4570†POKERECEIV,:0 4580†RETURN 4590! 4600!INITACIA 4610! 46208100PORT=ACIABASE 4630†POKERECEIV,:FF 4640†FORP=1TO12 4650†POKEPORT,:3\POKEPORT,:11 4660†PORT=PORT+2 4670†NEXTP 4680†POKERECEIV,:0 4690†RETURN 4700! 47108998POKERECEIV,:FF 4720†POKEDATAPORT,:D 4730†COUNT=0 47408999COUNT=COUNT+1\SMOOTH=PEEK(DATAPORT) 4750†IFCOUNT<2000THEN8999 4760†POKERECEIV,:0 4770†RETURN 4780! 47909000IFERR=1THEN0050ELSEERROR 4800! 4810!SETSETPOINTVALUEINAOMIRROR 48209875GOSUB8998 4830†QQQ=0 4840†PRINTCLEAR$\PRINT\PRINT"TEMP.UPDATINGINPROGRESS" 48509876BUFF$=HEX$(C0) 4860†MESSAGE$="SMM16F"CATBUFF$(2,2) 4870†GOSUB8500 4880†MESSAGE$="SMM170"CATBUFF$(4,2) 4890†GOSUB8500 4900†BUFF$=HEX$(C10) 4910†MESSAGE$="SMM171"CATBUFF$(2,2) 4920†GOSUB8500 4930†MESSAGE$="SMM172"CATBUFF$(4,2) 4940†GOSUB8500 4950†BUFF$=HEX$(C20) 4960†MESSAGE$="SMM173"CATBUFF$(2,2) 4970†GOSUB8500 4980†MESSAGE$="SMM174"CATBUFF$(4,2) 4990†GOSUB8500 5000†QQQ=QQQ+1 5010†IFQQQ=1THEN9876 5020†RETURN 5030! 50409871TABLE=2\ARG1=SETPOINT\GOSUB3000 5050†CORM1=C0\CORM2=C10\CORM3=C20 5060†ARG1=SETPOINT 5070†TABLE=3 5080†GOSUB3000\!MAKETHEINTERPOLATION 5090†SAVE=C0 5100†C0=SAVE+CORM1\C10=SAVE+CORM2\C20=SAVE+CORM3 5110†RETURN 5120†END  åå o€ ITT.RC:1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ00/00/0000/00/00 00.00.10.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.10.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.10.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.10.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.10.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@PDATA1 5590ˆPARAM‚#0,STEPNO,#DSPBUF 5595ˆJSR„STEPNRƒDISPLAYSTEPNR 5600ˆLDX„#M16…/(1)TIMEETC./ 5605ˆJSR„PDATA 5610ˆLDX„#M30…/s€S00500000001F9 S11B00004954542E52433A3120202020202020202020202020202020C5 S11B00187FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFE4 S11B00307FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFCC S11B00487FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFB4 S11B00607FFF7FFF2020202020200400000A000007F507F507F57FFF48 S11B00787FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF84 S11B00907FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF0000000068 S11B00A800000000000000000000000000000000000000000000388084 S11B00C0000000000A000007F507F507F57FFF7FFF7FFF7FFF7FFF7F31 S11B00D8FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F24 S11B00F0FF7FFF7FFF7FFF7FFF7FFF000000000000000000000000007F S11B0108000000000000000000000000003880000000000A000007F51D S11B012007F507F57FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFDF S11B01387FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFC3 S11B01507FFF0000000000000000000000000000000000000000000 015 S11B0168000000003880000000000A000007F507F507F57FFF7FFF7F4A S11B0180FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F7B S11B0198FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF000000000000005C S11A01B00000000000000000000000000000000000000038800080FC S9 0LOTNR‚EQU„*ˆCHANGESTHELOTNR 5895ˆCURPOSLINE1,0 5900ˆJSR„CLRDSP 5905ˆLDX„#M32…/LOTNUMBER:/ 5910ˆJSR„PDATA1 5915ˆLDX„RECIPE 5920ˆLDAAƒ#9‡SKIPFIRST9BYTESINRECIPEHEADER 5925ˆJSR„AXA 5930ˆSTX„RECIPE 5935ˆMOVEƒRECIPE,DSPBUF,15 5940ˆLDAAƒ#4 5945ˆSTAAƒ|v`–€àPS1.RC:1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ08/06/8208/06/82f 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@GO 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿ@ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿ|€S009000020202020202036 S11B3000BD303DBD304CBD0000BD0000BD305EBD0000BD0000BD000055 S11B3018BD0000BD3075BD0000BD3058BD0000BD304CBD0000BD306477 @ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿ}€S009000020202020202036 S11B3000BD303DBD304CBD30F1BD30F1BD305EBD30F1BD30F1BD30F1B0 S11B3018BD30F1BD3075BD30F1BD3058BD30F1BD304CBD30F1BD3064F3 S11B3030BD30C9BD30F1BD3058B638003FCE2E34FFE3D086FFB7E3D0AD S11B30487F38003986FBB7E3D0B6E3D0854026F486FFB7E3D03986F5A6 S11B3060B7E3D03986FD8DF8BD30F1BD30F18DE886FD8DEC39FE39000C S11B307886AA2008A60008BC39022717C6082003BD30C54625048D0C56 S11B309020048D1B20005A26EF20E139BD30BE86FD2000B7E3D0BD30EA S11B30A8B68820B7E3D039BD30BE86F520EDBD30C83632BD30C58D0577 S11B30C08D03BD30C5BD000039FE3904C608B6E3D02AFB467638105AC7 S11B30D82707B6E3D02BFB20EDB63810B7FCF5BB3800B738000926DC7F S11730F0393637C6FABD30FE5A26FA33323986A54A26FD398E S9030000FC ÿÿÿÿÿÿÿÿÿÿÿÿ€00½0=½0L½0ñ½0ñ½0^½0ñ½0ñ½0ñ½0ñ½0u½0ñ½0X½0ñ½0L½0ñ½0d½0ɽ0ñ½0X¶8?Î.4ÿãІÿ·ãÐ89†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãÐ9†ýø½0ñ½0ñè†ýì9þ9†ª ¦¼9'Æ ½0ÅF%  Z&ï á9½0¾†ý ·ãн0¶ˆ ·ãÐ9½0¾†õ í½0È62½0Ž0Ž9þ9ƶãÐ*ûFv8Z'¶ãÐ+û í¶8·üõ»8·8 &Ü967Æú½0þZ&ú329†¥J&ý9€€00½0=½0O½0î½0î½0a½0î½0î½0î½0î½0x½0î½0[½0î½0O½0î½0g½0˽0î½0[¶8?Î.6ÿãІÿ·ãÐ88 9†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãÐ9†ýø½0î½0îè†ýì9þ9†ª ¦¼9'Æ ½0ÇF6%  2Z&í ß9†ý ·ãн0½ˆ ·ãÐ9†õ ì½0ʽ0ǽ0Ê9þ9¶ãÐÆ¶ãÑ*û¶ãÐFv8Z' ï¶8·üõ &ä967Æú½0ûZ&ú329†¥J&ý9€00½0=½0O½0ô½0ô½0a½0ô½0ô½0ô½0ô½0x½0ô½0[½0ô½0O½0ô½0g½0˽0ô½0[¶8?Î.6ÿãІÿ·ãÐ88 9†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãÐ9†ýø½0ô½0ôè†ýì9þ9†ª ¦¼9'Æ ½0ÇF6%  2Z&í ß9†õ ·ãн0½ˆ ·ãÐ9†Õ ì½0ʽ0ǽ0Ê9þ9¶ãÐÆ¶ãÑ*û¶ãÐFv8Z' ï¶8·üõ»8·8 &Þ967Æú½1Z&ú329†¥J&ý9 XT100 1900‚PULB 1910‚PULA 1920‚RTS 1930* 1940DLY1LDAA#165 1950NXDECA 1960‚BNENX 1970‚RTS 1980************************************** 1990‚END ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 15.00.00.sÁ^.ƒ€0010‚OPTL,LLEN=120 0020* 0030************************************ 0040* 0050*…THISPROGRAMMWILLREWINDTHE 0060*…TAPEUNITANDTHENWRITEA 0070*…BLOCKOFDATAONTHETAPE. 0080*…NEXT,ITWILLREWINDANDREAD 0090*…THEBLOCKFROMTHETAPEAND 0100*…SENDTHEDATATOTHESCREEN. 0110*…CHECKSUMONREADDATAISIN 0120*…ASPECIFICLOCATION. 0130* 0140************************************* 0150* 0160* 0170‚ORG$3000 0180* 0190MAINJSRINIT 0200‚JSRREWINDSTARTFROMBEGINTAPE 0210‚JSRDLY250 0220‚JSRDLY250 0230‚JSRWRFWD 0240‚JSRDLY250 0250‚JSRDLY250 0260‚JSRDLY250 0270‚JSRDLY250 0280‚JSRWRTBLK 0290‚JSRDLY250 0300‚JSRWRTBLK 0310‚JSRDLY250 0320‚JSRWRTBLK 0330‚JSRDLY250 0340‚JSRWRTBLK 0350‚JSRDLY250 0360‚JSRSTOP 0370‚JSRDLY250 0380‚JSRREWIND 0390‚JSRDLY250 0400‚JSRRDFWD 0410‚JSRREADBL 0420‚JSRREADBL 0430‚JSRREADBL 0440‚JSRREADBL 0450‚JSRDLY250 0460‚JSRSTOP 0470‚LDAACHKSUM 0480‚SWIACC.ACONTAINSCHECKSUM 0490* 0500* 0510PIAADEQU$E3D0 0520STPEQU$FF 0530REVEQU$FB 0540FWDEQU$FD 0550FWDWCDEQU$F5 0560* 0570WDAEQU$20 0580BETEQU$40 0590* 0600CHKSUMEQU$3800 0610TEMPEQU$3810 0620FLAGEQU$3820 0630* 0640INITLDX#$2E36 0650‚STXPIAAD 0660‚LDAA#$FF 0670‚STAAPIAAD 0680‚CLRCHKSUM 0690‚CLRFLAG 0700‚RTS 0710* 0720* 0730REWINDLDAA#REV 0740‚STAAPIAAD 0750‚LDAAPIAAD 0760‚BITA#BET 0770‚BNEREWIND 0780STOPLDAA#$FF 0790‚STAAPIAAD 0800‚RTS 0810* 0820* 0830WRFWDLDAA#FWDWCD 0840STORESTAAPIAAD 0850‚RTS 0860* 0870RDFWDLDAA#FWD 0880‚BSRSTORE 0890‚JSRDLY250 0900‚JSRDLY250 0910CLEARBSRSTOPTHISISTOCLEARREADLOGIC 0920‚LDAA#FWD 0930‚BSRSTORE 0940‚RTS 0950* 0960* 0970WRTBLKLDX$3900 0980‚LDAA#$AA 0990‚BRAWRITEB 1000NEXTBLDAA0,X 1010‚INX 1020‚CPX$3902 1030‚BEQWOUT 1040* 1050WRITEBLDAB#$8 1060‚BRAWB2 1070WB1JSRWAIT28WAIT28MUSEC 1080WB2RORA 1090‚PSHA 1100‚BCSW1 1110‚BSRWR0 1120‚BRAWRTBEX 1130W1BSRWR1 1140‚BRAWRTBEX 1150WRTBEXPULA 1160‚DECB 1170‚BNEWB1 1180‚BRANEXTB 1190WOUTJSRWRFWD 1200‚RTS 1210* 1220* 1230WR0TST0,XDELAYOF7MUSEC 1240‚LDAA#$F5 1250‚BRACONT 1260CONTSTAAPIAAD 1270‚JSRWAIT 1280‚EORA#WDA 1290‚STAAPIAAD 1300‚RTS 1310* 1320WR1TST0,XDELAYOF7MUSEC 1330‚LDAA#$D5 1340‚BRACONT 1350* 1360* 1370WAITJSRWAIT14 1380‚NOP 1390‚NOP 1400‚NOP 1410‚NOP 1420‚JSRWAIT28 1430WAIT28JSRWAIT14 1440WAIT14RTS 1450* 1460* 1470READBLLDX$3904 1480‚LDAAPIAADCLEARINTFLAG 1490‚JSRDLY100 1500‚JSRCLEAR 1510READLDAB#8 1520WAI1LDAAPIAAD+1 1530‚BPLWAI1 1540‚LDAAPIAAD 1550‚RORA 1560‚RORTEMP 1570‚DECB 1580‚BEQSEND 1590‚BRAWAI1 1600* 1610SENDLDAATEMP 1620‚STAA$FCF5 1630‚ADDACHKSUM 1640‚ST AACHKSUM 1650‚DEX 1660‚BNEREAD 1670‚RTSBYEBYE 1680* 1690DLY250PSHA 1700‚PSHB 1710‚LDAB#250 1720NXTJSRDLY1 1730‚DECB 1740‚BNENXT 1750‚PULB 1760‚PULA 1770‚RTS 1780* 1790DLY100PSHA 1800‚PSHB 1810‚LDAB#100 1820NXT100JSRDLY1 1830‚DECB 1840‚BNENXT100 1850‚PULB 1860‚PULA 1870‚RTS 1880* 1890DLY1LDAA#165 1900NXDECA 1910‚BNENX 1920‚RTS 1930************************************** 1940‚END @ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿŠ€800½0X½0j½1½1½0|½1½1½1½1½0“½1½0“½1½0“½1½0“½1½0v½1½0j½1½0‚½0å½0å½0å½0å½1½0v¶8?Î.6ÿãІÿ·ãÐ88 9†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãÐ9†ýø½1½1è†ýì9þ9†ª ¦¼9'Æ ½0áF6%  2Z&í ß½0|9m†õ ·ãн0׈ ·ãÐ9m†Õ î½0ä½0á½0ä9þ9¶ãн1!½0ŒÆ¶ãÑ*û¶ãÐFv8Z' ï¶8·üõ»8·8 &Þ967Æú½1.Z&ú32967Æd½1.Z&ú329†¥J&ý9 ‹€0010********************************* 0020*ƒ 0030*…MFASIMULATION 0040* 0050********************************* 0060* 0070‚ORG$3000 0080* 0090HFLAGRMB1 0100LFLAGRMB1 0110HLIMRMB1 0120LLIMRMB1 0130MFMRMB1 0140TRANSRMB1 0150R1RMB1 0160R2RMB1 0170R3RMB1 0180R4RMB1 0190R11RMB2 0200R12RMB2 0210STRRMB45 0220* 0230* 0240‚ORG$3100 0250* 0260STARTCLRLLIM 0270‚LDAA#39 0280‚STAAHLIM 0290‚LDAA#19 0300‚STAAMFM 0310‚CLRHFLAG 0320‚CLRLFLAG 0330‚CLRTRANS 0340‚LDAA#$2A 0350‚STAAR1 0360‚JSR$F015 0370LOOPJSRPRINT 0380‚LDAA$FCF5 0390‚ANDA#$7F 0400‚CMPA#$48 0410‚BEQHH 0420‚CMPA#$4C 0430‚BEQLL 0440‚CMPA#$44 0450‚BEQDOWN 0460‚CMPA#$55 0470‚BEQUP 0480TRACLRTRANS 0490WAIJSRWAIT 0500‚BRALOOP 0510* 0520HHTSTTRANS 0530‚BNEHH2 0540‚COMHFLAG 0550‚STAATRANS 0560HH2TSTHFLAG 0570‚BEQHDWN 0580‚LDAAHLIM 0590‚CMPA#39 0600‚BEQHHEX 0610‚INCHLIM 0620‚BRAHHEX 0630HDWNLDAAHLIM 0640‚BEQHHEX 0650‚DECHLIM 0660HHEXBRAWAI 0670* 0680LLTSTTRANS 0690‚BNELL2 0700‚COMLFLAG 0710‚STAATRANS 0720LL2TSTLFLAG 0730‚BEQLDWN 0740‚LDAALLIM 0750‚CMPA#39 0760‚BEQLLEX 0770‚INCLLIM 0780‚BRALLEX 0790LDWNLDAALLIM 0800‚BEQLLEX 0810‚DECLLIM 0820LLEXBRAWAI 0830* 0840UPLDAAMFM 0850‚CMPA#39 0860‚BEQTRA 0870‚INCMFM 0880‚BRATRA 0890* 0900DOWNLDAAMFM 0910‚BEQTRA 0920‚DECMFM 0930‚BRATRA 0940* 0950WAITLDX#$3000 0960WADEX 0970‚BNEWA 0980‚RTS 0990* 1000PRINTLDAA#$0C 1010‚STAASTR 1020‚LDAAMFM 1030‚CMPALLIM 1040‚BGTOK1 1050‚LDAB#$4C 1060‚STABR1 1070‚BRAPFI 1080OK1CMPAHLIM 1090‚BLTOK2 1100‚LDAB#$48 1110‚STABR1 1120‚BRAPFI 1130OK2LDAB#$2A 1140‚STABR1 1150PFIJSRCLEAR 1160‚LDX#STR+1 1170‚CLRB 1180PFILLCMPBLLIM 1190‚BEQFILL 1200‚CMPBMFM 1210‚BEQFILL 1220‚CMPBHLIM 1230‚BEQFILL 1240CONTINCB 1250‚INX 1260‚CMPB#40 1270‚BEQGO 1280‚BRAPFILL 1290* 1300FILLLDAAR1 1310‚STAA0,X 1320‚BRAC €h110†'·0†·0000½ð½1¢¶üõ„H'L'6D'dU'T0½1› à}0&s0·0}0' ¶0'' |0 ¶0'z0 Õ}0&s0·0}0' ¶0'' |0 ¶0'z0 ¯¶0''¥|0  ¶0'›z0 –Î0 &ý9† ·0½1ÖÎ0_ñ0'ñ0' ñ0'\Á(' é†*§ ò†§Î0½ð'9Î0† §Œ06&ø9ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿONT 1330* 1340GOLDAA#$4 1350‚STAA0,X 1360‚LDX#STR 1370‚JSR$F027 1380‚RTS 1390* 1400CLEARLDX#STR+1 1410‚LDAA#$20 1420NXSTAA0,X 1430‚INX 1440‚CPX#STR+41 1450‚BNENX 1460‚RTS 1470* 1480‚END ÿ@ 15.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ‘€110†'·0†·0000†*·0½ð½1§¶üõ„H'L'6D'dU'T0½1  à}0&s0·0}0' ¶0'' |0 ¶0'z0 Õ}0&s0·0}0' ¶0'' |0 ¶0'z0 ¯¶0''¥|0  ¶0'›z0 –Î0 &ý9† ·0¶0±0.ÆL÷0 ±0-ÆH÷0 Æ*÷0½1üÎ0_ñ0'ñ0' ñ0'\Á(' é¶0§ ñ†§Î0½ð'9Î0† §Œ07&ø9’€0010‚OPTL,LLEN=120 0020* 0030************************************ 0040* 0050*…THISPROGRAMMWILLREWINDTHE 0060*…TAPEUNITANDTHENWRITEA 0070*…BLOCKOFDATAONTHETAPE. 0080*…NEXT,ITWILLREWINDANDREAD 0090*…THEBLOCKFROMTHETAPEAND 0100*…SENDTHEDATATOTHESCREEN. 0110* 0120************************************* 0130* 0140* 0150PIAADEQU$E3D0 0160STPEQU$FF 0170REVEQU$FB 0180FWDEQU$FD 0190FWDWCDEQU$F5 0200* 0210WDAEQU$20 0220BETEQU$40 0230* 0240VERFEQU$3800 0250BYTEEQU$3810 0260FIRSTEQU$3820 0270BEGINPEQU$3900 0280ENDPNTEQU$3902 0290COUNTEQUBEGINP 0300* 0310‚ORG$3000 0320* 0330MAINJSRINIT 0340‚JSRREWINDSTARTFROMBEGINTAPE 0350‚JSRDLY250 0360‚JSRDLY250 0370‚JSRWRFWD 0380‚JSRDLY250 0390‚JSRDLY250 0400‚JSRDLY250 0410‚JSRDLY250 0420‚LDX#$4000 0430‚STXBEGINP 0440‚LDX#$57FF 0450‚STXENDPNT 0460‚JSRWRTBLK 0470‚JSRWRFWD 0480‚LDX#$6400 0490‚STXBEGINP 0500‚LDX#$65BF 0510‚STXENDPNT 0520‚JSRWRTBLK 0530‚JSRWRFWD 0540‚LDX#$7000 0550‚STXBEGINP 0560‚LDX#$7001 0570‚STXENDPNT 0580‚JSRWRTBLK 0590‚JSRDLY250 0600‚JSRSTOP 0610‚JSRDLY250 0620‚JSRREWIND 0630‚JSRDLY250 0640‚JSRRDFWD 0650‚LDX#$1800 0660‚STXCOUNT 0670‚JSRREADBL 0680‚LDX#$1C0 0690‚STXCOUNT 0700‚JSRREADBL 0710‚LDX#2 0720‚STXCOUNT 0730‚JSRREADBL 0740‚JSRDLY250 0750‚JSRSTOP 0760‚SWIACC.ACONTAINSCHECKSUM 0770* 0780* 0790INITLDX#$2E36 0800‚STXPIAAD 0810‚LDAA#$FF 0820‚STAAPIAAD 0830‚RTS 0840* 0850* 0860REWINDLDAA#REV 0870‚STAAPIAAD 0880‚LDAAPIAAD 0890‚BITA#BET 0900‚BNEREWIND 0910STOPLDAA#$FF 0920STORESTAAPIAAD 0930‚RTS 0940* 0950* 0960WRFWDLDAA#FWDWCD 0970‚S TAAPIAAD 0980‚JSRDLY1 0990‚JSRDLY1 1000‚RTS 1010* 1020RDFWDLDAA#FWD 1030‚BSRSTORE 1040‚JSRDLY250 1050‚JSRDLY250 1060CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1070‚LDAA#FWD 1080‚BRASTORE 1090* 1100* 1110WRTBLKLDXBEGINP 1120‚DEX 1130‚LDAA#$AA 1140‚BRAWRITEB 1150NEXTBLDAA0,X 1160* 1170WRITEBLDAB#$8 1180‚BRAWB2 1190WB1JSRWAIT28WAIT28MUSEC 1200WB2RORA 1210‚PSHA 1220‚BCSW1 1230‚BSRWR0 1240‚BRAWRTBEX 1250W1BSRWR1 1260‚BRAWRTBEX 1270WRTBEXPULA 1280‚DECB 1290‚BNEWB1 1300‚CPXENDPNT 1310‚BEQWOUT 1320‚INX 1330‚BRANEXTB 1340WOUTJSRWRFWD 1350‚RTS 1360* 1370* 1380WR0TST0,XDELAYOF7MUSEC 1390‚LDAA#$F5 1400‚BRACONT 1410CONTSTAAPIAAD 1420‚JSRWAIT 1430‚EORA#WDA 1440‚STAAPIAAD 1450‚RTS 1460* 1470WR1TST0,XDELAYOF7MUSEC 1480‚LDAA#$D5 1490‚BRACONT 1500* 1510* 1520WAITJSRWAIT14 1530‚NOP 1540‚NOP 1550‚NOP 1560‚NOP 1570‚JSRWAIT28 1580WAIT28JSRWAIT14 1590WAIT14RTS 1600* 1610* 1620READBLLDXCOUNT 1630‚LDAA#1 1640‚STAAFIRST 1650‚JSRDLY1 1660‚LDAAPIAADCLEARINTFLAG 1670‚JSRCLEAR 1680READLDAB#8 1690WAI1LDAAPIAAD+1 1700‚BPLWAI1 1710‚LDAAPIAAD 1720‚RORA 1730‚RORBYTE 1740‚DECB 1750‚BEQSEND 1760‚BRAWAI1 1770* 1780SENDLDAABYTE 1790‚TSTFIRST 1800‚BNECLF 1810‚STAA$FCF5 1820‚DEX 1830‚BNEREAD 1840‚RTSBYEBYE 1850CLFCLRFIRST 1860‚BRAREAD 1870* 1880DLY250PSHA 1890‚PSHB 1900‚LDAB#250 1910NXTJSRDLY1 1920‚DECB 1930‚BNENXT 1940‚PULB 1950‚PULA 1960‚RTS 1970* 1980DLY1LDAA#165 1990NXDECA 2000‚BNENX 2010‚RTS 2020************************************** 2030‚END 0DLY1LDAA#165 2130NXDECA 2140‚BNENX 2150‚RTS 2160************************************** 2170‚END ™€`00½0‚½0޽1G½1G½0 ½1G½1G½1G½1GÎ@ÿ9ÎWÿÿ9½0¼½0 Îdÿ9Îe¿ÿ9½0¼½0 Îpÿ9Îpÿ9½0¼½1G½0š½1G½0޽1G½0¬Îÿ9½1ÎÀÿ9½1Îÿ9½1½1G½0š?Î.6ÿãІÿ·ãÐ9†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãн1T½1T9†ýì½1G½1Gâ†ý àþ9 †ª ¦Æ ½1 F6% $ 2Z&í¼9' ß½0 9m†õ ·ãн1ˆ ·ãÐ9m†Õ î½1½1 ½19þ9†·8 ½1T¶ãн0¶Æ¶ãÑ*û¶ãÐFv8Z' ï¶8}8 &·üõ &ß98 Ù67Æú½1TZ&ú329†¥J&ý9š€0010‚OPTL,LLEN=120 0020* 0030************************************ 0040* 0050*…THISPROGRAMMWILLREWINDTHE 0060*…TAPEUNITANDTHENWRITEA 0070*…BLOCKOFDATAONTHETAPE. 0080*…NEXT,ITWILLREWINDANDREAD 0090*…THEBLOCKFROMTHETAPEAND 0100*…SENDTHEDATATOTHESCREEN. 0110* 0120************************************* 0130* 0140* 0150PIAADEQU$E3D0 0160STPEQU$FF 0170REVEQU$FB 0180FWDEQU$FD 0190FWDWCDEQU$F5 0200* 0210WDAEQU$20 0220BETEQU$40 0230* 0240RAMBEGEQU$3800 0250* 0260‚ORGRAMBEG 0270* 0280VERFRMB1 0290BYTERMB1 0300BEGINPRMB2 0310ENDPNTRMB2 0320FIRSTRMB1 0330* 0340‚ORG$3000 0350* 0360MAINJSRINIT 0370‚JSRREWINDSTARTFROMBEGINTAPE 0380‚JSRDLY250 0390‚JSR$F015 0400‚CMPA#$57 0410‚BNEVR 0420‚JSRDLY250 0430‚JSRWRFWD 0440‚JSRDLY250 0450‚JSRDLY250 0460‚JSRDLY250 0470‚JSRDLY250 0480‚LDX#$4000 0490‚STXBE GINP 0500‚LDX#$57FF 0510‚STXENDPNT 0520‚JSRWRTBLK 0530‚JSRWRFWD 0540‚BRAXX 0550‚LDX#$6400 0560‚STXBEGINP 0570‚LDX#$65BF 0580‚STXENDPNT 0590‚JSRWRTBLK 0600‚JSRWRFWD 0610‚LDX#$7000 0620‚STXBEGINP 0630‚LDX#$7001 0640‚STXENDPNT 0650‚JSRWRTBLK 0660XXJSRDLY250 0670‚JSRSTOP 0680‚JSRDLY250 0690‚JSRREWIND 0700VRCLRVERF 0710‚JSR$F015 0720‚CMPA#$56 0730‚BNERD 0740‚INCVERF 0750RDJSRDLY250 0760‚JSRRDFWD 0770‚LDX#$4000 0780‚STXBEGINP 0790‚LDX#$57FF 0800‚STXENDPNT 0810‚JSRREADBL 0820‚BCCYY 0830‚LDAB#$AA 0840‚BRAYY 0850YYJSRDLY250 0860‚JSRSTOP 0870‚SWI 0880* 0890* 0900INITLDX#$2E36 0910‚STXPIAAD 0920‚LDAA#$FF 0930‚STAAPIAAD 0940‚RTS 0950* 0960* 0970REWINDLDAA#REV 0980‚STAAPIAAD 0990‚LDAAPIAAD 1000‚BITA#BET 1010‚BNEREWIND 1020STOPLDAA#$FF 1030STORESTAAPIAAD 1040‚RTS 1050* 1060* 1070WRFWDLDAA#FWDWCD 1080‚STAAPIAAD 1090‚JSRDLY1 1100‚JSRDLY1 1110‚RTS 1120* 1130RDFWDLDAA#FWD 1140‚BSRSTORE 1150‚JSRDLY250 1160‚JSRDLY250 1170CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1180‚LDAA#FWD 1190‚BRASTORE 1200* 1210* 1220WRTBLKLDXBEGINP 1230‚DEX 1240‚LDAA#$AA 1250‚BRAWRITEB 1260NEXTBLDAA0,X 1270* 1280WRITEBLDAB#$8 1290‚BRAWB2 1300WB1JSRWAIT28WAIT28MUSEC 1310WB2RORA 1320‚PSHA 1330‚BCSW1 1340‚BSRWR0 1350‚BRAWRTBEX 1360W1BSRWR1 1370‚BRAWRTBEX 1380WRTBEXPULA 1390‚DECB 1400‚BNEWB1 1410‚CPXENDPNT 1420‚BEQWOUT 1430‚INX 1440‚BRANEXTB 1450WOUTJSRWRFWD 1460‚RTS 1470* 1480* 1490WR0TST0,XDELAYOF7MUSEC 1500‚LDAA#$F5 1510‚BRACONT 1520CONTSTAAPIAAD 1530‚JSRWAIT 1540‚EORA#WDA 1550‚STAAPIAAD 1560‚RTS 1570* 1580WR1TST0,XDELAYOF7MUSEC 1590‚LDAA#$D5 1600‚BRACONT 1610* 1620* 1630WAITJSRWAIT14 1640‚NOP 1650‚NOP 1660‚NOP 1670‚NOP 1680‚JSRWAIT28 1690WAIT28JSRWAIT14 1700WAIT14RTS 1710* 1720* 1730READBLLDXBEGINP 1740‚DEX 1750‚LDAA#1 1760‚STAAFIRST 1770‚JSRDLY1 1780‚LDAAPIAADCLEARINTFLAG 1790‚JSRCLEAR 1800READLDAB#8 1810WAI1LDAAPIAAD+1 1820‚BPLWAI1 1830‚LDAAPIAAD 1840‚RORA 1850‚RORBYTE 1860‚DECB 1870‚BEQSTOVF 1880‚BRAWAI1 1890* 1900STOVFLDAABYTE 1910‚TSTFIRST 1920‚BNECLF 1930‚INX 1940‚TSTVERF 1950‚BEQSTO 1960‚CMPAX 1970‚BNEERROR 1980STOSTAAX 1990‚CPXENDPNT 2000‚BNEREAD 2010‚CLC 2020‚RTSBYEBYE 2030CLFCLRFIRST 2040‚BRAREAD 2050ERRORSEC 2060‚RTS 2070* 2080DLY250PSHA 2090‚PSHB 2100‚LDAB#250 2110NXTJSRDLY1 2120‚DECB 2130‚BNENXT 2140‚PULB 2150‚PULA 2160‚RTS 2170* 2180DLY1LDAA#165 2190NXDECA 2200‚BNENX 2210‚RTS 2220************************************** 2230‚END ½0’½0ž½1f½ðW&þ½1f½0°½1f½1f½1f½1fÎ@ÿ8ÎWÿÿ8½0̽0° !Îdÿ8Îe¿ÿ8½0̽0°Îpÿ8Îpÿ8½0̽1f½0ª½1f½0ž8½ðV&þ|8½1f½0¼Î@ÿ8ÎWÿÿ8½1$ƪ ½1f½0ª?Î.6ÿãІÿ·ãÐ9†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãн1s½1s9†ýì½1f½1fâ†ý àþ8 †ª ¦Æ ½1F6% $ 2Z&í¼8' ß½0°9m†õ ·ãн1ˆ ·ãÐ9m†Õ î½1½1½19þ8 †·8½1s¶ãн0ÆÆ¶ãÑ*û¶ãÐFv8Z' ï¶8}8&}8'¡&§¼8&Ô 98 Í 967Æú½1sZ&ú329†¥J&ý9¢€€00½0’½0ž½1f½ðW&S½1f½0°½1f½1f½1f½1fÎ@ÿ8ÎWÿÿ8½0̽0° !Îdÿ8Îe¿ÿ8½0̽0°Îpÿ8Îpÿ8½0̽1f½0ª½1f½0ž8½ðV&|8½1f½0¼Î@ÿ8ÎWÿÿ 8½1$ƪ ½1f½0ª?Î.6ÿãІÿ·ãÐ9†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãн1s½1s9†ýì½1f½1fâ†ý àþ8 †ª ¦Æ ½1F6% $ 2Z&í¼8' ß½0°9m†õ ·ãн1ˆ ·ãÐ9m†Õ î½1½1½19þ8 †·8½1s¶ãн0ÆÆ¶ãÑ*û¶ãÐFv8Z' ï¶8}8&}8'¡&§¼8&Ô 98 Í 967Æú½1sZ&ú329†¥J&ý9£€0010‚OPTL,LLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFYAFTER 0070*2)RAEDFROMTAPEANDVERIFYAFTER 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$3800 0230* 0240‚ORGRAMBEG 0250* 0260VERFRMB1 0270BYTERMB1 0280BEGINPRMB2 0290ENDPNTRMB2 0300FIRSTRMB1 0310* 0320‚ORG$3000 0330* 0340MAINPSHAENTERWHITACC.AASMODE 0350‚JSRINIT 0360‚CLRVERF 0370‚JSRREWIND 0380‚JSRDLY250 0400‚PULA 0405‚JSR$F015DELETETHISINFINALVERSION 0410‚CMPA#$57 0420‚BEQWR 0430‚CMPA#$56 0440‚BEQVF 0450‚BRAVR 0460WRJSRDLY250 0470‚JSRWRFWD 0480‚JSRDLY250 0490‚JSRDLY250 0500‚JSRDLY250 0510‚JSRDLY250 0520‚LDX#$4000 0530‚STXBEGINP 0540‚LDX#$57FF 0550‚STXENDPNT 0560‚JSRWRTBLK 0570‚JSRWRFWD 0580*INSERTHEREWRITEADDITIONALBLOCKS 0590‚JSRDLY250 0600‚JSRSTOP 0610VFINCVERF 0620‚JSRDLY250 0630‚JSRREWIND 0640VRJSRDLY250 0650‚JSRRDFWD 0660‚LDX#$4000 0670‚STXBEGINP 0680‚LDX#$57FF 0690‚STXENDPNT 0700‚JSRREADBL 0710*INSERTHEREADDITIONALREADS 0720‚BCCYY 0730‚LDAB#$AA 0740YYJSRDLY250 0750‚JSRSTOP 0760‚TSTVERF 0770‚BEQVF 0780‚JSRDLY250 0790‚JSRREWIND 0800‚SWIPUTRTSINFINALVERSION 0810* 0820* 0830INITLDX#$2E36 0840‚STXPIAAD 0850‚LDAA#$FF 0860‚STAAPIAAD 0870‚RTS 0880* 0890* 0900REWINDLDAA#REV 0910‚STAAPIAAD 0920‚LDAAPIAAD 0930‚BITA#BET 0940‚BNEREWIND 0950STOPLDAA#$FF 0960STORESTAAPIAAD 0970‚RTS 0980* 0990* 1000WRFWDLDAA#FWDWCD 1010‚STAAPIAAD 1020‚JSRDLY1 1030‚JSRDLY1 1040‚RTS 1050* 1060RDFWDLDAA#FWD 1070‚BSRSTORE 1080‚JSRDLY250 1090‚JSRDLY250 1100CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1110‚LDAA#FWD 1120‚BRASTORE 1130* 1140* 1150WRTBLKLDXBEGINP 1160‚DEX 1170‚LDAA#$AA 1180‚BRAWRITEB 1190NEXTBLDAA0,X 1200* 1210WRITEBLDAB#$8 1220‚BRAWB2 1230WB1JSRWAIT28WAIT28MUSEC 1240WB2RORA 1250‚PSHA 1260‚BCSW1 1270‚BSRWR0 1280‚BRAWRTBEX 1290W1BSRWR1 1300‚BRAWRTBEX 1310WRTBEXPULA 1320‚DECB 1330‚BNEWB1 1340‚CPXENDPNT 1350‚BEQWOUT 1360‚INX 1370‚BRANEXTB 1380WOUTJSRWRFWD 1390‚RTS 1400* 1410* 1420WR0TST0,XDELAYOF7MUSEC 1430‚LDAA#$F5 1440‚BRACONT 1450CONTSTAAPIAAD 1460‚JSRWAIT 1470‚EORA#WDA 1480‚STAAPIAAD 1490‚RTS 1500* 1510WR1TST0,XDELAYOF7MUSEC 1520‚LDAA#$D5 1530‚BRACONT 1540* 1550* 1560WAITJSRWAIT14 1570‚NOP 1580‚NOP 1590‚NOP 1600‚NOP 1610‚JSRWAIT28 1620WAIT28JSRWAIT14 1630WAIT14RTS 1640* 1650* 1660READBLLDXBEGINP 1670‚DEX 1680‚LDAA#1 1690‚STAAFIRST 1700‚JSRDLY1 1710‚JSRCLEAR 1720‚LDAAPIAADCLEARINTFLAG 1730READLDAB#8 1740WAI1LDAAPIAAD+1 1750‚BPLWAI1 1760‚LDAAPIAAD 1770‚RORA 1780‚RORBYTE 1790‚DECB 1800‚BEQSTOVF 1810‚BRAWAI1 1820* 1830STOVFL DAABYTE 1840‚TSTFIRST 1850‚BNECLF 1860‚INX 1870‚TSTVERF 1880‚BEQSTO 1890‚CMPAX 1900‚BNEERROR 1910STOSTAAX 1920‚CPXENDPNT 1930‚BNEREAD 1940‚CLC 1950‚RTSBYEBYE 1960CLFCLRFIRST 1970‚BRAREAD 1980ERRORSEC 1990‚RTS 2000* 2010DLY250PSHA 2020‚PSHB 2030‚LDAB#250 2040NXTJSRDLY1 2050‚DECB 2060‚BNENXT 2070‚PULB 2080‚PULA 2090‚RTS 2100* 2110DLY1LDAA#165 2120NXDECA 2130‚BNENX 2140‚RTS 2150************************************** 2160‚END ª€`00½0w8½0ƒ½1K½ðW'V', 3½1K½0•½1K½1K½1K½1KÎ@ÿ8ÎWÿÿ8½0±½0•½1K½0|8½1K½0ƒ½1K½0¡Î@ÿ8ÎWÿÿ8½1$ƪ½1K½0}8'Ó½1K½0ƒ?Î.6ÿãІÿ·ãÐ9†û·ãжãÐ…@&ô†ÿ·ãÐ9†õ·ãн1X½1X9†ýì½1K½1Kâ†ý àþ8 †ª ¦Æ ½1F6% $ 2Z&í¼8' ß½0•9m†õ ·ãн0öˆ ·ãÐ9m†Õ î½1½1½19þ8 †·8½1X¶ãн0«Æ¶ãÑ*û¶ãÐFv8Z' ï¶8}8&}8'¡&§¼8&Ô 98 Í 967Æú½1XZ&ú329†¥J&ý9«€0010‚OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFYAFTER 0070*2)RAEDFROMTAPEANDVERIFYAFTER 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$3800 0230* 0240‚ORGRAMBEG 0250* 0260VERFRMB1 0270BYTERMB1 0280BEGINPRMB2 0290ENDPNTRMB2 0300FIRSTRMB1 0310* 0320‚ORG$3000 0330* 0340MAINPSHAENTERWHITACC.AASMODE 0350‚JSRINIT 0360‚CLRVERF 0370‚JSRREWIND 0380‚JSRDLY250 0390‚PULA 0400‚JSR$F015DELETETHISINFINALVERSION 0410‚CMPA#$57 0420‚BEQWR 0430‚CMPA#$56 0440‚BEQVF 0450‚BRAVR 0460WRJSRDLY250 0470‚JSRWRFWD 0480‚JSRDLY250 0490‚JSRDLY250 0500‚JSRDLY250 0510‚JSRDLY250 0520‚LDX#$4000 0530‚STXBEGINP 0540‚LDX#$57FF 0550‚STXENDPNT 0560‚JSRWRTBLK 0570‚JSRWRFWD 0580*INSERTHEREWRITEADDITIONALBLOCKS 0590‚JSRDLY250 0600‚JSRSTOP 0610VFINCVERF 0620‚JSRDLY250 0630‚JSRREWIND 0640VRJSRDLY250 0650‚JSRRDFWD 0660‚LDX#$4000 0670‚STXBEGINP 0680‚LDX#$57FF 0690‚STXENDPNT 0700‚JSRREADBL 0710*INSERTHEREADDITIONALREADS 0720‚BCCYY 0730‚LDAB#$AA 0740YYJSRDLY250 0750‚JSRSTOP 0760‚TSTVERF 0770‚BEQVF 0780‚JSRDLY250 0790‚JSRREWIND 0800‚SWIPUTRTSINFINALVERSION 0810* 0820* 0830INITLDX#$2E36 0840‚STXPIAAD 0850‚LDAA#$FF 0860‚STAAPIAAD 0870‚RTS 0880* 0890*NOWWECOMEREALYTOTHEPOINT 0900*SOWETURNOFTHELISTING 0910* 0920‚OPTNOL 0930* 0940REWINDLDAA#REV 0950‚STAAPIAAD 0960‚LDAAPIAAD 0970‚BITA#BET 0980‚BNEREWIND 0990STOPLDAA#$FF 1000STORESTAAPIAAD 1010‚RTS 1020* 1030* 1040WRFWDLDAA#FWDWCD 1050‚STAAPIAAD 1060‚JSRDLY1 1070‚JSRDLY1 1080‚RTS 1090* 1100RDFWDLDAA#FWD 1110‚BSRSTORE 1120‚JSRDLY250 1130‚JSRDLY250 1140CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1150‚LDAA#FWD 1160‚BRASTORE 1170* 1180* 1190WRTBLKLDXBEGINP 1200‚DEX 1210‚LDAA#$AA 1220‚BRAWRITEB 1230NEXTBLDAA0,X 1240* 1250WRITEBLDAB#$8 1260‚BRAWB2 1270WB1JSRWAIT28WAIT28MUSEC  1280WB2RORA 1290‚PSHA 1300‚BCSW1 1310‚BSRWR0 1320‚BRAWRTBEX 1330W1BSRWR1 1340‚BRAWRTBEX 1350WRTBEXPULA 1360‚DECB 1370‚BNEWB1 1380‚CPXENDPNT 1390‚BEQWOUT 1400‚INX 1410‚BRANEXTB 1420WOUTJSRWRFWD 1430‚RTS 1440* 1450* 1460WR0TST0,XDELAYOF7MUSEC 1470‚LDAA#$F5 1480‚BRACONT 1490CONTSTAAPIAAD 1500‚JSRWAIT 1510‚EORA#WDA 1520‚STAAPIAAD 1530‚RTS 1540* 1550WR1TST0,XDELAYOF7MUSEC 1560‚LDAA#$D5 1570‚BRACONT 1580* 1590* 1600WAITJSRWAIT14 1610‚NOP 1620‚NOP 1630‚NOP 1640‚NOP 1650‚JSRWAIT28 1660WAIT28JSRWAIT14 1670WAIT14RTS 1680* 1690* 1700READBLLDXBEGINP 1710‚DEX 1720‚LDAA#1 1730‚STAAFIRST 1740‚JSRDLY1 1750‚JSRCLEAR 1760‚LDAAPIAADCLEARINTFLAG 1770READLDAB#8 1780WAI1LDAAPIAAD+1 1790‚BPLWAI1 1800‚LDAAPIAAD 1810‚RORA 1820‚RORBYTE 1830‚DECB 1840‚BEQSTOVF 1850‚BRAWAI1 1860* 1870STOVFLDAABYTE 1880‚TSTFIRST 1890‚BNECLF 1900‚INX 1910‚TSTVERF 1920‚BEQSTO 1930‚CMPAX 1940‚BNEERROR 1950STOSTAAX 1960‚CPXENDPNT 1970‚BNEREAD 1980‚CLC 1990‚RTSBYEBYE 2000CLFCLRFIRST 2010‚BRAREAD 2020ERRORSEC 2030‚RTS 2040* 2050‚OPTL 2060* 2070*ALITTLEBITLEFTFORTHEPRINTER 2080*TOKEEPITAWAKE 2090* 2100DLY250PSHA 2110‚PSHB 2120‚LDAB#250 2130NXTJSRDLY1 2140‚DECB 2150‚BNENXT 2160‚PULB 2170‚PULA 2180‚RTS 2190* 2200DLY1LDAA#165 2210NXDECA 2220‚BNENX 2230‚RTS 2240************************************** 2250‚END 72 S11B02A07FFF7FFF7FFF7FFF7FFF7FFF7FFF00000000000000000000D0 S11B02B800000000000000000000000000000000388000000000000072 S11B02D00007F507F507F57FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FAF S11B02E8FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F12 S11B0300FF7FFF7FF ³€"0010‚OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$269C 0240* 0250‚ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290BEGINPRMB2 0300ENDPNTRMB2 0310FIRSTRMB1 0320CHKS1RMB1 0330CHKS2RMB1 0340CHKSR1RMB1 0350CHKSR2RMB1 0360* 0370‚ORG$2B00 0380* 0390WJSRINIT 0400‚BRAWR 0410VJSRINIT 0420‚BRAVF 0430RJSRINIT 0440‚BRARD 0450* 0460WRJSRDLY250 0470‚JSRWRFWD 0480‚JSRDLY250 0490‚JSRDLY250 0500‚JSRDLY250 0510‚JSRDLY250 0520‚JSRCHKSUM 0530‚LDX#$4000 0540‚STXBEGINP 0550‚LDX#$57FF 0560‚STXENDPNT 0570‚JSRWRTBLK 0580‚LDX#$E400 0590‚STXBEGINP 0600‚LDX#$E5BF 0610‚STXENDPNT 0620‚JSRWRTBLK 0630‚LDX#CHKS1 0640‚STXBEGINP 0650‚LDX#CHKS2 0660‚STXENDPNT 0670‚JSRWRTBLK 0680*INSERTHEREWRITEADDITIONALBLOCKS 0690‚JSRDLY250 0700‚JSRSTOP 0710VF1JSRDLY250 0720‚JSRREWIND 0730VFINCVERF 0740RDJSRDLY250 0750‚JSRRDFWD 0760‚LDX#$4000 0770‚STXBEGINP 0780‚LDX#$57FF 0790‚STXENDPNT 0800‚JSRREADBL 0810‚BCSYY 0820‚LDX#$E400 0830‚STXBEGINP 0840‚L DX#$E5BF 0850‚STXENDPNT 0860‚JSRREADBL 0870‚BCSYY 0880‚TSTVERF 0890‚BNEZZ 0900‚LDX#CHKSR1 0910‚STXBEGINP 0920‚LDX#CHKSR2 0930‚STXENDPNT 0940‚JSRREADBL 0950‚BCSYY 0960ZZJSRDLY250 0970‚JSRSTOP 0980‚TSTVERF 0990‚BEQCHECK 1000‚JSRDLY250 1010‚JSRREWIND 1020‚RTS 1030* 1040YYJSRREWIND 1050‚JMPERRLOG 1060* 1070CHECKJSRCHKSUM 1080‚JSRCMPR 1090‚BRAVF1 1100* 1110INITJSRINIT1 1120‚CLRVERF 1130‚JSRREWIND 1140‚JSRDLY250 1150‚RTS 1160* 1170INIT1LDX#$2E36 1180‚STXPIAAD 1190‚LDAA#$FF 1200‚STAAPIAAD 1210‚RTS 1220* 1230*NOWWECOMEREALYTOTHEPOINT 1240*SOWETURNOFTHELISTING 1250* 1260‚OPTNOL 1270* 1280REWINDLDAA#REV 1290‚STAAPIAAD 1300‚LDAAPIAAD 1310‚BITA#BET 1320‚BNEREWIND 1330STOPLDAA#$FF 1340STORESTAAPIAAD 1350‚RTS 1360* 1370* 1380WRFWDLDAA#FWDWCD 1390‚STAAPIAAD 1400‚JSRDLY1 1410‚JSRDLY1 1420‚RTS 1430* 1440RDFWDLDAA#FWD 1450‚BSRSTORE 1460‚JSRDLY250 1470‚JSRDLY250 1480CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1490‚LDAA#FWD 1500‚BRASTORE 1510* 1520* 1530WRTBLKLDXBEGINP 1540‚DEX 1550‚LDAA#$AA 1560‚BRAWRITEB 1570NEXTBLDAA0,X 1580* 1590WRITEBLDAB#$8 1600‚BRAWB2 1610WB1JSRWAIT28WAIT28MUSEC 1620WB2RORA 1630‚PSHA 1640‚BCSW1 1650‚BSRWR0 1660‚BRAWRTBEX 1670W1BSRWR1 1680‚BRAWRTBEX 1690WRTBEXPULA 1700‚DECB 1710‚BNEWB1 1720‚CPXENDPNT 1730‚BEQWOUT 1740‚INX 1750‚BRANEXTB 1760WOUTJSRWRFWD 1770‚RTS 1780* 1790* 1800WR0TST0,XDELAYOF7MUSEC 1810‚LDAA#$F5 1820‚BRACONT 1830CONTSTAAPIAAD 1840‚JSRWAIT 1850‚EORA#WDA 1860‚STAAPIAAD 1870‚RTS 1880* 1890WR1TST0,XDELAYOF7MUSEC 1900‚LDAA#$D5 1910‚BRACONT 1920* 1930* 1940WAITJSRWAIT14 1950‚NOP 1960‚NOP 1970‚NOP 1980‚NOP 1990‚JSRWAIT28 2000WAIT28JSRWAIT14 2010WAIT14RTS 2020* 2030* 2040READBLLDXBEGINP 2050‚DEX 2060‚LDAA#1 2070‚STAAFIRST 2080‚JSRDLY1 2090‚JSRCLEAR 2100‚LDAAPIAADCLEARINTFLAG 2110READLDAB#8 2120WAI1LDAAPIAAD+1 2130‚BPLWAI1 2140‚LDAAPIAAD 2150‚RORA 2160‚RORBYTE 2170‚DECB 2180‚BEQSTOVF 2190‚BRAWAI1 2200* 2210STOVFLDAABYTE 2220‚TSTFIRST 2230‚BNECLF 2240‚INX 2250‚TSTVERF 2260‚BEQSTO 2270‚CMPAX 2280‚BNEERROR 2290STOSTAAX 2300‚CPXENDPNT 2310‚BNEREAD 2320‚CLC 2330‚RTSBYEBYE 2340CLFCLRFIRST 2350‚BRAREAD 2360ERRORSEC 2370‚RTS 2380* 2390‚OPTL 2400* 2410*ALITTLEBITLEFTFORTHEPRINTER 2420*TOKEEPITAWAKE 2430* 2440DLY250PSHA 2450‚PSHB 2460‚LDAB#250 2470NXTJSRDLY1 2480‚DECB 2490‚BNENXT 2500‚PULB 2510‚PULA 2520‚RTS 2530* 2540DLY1LDAA#165 2550NXDECA 2560‚BNENX 2570‚RTS 2580*********** 2590* 2600CHKSUMLDX#$4000 2610‚CLRA 2620NXCHK1ADDA0,X 2630‚INX 2640‚CPX#$5800 2650‚BNENXCHK1 2660‚STAACHKS1 2670‚LDX#$E400 2680‚CLRA 2690NXCHK2ADDA0,X 2700‚INX 2710‚CPX#$E5C0 2720‚BNENXCHK2 2730‚STAACHKS2 2740‚RTS 2750* 2760***** 2770* 2780CMPRLDXCHKS1 2790‚CPXCHKSR1 2800‚BNEERRCHK 2810‚RTS 2820ERRCHKLDX#$ABCD 2830‚JMPYY 2840* 2850************************************** 2860‚END  ¼€"0010‚OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAP EANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$269C 0240* 0250‚ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290BEGINPRMB2 0300ENDPNTRMB2 0310FIRSTRMB1 0320CHKS1RMB1 0330CHKS2RMB1 0340CHKSR1RMB1 0350CHKSR2RMB1 0360* 0370‚ORG$2B00 0380* 0390WJSRINIT 0400‚BRAWR 0410VJSRINIT 0420‚BRAVF 0430RJSRINIT 0440‚BRARD 0450* 0460WRJSRDLY250 0470‚JSRWRFWD 0480‚JSRDLY250 0490‚JSRDLY250 0500‚JSRDLY250 0510‚JSRDLY250 0520‚JSRCHKSUM 0530‚LDX#$4000 0540‚STXBEGINP 0550‚LDX#$57FF 0560‚STXENDPNT 0570‚JSRWRTBLK 0580‚LDX#$E400 0590‚STXBEGINP 0600‚LDX#$E5BF 0610‚STXENDPNT 0620‚JSRWRTBLK 0630‚LDX#CHKS1 0640‚STXBEGINP 0650‚LDX#CHKS2 0660‚STXENDPNT 0670‚JSRWRTBLK 0680*INSERTHEREWRITEADDITIONALBLOCKS 0690‚JSRDLY250 0700‚JSRSTOP 0710VF1JSRDLY250 0720‚JSRREWIND 0730VFINCVERF 0740RDJSRDLY250 0750‚JSRRDFWD 0760‚LDX#$4000 0770‚STXBEGINP 0780‚LDX#$57FF 0790‚STXENDPNT 0800‚JSRREADBL 0810‚BCSYY 0820‚LDX#$E400 0830‚STXBEGINP 0840‚LDX#$E5BF 0850‚STXENDPNT 0860‚JSRREADBL 0870‚BCSYY 0880‚TSTVERF 0890‚BNEZZ 0900‚LDX#CHKSR1 0910‚STXBEGINP 0920‚LDX#CHKSR2 0930‚STXENDPNT 0940‚JSRREADBL 0950‚BCSYY 0960ZZJSRDLY250 0970‚JSRSTOP 0980‚TSTVERF 0990‚BEQCHECK 1000‚JSRDLY250 1010‚JSRREWIND 1020‚RTS 1030* 1040YYJSRREWIND 1050‚JMPERRLOG 1060* 1070CHECKJSRCHKSUM 1080‚JSRCMPR 1090‚BRAVF1 1100* 1110INITJSRINIT1 1120‚CLRVERF 1130‚JSRREWIND 1140‚JSRDLY250 1150‚RTS 1160* 1170INIT1LDAA#4 1180‚STAAPIAAD+1 1190‚LDAA#$FF 1200‚STAAPIAAD 1210‚CLRPIAAD+1 1220‚LDX#$2E36 1230‚STXPIAAD 1240‚RTS 1250* 1260*NOWWECOMEREALYTOTHEPOINT 1270*SOWETURNOFTHELISTING 1280* 1290‚OPTNOL 1300* 1310REWINDLDAA#REV 1320‚STAAPIAAD 1330‚LDAAPIAAD 1340‚BITA#BET 1350‚BNEREWIND 1360STOPLDAA#$FF 1370STORESTAAPIAAD 1380‚RTS 1390* 1400* 1410WRFWDLDAA#FWDWCD 1420‚STAAPIAAD 1430‚JSRDLY1 1440‚JSRDLY1 1450‚RTS 1460* 1470RDFWDLDAA#FWD 1480‚BSRSTORE 1490‚JSRDLY250 1500‚JSRDLY250 1510CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1520‚LDAA#FWD 1530‚BRASTORE 1540* 1550* 1560WRTBLKLDXBEGINP 1570‚DEX 1580‚LDAA#$AA 1590‚BRAWRITEB 1600NEXTBLDAA0,X 1610* 1620WRITEBLDAB#$8 1630‚BRAWB2 1640WB1JSRWAIT28WAIT28MUSEC 1650WB2RORA 1660‚PSHA 1670‚BCSW1 1680‚BSRWR0 1690‚BRAWRTBEX 1700W1BSRWR1 1710‚BRAWRTBEX 1720WRTBEXPULA 1730‚DECB 1740‚BNEWB1 1750‚CPXENDPNT 1760‚BEQWOUT 1770‚INX 1780‚BRANEXTB 1790WOUTJSRWRFWD 1800‚RTS 1810* 1820* 1830WR0TST0,XDELAYOF7MUSEC 1840‚LDAA#$F5 1850‚BRACONT 1860CONTSTAAPIAAD 1870‚JSRWAIT 1880‚EORA#WDA 1890‚STAAPIAAD 1900‚RTS 1910* 1920WR1TST0,XDELAYOF7MUSEC 1930‚LDAA#$D5 1940‚BRACONT 1950* 1960* 1970WAITJSRWAIT14 1980‚NOP 1990‚NOP 2000‚NOP 2010‚NOP 2020‚JSRWAIT28 2030WAIT28JSRWAIT14 2040WAIT14RTS 2050* 2060* 2070READBLLDXBEGINP 2080‚DEX 2090‚LDAA#1 2100‚STAAFIRST 2110‚JSRDLY1 2120‚JSRCLEAR 2130‚LDAAPIAADCLEARINTFLAG 2140READLDAB#8 2150WAI1LDAAPIAAD+1 2160‚BPLWAI1 2170‚LDAAPIAAD 2180‚RORA 2190‚RORBYTE 2200 ‚DECB 2210‚BEQSTOVF 2220‚BRAWAI1 2230* 2240STOVFLDAABYTE 2250‚TSTFIRST 2260‚BNECLF 2270‚INX 2280‚TSTVERF 2290‚BEQSTO 2300‚CMPAX 2310‚BNEERROR 2320STOSTAAX 2330‚CPXENDPNT 2340‚BNEREAD 2350‚CLC 2360‚RTSBYEBYE 2370CLFCLRFIRST 2380‚BRAREAD 2390ERRORSEC 2400‚RTS 2410* 2420‚OPTL 2430* 2440*ALITTLEBITLEFTFORTHEPRINTER 2450*TOKEEPITAWAKE 2460* 2470DLY250PSHA 2480‚PSHB 2490‚LDAB#250 2500NXTJSRDLY1 2510‚DECB 2520‚BNENXT 2530‚PULB 2540‚PULA 2550‚RTS 2560* 2570DLY1LDAA#165 2580NXDECA 2590‚BNENX 2600‚RTS 2610*********** 2620* 2630CHKSUMLDX#$4000 2640‚CLRA 2650NXCHK1ADDA0,X 2660‚INX 2670‚CPX#$5800 2680‚BNENXCHK1 2690‚STAACHKS1 2700‚LDX#$E400 2710‚CLRA 2720NXCHK2ADDA0,X 2730‚INX 2740‚CPX#$E5C0 2750‚BNENXCHK2 2760‚STAACHKS2 2770‚RTS 2780* 2790***** 2800* 2810CMPRLDXCHKS1 2820‚CPXCHKSR1 2830‚BNEERRCHK 2840‚RTS 2850ERRCHKLDX#$ABCD 2860‚JMPYY 2870* 2880************************************** 2890‚END  Å€ 0010‚OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$269C 0240* 0250‚ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290ENDPNTRMB2 0300FIRSTRMB1 0310CHKS1RMB1 0320CHKS2RMB1 0330CHKSR1RMB1 0340CHKSR2RMB1 0350* 0360‚ORG$2B00 0370* 0380WBSRINIT 0390‚BRAWR 0400VBSRINIT 0410‚BRAVF 0420RBSRINIT 0430‚BRARD 0440* 0450INITLDAA#$4 0460‚STAAPIAAD+1 0470‚LDAA#$FF 0480‚STAAPIAAD 0490‚CLRPIAAD+1 0500‚LDX#$2E06 0510‚STXPIAAD 0520‚CLRVERF 0530‚JSRREWIND 0540‚BSRDLY250 0550‚RTS 0560* 0570DLY1PSHA 0580‚LDAA#164 0590NXDECA 0600‚BNENX 0610‚PULA 0620‚RTS 0630* 0640DLY250PSHB 0650‚LDAB#250 0660NXTBSRDLY1 0670‚DECB 0680‚BNENXT 0690‚PULB 0700‚RTS 0710* 0720WRBSRDLY250 0730‚JSRWRFWD 0740‚BSRDLY250 0750‚BSRDLY250 0760‚BSRDLY250 0770‚BSRDLY250 0780‚JSRCHKSUM 0790‚LDX#$57FF 0800‚STXENDPNT 0810‚LDX#$4000 0820‚JSRWRTBLK 0830‚LDX#$E5BF 0840‚STXENDPNT 0850‚LDX#$E400 0860‚JSRWRTBLK 0870‚LDX#CHKS2 0880‚STXENDPNT 0890‚LDX#CHKS1 0900‚JSRWRTBLK 0910‚LDX#$E5BF 0920‚STXENDPNT 0930‚LDX#$E400 0940‚JSRWRTBLK 0950*INSERTHEREWRITEADDITIONALBLOCKS 0960‚BSRDLY250 0970‚JSRSTOP 0980VF1BSRDLY250 0990‚BSRREWIND 1000VFINCVERF 1010RDBSRDLY250 1020‚JSRRDFWD 1030‚LDX#$57FF 1040‚STXENDPNT 1050‚LDX#$4000 1060‚JSRREADBL 1070‚BCSYY 1080‚LDX#$E5BF 1090‚STXENDPNT 1100‚LDX#$E400 1110‚JSRREADBL 1120‚BCSYY 1130‚TSTVERF 1140‚BNEZZ 1150‚LDX#CHKSR2 1160‚STXENDPNT 1170‚LDX#CHKSR1 1180‚JSRREADBL 1190‚BCSYY 1200ZZJSRDLY250 1210‚BSRSTOP 1220‚TSTVERF 1230‚BEQCHECK 1240‚JSRDLY250 1250‚BSRREWIND 1260‚RTS 1270* 1280YYBSRREWIND 1290‚JMPERRLOG 1300* 1310CHECKBSRCHKSUM 1320‚BSRCMPR 1330‚BRAVF1 1340* 1350REWINDLDAA#REV 1360‚STAAPIAAD 1370‚LDAAPIAAD 1380‚BITA#BET 1390‚BNE REWIND 1400STOPLDAA#$FF 1410STORESTAAPIAAD 1420‚RTS 1430* 1440* 1450WRFWDLDAA#FWDWCD 1460‚STAAPIAAD 1470‚JSRDLY1 1480‚JSRDLY1 1490‚RTS 1500* 1510RDFWDLDAA#FWD 1520‚BSRSTORE 1530‚JSRDLY250 1540‚JSRDLY250 1550CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1560‚LDAA#FWD 1570‚BRASTORE 1580* 1590* 1600CHKSUMLDX#$4000 1610‚CLRA 1620NXCHK1ADDA0,X 1630‚INX 1640‚CPX#$5800 1650‚BNENXCHK1 1660‚STAACHKS1 1670‚LDX#$E400 1680‚CLRA 1690NXCHK2ADDA0,X 1700‚INX 1710‚CPX#$E5C0 1720‚BNENXCHK2 1730‚STAACHKS2 1740‚RTS 1750* 1760***** 1770* 1780CMPRLDXCHKS1 1790‚CPXCHKSR1 1800‚BNEERRCHK 1810‚RTS 1820ERRCHKLDX#$ABCD 1830‚BRAJMPYY 1840* 1850MISSEDLDX#$EFFE 1860JMPYYJMPYY 1870* 1880WRTBLKDEX 1890‚LDAA#$AA 1900‚BRAWRITEB 1910NEXTBLDAA0,X 1920* 1930WRITEBLDAB#$8 1940‚BRAWB2 1950WB1JSRWAIT28WAIT28MUSEC 1960WB2RORA 1970‚PSHA 1980‚BCSW1 1990‚BSRWR0 2000‚BRAWRTBEX 2010W1BSRWR1 2020‚BRAWRTBEX 2030WRTBEXPULA 2040‚DECB 2050‚BNEWB1 2060‚CPXENDPNT 2070‚BEQWOUT 2080‚INX 2090‚BRANEXTB 2100WOUTJSRWRFWD 2110‚RTS 2120* 2130* 2140WR0TST0,XDELAYOF7MUSEC 2150‚LDAA#$F5 2160‚BRACONT 2170CONTSTAAPIAAD 2180‚JSRWAIT 2190‚EORA#WDA 2200‚STAAPIAAD 2210‚RTS 2220* 2230WR1TST0,XDELAYOF7MUSEC 2240‚LDAA#$D5 2250‚BRACONT 2260* 2270* 2280WAITJSRWAIT14 2290‚NOP 2300‚NOP 2310‚NOP 2320‚NOP 2330‚JSRWAIT28 2340WAIT28JSRWAIT14 2350WAIT14RTS 2360* 2370* 2380READBLDEX 2390‚LDAA#1 2400‚STAAFIRST 2410‚JSRDLY1 2420‚JSRCLEAR 2430‚LDAAPIAADCLEARINTFLAG 2440READLDAB#8 2450WAI1LDAAPIAAD+1 2460‚ANDA#$C0 2470‚BEQWAI1 2480‚BMIREADBT 2490‚BRAMISSED 2500READBTLDAAPIAAD 2510‚RORA 2520‚RORBYTE 2530‚DECB 2540‚BEQSTOVF 2550‚BRAWAI1 2560* 2570STOVFLDAABYTE 2580‚TSTFIRST 2590‚BNECLF 2600‚INX 2610‚TSTVERF 2620‚BEQSTO 2630‚CMPAX 2640‚BNEERROR 2650STOSTAAX 2660‚CPXENDPNT 2670‚BNEREAD 2680‚CLC 2690‚RTSBYEBYE 2700CLFCLRFIRST 2710‚BRAREAD 2720ERRORSEC 2730‚RTS 2740* 2750************************************** 2760‚END ADDRESULTOFMULTIPLICATIONTOTHETABLEVALUE 2400‚ADCA2,X 2410‚RTS 2420‚PAGE 2430TEMPTBEQU* 2440*THETABLEHASTHEFOLLOWINGENTRIES: 2450*1.TEMPERATUREINDEGREESCELCIUS 2460*2.BITCOUNTFORTHATTEMPERATURE 2470*3.INTERPOLATIONFACTOR΀0010‚OPTLLEN=120 0020* 0030************************************ 0040* 0050*THISPROGRAMHAS3MODES 0060*1)WRITEONTAPEANDVERIFY 0070*2)READFROMTAPEANDVERIFY 0080*3)VERIFYFROMTAPEONLY 0090* 0100************************************* 0110* 0120* 0130PIAADEQU$E3D0 0140STPEQU$FF 0150REVEQU$FB 0160FWDEQU$FD 0170FWDWCDEQU$F5 0180* 0190WDAEQU$20 0200BETEQU$40 0210* 0220RAMBEGEQU$E5C2 0230ERRLOGEQU$2615 0240* 0250‚ORGRAMBEG 0260* 0270VERFRMB1 0280BYTERMB1 0290ENDPNTRMB2 0300FIRSTRMB1 0310* 0320B1EQU$4000 0330E1EQU$57FF 0340B2EQU$E400 0350E2EQU$E5BF 0360CHKS1EQUE2+1 0370CHKS2EQUE2+2 0380* 0390‚ORG$2B00 0400* 0410WBSRINIT 0420‚BRAWR 0430VBSRINIT 0440‚BRAVF 0450RBSRINIT 0460‚BRARD 0470* 0480INITLDAA#$4 0490‚STAAPIAAD+1 0500‚LDAA#$FF 0510‚STAAPIAAD 0520‚CLRPIAAD+1 0530‚LDX#$2E06  0540‚STXPIAAD 0550‚CLRVERF 0560‚JSRREWIND 0570‚BRADLY375 0580* 0590DLY1P5CLRA 0600NXDECA 0610‚BNENX 0620‚RTS 0630* 0640DLY375CLRB 0650NXTBSRDLY1P5 0660‚DECB 0670‚BNENXT 0680‚RTS 0690* 0700WRJSRWRFWD 0710‚BSRDLY375 0720‚BSRDLY375 0730‚BSRDLY375 0740‚LDX#E1 0750‚STXENDPNT 0760‚LDX#B1 0770‚JSRWRTBLK 0780‚LDX#E2+2 0790‚STXENDPNT 0800‚BSRCHKSUM 0810‚LDX#B2 0820‚JSRWRTBLK 0830‚LDX#B2 0840‚JSRWRTBLK 0850‚BSRDLY375 0860VF1BSRREWIND 0870VFINCVERF 0880‚BSRCHKSUM 0890RDBSRRDFWD 0900‚LDX#E1 0910‚STXENDPNT 0920‚LDX#B1 0930‚JSRREADBL 0940‚BCSYY 0950‚LDX#E2+2 0960‚STXENDPNT 0970‚LDX#B2 0980‚JSRREADBL 0990‚BCSYY 1000‚TSTVERF 1010‚BNEREWIND 1020* 1030CHECKLDXCHKS1 1040‚STXENDPNT 1050‚BSRCHKSUM 1060‚LDXENDPNT 1070‚CPXCHKS1 1080‚BEQVF1 1090ERRCHKLDX#$ABCD 1100‚BRAYY 1110* 1120YYBSRREWIND 1130‚JMPERRLOG 1140‚NOP 1150‚NOP 1160* 1170REWINDLDAA#REV 1180‚BSRSTORE 1190‚LDAAPIAAD 1200‚BITA#BET 1210‚BNEREWIND 1220STOPLDAA#$FF 1230STORESTAAPIAAD 1240‚RTS 1250* 1260* 1270WRFWDLDAA#FWDWCD 1280‚BSRSTORE 1290‚BSRDLYYY 1300DLYYYJMPDLY1P5ƒBECAUSERTSEXPECTED 1310* 1320RDFWDLDAA#FWD 1330‚BSRSTORE 1340‚JSRDLY375 1350CLEARBSRSTOPTHISISTOCLEARREADLOGIC 1360‚LDAA#FWD 1370‚BRASTORE 1380* 1390* 1400CHKSUMLDX#B1 1410‚CLRA 1420NXCHK1ADDA0,X 1430‚INX 1440‚CPX#E1+1 1450‚BNENXCHK1 1460‚STAACHKS1 1470‚LDX#B2 1480‚CLRA 1490NXCHK2ADDA0,X 1500‚INX 1510‚CPX#E2+1 1520‚BNENXCHK2 1530‚STAACHKS2 1540‚RTS 1550* 1560* 1570MISSEDLDX#$EFFE 1580‚BRAYY 1590* 1600WRTBLKDEX 1610‚LDAA#$AA 1620‚BRAWRITEB 1630NEXTBLDAA0,X 1640* 1650WRITEBLDAB#$8 1660‚BRAWB2 1670WB1BSRWAIT28WAIT28MUSEC 1680WB2RORA 1690‚PSHA 1700‚BCSW1 1710‚BSRWR0 1720‚BRAWRTBEX 1730W1BSRWR1 1740‚BRAWRTBEX 1750WRTBEXPULA 1760‚DECB 1770‚BNEWB1 1780‚CPXENDPNT 1790‚BEQWRFWD 1800‚INX 1810‚BRANEXTB 1820* 1830WR0TST0,XDELAYOF7MUSEC 1840‚LDAA#$F5 1850‚BRACONT 1860CONTSTAAPIAAD 1870‚BSRWAIT76 1880‚EORA#WDA 1890‚STAAPIAAD 1900‚RTS 1910* 1920WR1TST0,XDELAYOF7MUSEC 1930‚LDAA#$D5 1940‚BRACONT 1950* 1960* 1970WAIT76BSRWAIT13 1980‚TST0,XDELAYOF7MUSEC 1990‚BSRWAIT28 2000WAIT28BSRWAIT13 2010‚NOP 2020WAIT13RTS 2030* 2040* 2050READBLBSRDLYYY 2060‚BSRCLEAR 2070‚DEX 2080‚LDAA#1 2090‚STAAFIRST 2100‚LDAAPIAADCLEARINTFLAG 2110READLDAB#8 2120WAI1LDAAPIAAD+1 2130‚ANDA#$C0 2140‚BEQWAI1 2150‚BPLMISSED 2160READBTLDAAPIAAD 2170‚RORA 2180‚RORBYTE 2190‚DECB 2200‚BNEWAI1 2210* 2220STOVFLDAABYTE 2230‚TSTFIRST 2240‚BNECLF 2250‚INX 2260‚TSTVERF 2270‚BEQSTO 2280‚CMPAX 2290‚BNEERROR 2300STOSTAAX 2310CLFCLRFIRST 2320‚CPXENDPNT 2330‚BNEREAD 2340*†CARRYALWAYSRESETBYCLRFIRST 2350‚RTSBYEBYE 2360ERRORSEC 2370‚RTS 2380* 2390************************************** 2400‚END CADECREMENTTENSDIGITAND 3960‚BRATENLPREPEATUNTILZERO. 3970DOHUNDCLCRES.CARRY 3980‚LDAASAVE1G.HUNDREDSANDTHOUSANDSDIGIT 3990‚ANDA#$0FSAVEONLYHUNDREDSDIGIT 4000HUNLPBEQDOTHOUGODOTHOUSANDSIFHUNDREDSISZERO 4010‚ADDB#100ADD100TOBINARYVALUE 4020‚BCCHUN00 4030‚INCBINUPRADD256TOBINUPPERVALUE 4040HUN00DECADECREMENTHUNDREDSDIGITAND 4050‚BR! AHUNLPREPEATUNTILZERO 4060DOTHOULDAASAVE1GETTHOUSANDSDIGIT 4070‚LSRAMOVETHOUSANDSBCDVALUETO 4080‚LSRALOWERFOURBITSOFA. 4090‚LSRA 4100‚LSRA 4110‚STAASAVE1SAVETHOUSANDSDIGIT 4120‚BNETHOU00BRANCHIFTHOUSANDSDIGITISZERO 4130‚LDAABINUPRGETBINARYUPPERVALUE 4140‚BRAXITBIN› 4150THOU00LDAABINUPRGETBINARYUPPERVALUE 4160THOULPCLCRESETCARRY 4170‚ADDB#232ADD232TOBINARYLOWER 4180‚ADCA#$03ADD768TOBINARYUPPER 4190‚DECSAVE1DECREMENTTHOUSANDSDIGIT 4200‚BNETHOULPREPEATUNTILTHOUSANDSDIGITZERO 4210XITBINRTSEXITSUBROUTINE 4220‚SPC3 4230BINBCDEQU* 4240* 4250*THISSUBROUTINEWILLCONVERTA16BITNO. 4260*INREGA,BTOA5DIGITBCDCODEDASCII 4270*NUMBER,WHOSEADDRESSISINBUFADDONENTRY. 4280*ENTERROUTINEWITHMSBINAREG,LSBINBREG. 4290*CHANGESA,B,X,R0,R3 4300* 4310‚LDX#K10K 4320CVDEC1CLRR0 4330CVDEC2SUBB1,XSUBDECIMALCONSTANT 4340‚SBCA0,X 4350‚BCSCVDEC5UPS! 4360‚INCR0CHARACTERBEINGBUILT 4370‚BRACVDEC2 4380CVDEC5ADDB1,XRESTORE 4390‚ADCA0,X 4400‚PSHBSAVEVALUE 4410‚STXR3SAVECONSTANTPOINTER 4420‚LDABR0CHANGEDECIMALCHARACTERTOASCII 4430‚ADDB#$30ANDSTOREITINDSPBUF 4440‚LDXBUFADD‘ 4450‚STAB0,X 4460‚INX 4470‚STXBUFADD 4480‚PULBRESTOREVALUE 4490‚LDXR3 4500‚INX 4510‚INX 4520‚CPX#K10K+10 4530‚BNECVDEC1BRANCHFORCOMPUTINGNEXTNR 4540‚RTS 4550ˆSPC„3 4560FP10ƒFDB„$01A0,$0 4570K10KƒFDB„10000,1000,100,10,1 4580ˆPAGE 4590ˆEND 9½1>–1'4'7-9#Mk½1>–o'6Þ œp&0zo&3Ö 'æ–4&]*Ý7 T$×7*Þ ß<Þ߆—n3YÞ 9†—oÞ ßp Þ 9Þ ß ÞÆ€?'ßÞ Ö–ß?.Þ?)ß9–60Æ? 29Æ6? Î!ýƃ Î ëÆ„ Î ÒÆ…?#½0$–#' z('Î Ä?5 ô?]'/l&lÿ1sþ1s¦„ #‹‹0m&jjî§þ1s Z&Ýþ1s96†dfJ&ù2Ú€0010‚NAMDISCAN 0020* 0030‚OPTREL,LLEN=120 0040* 0050‚IDNTSCANNINGOFDIGITALSINPUTS 0060* 0070*THISPROGRAMCHEKTHEDIGITALINPUTS 0080*ANDTAKEACTIONSINDICATEDBYTHEWAYOFMASKESINSTEP 0090*ALSOITSETORRESETDIGITALOUTPUTACCORDINGLYTOTHE 0100*DIDOTABLEWHICHISINTHETUBECHARACTERIZATIONMODULE 0110* 0120‚XREFTAKDI 0130‚XREFAXA,ALSEQ,ABSEQ,HLDSEQ,SRTDO,TCHAR,TIME 0140* 0150‚XDEFDISCAN 0160* 0170*STORAGERESERVATIONINBASE 0180‚BSCT 0190STPPTRRMB2INTERNALSTEPPOINTER 0200POSITRMB1CURRENTCHECKEDLOCATION 0210MASKRMB1LOCALMASK 0220OFFSETRMB1MASKOFFSET 0230SAVEX‚RMB2SAVEXHERE 0240SAVRESRMB1HEREISSAVEDTHETAKDIRESULT 0250* 0260* 0270‚PSCT 0280* 0290DISCANSTXSAVEXSAVEXREGISTER 0300‚PSHA 0310‚PSHBSAVEACC'S 0320‚LDAA#DIMK11COMPUTETHEMASKESOFFSET 0330‚JSRAXA 0340‚STXSTPPTR 0350‚CLROFFSETSETOFFSETONFIRSTMASKLOCATION 0360‚LDAA#1 0370‚STAAMASKSETTHE"ARGUMENT"MASKFORFIRSTINPUT 0380‚STAAPOSITSETTHEFIRSTINPUTTOCHECK 0390DISCN1LDABPOSIT 0400‚JSRTAKDITESTTHEINPUT 0410‚BSRDISCN4CHANGEOCCURSBRANCHFORPROCESS 0420‚ASLMASKSHIFTTHEMASKFORNEXTINPUT 0430‚BNEDISCN2IFNOSKIPTHEOFFSETUPDATE 0440‚INCMASKSETMASKTO1 0450‚INCOFFSETNEXTOFFSET 0460‚LDXSTPPTRUPDATETHEMASKPOINTER 0470‚INX 0480‚STXSTPPTR 0490DISCN2INCPOSITUPDATEPOSITION 0500‚LDAA#49LASTINPUTHA" SBEENPROCESSED 0510‚CMPAPOSITLASTPOSITION 0520‚BNEDISCN1 0530DISCN3PULA 0540‚PULBRESTOREACC'S 0550‚LDXSAVEX 0560‚RTSEXIT 0570DISCN4STABSAVRESSAVETHERESULTFORFUTURUSE 0580‚BITB#%10000000TESTIFINPUTISSET 0590‚BEQDISCN7NO,NOCHEKFORALARM,...ETC.. 0600‚LDAAMASKTAKETHELOCALMASK 0610‚LDXSTPPTRTAKETHESTEPPOINTERSETTINGONTHEMASK1 0620‚BITA12,XTESTIFTHERESETISEXPECTED 0630‚BEQDISC40IFNOBITISSETNOACTION 0640‚LDXTIMEBITISSET,TESTIFREMAININGTIMEMORETHAN6 0650‚BNERSTI1YESRESETTIME 0660‚LDABTIME+2 0670‚CMPB#6 0680‚BLSDISC40 0690RSTI1CLRTIMECLEARTHEREMAININGTIME 0700‚CLRTIME+1 0710‚LDAB#6 0720‚STABTIME+2MAKE6SECONDSREMAINSFORTHESOFTSTARTRESPECT 0730DISC40LDXSTPPTR 0750‚BITAXCHECKWITHMASK1 0760‚BEQDISCN6IT'SALARMORIGNORE,BRANCH! 0770‚BITA6,XCHECKWITHMASK2 0780‚BEQDISCN5IT'SHOLDBRANCH 0790‚LDAB#%01000000SETTHEABORTCODE 0800‚ADDBPOSIT 0810‚JSRABSEQSETABORTVECTOR 0820‚BRADISCN7 0830DISCN5LDAB#%01000000SETHOLDCODE 0840‚ADDBPOSIT 0850‚JSRHLDSEQGOTOHOLD 0860‚BRADISCN7CONTINUEFOREVENTUALSETTINGOFD.O. 0870DISCN6BITA6,X 0880‚BEQDISCN7NOMORECONTINUETHEPROCESS 0890‚LDAB#%01000000SETTHEALARMCODE 0900‚ADDBPOSIT 0910‚JSRALSEQRINGTHEBELLIT'SANALARM 0920DISCN7LDX#(TCHAR+DIDOTB)SETTHEPOINTERATTHEBEGINNINGOFLINKTB 0930DISCN8LDAAXTAKETHEFIRSTINPUT 0940‚CMPAPOSITSAMEASPOSITION 0950‚BEQDISCN9YESSETORRESETD.O 0960‚INX 0970‚INX 0980‚CPX#(TCHAR+DIDOTB+16)ENDOFTABLE 0990‚BNEDISCN8NOLOOPAGAIN 1000‚BRADISCNA 1010DISCN9LDAA1,XTAKETHEOUTPUTCODE 1020‚ANDA#%10000000KEEPONLYTHEFLAG 1030‚EORASAVRES 1040‚ANDA#%10000000KEEPONLYTHERESULTINGBIT(SETORRESET) 1050‚LDAB1,XTAKETHEOUTPUTTOHANDLE 1060‚ANDB#%01111111KILLBIT7 1070‚ABA 1080‚TAB 1090‚JSRSRTDOSET 1100DISCNARTS 1110‚END SFTFLG 1360‚BRASTART2FROMRESTARTMAKEDIRECTLYSTEP0 1370WAIRUNLDAB#KRST+%10000000SETTHERESTARTPERMANENT 1380‚JSRLIá€0010‚NAMEXCEPT 0020* 0030‚IDNTEXCEPTIONPROCESSING 0040* 0050‚OPTREL,LLEN=100 0060* 0070‚XDEFALSEQ,ABSEQ,HLDSEQ,NEWAPR,OLDAPR,NEWHPR,OLDHPR 0080‚XDEFINITEX,ABMSK1 0090* 0100* 0110‚XREFAXA,LIGHT,HLDFLG,ABVEC,SMTHAL,SMTHAB,SFTFLG,ACTIV,ABCNT,ABSTAT 0120* 0130* 0140‚DSCT 0150* 0160*MASKESRESERVATION 0170* 0180*ALARMMASKES 0190* 0200ALMSK1RMB11 0210ALMSK2RMB11 0220* 0230*HOLDMASKES 0240* 0250HLMSK1RMB11 0260HLMSK2RMB11 0270* 0280*ABORTMASK 0290* 0300ABMSK1RMB11 0310* 0320*ALARMPOINTERS 0330* 0340NEWAPRRMB2NEWALARMMASKPOINTER 0350OLDAPRRMB2OLDMASKPOINTER 0360* 0370*HOLDPOINTERS 0380* 0390NEWHPRRMB2NEWHOLDMASKPOINTER 0400OLDHPRRMB2OLDMASKPOINTER 0410* 0420* 0430SAVEXRMB2 0440* 0450NEWPTRRMB2TEMPORARYNEWPOINTER 0460* 0470‚PSCT 0480* 0490HLDSEQPSHASAVACCA 0500‚PSHB 0510‚STXSAVEX 0520‚LDAA#LFIN 0530‚BITAPIA1DBIFRUNISFINISHEDNOHOLD 0540‚BNECOMEX 0550‚LDAASFTFLGISASOFTSTARTRUNNING 0560‚BNECOMEXYES,DON'TACCEPTHOLD 0570‚LDXNEWHPRINITHOLDSEQ. 0580‚JSRCOSEQ 0590‚JMPCOMEX 0600* 0610ABSEQPSHASAVACCA 0620‚PSHB 0630‚STX# SAVEX 0640‚LDAA#LFIN 0650‚BITAPIA1DBIFRUNISFINISHEDNOABORT 0660‚BNECOMEX 0670‚LDX#ABMSK1INITABORTSEQ. 0680‚JSRCOSEQ 0690‚BRACOMEX 0700* 0710*ALARMSETTING 0720* 0730ALSEQPSHA 0740‚PSHBSAVEACC'S 0750‚LDAA#$10 0760‚ORAAACTIV 0770‚STAAACTIV 0780‚STXSAVEX 0790‚LDXNEWAPRINITALARMSEQ. 0800‚BSRCOSEQ 0810COMEXPULB 0820‚PULA 0830‚LDXSAVEX 0840‚RTS 0850* 0860*SETTINGOFTHEMASKESINFUNCTIONOFVECTORS 0870* 0880COSEQSTXNEWPTR 0890ALSQ1CMPB#%11000000ISABOATALARM 0900‚BHIALSQ2YESDON'TDECREMENT 0910‚DECBADJUSTBFORPHYSICALPOSITION 0920ALSQ2TBA 0930‚ANDA#%11000000TESTIFA.IALARM 0940‚BNEALSQ4 0950‚CMPB#$2IT'SASPARET.C'SINPUTS 0960‚BHIALSQ3NOCONTINUE 0970‚ADDB#9SKIPNORMALT.C'SINPUTS 0980‚INCBADJUSTFORLOGICALPOSITION 0990‚ORAB#%10000000SETTHET.CCODE 1000‚BRAALSQ1SETT.CSPAREALARM 1010ALSQ3SUBB#3ADJUSTFORSKIPTHET.C 1020‚LDXNEWPTR 1030‚JSRSETMSKSETTHERIGHTBIT 1040‚CLC 1050‚BRAALSQE 1060ALSQ4CMPA#%01000000ISDIGITALINPUTSALARM 1070‚BNEALSQ5NONEWSEEK 1080‚LDXNEWPTRTAKETHEPOINTER 1090‚LDAA#2 1100‚JSRAXASKIPTHEA.IMASKES 1110‚JSRSETMSK 1120‚CLC 1130‚BRAALSQE 1140ALSQ5CMPA#%10000000IST.CINPUTSALARM 1150‚BNEALSQ6WRONGALARM 1160‚LDXNEWPTR 1170‚LDAA#8SKIPA.IANDD.IMASKES 1180‚JSRAXA 1190‚JSRSETMSKSETTHEMASK 1200‚CLC 1210‚BRAALSQE 1220ALSQ6SEC 1230ALSQERTS 1240* 1250*SUBROUTINEFORSETTINGABITINAMASKPOINTEDBYX 1260*THENUMBEROFTHEBITTOSETISINB 1270SETMSKPSHASAVEA 1280‚TBASAVEVALUE 1290‚ANDA#%00111000KEEPONLYTHEBYTEPOINTER 1300‚LSRA 1310‚LSRA 1320‚LSRA 1330‚JSRAXASETTHERIGHTPOSITION 1340‚LDAA#%10000000TAKETHEMASKBIT 1350‚ANDB#%00000111KEEPONLYTHEBITNUMBER 1360‚BEQSTMK2FINISHEDEXITNOW 1370STMK1LSRASHIFTTHEMASK 1380‚DECB 1390‚BNESTMK1 1400STMK2ORAAX 1410‚STAAXNEWMASKISSET 1420‚PULA 1430‚RTS 1440* 1450*ROUTINETOINITTHEALMASKES 1460* 1470INITEXPSHASAVEACCA 1480‚PSHBSAVEACCB 1490‚STXSAVEXSAVEXREG 1500‚LDAB#10INITABORTCOUNT 1510‚STABABCNT 1520‚CLRABVECINITABORTFLAG 1530‚LDAA#$FF 1540‚STAAHLDFLGINITHOLDFFLAG 1550‚LDX#ALMSK1 1560‚LDAA#63 1570INITLPCLRXCLEARALLMASKPOSITIONS 1580‚INX 1590‚DECA 1600‚BNEINITLP 1610‚LDX#ALMSK1SETTHEMASKINPTR. 1620‚STXNEWAPR 1630‚LDX#ALMSK2 1640‚STXOLDAPR 1650‚LDX#HLMSK1INITHOLDMASKPTR'S 1660‚STXNEWHPR 1670‚LDX#HLMSK2 1680‚STXOLDHPR 1690‚LDX#SMTHAL 1700‚LDAA#8RESETTHESMOOTHINGMASKES 1710INIT0CLRX 1720‚INX 1730‚DECA 1740‚BNEINIT0 1750‚LDX#ABSTATRESETABORT,ALARM,HOLDSTATUS 1760‚LDAA#33 1770INIT1CLRX 1780‚INX 1790‚DECA 1800‚BNEINIT1 1810‚PULBRESTOREREG'S 1820‚PULA 1830‚RTS 1840‚END |é) €©0010‚NAMFPPACKFLOATINGPOINTPACKAGE 0020‚OPTREL,LLEN=100 0021* 0022‚XDEFFPADD,FPSUB,FPMUL,FPDIV,FLOAT,FIX 0023* 0024*NOMEMORYRESERVATIONNEEDED 0026* 0027‚PSCT 0040******************************* 0050* 0060*PROGRAMNAME:FIX 0070* 0100*‚FUNCTION:TOCHANGEAFLOATINGPOINT 0110*ƒVALUETOINTEGER 0120* 0150*‚CALLINGSEQUENCE: 0160* 0170*‚JSRFIX 0180*‚FDBARG$ 1ADDRESSOFARG1 0190*‚FDBARG2ADDRESSOFARG2 0200*‚---RETURNLOCATION 0210* 0220*‚WHERE: 0230*ARG1=ADDRESSOFFLOATINGPOINTVALUE 0240*BYTE0BIT7=SIGNOFFRACTION 0250*‚BIT6-0=EXPONENT(2'SCOM.) 0260*BYTE1-3=FRACTION 0270* 0280*ARG2=ADDRESSOFRETURNEDINTEGERVALUE 0290*BYTE0=MSB 0300*BYTE1=LSB 0310*‚IFFLOATINGPOINTVALUEGREATERTHAN3276 0320*RESULTSUNPREDICTABLE. 0330* 0340*STACKSIZE:9BYTES 0350* 0360*STACKDESCRIPTION: 0370*BYTE0=MULTIPLERSIGN(BIT7) 0380*1=MULTIPLER(FLOATINGPOINT) 0390*2=INTEGERMSB 0400*3=INTEGERLSB 0410*4=* 0420*5=FRACTION(FLOATINGPOINT) 0430*6=* 0440*7=RETURNLOCATIONMSB 0450*8=""LSB 0460* 0470****** 0480* 0490FIXTSXGETLOCOFSTACKINX 0500‚LDX0,XGETADDR.OFCALLINGSEQ. 0510‚LDX0,XGETADDR.OFARG1 0520‚LDAA3,XGETLSBOFFRACTION 0530‚PSHA 0540‚LDAA2,X 0550‚PSHA 0560‚LDAA1,XGETMSBOFFRACTION 0570‚PSHA 0580‚CLRACLEAR2BYTEINTEGERVALUE 0590‚PSHA 0600‚PSHA 0610‚LDAA0,XGETEXPONENT 0620‚ANDA#$7FANDOUTEXPONENTSIGN 0630‚PSHA 0640‚LDAA0,XGETEXPONENTAGAINANDSAV 0650‚PSHAFORSIGN. 0660‚TSXGETNEWLOC.OFSTACK 0670* 0680FIX1NOP 0690‚LDAA1,XCHECKIFMULTIPLERLD1 0700‚ANDA#$40 0710‚BNEFIX6 0720‚LDAA1,XGETMULTIPLERANDCHECKF0 0730‚BEQFIX4ZERO. 0740‚LDAA#4SHIFTLEFT4BITS 0750FIX2ASL6,XFLOATINGPOINTFRACTION 0760‚ROL5,XINTOINTEGERVALUE. 0770‚ROL4,X 0780‚ROL3,X 0790‚ROL2,X 0800‚DECA 0810‚BNEFIX2 0820‚DEC1,X 0830‚BRAFIX1 0840FIX4NOP 0850‚LDAA4,XGETFRACTION-CHECKIFGR. 0860‚BPLFIX5.5(ROUNDOFF) 0870‚INC3,XGREATERTHAN.5-ADDONE 0880‚BNEFIX5TOINTEGER 0890‚INC2,X 0900FIX5NOP 0910‚LDAA0,XGETMULTIPLIERSIGN 0920‚BPLFIX6CHECKIFNEG. 0930‚LDAA3,XYES-COMPLIMENTINTEGER 0940‚COMA 0950‚LDAB2,X 0960‚COMB 0970‚STAA3,X 0980‚STAB2,X 0990‚INC3,X 1000‚BNEFIX6 1010‚INC2,X 1020FIX6NOP 1030‚LDX7,XUSESTACKPOINTERTOGETTHE 1040‚LDX2,XADDR.OFRESULT. 1050‚PULA 1060‚PULA 1070‚PULA 1080‚STAA0,XSTOREMS.BYTEOFINTEGER 1090‚PULA 1100‚STAA1,X 1110‚PULACLEARSTACK 1120‚PULA 1130‚PULA 1140‚TSXGETLOC.OFSTACKINX 1150‚LDX0,XGETRETURNLOC. 1160‚INS 1170‚INS 1180‚JMP4,XRETURNTOCALLER. 1190‚SPC3 1210**** 1220* 1230*‚PROGRAMNAME:FLOAT 1240* 1250*‚FUNCTION:TOCHANGEAINTEGERVALUETO 1260*ƒFLOATINGPOINT. 1270* 1280*‚CALLINGSEQUENCE: 1290* 1300*‚JSRFLOAT 1310*‚FDBARG1ADDRESSOFARG1 1320*‚FDBARG2ADDRESSOFARG2 1330*‚---RETURNLOCATION 1340* 1350*‚WHERE: 1360* 1370*‚ARG1=ADDRESSOFINTEGERVALUE(16BIT2'SCOMP 1380*BYTE0=MSBYTE 1390*BYTE1=LSBYTE 1400* 1410*‚ARG2=ADDRESSOFRETURNEDFLOATINGPOINTNUMBER 1420*BYTE0BIT7=SIGNOFFRACTION 1430*ƒBIT6-0=EXPONENT(2'SCOMP) 1440*BYTE1-3=FRACTION 1450* 1460*‚STACKSIZE:9BYTES 1470* 1480*‚STACKDESCRIPTION: 1490*BYTE0=INTEGERSIGN(BIT7) 1500*1=MULTIPLIER(FLOATINGPOINT) 1510*2=INTEGERMSBYTE 1520*3=INTEGERLSBYTE 1530*4=* 1540*5=FRACTION(FLOATINGPOINT) 1550*6=* 1560*7=RETURNLOCATIONMSBYTE 1570*8=RETURNLOCATIONLSBYTE 1580**** 1590* 1600FLOATTSXGETLOCOFSTACKINX 1610‚LDX0,XGETADDR.OFCALLINGSEQ. 1620‚LDX0,XGETADDR.OFARG1 1630‚CLRA 1640‚PSHAZERO3BYTESINSTACKFOR 1650‚PS% HAFRACTION 1660‚PSHA 1670‚LDAA1,XGETINTEGERVALUE 1680‚PSHABYTE1(LSBYTE) 1690‚LDAA0,XGETINTEGERVALUE 1700‚PSHABYTE2(MSBYTE) 1710‚CLRB 1720‚PSHBZEROFLOATINGPOINTMULTIP 1730‚PSHASAVEINTEGERVALUESIGNBIT 1740‚TSXGETNEWLOC.OFSTACK |ñ€~ALPHA1.RC:1 XÿÿAPdÿÿÿÿÿÿÿÿÿÿÿÿPŠÿÿ Pú ÿÿÿÿÿÿÿÿÿÿÿÿ18/06/8218/06/82 PRERUN 00.01.00 Xb lÈÿÿ@P2ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ƒ 00.01.00 Xb lÈÿÿ@P2ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ƒBAKE 00.02.00 Xb lÈÿÿ@P2ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ƒ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿ& ÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  CODE=2 3210‚BRAFPARGGOJOINMUTUALPROCESSING 3220********* 3230*SUBARG1-ARG2=RESULT 3240********* 3250SUBGOLDAB#3SETCODE=3 3260* 3270*HERETOGETARGSFROMUSERCALLINGSEQUENCE 3280*ANDTORESERVESCRATCHONSTACK 3290* 3300* 3310FPARGTSXGETLOCOFSTACKINX 3320‚LDX0,XGETADDROFCALLINGSEQUENCE 3330‚LDX0,XGETADDROFARG1 3340‚CLRACLEAROVERFLOWBYTE 3350‚PSHA 3360‚LDAA3,XPUSHARG1 3370‚PSHA 3380‚LDAA2,X 3390‚PSHA 3400‚LDAA1,X 3410‚PSHA 3420‚LDAù€S00500000002F8 S11B0000414C504841312E52433A31202020202020202020202020207F S11B001817707FFF7FFF0CCC07FF033307FF7FFF7FFF7FFF7FFF7FFFB9 S11B00307FFF7FFF7FFF7FFF7FFF7FFF7FFF19647FFF7FFF0FFF0FFFAD S11B004807FF0FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF9C S11B00607FFF7FFF2020202020200B00003C05070FD01023107603FAE0 S11B00787FFF7FFF07FF02E1019901997FFF7FFF7FFF7FFF7FFF7FFF5F S11B00907FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF0000000068 S11B00A800000000000000000000000000000000000000000000388084 S11B00C0008300003C05070FD01023107603FA7FFF7FFF07FF02E101DE S11B00D89901997FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6E S11B00F0FF7FFF7FFF7FFF7FFF7FFF000000000000000000000000007F S11B0108000000000000000000000000003880008300007805070FD03D S11B01201023107603FA7FFF7FFF07FF02E1019901997FFF7FFF7FFF7A S11B01387FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFC3 S11B01507FFF0000000000000000000000000000000000000000000015 S11B01680000000038800083000000000007F507F507F57FFF7FFF7FD1 S11B0180FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F7B S11B0198FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF000000000000005C S11B01B00000000000000000000000000000000000000038800000007B S11B01C80000000007F507F507F57FFF7FFF7FFF7FFF7FFF7FFF7FFFB5 S11B01E07FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF1B S11B01F87FFF7FFF7FFF7FFF00000000000000000000000000000000F3 S11B02100000000000000000000038800000000000000007F507F5071B S11B0228F57FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FDC S11B0240FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF0039 S11B02580000000000000000000000000000000000000000000000008A S11B02700038800000000000000007F507F507F57FFF7FFF7FFF7FFFCE S11B02887FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF72 S11B02A07FFF7FFF7FFF7FFF7FFF7FFF7FFF00000000000000000000D0 S11B02B800000000000000000000000000000000388000000000000072 S11B02D00007F507F507F57FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FAF S11B02E8FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F12 S11B0300FF7FFF7FFF00000000000000000000000000000000000000E6 S11B03180000000000000038800000000000000007F507F507F57FFF9F S11B03307FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFC9 S11B03487FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF00000000AD S11B036000000000000000000000000000000' 0000000000000003880C9 S11B03780000000000000007F507F507F57FFF7FFF7FFF7FFF7FFF7F80 S11B0390FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F69 S11B03A8FF7FFF7FFF7FFF7FFF7FFF00000000000000000000000000C4 S11B03C00000000000000000000000000038800000000000000007F56D S11B03D807F507F57FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF25 S11B03F07FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF09 S11B04087FFF000000000000000000000000000000000000000000005A S10B0420000000003880000018 S9 B#$80 4780‚CLR0,XCLELOCALOVFFLAG 4790‚ASLAGETEXPONENTINITHMETICFORM 4800‚ASL7,X 4810‚ADDA7,XADDEXPONENTS 4820FPM45BVSFPMOVFBRANCHIFEXPONENTOVERFLOW 4830‚CLCFIXEXPONENT 4840‚RORA 4850FPM37ABAADDINSIGN 4860‚STAA2,X 4870‚LDAA#RESULTNORMALIZEANS. 4880‚BSRNORMX1 4890‚TST0,XLOCALOVFSET? 4900‚BEQFPOUT2NO 4910‚INC2,XYESINCROP. 4920*PICBRANCHS 4930ADSUB2BRAADDSUB 4940*UNDEROROVERW 4950FPMOVFBPLFPUNDOVERW? 4960‚PSHANO 4970‚LDAA3,XGETANS 4980‚BITA#$F0ISITNORMALIZED? 4990‚PULA 5000‚BNEFPOVFS,NORM.WONTHELPTHEOVF 5010‚CMPA#$80WOULDANORMALIZEHELP? 5020‚BNEFPOVFNO 5030‚LDAA#$3FSETEXP.MAX. 5040‚STAA0,XSETACALOVFL 5050‚BRAFPM37 5060NORMX1BRANORMX2PICBRANCH 5070DVSUB2BRADVSUB3 5080FPOUT1BRAFPOUT2 5090* 5100*HEREONRESULTOVERW 5110* 5120FPOVFANDB#$80MASKOUTSIGN 5130‚ORAB#$3FSETEXP.MAX 5140‚LDAA#$FF 5150‚INC1,XSETOVERW 5160‚BRAFPMU10 5170*HEREONUNDERW 5180FPUNDCLRB 5190‚CLRATEXPONENTANDFRACTION=0 5200FPMU10STAA3,XSETRESULTFRACTION 5210‚STAA4,X 5220‚STAA5,X 5230‚CLR6,X 5240‚STAB2,XSETRESULTEN. 5250‚BRAFPOUT1HANGITUP 5260FPM456BRAFPM45 5270* 5280*---------------------------------- 5290* 5300*ADDARG1+ARG2=RESULT 5310*SUBARG1-ARG2=RESULT 5320* 5330*---------------------------------- 5340ADDSUBPSHBPUSHADD-SUBCODE 5350* 5360*NORMALIZEARGS 5370‚LDAA#ARG1 5380‚BSRNORMX2 5390‚LDAA#ARG2 5400‚BSRNORMX2 5410‚LDAA#8 5420‚STAA0,XDONTSHIFTTOOMANYTIMES 5430‚LDAA12,XGETARG1EXP. 5440‚ASLALEFTJUSTIFYIT 5450‚LDAB7,XGETARG2EXP. 5460‚ASLB 5470FPA05DEC0,XTOOMANYSHIFTS 5480‚BLTFPA25BRANCHIFSO 5490‚CBACOMPAREEXP1TOEXP2 5500‚BEQFPA30EQUAL,PROCEEDWITHTHEADD 5510*SHIFTARGWITHTHESMALLEREXPRIGHT4BITS 5520‚BGTFPA20 5530*ARG1ISSMALLER 5540‚BSRFPAS1SHIFTARG14BITS 5550‚BSRFPAS1 5560‚BSRFPAS1 5570‚BSRFPAS1 5580‚ADDA#2BUMPEXP1 5590‚BRAFPA05TRYAGAIN 5600*ARG2ISSMALLER 5610FPA20BSRFPAS2SHIFTARG24BITS 5620‚BSRFPAS2 5630‚BSRFPAS2 5640‚BSRFPAS2 5650‚ADDB#2BUMPEXPANDTRYAGAIN 5660‚BRAFPA05 5670*HERETOSHIFTARG11BITRIGHT 5680FPAS1CLCSHIFTIN0SINCEITSPOS 5690‚ROR13,X 5700‚ROR14,X 5710‚ROR15,X 5720‚ROR16,X 5730‚RTS 5740*HERETOSHIFTARG21BITRIGHT 5750FPAS2CLCSHIFTIN0SINCEITSPOS 5760‚ROR8,X 5770‚ROR9,X 5780‚ROR10,X 5790‚ROR11,X 5800‚RTS 5810FPA25CBANMENDIFFISLARGE 5820‚BGTFPA30PICKUPTHEBIGEXPOTNME 5830‚TBA 5840‚BRAFPA30 5850*PICCBRANCHES 5860FPOUT3BRAFPOUT1BRANCHFORPIC 5870DVSUB3BRADVSUB4 5880NORMX2BRANORMX3 5890FPUND5BRAFPUND 5900FPM455BRAFPM456 5910FPOVF3BRAFPOVF 5920* 5930*HEREONEQUALEXPONENTS 5940* 5950FPA30STAA2,XSAVENEWEXPON.INRESULT 5960‚BSRFPAS1MAKEROOMFORSIGNSINFRACT( IONS 5970‚BSRFPAS2 5980‚LDAA12,XISARG1NEG? 5990‚BPLFPA40NO 6000‚LDAA#ARG1S,GOCOMFEMENT 6010‚BSRCOMX1 6020FPA40LDAA7,XISARG2NEG? 6030‚BPLFPA50NO 6040‚LDAA#ARG2YESGOCOMPLEMENT 6050‚BSRCOMX1 6060FPA50PULAGETADD-SUBCODE 6070‚CMPA#2WHICHONE 6080‚BNEFPS10SUB 6090*HERETOADDTWOQUADRUPLEARGS 6100‚LDAA16,XARS+ 6110‚ADDA11,XARG2= 6120‚STAA6,XRESULT 6130* 6140‚LDAA15,XLSB 6150‚ADCA10,X 6160‚STAA5,X 6170* 6180‚LDAA14,XMIDDLE 6190‚ADCA9,X 6200‚STAA4,X 6210* 6220‚LDAA13,XMSB 6230‚ADCA8,X 6240*DIDANSWEROVERW? 6250FPA55BVCFPA60NO 6260‚STAA3,XSAVEMSB 6270‚LDAA#4CTR 6280‚ROR3,XBRINGINLOSTBIT1STTIME 6290‚BRAFPA58 6300FPA57ASR3,XSIGNEXTENDED 6310FPA58ROR4,X 6320‚ROR5,X 6330‚ROR6,X 6340‚DECADONE4BITS 6350‚BNEFPA57NO 6360‚INC2,XINCR.EXPONENT 6370‚INC2,X 6380‚BVCFPA61BRANCHONNORFLOW 6390‚ROL3,XSETOVERFLOWANDEXIT 6400FPA59RORB 6410FPOVF2BRAFPOVF3OVERFLOW 6420*PICBRAOES 6430FPA80BRAFPOUT3 6440NORMX3BRANORMX4 6450DVSUB4BRADVSUB5 6460FPUND4BRAFPUND5 6470FPM454BRAFPM455 6480* 6490FPA60STAA3,XSAVEMSB 6500FPA61TST3,XISRESULTNEGATIVE? 6510‚CLCCLEARC 6520‚BPLFPA70POSITIVERESULT 6530‚LDAA#RESULT 6540‚BSRCOMX1NEGATIVE,COMPLEMENTIT 6550‚SECSETTOSHIFTINMINUS 6560‚BVSFPA59TOOBIGTOCOMPL. 6570FPA70ROR2,XSHIFTINSIGN 6580‚ROL6,XMOVESIGNBACKINTOEXP 6590‚ROL5,X 6600‚ROL4,X 6610‚ROL3,X 6620‚LDAA3,XISRESULTNORMALIZED? 6630‚BITA#$F0 6640‚BNEFPA80YES 6650‚LDAA#RESULTNO,GONORMALIZE 6660‚BSRNORMX 6670‚BRAFPA80DONE,EXIT 6680* 6690NORMX4BRANORMX 6700DVSUB5BRADVSUB6 6710FPUND3BRAFPUND4 6720FPM453BRAFPM454 6730COMX1BRACOMX 6740* 6750*HERETOSUBTRACTTWOQUADRUPLEARGS 6760* 6770FPS10LDAA16,XARS- 6780‚SUBA11,XARG2= 6790‚STAA6,XRESULT 6800* 6810‚LDAA15,XLSB 6820‚SBCA10,X 6830‚STAA5,X 6840* 6850‚LDAA14,XMIDDLE 6860‚SBCA9,X 6870‚STAA4,X 6880* 6890‚LDAA13,X 6900‚SBCA8,XMSB 6910‚BCSFPS20COMPLEMENTTHECARRYBIT 6920‚SEC 6930‚BRAFPA55 6940FPS20CLC 6950‚BRAFPA55GOCHECKOVERFLOWANDNORMALIZE 6960FPOVF4BRAFPOVF2 6970* 6980*-------------------- 6990* 7000*GENERALIZEDNORMALIZEROUTINECALL 7010*JSRNORMX 7020*WHEUACONTAINSOFFSETTOARGFROMNORMALX(0-64) 7030*ALLREGSEXCEPTXAREDESTROYED 7040*VISSETIFUNDERFLOWWOULDOCCURIFNBR 7050*‚WERENORMALIZED 7060*ZISSETIFARG=0 7070* 7080*-------------------- 7090* 7100NORMXPSHAPUSHXOFFSET 7110‚CLRBCLEARZ,VWORD 7120NL1INXBUMPXBYONE 7130‚DECADONENTIMES 7140‚BNENL1BRAOIFNOT 7150*DONORMALIZE 7160‚LDAA1,XCHECKFORZEROFRACTION 7170‚ORAA2,X 7180‚ORAA3,X 7190‚ORAA4,X 7200‚BEQNRMZRODONTTRYTONORMZERO 7210‚ASL0,XSAVESIGNINBWITHSFSET 7220‚ROLBALSODBLEXP 7230NRM01LDAA1,X 7240‚BITA#$F0NORMALIZEDYET? 7250‚BNENRMOUTYES 7260‚DEC0,X 7270‚BVSNRMOVFSTOPIFNEXTSHIFTCAUSEUNDERF 7280‚DEC0,X 7290‚BSRNRMSH4SHIFTFRACT4BITS 7300‚BRANRM01TRYAGAIN 7310NRMOVFINC0,XRESTOREEXP 7320‚ORAB#4OVFBITAFTERSHIFT 7330NRMOUTRORB 7340‚ROR0,XPUTSIGNBACKON 7350NRMXITPULAGETXOFFSET 7360NRMLPDEX 7370‚DECA 7380‚BNENRMLP 7390‚TPAGETCURRENTSTATUS 7400‚ANDA#$10SINTERRUPTST 7410‚ABAADDBTOSTATUS 7420‚TAP 7430‚RTSRETURN 7440*SUBTOSHIFTTRIPLEBYT) ELEFT4BITS 7450NRMSH4LDAA#4 7460NSHLOPASL4,X 7470‚ROL3,X 7480‚ROL2,X 7490‚ROL1,X 7500‚DECA 7510‚BNENSHLOP 7520‚RTS 7530NRMZROLDAB#4SETZBIT 7540‚CLR0,XCLEAREXPONENT 7550‚BRANRMXITEXIT 7560*PICBRANCHES 7570DVSUB6BRADIVSUB 7580FPUND2BRAFPUND3 7590FPM452BRAFPM453 7600FPOVF5BRAFPOVF4 7610* 7620*------------------------ 7630* 7640*GENERALIZEDTWOSCOMPLEMENTROUTINECALL: 7650*JSRCOMX 7660*WHEREACONTAINSOFFSETTOARGFROMPRESENTX(0-64) 7670*REGISTERSARELOST 7680* 7690*------------------------ 7700* 7710COMXTABSAVEOFFSETINBTOO 7720COM10INX 7730‚DECAREPOSITIONXTOARG 7740‚BNECOM10 7750‚TPASAVECALLERSCC-V=0 7760‚COM1,XDO1'SCOMPLEMENT 7770‚COM2,X 7780‚COM3,X 7790‚COM4,X 7800‚INC4,XMAKE2'SCOMPLEMENT 7810‚BNECOMOUTGENERATECARRIESASLONGASNEEDE 7820‚INC3,X 7830‚BNECOMOUT 7840‚INC2,X 7850‚BNECOMOUT 7860‚INC1,X 7870‚BVSCOMXXCANTCOMP80000000 7880COMYYTPASAVECONDITIONCODE 7890COMOUTDEXFIXX 7900‚DECB 7910‚BNECOMOUT 7920‚TAPPUTCONDITIONSIN 7930‚RTSEXIT,RETURN 7940*PICBRANCHES 7950DIVSTPBRAFPOVF4 7960NORMX5BRANORMX 7970FPOVF6BRAFPOVF5 7980FPM451BRAFPM452 7990FPUND1BRAFPUND2 8000* 8010* 8020*HERETOSEEIFWECANSHIFTTHISSOWE 8030*CANCOMPLEMENTIT 8040COMXXLDAA#4SHIFT4BITSRIGHT 8050COM22CLC 8060‚ROR1,X 8070‚ROR2,X 8080‚ROR3,X 8090‚ROR4,X 8100‚DECADONE? 8110‚BNECOM22 8120‚INC0,XINCREMENTEXPONENT 8130‚INC0,X 8140‚BRACOMYYJOINABOVE 8150* 8160*---------------------------------------------------- 8170* 8180*DIVIDEARG2/ARG1=RESULT 8190* 8200*---------------------------------------------------- 8210* 8220* 8230DIVSUBLDAA#ARG2NMALIZEDIVIDEND 8240‚BSRNORMX5 8250‚LDAA#ARG1NORMALIZEDIVISOR 8260‚BSRNORMX5 8270‚BVSDIVSTPDIVISORTOOSMALL 8280‚BEQDIVSTPDIVBYZEROISANONO 8290*FORCEARG2LTARG1SOALGORITHMCANWORK 8300*MAKEDIVIDEND(ARG2)SMALLERINFRACTION 8310*ANDLARGERINEXP 8320FDP15LDAA#5DO5SHIFTSONARG2 8330FPD20LSR8,X 8340‚ROR9,X 8350‚ROR10,X 8360‚ROR11,X 8370‚DECA 8380‚BNEFPD20 8390*DIVIDEDIVISORFRACTIONBY2TO 8400*FACILLITATETHEALGORITHM 8410‚LSR13,X 8420‚ROR14,X 8430‚ROR15,X 8440‚ROR16,X 8450* 8460*HERETOITUALLYDIVIDETHEFRACTIONS 8470* 8480‚LDAB11,XGETOVFBYTEOFDIVIDEND 8490‚LDAA#2929BITSTODOWITHOB 8500FPD40PSHASAVECTR 8510‚ASLBSHIFTDIVIDENDLEFTONEBIT 8520‚ROL10,X 8530‚ROL9,X 8540‚ROL8,X 8550‚ASL6,XSHIFTRESULTLEFTONEBIT 8560‚ROL5,X 8570‚ROL4,X 8580‚ROL3,X 8590*DOADBLSUBTRACTIFTHERESULTISPOSSET 8600*BITINRLULT.IFNEGADDDIVISORBACK 8610*ANDSETRESULTBIT=0 8620‚SUBB16,XDIVIDEND-DIVISOR 8630* 8640‚LDAA10,XLSB 8650‚SBCA15,X 8660‚STAA10,X 8670* 8680‚LDAA9,XMIDDLE 8690‚SBCA14,X 8700‚STAA9,X 8710* 8720‚LDAA8,XMSB 8730‚SBCA13,X 8740‚STAA8,X 8750*IFCARRYOSETSETQUOTIENTBIT 8760*ANDCONTINUE 8770‚BCCFPD55 8780‚BRAFPD50 8790*PICBRANCHES 8800FPUND0BRAFPUND1 8810FPM450BRAFPM451 8820FPOVF7BRAFPOVF6 8830*IFCARRYISSETADDDIVISORBACK 8840*ANDCONTINUE 8850FPD50ADDB16,XDODBLADD 8860* 8870‚LDAA10,XLSB 8880‚ADCA15,X 8890‚STAA10,X 8900* 8910‚LDAA9,XMIDDLE 8920‚ADCA14,X 8930‚STAA9,X 8940* 8950‚LDAA8,XMSB 8960‚ADCA13,X 8970‚STAA8,X 8980‚BRAF* PD60GOTOCONTINUE 8990* 9000*HERETOSETBITINQEIENT 9010* 9020FPD55INC6,XSETIT 9030* 9040FPD60PULAPULLLOOPCTR 9050‚DECAGONE28TIMES? 9060‚BNEFPD40NO 9070*LEFTJUSTIFYRESULT 9080*SINCEWEONLYDIVIDED28TIMESWENEEDTOSHIFT 9090*UP4BITSBUTSINCEWERIGHTSHIFTEDTHEDIVISOR 9100*3ISTHEMAGICNUMBER 9110‚LDAA#3SHIFTRESULTUP3BITS 9120FPD62ASL6,X 9130‚ROL5,X 9140‚ROL4,X 9150‚ROL3,X 9160‚DECA 9170‚BNEFPD62 9180* 9190*HERETOSUBEXPONENTS(EXP2-EXP1) 9200*ALSOCALCULATESIGNANDADJUSTEXP 9210*TOREFLECTORIGINALSHIFTOFTHE 9220*DIVIDEND 9230* 9240‚LDAA7,XEXP2 9250‚TABSAVEINBFORSIGNCALC 9260‚EORB12,XEXCLUSIVEORWITHARG1 9270‚ANDB#$80EXTRACTSIGN 9280‚CLR0,XCLEARLOCALOVERFLOW 9290‚ASLADBLEXP2 9300‚ASL12,XDBLEXP1 9310‚SUBA12,XEXP2-EXP1 9320‚BVCFPD70BRANCHONNOOVERFLOW 9330‚BPLFPD80UNDERFLOW 9340‚BRAFPOVF7DEFINITEOVERFLOW 9350*MAKEUPFORORIGINALSHIFTOFARG2BYADDINGTO 9360*THEEXPONENT 9370FPD70ADDA#2 9380FPD75BRAFPM450GOCHECKFOROVFL'SETC 9390*HEREONPOTENTIALUNDERFLOW 9400*SEEIFTHEADJUSTWOULDHELPANY 9410FPD80ADDA#2ANOVFLNOWMEANSYES 9420‚BVSFPD85 9430‚BRAFPUND0DEFINEUNDERFLOW 9440FPD85CLVRESETOVERFLOW 9450‚BRAFPD75GOEXIT 9460‚END å€0010‚PAGE 0020‚NAMINIT 0030‚TTL‚HARDWAREINIT.FORTUBECONTROLLER 0040* 0050‚OPTREL,LLEN=120 0060* 0070*STARTINGOFINITIALISATION 0080* 0090* 0100‚PSCT 0110* 0120‚XDEFGINIT,PIRQ 0130* 0140‚XREFINIDIO,INITEX,BOTSTS,INITDA,INITAC,INITTA,ACIRQ,RECON 0150‚XREFBOTIRQ,ACI2RQ 0160* 0170*INITTHESTACKANDMASKIRQ 0180* 0190GINITNOPLDS#STACKSTARTINGPOINTOFTHETUBECONTROLLERPROGRAM 0200‚SEI‚SETINTERRUPT 0210* 0220*SETTINGTHEPIAREADYTORUN 0230* 0240SETPIALDX#PIA1DAPOINTONTHEPIA 0250‚CLR0,XMAKESUREIT7SREADYTOINIT 0260‚CLR1,X 0270‚CLR2,X 0280‚CLR3,X 0290* 0300*SETDIRECTIONREGISTERS 0310* 0320‚LDAA#%01110000SETTHEASIDEPA0-PA3ANDPA7INPUTS,OTHERSOUTPUTS 0330‚STAAX 0340‚LDAA#%01111111BSIDEALLLINESAREOUTPUTSLIGHTSEXCEPTB7POWERFAIL 0350‚STAA2,X 0360‚LDAA#$36INITTHEPIA1CAFORSETTINGDATAREGISTERA 0370‚STAA1,X 0380‚LDAA#$36INITPIA1CBFORSETTINGDRBANDCB2OUTANDFOLLOWMODE 0390‚STAA3,XCB2ISPUTTINGLOW(ALARMLIGHT) 0400* 0410‚PAGE 0420* 0430*INITTHEPTMFORACIABAUDRATEGENERATION 0440*COUNTERS1AND2WILLBEUSEDFORTHEBOATPULLER 0450* 0460*ACIABAUDRATEISPROVIDEDBYCOUNTER3OFPTM 0470* 0480* 0490* 0500TINITLDX#TMCR13MAKEBESURETIMERISREADYTOINIT 0510‚LDAA#7 0520TINT1CLR0,X 0530‚INX 0540‚DECA 0550‚BNETINT1 0560* 0570*BAUDRATEGENERATORINIT 0580* 0590BAUD€GAINAS.RC:1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ+ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ09/06/8209/06/82  € GAAS.RC:1 X`Êÿÿ`ÊÿP^ÿÿÿÿÿÿÿÿÿÿÿÿPú°ÿAPAPPÂÿÿÿÿÿÿÿÿÿÿÿÿ09/06/8209/06/82PREDEP 15.00.00  ²€¨ÈLÿ`ÊÿAPP–ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@ 15.00.00  ²€¨ÈLÿ`ÊÿAPP–ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@ 15.00.00  ²€¨ÈLÿ`ÊÿAPP–ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@E 15.00.00  ²€¨ÈLÿ`ÊÿAPP–ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@ 8FA072 S10500C0000A30 S9 0010‚NAMMOVIO 0020* 0030‚OPTREL,LLEN=100 0040* 0050‚TTLINPUTANDOUTPUTSUBROUTINESUSEDBYTHETUBECONTROLLER 0060* 0070*CROSSREFERENCES 0080* 0090‚XREFTBAX,TXBA,SHRX,SHLX,ABAX,SXBA,CPBAX,XBAX,AXBA,AXA,AXB,BACKUP 0100‚XREFAIMIR 0110* 0120‚XDEFTAKAI,SETAO,SRTDO,TAKDI 0130‚XDEFINIDIO,UPDIMR,UPAIMR 0140‚XREFDOMIR,DIMIR 0150* 0160‚BSCT 0170* 0180*RESERVESOMEWORK€Y.RC:1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ09/06/8209/06/82 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  0007D S11B0108000000000000000000000000003880000400D2F00408168EAD S11B012012CB127403FA21767FFF7FFF04CC066604CC7FFF7FFF7FFF4A S11B01387FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFC3 S11B01507FFFE001000000002100000000000000000000000000000,  € IN.RC:1 È ÿAPAPPúÿÿÿÿÿÿÿÿÿÿÿÿPú „ÿÿPúÿÿÿÿÿÿÿÿÿÿÿÿ09/06/8209/06/82RUN1 10.00.00  ²€¨ÈPRÿPúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@Š 10.00.00  ²€¨ÈPRÿPúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@Š 10.00.00  ²€¨ÈPRÿPúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@Š 10.00.00  ²€¨ÈPRÿPúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@Š 10.00.00  ²€¨ÈPRÿPúÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ!@Š AVEACCB 1330‚DECB 1340‚STXTEMP1SAVEINDEX 1350‚LDX#DOMDL1TAKETHEADDRESSOFTHEMODULE1 1360‚TBASAVEBINA 1370‚ANDA#%}"€~GA.RC:1 ÿÿÿÿA @PÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿAP@pÿÿÿÿÿÿÿÿÿÿÿÿÿ10/06/8210/06/82PRERHEATUP 00.01.00  ²€¨ÿ „ÿÿAP@Pÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  FFF7FFF7FFF2A S11B01387FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFC3 S11B01507FFFA000000000002100000000000000000000000000000054 S11B0168000000003880008A008CA00408168E12CB127403FA184B7F1B S11B0180FF00000CCC000007FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F95 S11B0198FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFA00000000000219B S11B01B0000000000000000000000000000000000000003880008A00F1 S11B01C88CA00408- 168E12CB127403FA184B7FFF00000CCC000007FF20 S11B01E07FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF1B S11B01F87FFF7FFF7FFF7FFFA000000000002100000000000000000032 S1110210000000000000000000003880008A9A S9 940‚STXTEMP1SAVEINDEX 1950‚LDX#DIMDL1TAKETHEADDRESSOFTHEMODULE1 1960‚TBASAVEBINA 1970‚ANDA#%01111000OBTAINSTHEGROUPINA 1980‚ANDB#%00000111OBTAINSTHELOCATIONINTHEGROUPINB 1990‚PSHASAVEACCAFORLATERUSE 2000‚LDAA#%00000001LOADTHEIMAGE 2010TAKDI1TSTB 2020‚BEQTAKDI2BIS0,MASKBITISSET 2030‚DECB 2040‚ASLASHIFTTHEMASK 2050‚BRATAKDI1 2060TAKDI2TAB 2070‚PULATAKETHEOFFSETTOBEADDEDONX 2080‚LSRA 2090‚LSRA 2100‚LSRA 2110‚JSRAXACOMPUTTHERIGHTPOSITION 2120‚PSHBSAVETHEMASK 2130‚ANDBXTESTIFTHEBITISSETONTHEBOARD 2140‚LDX#DIMIRTAKETHED.IMIRRORADDRESS 2150‚CMPA#2 2160‚BLSTAKD20 2170‚DECA 2180TAKD20JSRAXAADDTHEOFFSET 2190‚PULA 2200‚PSHATAKEAGAINMASKBIT 2210‚ANDAXTAKEONLYTHEWANTEDBIT 2220‚TBAPUTTHERESULTINACCA 2230‚TSTB 2240‚BNETAKDI3BITISSETONINPUTRESETMIRRORBIT 2250‚PULARESTOREMASKBIT 2260‚PSHA 2270‚ORAAXSETTHEBITINTHEMIRROR 2280‚STAAX 2290‚PULB 2300‚PULB 2310‚ORAB#%10000000BIT7FOLLOWSTHEINVERTOFINPUTSTATE 2320‚PSHB 2330‚PSHB 2340‚BRATAKDI5NOWEXIT 2350TAKDI3PULB 2360‚COMACOMPLEMENTTHEMASK 2370‚ANDAXRESETTHEBITINMIRROR 2380‚STAAX 2390TAKDI4PULB 2400‚ANDB#%01111111MAKESUREBIT7ISWELLRESETED 2410‚PSHB 2420‚PSHB 2430TAKDI5LDXTEMP1RESTOREXREGISTER 2440‚PULB‚ADJUSTTHESTACK 2450‚PULB 2460‚PULA 2470‚CLCMAKENOERROR 2480‚RTS 2490TAKDIESECINDICATECHANNELERROR 2500‚RTS 2510* 2520*ROUTINETOINITDIGITALSI/O'S 2530* 2540INIDIOPSHASAVEACC'S 2550‚PSHB 2560‚TSTBACKUPISAPOWERBACKUPRESTART 2570‚BNEINIBACYES,MAKEABACKUPINIT 2580‚LDX#DOMDL1POINTONTHEDIGITALOUT'SBOARD 2590‚LDAA#8 2600INLP2CLRXRESETALLOUTPUTS 2610‚INX 2620‚DECA 2630‚BNEINLP2 2640‚LDX#DOMIR 2650‚LDAA#6 2660INLP3CLRX 2670‚INX 2680‚DECA 2690‚BNEINLP3 2700UPDILDAA#48 2710‚STXTEMP2 2720INLP4TAB 2730‚JSRTAKDI 2740‚DECA 2750‚BNEINLP4 2760‚PULBRESTOREREG'S 2770‚PULA 2780‚LDXTEMP2 2790‚RTS 2800* 2810INIBACLDXDOMIR 2820‚STXDOMDL1 2830‚LDXDOMIR+2 2840‚STXDOMDL1+2 2850‚LDXDOMIR+4 2860‚STXDOMDL1+4 2870‚BRAUPDI 2880* 2890UPDIMRPSHA 2900‚PSHB 2910‚JMPUPDI 2920* 2930UPAIMRSTXTEMP2 2940‚LDX#AIMIR+36‚UPDATEA.I.MIRRORFORALL16CHANNELS 2950‚PSHA 2960‚PSHB 2970‚LDAB#16 2980CONTSTXTEMP1 2990‚PSHB 3000‚JSRTAKAI 3010‚JSRTXBA 3020‚LDXTEMP1 3030‚STABX 3040‚STAA1,X 3050‚PULB 3060‚DEX 3070‚DEX 3080‚DECB 3090‚BNECONT 3100‚LDXTEMP2 3110‚PULB 3120‚PULA 3130‚RTS 3140* 3150‚END *€0010‚NAMPANEL 0020* 0030‚OPTREL,LLEN=120 0040* 0050‚IDNTPANELOPERATION 0060* 0070‚XREFCMDI,REMOTE,KEYBRD 0080‚XDEFPANEL,LIGHT,SAVKEY 0090* 0100*THISROUTINECHECKSTHEOPERATORPANEL 0110*IFANYKEYISDEPRESSEDITGIVESTHEFUNCTION 0120*ITTAKESTHEFUNCTIONONLYONPOSITIVETRANSITION 0130*TOTHECALLERPROGRAM 0140*ITSETSLAMPSONTHEOPERATORPANELACCORDI. NGLY 0141*ITUPDATESTHEDISPLAYOFTHESTATUS(TUBELEVELACCESS) 0150* 0160‚BSCT 0170* 0180OLDKEYRMB1 0190SAVKEYRMB1SAVEKEYINTHISBYTEFORLATERPROCESSING 0200* 0210* 0220‚PSCT 0230* 0240PANELPSHA 0245‚JSRKEYBRDUPDATEDISPLAY 0250‚JSRCMDIGOTOTHECOMMANDINTERPRETER 0260‚LDABREMOTEISAREMOTEINPUT 0270‚BEQNEWP0YES,PROCESSIT 0280‚PULA 0290‚BRANEWP 0300NEWP0LDABPIA1DATAKETHECONTENTSOFPIASIDEA 0310‚LDAAPIA1DA 0320‚CBACHECKFORBADSWITCHING 0330‚PULA 0340‚BNEPANEX 0350‚COMBPUTINRIGHTSENS 0360‚ANDB#KBDATAKEEPONLYDATABIT 0370‚BEQNPANELNOINPUTSEC 0380NEWPCMPB#7CHECKIFINVALIDCODE 0390‚BEQPANEX 0400‚CMPB#9 0410‚BHIPANEX 0420‚CMPBOLDKEYCHECKIFTHESAMEKEY 0430‚BEQNPANELYESDOESNOACTTHISKEY 0440‚STABOLDKEY 0450NEWP1CMPB#KALARMIFALARMKEYKILLTHEBUZZER 0460‚BNENPAN0 0470‚PSHB 0480‚LDAB#$FKILLTHEBUZZER 0490‚JSRLIGHT 0500‚PULB 0510NPAN0CLRREMOTE 0520‚STABSAVKEYSAVEKEYFORPOSSIBLELATERPROCESSING 0531NPAN1SEC 0540‚RTS 0550NPANELSTABOLDKEYSTORETHELASTKEY 0560PANEXLDABSAVKEY 0570‚BNENPAN1 0580‚LDABOLDKEY 0590‚CLC 0600‚RTS 0610* 0620*THISROUTINELIGHTTHEOPERATORPANELACCORDINGLYWITH 0630*CODEFOUNDINACCB 0640*IFTHEBIT7OFACCBITLIGHTTHECORRESPONDINGLAMP 0650* 0660LIGHTPSHA 0670‚PSHBSAVEREGISTERS 0680‚TBA 0690‚ANDA#%01111111CUTTHEFUNCTIONBITFORCOMPARISON 0700‚CMPA#KABORT 0710‚BNEL1 0720‚LDAA#LABORT 0730‚BRALIGHTOGOTOEXECUTETHEFUNCTIONONTHISLIGHT 0740L1CMPA#KRST 0750‚BNEL2 0760‚LDAA#LRST 0770‚BRALIGHTO 0780L2CMPA#KRECP1 0790‚BNEL3 0800‚LDAA#LRECP1 0810‚BRALIGHTO 0820L3CMPA#KRECP2 0830‚BNEL4 0840‚LDAA#LRECP2 0850‚BRALIGHTO 0860L4CMPA#KRECP3 0870‚BNEL5 0880‚BRALIGHT3 0890L5CMPA#KRUN 0900‚BNEL6 0910‚LDAA#LRUN 0920‚BRALIGHTO 0930L6CMPA#KHOLD 0940‚BNEL7 0950‚LDAA#LHOLD 0960‚BRALIGHTO 0970L7CMPA#KALARM 0980‚BNEL8 0990‚BRALIGHT6 1000L8CMPA#7ISTHEFINISHEDCODE 1010‚BNEL9NOTHISCODEISINVALID 1020‚LDAA#LFIN 1030‚BRALIGHTO 1040L9CMPA#$FISTHEBUZZER 1050‚BEQLIGHTANOINVALIDCODE 1060‚SEC 1070‚PULB 1080‚PULARESTOREREGISTERS 1090‚RTS 1100LIGHTOPULB 1110‚PSHBRESTORETHECOMMANDCODE 1120‚TSTB 1130‚BMILIGHT2IFSETTING,GOTOSETLIGHT 1140‚COMASETTHEMASKFORSWITCHOFFTHELIGHT 1150‚ANDAPIA1DBCUTTHELIGHT 1160LIGHT1STAAPIA1DB 1170‚PULB 1180‚PULARESTOREREGISTERS 1190‚CLC 1200‚RTSEXITWITHNOERROR 1210LIGHT2ORAAPIA1DBUPDATETHELIGHT 1220‚BRALIGHT1EXITANDSET 1230LIGHT3PULB 1240‚PSHBRESTOREACCBWITHCOMMAND 1250‚TSTB 1260‚BMILIGHT5SETTHEALARMLIGHT 1270‚LDAA#%11110111RESETTHELIGHTONCB2 1280‚ANDAPIA1CB 1290LIGHT4STAAPIA1CB 1300LIGH41PULB 1310‚PULA 1320‚CLC 1330‚RTS 1340LIGHT5LDAA#%00001000SETCB2ON 1350‚ORAAPIA1CB 1360‚BRALIGHT4 1370LIGHT6PULB 1380‚PSHBRESTOREACCBWITHCOMMAND 1390‚TSTB 1400‚BMILIGHT7SETTHEALARMLIGHT 1410‚LDAA#%11110111RESETTHELIGHTONCA2 1420‚ANDAPIA1CA 1430‚STAAPIA1CA 1440‚BRALIGH41 1450LIGHT7LDAA#%00001000SETCA2ON 1460‚ORAAPIA1CA 1470‚STAAPIA1CA 1480‚BRALIGH41 1490* 1500LIGHTAPULB 1510‚PSHBRESTORETHECOMMANDCODE 1520‚LDAA#%01000000SETTHEBUZZERBIT 1530‚TSTB 1540‚BMILIGHTCIFSETTING,GOTOSETLIGHT 1550‚COMASETTHEMASKFORSWITCHOFFTHELIGHT 1560‚ANDAPIA1DACUTTHELIGHT 1/ 570LIGHTBSTAAPIA1DA 1580‚PULB 1590‚PULARESTOREREGISTERS 1600‚CLC 1610‚RTSEXITWITHNOERROR 1620LIGHTCORAAPIA1DAUPDATETHELIGHT 1630‚BRALIGHTBEXITANDSET 1640* 1650‚END  2€0010‚NAMPOWFL 0020* 0030*POWERFAILROUTINEFORBATERYBACKUPOPTION 0040‚OPTREL,LLEN=120 0050* 0060*INCASEOFPOWERFAIL(BIT7OFPIA1DB=1)THEPROGRAMMLOOPS 0070*HEREUNTILPOWERISRESTORED.THENITMAKESABACKUPRESTARTWITH 0080*SOFTSTART. 0090* 0100‚XDEFPOWFL 0110‚XREFBACKST,BACKUP,ACTIV,POFL,POFSTP,POFCNT,CURSTP 0120* 0130* 0140POWFLTSTPIA1DB 0150‚BMIPOWFL1TESTIFPOWERISOFF 0160‚RTS 0170POWFL1LDX#0 0180‚STXDOMDL1CLEARALLDIGOUTPUTS 0190‚STXDOMDL1+2 0200‚STXDOMDL1+4 0210‚STXDAMDL1ALLTEMPERATUREOUTPUTSZERO 0220‚STXDAMDL1+2 0230‚STXDAMDL1+4 0240‚INCPOFLNUMBEROFPOWERFAILSINRUN 0250‚CLRPOFCNT‚POWERDOWNTIMERESETAT0 0260‚LDABCURSTP 0270‚STABPOFSTPSAVESTEPINWHICHPOWERFAILED 0280POWFLWTSTASMTIM 0290‚BMISKIPINCREMENTCOUNTEREACHHALF!!!SECOND 0300‚INCPOFCNT+1 0310‚BNESKIP 0320‚INCPOFCNT 0330SKIPTSTPIA1DB 0340‚BMIPOWFLW 0400‚JMPBACKSTMAKEBACKUPRESTART 0410‚END 10‚PAGE 0420* 0430*INITTHEPTMFORACIABAUDRATEGENERATION 0440*COUNTERS1AND2WILLBEUSEDFORTHEBOATPULLER 0450* 0460*ACIABAUDRATEISPROVIDEDBYCOUNTER3OFPTM 0470* 0480* 0490* 0500TINITLDX#TMCR13MAKEBESURETIMERISREADYTOINIT 0510‚LDAA#7 0520TINT1CLR0,X 0530‚INX 0540‚DECA 0550‚BNETINT1 0560* 0570*BAUDRATEGENERATORINIT 0580* 0590BAUD5€ 0300Þþÿ)ÑÎ,{ÿ)ÓÎ)Ñ?'Å&~!#Æ Å&~'Æþ,|ŒDK&~'ÿ,yú,X÷,XÎ, ÿ)ÓÎ)Ñ?'Å& Æ Å'ÌÆþ,¡ŒDK'Ïÿ,žú,X÷,Xþ)Ñ_¦ 'W;' ó¦ÿ)Ñ 'G 'òÎ,`¡&3êþ)ÑD&â†=¡&*Î,»ÿ)ÓÎ)Ñ7?'Å'o~'3 ',& þ)Ñ ¸m&Ã~' ÷,[Å'Å`'$Å@'Å &ÎUDÅ€'ö,XÅ'¼,|''Å'¼,¡'~'Å&ùö,XÅ'¼,|'í Å'¼,¡'âÄ Á &~&ù…'… &Æ ñ, &ñ,©'銷,X„'~$Æ ñ, &¶,{·, ñ,©&þ,„ÿ,©ñ,¡&Î,|ÿ)ÑÎ,¡ÿ)ÓÎ)ÑÆ?ÆtSõ,['~'ö,[ÄPÁP'ôÆ ú,r÷,rÆ ú,—÷,—½)i$~'/ö,[Å 'Î,žÿ)ÑÎ)½ÿ)ÓÆ Î)Ñ?Î,q?'~&ð?&ùö,[Å@'~"Ýö,ˆÄ÷,­ö,‰÷,®þ,Šÿ,¯þ,„ÿ,³½'¨Æú,—÷,—Î,–?&Á?'},³&},´'³Á&¯,³,´ æ½'3Î,q?&~"ÊÁ &–ö,ˆÄÁ&WÎÿÿÿ,‚ÿ,§þ,Æ?'ÿ,’Î,q?'~"ÚÎ)Öÿ,µÎ*Uÿ,·ÿ,¹Î,–?&oþ,Æu?'ÿ)ÑÎ*Kÿ)ÓÎ)ÑÆ ?Îÿÿÿ,§Î,–?&Kö,[Å '"½'CÎ,q?'~&ðÎ)½ÿ)ÑÎ,žÿ)ÓÎ)ÑÆ ? %½'=})Ê'ÆBð)ʽ(*?þ,”ÿ,¹Î,–?&~"~&ðþ*Vÿ,µ ÿ,’ÿ,”þ*Xÿ,·Î,–½'‡þ,·ÿ)Íÿ)Ͻ'3Î,qæ#¦$þ)Í?/%~#¤Î,qæ¦ ÷)Í·)Î?'Á '~&ðÎ,–æ#¦$þ)Ï?/$Î,–?&~$Á &áö,ˆÄÁ'~"¸Îÿÿÿ,‚ÿ,§ÿ)Ëþ,Æ?'ÿ,’Î)Öÿ,µÎ*Uÿ,·Î,q?&¬Î,–?&¥þ,Æu?'ÿ)ÑÎ*Kÿ)ÓÆ Î)Ñ?'´½(g&ô ­Î,–æ#¦$þ)Ï?/$Î,–æ¦ ÷)Ï·)Ð?'Á ':~&ðþ)Íÿ)Ñþ)Ïÿ)ÓÆ€Î)Ñ? $~"¸?'½(g&íþ)Ñÿ)Íþ)Óÿ)Ïþ)Ëÿ)Ë~#þ)Ëÿ)ÑÎ-!ÿ)ÓÎ)ÑÆ½-âÎ-½(4~"¸ö,[Å '~'Å€'Sþÿ,^þÿÆÎ,»?þ,^ÿ$Á&~&ýÁ&~'$Á&~'~'ö,[Å'¶,]6¶,\644446ÎÿÿúþnÆ ñ, &Æ0÷, ½)i$~'/ö,XÅ&~&:Î,|ÿ)ÑÎ,¡ÿ)ÓÎ)ÑÆ ?Î,q?'~&ð?&ùö,ˆÄÁ'Á'~'¶,[…'~'…'Á&õÆ Á'ƶ,ˆ„x·,­¶,[…'Á&׆º,—·,— |)Õ¶,[…@&KÆú,—÷,—Î,–½)4'?'~&ð?&ù½'3Î,q?'Á &ë~"¸})Õ& þ,u¼,s'â|)Õþ,sÿ,œÎ,–?&Ë ÐÎCN¼,ž&~'Î+Yÿ,šÎ,Wÿ,œö,[Å&|)Õ½'0 ‡½'3†½)'Î,q?'4Á &’†½)'Î,–?' Á &~"¸~&ðþ)Ëÿ)ÑÎ-ÿ)ÓÎ)ÑÆ½-?Î- ~$})Õ&î¼,s'±†½)'Î,–?'Á 'Ê~%&})Õ& î¼,˜'á|)Õþ,uö,s¶,t?.L·)¶þ,šö,˜¶,™?.L±)¶$·)¶þ,uÿ)Ñþ,šÿ)Óö)¶Î)Ñ? $~"¸?'½(©&í~%ÎCN¼,y&~'~'ö,[Å'¶,X…',r·,r†·,ˆ |)Õ,|ö,XÅ' Æ ñ,©&ÎSAÿ,©Î,¡ÿ)ÑÎ,|ÿ)ÓÎ)ÑÆ ?Î,q½)4'?'~&ð?&ùö,ˆÄÁ' Á'Á'~'ƶ,ˆ„x·,­ö,XÅ&Î,|ÿ)ÑÎ,¡ÿ)ÓÎ)ÑÆ ?ö,[Å@'~%]½'¨Æ~%Æ? ½'=?Æ õÆÎ,» îÆ êÆ æÆ âÆ ÞÆ ÚÆ ÖÆ ÒÆ ÎÆ ×Î, Æ ÃÆ6 ¿? $½'=?9Î,q½'hö,—ÄÁ&Æõ,—&Îÿÿ¼,¡'ú,—÷,—Î,–½'h9ÿ'…?'Á'_? þ'…?'Á'_? 9Î,–æÄüÊç½)4'?& ?&Î,Ô? 9~&ðÎ, Æ?'9ö,­Å€'~'(Ķ,ˆ„' '~' Á&ùö,XÄÁ& ö,­Ä¶,ˆ„&ãö,[Å'9Î,¡ÿ)ÑÎ,çÿ)ÓÎ)ÑÆ?þ,©ÿ,ðö, ÷,óÎ,ç? Î)ÖÆ? ö)ÖÁY'ÍÆ€?#½'=?Î(3?5Z&ø9Æ?#ö,[Å&? 9})Ê&ÿ(eÆ÷)ʽ(*þ(e?5|)Êö)ÊÁB-)Ê97þ)˼)·'ÿ)·ÿ)¹Î-!ÿ)»Î)¹Æ½-âÎ-½(437†€·)º)¹Î--ÿ)»Î)¹Æ½-â½(ì3Z97þ)˼)·'ÿ)·ÿ)¹Î-ÿ)»Î)¹Æ½-?Î- ½(437¶)¶·)º)¹Î-.ÿ)»Î)¹Æ½-?½(ì3Z9þ)Ñ æ÷)º)¹Î-5ÿ)»Î)¹Æ½-âþ)Óæÿ)Ó÷)ºÎ-=ÿ)»Î)¹Æ½-âÎ-#½(49µ,X'þ)Ëÿ)Ë9¦H&¦ R&¶,Y§¶,Z§ ¦ Š@§ o9¦U&ù¦ D&ó¶,ʧ¶,Ë ßþÿ,ÿ,µÆ??$„€HYIM&Á" 9DV„DVF÷)´·)µ»,‘ù,÷*V·*W»)µù)´?% ÿ,’ÿ,·ÿ*X 9ÿþ.˜$€NCWB LV@D€M*Z+XDK0  SA*Z+XDK 0 LO)Ö*UVERIFY IN PROGRESSXXXXXXXX.XX:X EXISTS. OVERWRITE? RECORD XXXXXSECTOR XXXX OFFSET XX SRC-XX DST-XX]&~-Ël&l÷-Þÿ-àÎ-Ìÿ-Û†·-ßþ-à¦æÎ-Öoîà¢%Î-Öl ñë©Î-Ö67¦‹0æ 'Z&ü§32Î-Öl&ll&lj ,Ãïî¦Î-Öî m&jjî§Î-Öl&lj&Þþ-àO9'èd ]'/l&lÿ.þ.¦„ #‹‹0m&jjî§þ. Z&Ýþ.96†dfJ&ù29  ½.G ½.Y$ 0îîî† §0î11nÿ. þ.œoo†<§þ. 9ÿ. þ.œ¦†4§†<§.¢.£¦+ z.£&÷z.¢&ò ¦%0îîîæÄÁ&„ þ. 9.#ä°„1570‚STAA1,X 1580‚LDXSAVEX1 1590‚JSRSETAOSETTHEVALUEONOUTPUTDIRECTLY 1600RSTRP3PULB 1610‚PULASAVEREGISTERS 1620‚LDXSAVEX1 1630‚RTSNOWEXIT 1640ˆPAGE 1650UPRAMPEQU„*„ROUTINEWICHRAMPSALLOUTPUTSWITHRAMPFLAGSET 1660* 1670‚PSHA 1680‚PSHB 1690‚STXSAVEX1 1700ˆCLRB 1710UPR1ƒINCB 1720ˆCMPBƒ#17 1730ˆBNE„UPR2…BRANCHIFNOTDONE 1740ˆJMP„UPR6…EXIT 1750UPR2ƒJSR„AOPTRSƒCOMPUTEPOINTERSINAO-MIRROR,AOINCREMENT 1790ˆLDAAƒ0,X†TESTIFRAMP 1800ˆANDAƒ#$FE 1810ˆCMPAƒ#$FE 1820ˆBEQ„UPR4A„BRANCHIFNORAMP 1830*PUTA.O.VALUE,A.O.INCREMENTINWORKSPACETOCOMPUTENEWVALUE 1831ˆPSHBŒKEEPA.O.NR 1840ˆSTX„SOURCEƒXPOINTSTOAOINCR 1850ˆLDX„#AOWORK 1860ˆSTX„DESTIN 1880ˆLDX„#4 1890ˆSTX„LENGTH 1900ˆJSR„BUFBUFƒMOVEINCREMENT 1910ˆLDX„TEMP3„POINTERTO1 AOINCR 1920ˆLDX„4,X†GETA.O.REMAINING 1930ˆSTX„AOWORK+6 1940ˆLDX„TEMP2„AOMIRPOINTER 1950ˆLDX„0,X†GETA.O.VALUE 1960ˆSTX„AOWORK+4 1961*COMPUTENEWOUTPUTVALUE 1962ˆCLR„UPDOWNƒINDICATESADDOPERATION 1970ˆLDX„#AOWORK 1980ˆTST„0,X†CHECKSIGN 1990ˆBMI„UPR3…ISARAMPDOWN 2010ˆJSR„ADSUB4ƒRAMPUP 2020ˆBRA„UPR4 2030UPR3ƒASL„0,X†KILLSIGN 2040ˆLSR„0,X 2050ˆINC„UPDOWNƒSETSUBTRACTOPERATION 2060ˆJSR„ADSUB4ƒRAMPDOWN 2070ˆASL„0,X†RESTORESIGN 2080ˆSEC 2090ˆROR„0,X 2100*MOVERESULTBACK;AOVALUEINAOMIRROR,AOREMAININGINAOINCREMENT 2110UPR4ƒLDAAƒ6,X†AOREMAINING 2120ˆLDABƒ7,X 2130ˆLDX„TEMP3„AOINCRPOINTER 2140ˆSTAAƒ4,X 2150ˆSTABƒ5,X 2160ˆLDX„TEMP2„AOMIRPOINTER 2170ˆLDAAƒAOWORK+4 2180ˆSTAAƒ0,X 2190ˆLDAAƒAOWORK+5 2200ˆSTAAƒ1,X 2205ˆPULBŒA.O.NR 2210UP@€0010ˆNAM„SCREEN 0020ˆOPT„LLEN=120,REL 0030ˆSPC„3 0040ˆXDEFƒPDATA,PDATA1,OUTCH,PCRLF,PCRLF3,SPACE,SCROLL,CLRDSP,LEFT 0041ˆXDEFƒBLINK,CURSOR,TOSCR,BOSCR,NOBLNK 0050ˆSPC„1 0060ˆXREFƒAXA,CPBAX,BUFBUF,SOURCE,DESTIN,LENGTH 0070ˆSPC„3 0080ˆBSCT 0090ˆSPC„1 0100CURSORRMB„2ˆCURSORADDRESS 0110TOSCR‚RMB„2ˆTOPOFSCREENPOINTER 0120BOSCR‚RMB„2ˆBOTTOMOFSCREENPOINTER 0133SAVEX‚RMB„2ˆSTORAGEOFXREG. 0140ˆSPC„3 0141ˆDSCT 0142SAVE2‚RMB„2ˆTEMP.STORAGEOFXREG 0143ˆSPC„3 0150ˆPSCT 0160ˆSPC„1 0170PDATA‚EQU„*ˆPRINTSCR,LF,DATASTRING 0180ˆJSR„PCRLF 0190* 0200PDATA1EQU„*ˆPRINTSDATASTRING 0210ˆPSHA 0220PDATA2LDAAƒ0,X 0230ˆCMPAƒ#4‡EOF 0240ˆBEQ„PDATA3ƒBRANCHIFDONE 0250ˆBSR„OUTCH„DISPLAYCHAR. 0260ˆINX 0270ˆBRA„PDATA2 0280PDATA3PULA 0290ˆRTS 0300ˆPAGE 0310OUTCH‚EQU„*ˆWRITESCHARACTERINACCAATCURSORPOSITION 0320*INMEMORY;MOVESCURSORPROMPTONEPOSITION 0330ˆPSHA 0340ˆPSHB 0350 B€ABC1.RC:1 ÿÿÿÿAPÿAPÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ17/06/8217/06/82START 00.01.00èLXXXÿÿÿÿÿA`ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@START1 00.01.00èLXXXÿÿÿÿÿA`ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  0920PCRLF3EQU„*ˆSENDS3CR'SANDLF'S 0930ˆBSR„PCRLF 0940ˆBSR„PCRLF 0950ˆBSR„PCRLF 0960ˆRTS 0970ˆSPC„3 0980SPACE‚EQU„*ˆDISPLAYSTHENUMBEROFSPACESGIVENBYACCB 0990ˆPSHA 1000ˆLDAAƒ#$20 1010SPACE1JSR„OUTCH„ 1020ˆDECB 1030ˆBNE„SPACE1 1040ˆPULA 1050ˆRTS 1060ˆSPC„3 1070CLRDSPEQU„*ˆCLEARSDISPLAYFROMTHECURSORPOSITIONONWARD 1080ˆPSHA 1090ˆLDX„CURSOR 1100ˆSTX„SAVE2 1110ˆLDAAƒ#$20…SPACE 1120CLR1ƒSTAAƒ0,X 1130ˆINX 1140ˆCPX„BOSCR 1150ˆBNE„CLR1…CLEARALLME2 }E€~ALPHA.RC:1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ17/06/8217/06/82GO 00.00.30 ¼¼¼ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  LENGTH 1390ˆLDX„TOSCR 1400SCROL1STX„DESTIN 1410ˆLDAAƒ#$80 1420ˆJSR„AXA 1430ˆSTX„SOURCE 1440ˆCPX„BOSCR 1450ˆBEQ„SCROL2ƒBRANCHIFDONE 1460ˆLDABƒ#80 1470ˆSTABƒLENGTH+1 1480ˆJSR„BUFBUFƒMOVEALINEUPWARDS 1490ˆLDX„DESTIN 1500ˆLDAAƒ#$30 1510ˆJSR„AXA†POINTTOBEGINNINGNEXTLINE 1520ˆBRA„SCROL1ƒ 1530SCROL2LDX„DESTIN 1540ˆSTX„CURSORƒSETCURSORTOBOTTOMOFSCREEN 1550ˆJSR„CLRDSPƒCLEARTHEBOTTOMLINE 1560ˆRTS 1570ˆPAGE 1580ˆEND }Hh€”0010ˆNAM„SETPNT 0020ˆOPT„LLEN=120,REL 0030ˆSPC„2 0040ˆXDEFƒSPFLAG,SPSTAT,SPRECP,FNDAO 0050ˆSPC„1 0060ˆXREFƒPDATA,PDATA1,OUTCH,PCRLF,PCRLF3,SPACE,SCROLL,CLRDSP,LEFT 0070ˆXREFƒNOBLNK,BLINK,CURSOR,TOSCR,BOSCR 0080ˆXREFƒCVTSP,CVTNUM,BCDBIN 0090ˆXREFƒBINBCD,NUMBER,FACTOR,SECOND,BUFADD,DSPBUF,BUFFER 0100ˆXREFƒDIV4,DIVID,DIVISR,SYSTAB 0110ˆXREFƒFPDIV,FPMUL,FIX,HSMUL,MUL1,MUL2,R3,R4 0120ˆXREFƒAXA,CPBAX,BUFBUF,SOURCE,DESTIN,LENGTH 0130ˆXREFƒCURSTP,AIMIR,AOMI1,DIMIR,DOMIR 0140ˆXREFƒRFLAG,STEPPT,COUNT,COUNT1,TEMPX,VALVE,POINTR,DOBYTE,TEMP1 0150ˆXREFƒSAVEX,BLOOP,R0,R1,R2,R5,R6,R7,DVECTR,EDVECT,OFFSET,OUTPUT 0160ˆXREFƒSAVE1,BUFPTR,INCVAL,EXIT,RCEDIT,EDIT02,AOVAL,ADDRPT 0170ˆXREFƒNAMDSP,NAMAO,DSPAI,DSPAO,TSTBIT,SETBIT,LOCK,CONLCK 0180ˆXREFƒM31,M24,M23,M25,M7,INIT1,INIT2 0181ˆXREFƒAICHKF 0190ˆSPC„3 0200ˆDSCT 0210SPFLAGRMB„1ˆFLAGSETIFSETPOINTCHANGEINSTATUS 0211AOOFF‚RMB„1ˆOFFSETINSYSTAB+12 0220ˆSPC„3 0230*******MACRODEFINITIONS******* 0240* 0250*MACROWHICHSETSINTITIALPARAMETERSFORNAMEDISPLAY; 0260*ARGUMENTSARETHESYSFILEPOINTERANDTHEOFFSETINANENTRY 0270INITƒMACR 0280ˆLDX„\0 0340ˆLDAAƒ#\1 0341ˆJSR„INIT1 0360ˆENDM 0370ˆSPC„3 0380*THISMACROSENDSCURSORINSTRUCTIONSTOTHECRT 0390*THESPECIFIEDARGUMENTISTHELINENUMBER 0400*OFTHEINSTRUCTION,FOLLOWEDBYTHEPOSITIONONTHELINE 0410*ITCALLSBLINKTOPUTCURSORONSCREEN 0420CURPOSMACR 0430ˆJSR„NOBLNK 0440ˆLDX„#\0 0450ˆLDAAƒ#\1 0460ˆJSR„AXA 0470ˆJSR„BLINK 0480ˆENDM 0490ˆPAGEƒ 0500*MACROMOVESETSTHEPARAMETERSFORBUFBUFANDCALLSBUFBUF 0510*THEARGUMENTSARESOURCEPOINTER,DESTINATION,LENGTHOFDATASTRING 0520MOVEƒMACR 0530ˆLDX„\0 0540ˆSTX„3 SOURCE 0550ˆLDX„#\1 0560ˆSTX„DESTIN 0570ˆLDX„#\2 0580ˆSTX„LENGTH 0590ˆJSR„BUFBUF 0600ˆENDM 0610ˆSPC„2 0620*MACROTOPUTVALUESINA,BANDXREGISTER 0630PARAM‚MACR 0640ˆLDAAƒ\0 0650ˆLDABƒ\1 0660ˆLDX„\2 0670ˆENDM 0680ˆSPC„2 0690*MACROWHICHADDSOFFSETTOPOINTER;RESULTINPOINTERANDX 0700ADDA2XMACR 0710ˆLDAAƒ\0 0720ˆLDX„\1 0730ˆJSR„AXA 0740ˆSTX„\1 0750ˆENDM 0760ˆSPC„3 0770*MACROWHICHPUTSRETURNADDRESSFORKEYBOARDENTRYINDVECTR 0780*THENITRETURNSTOSTEPSCAN(EXIT);ARGUMENTISRETURNADDRESS 0790RETURNMACR 0800ˆLDX„#\0 0810ˆSTX„DVECTR 0820ˆJMP„EXIT 0830ˆENDM 0840ˆPAGE 0850ˆPSCT 0851ˆSPC„1 0852SPRECPEQU„*ˆMOVERECIPEDATATOCHANGEBUFFERANDBACK 0853*–WHENCHANGESAREMADE 0854ˆMOVEƒOUTPUT,BUFFER,46 0855ˆJMP„CHSP 0856*RETURNHERAFTERSETPOINTSARECHANGED 0860SPRCP1LDX„#BUFFER‚NEWVALUESINTHEOUTPUTFIELD 0861ˆSTX„SOURCE 0862ˆLDX„OUTPUT 0863ˆSTX„DESTIN 0864ˆLDX„#46†LENGTHOFDATARECORD 0865ˆSTX„LENGTH 0866ˆJSR„BUFBUFƒMOVEDATATOCORRECTMEMORY 0867ˆJMP„RCEDITƒBACKTORECIPEEDITOR 0868ˆSPC„3 0870SPSTATEQU„*ˆMOVESTHEWITHA.I.'SCORRESPONDINGA.O.DATATO 0875*ACHANGEBUFFER,FOLLOWEDBYTHEUNLINKEDA.O.'SANDDIGITALOUTPUTS 0876ˆLDX„SYSTAB+4 0880ˆJSR„INIT2ƒSETINITIALPARAMETERS 0885ˆBEQ„SPST04ƒBRANCHIFNOENTRIESINA.I.TABLE 0890SPST01LDAAƒ0,X†GETA.I.NR 0895ˆSTAAƒBLOOP 0900ˆLDABƒ14,X…GETLINKEDA.O.NR 0905ˆBEQ„SPST02ƒBRANCHIFNOTLINKED 0910*FINDCORRESPONDINGA.O.VALUE 0915ˆJSR„AOVAL 0926ˆJSR„DCARE1ƒTESTFORDON'TCARE;CHANGETOSTANDARD 0930ˆLDX„#BUFFER‚DON'TCAREFORMAT(7FFF)ANDSTOREDATAINTEMP1 0935ˆLDAAƒ#2 0940ˆLDABƒBLOOP„A.O.NR 0945ˆJSR„ADDRPT 0950ˆLDAAƒTEMP1 0955ˆSTAAƒ0,X 0960ˆLDAAƒTEMP1+1 0965ˆSTAAƒ1,X 0970SPST02DEC„COUNT 0975ˆBEQ„SPST04ƒBRANCHIFDONEWITHA.I.'S 0980ˆADDA2X#CNST15,POINTR 0985ˆBRA„SPST01ƒNEXTA.I. 0990*MOVETHEUNLINKEDA.O.'S 0991SPST04LDX„#BUFFER+32 0992ˆSTX„TEMPX 0995ˆLDX„SYSTAB+12 1000SPST05STX„POINTR 1005ˆLDABƒ0,X 1006ˆBEQ„SPST06ƒBRANCHIFDONE 1010ˆJSR„AOVAL 1021ˆJSR„DCARE1ƒTESTFORDON'TCARE;CHANGETOSTANDARD 1023ˆLDX„TEMPX„DON'TCAREFORMAT(7FFF)ANDSTOREDATAINTEMP1 1025ˆLDAAƒTEMP1 1030ˆSTAAƒ0,X 1035ˆLDAAƒTEMP1+1 1040ˆSTAAƒ1,X 1041ˆINX 1045ˆINX 1060ˆSTX„TEMPX 1065ˆLDX„POINTR 1070ˆINX 1075ˆBRA„SPST05 1080*GETD.I.VALUES 1085SPST06LDX„DOMIR 1090ˆSTX„BUFFER+40 1095ˆLDX„DOMIR+2 1100ˆSTX„BUFFER+42 1105ˆLDX„DOMIR+4 1110ˆSTX„BUFFER+44 1115*CHANGETHESETPOINTS 1120ˆJMP„CHSP 1125*RETURNHEREAFTERCHANGESAREMADE 1126SPST10LDX„SYSTAB+4 1130ˆJSR„INIT2ƒSETINITIALPARAMETERS 1131ˆBEQ„SPST15ƒBRANCHIFNOA.I.'S 1140SPST11LDABƒ0,X†GETA.I.NR 1150ˆLDAAƒ14,X…GETLINKEDA.O.NR 1155ˆBEQ„SPST12ƒBRANCHIFNOTLINKED 1156ˆSTAAƒBLOOP 1160*FINDCORRESPONDINGA.O.VALUE 1180ˆLDX„#BUFFER 1185ˆLDAAƒ#2 1195ˆJSR„ADDRPT 1201ˆJSR„DCARE2ƒCHANGESDON'TCAREFORMATTOSTATUSDON'TCARE 1202ˆLDABƒBLOOP„FORMAT(0800)ANDSTORESDATAINTEMP1 1203ˆJSR„AOVAL 1204ˆLDAAƒTEMP1 1205ˆSTAAƒ0,X 1210ˆLDAAƒTEMP1+1 1215ˆSTAAƒ1,X 1220SPST12DEC„COUNT 1225ˆBEQ„SPST15ƒBRANCHIFDONEWITHA.I.'S 1230ˆADDA2X#CNST15,POINTR 1235ˆBRA„SPST11ƒNEXTA.I. 1240*MOVETHEUNLINKEDA.O.'S 1245SPST15CLRA 1250SPST16STAAƒAOOFF„OFFSETINSYSTAB+12 1252ˆLDX„SYSTAB+12 1254ˆJSR„AXA 1256ˆLDABƒ0,X 1258ˆBEQ„SPST20ƒBRANCHIFNOMOREA.O.'S 1259ˆSTABƒBLOOP 1260ˆLDX„#BUFFER+32 1261ˆASLAŒMULTIPLYOFFSETB4 Y2FORDATA 1262ˆJSR„AXA 1265ˆJSR„DCARE2ƒCHANGESDON'TCAREFORMATTOSTATUSDON'TCARE 1270ˆLDABƒBLOOP„FORMAT(0800)ANDSTORESDATAINTEMP1 1295ˆJSR„AOVAL„FINDCORRECTPLACEOFA.O.INSTATUS 1300ˆLDAAƒTEMP1 1305ˆSTAAƒ0,X…MOVEDATATOSTATUS 1310ˆLDAAƒTEMP1+1 1315ˆSTAAƒ1,X 1320ˆLDAAƒAOOFF„NEXTA.O. 1325ˆINCA 1335ˆBRA„SPST16ƒBRANCHIFNOTDONE 1340*MOVEDIGITALOUTPUTVALUES 1345SPST20LDX„BUFFER+40 1350ˆSTX„DOMIR 1355ˆLDX„BUFFER+42 1360ˆSTX„DOMIR+2 1365ˆLDX„BUFFER+44 1370ˆSTX„DOMIR+4 1375ˆJMP„EDIT02ƒBACKTOSTATUSEDITOR 1380ˆSPC„3 1493DCARE1EQU„*ˆCHANGESFORMATOFSTATUSDON'TCARE(0800) 1494*TODON'TCAREFORMATFORARECIPE(7FFF);B-REGHASA.O.NR 1495ˆLDX„0,X 1496ˆSTX„TEMP1„KEEPDATA 1498ˆJSR„INCVALƒTESTFORDON'TCARE 1499ˆLDAAƒ0,X 1500ˆANDAƒ#$01 1501ˆBNE„DCARE3ƒBRANCHIFNOTDON'TCARE 1502ˆLDX„#$7FFF 1503ˆSTX„TEMP1„CHANGETHEDON'TCAREFORMAT 1504DCARE3RTS 1506ˆSPC„3 1508DCARE2EQU„*ˆCHANGESFORMATOFRECIPEDON'TCARE(7FFF)TO 1509*DON'TCAREFORMATOFTHESTATUS(0800);STORESDATAINTEMP1 1510*SETSINCREMENTINA.O.RAMPINFOTABLE 1511*ENTEREDWITHA.O.NRINBLOOP 1513ˆLDX„0,X†DATA 1514ˆSTX„TEMP1 1521ˆLDABƒBLOOP 1525ˆJSR„INCVALƒFINDSTATUSBITINA.O.RAMPINFOTABLE 1535ˆLDABƒ#$FF 1540ˆLDAAƒTEMP1„GETNEWDATA 1545ˆCMPAƒ#$7F 1565ˆBNE„DCARE4ƒBRANCHIFNOTDON'TCARE 1573ˆLDAAƒ#$08…CHANGEDON'TCAREFORMAT 1575ˆSTAAƒTEMP1 1576ˆCLR„TEMP1+1 1579ˆLDABƒ#$FE…MODIFYFLAGFORDON'TCARE 1581DCARE4STABƒ0,X†'CLEAR'RAMPINGFLAG 1582ˆRTS 1583ˆPAGE 1700CHSPƒEQU„*ˆCHANGESTHESETPOINTS™ 1705*ENTEREDWITHADDRESSOFOUTPUTDATAINOUTPUT 1710ˆINITƒSYSTAB+4,CNST15 1715ˆJSR„NAMDSPƒDISPLAYA.I.'S 1720ˆJSR„PCRLF3 1725ˆINITƒSYSTAB+6,CNST18 1730ˆJSR„NAMAO„DISPLAYA.O.'S 1735ˆCURPOSLINE3,0 1740ˆJSR„DSPAI„DISPLAYTHEVALUES 1745ˆJSR„PCRLF3 1750ˆLDX„#BUFFER+30POINTSTOLASTA.I.ENTRY 1755ˆSTX„TEMPX 1760ˆJSR„DSPAO 1765ˆCURPOSLINE15,0 1770ˆLDAAƒ#-1 1775ˆSTAAƒDOBYTEƒCOUNTER 1780SP10ƒINITƒSYSTAB+4,CNST15 1785ˆLDABƒDOBYTE 1790ˆBLT„SP20…BRANCHIFFIRST8A.I.'S 1795ˆADDA2X#CST120,POINTRPOINTXTOCORRECTENTRY 1800ˆLDAAƒCOUNT 1805ˆSUBAƒ#8 1810ˆSTAAƒCOUNT 1815ˆBGT„SP20…BRANCHIFA.I.'SLEFT 1820ˆJMP„SP180„EXIT 1825SP20ƒLDAAƒCOUNT 1830ˆCMPAƒ#8 1835ˆBLT„SP30…NROFA.I.'STOBEDISPLAYEDYET 1840ˆLDAAƒ#8 1845SP30ƒSTAAƒR6‡USEDASCOUNTER 1850ˆSTAAƒCOUNT„MAXIMUMIS8 1855ˆSTX„TEMPX 1860ˆJSR„NAMDSP 1865ˆJSR„PCRLF 1870ˆLDX„TEMPX 1872ˆDEX 1874SP40ƒSTX„POINTRƒPOINTTOSETPOINTNR 1876ˆTST„SPFLAG 1878ˆBEQ„SP45…BRANCHIFRECIPECHANGE 1880ˆLDABƒ14,X…LINKEDA.O.NR 1882ˆBNE„SP45…BRANCHIFLINKED 1884ˆJMP„SP160„NEXTA.I. 1885SP45ƒLDX„#SP60‚ 1890ˆSTX„EDVECTƒRETURNADDRESS 1895SP50ƒJMP„GETSP 1900SP60ƒCMPAƒ#$D 1905ˆBNE„SP70‚ 1910ˆJMP„SP170„NEXT8SETPOINTSOREXIT 1915SP70ƒLDABƒ#9 1920ˆCMPAƒ#$20…SPACE 1925ˆBEQ„SP150„BRANCHFORNEXTSETPOINT 1930ˆCMPAƒ#'D 1935ˆBNE„SP80…BRANCHIFNOTDON'TCARE 1940ˆCLR„VALVEƒCLOSETHEASSOCIATEDVALVEIFANY 1945ˆLDAAƒ#$7F 1950ˆSTAAƒFACTOR 1955ˆLDAAƒ#$FF 1960ˆSTAAƒFACTOR+1PUTDON'TCAREVALUEINFACTOR 1965ˆLDABƒ#3 1970ˆJSR„SPACE 1975ˆBRA„SP100 1980SP80ƒLDAAƒ#1 1985SP90ƒSTAAƒVALVE 1990ˆJSR„CVTSP„CONVERTENTRY;RESULTISINFACTOR 1995ˆBCC„SP100 2000ˆJMP„SP330„VALUEEXCEEDSFULLSCALERANGE 2005SP100‚TST„DOBYTE 2010ˆBLE„SP110„BRANCHIFA.I. 2015ˆJMP„SP240„UNLINKEDA.O. 2020SP110‚JSR„AIAO…FINDASSOCIATEDA.O. 2025ˆTSTB 205 30ˆBEQ„SP140„BRANCHIFNOA.O. 2035ˆJSR„RATIO1ƒCHECKRATIOOFCHANGEDA.I. 2040SP120‚BCC„SP130 2045ˆJMP„SP320„RATIOERROR 2050SP130‚JSR„AIAO 2055ˆJSR„RATIO2ƒCHECKALLOTHERRATIO'S 2060ˆBCS„SP120„BRANCHIFERROR 2065ˆJSR„AIAO…FINDASSOCIATEDA.O. 2070ˆJSR„SETVLVƒCHECKSTHEINTERLOCKSANDOPENS/CLOSESTHE 2075ˆBCC„SP140„ASSOCIATEDD.O. 2080ˆJMP„SP340„INTERLOCKERROR 2105*PUTRESULTINTHECORRECTPOSITION 2110SP140‚LDX„POINTR 2115ˆLDAAƒ0,X†GETA.I.NR 2120ˆJSR„SETSP 2125*NEXTSETPOINT 2130ˆLDABƒ#5 2135SP150‚JSR„SPACE 2140ˆTST„DOBYTE 2145ˆBLE„SP160„BRANCHIFA.I. 2150ˆJMP„SP280 2155SP160‚ADDA2X#CNST15,POINTR 2160ˆDEC„R6‚ 2165ˆBEQ„SP170„NEXTLINE 2170ˆJMP„SP40…NEXTOUTPUT 2175*DISPLAYNEXTLINE 2180SP170‚JSR„PCRLF 2185ˆINC„DOBYTE 2190ˆBGT„SP180 2195ˆJMP„SP10…DISPLAYNEXTLINE 2200SP180‚LDABƒDOBYTE 2205ˆCMPBƒ#2 2210ˆBNE„SP200 2215ˆJMP„SP220 2220* 2225*DISPLAYUNLINKEDA.O.'S 2230* 2235SP200‚INITƒSYSTAB+6,CNST18EDITTHEUNLINKEDA.O.'S 2240ˆJSR„NAMAO 2245ˆJSR„PCRLF 2250ˆCLRA 2255SP210‚LDX„SYSTAB+12UNLINKEDA.O.NUMBERS 2260ˆSTAAƒAOOFF„OFFSETINSYSTAB+12 2265ˆJSR„AXA 2270ˆLDAAƒ0,X†A.O.NRINA 2275ˆBNE„SP230„BRANCHIFTHEREISANENTRY 2280SP220‚JMP„SP290 2285SP230‚STAAƒR2‡A.O.NR 2290ˆJSR„UNAO…FINDSENTRYINSYSTAB,OFFSETINDATABUFFER 2292ˆSTX„POINTR 2295ˆJMP„SP45‚ 2300*CONTINUEWITHUNLINKEDA.O.CHANGE 2305SP240‚LDX„POINTR 2310ˆLDAAƒR2 2315ˆSTAAƒR3‡A.O.NR 2320ˆJSR„RATIO1ƒCHECKRATIOOFCHANGEDA.O. 2325ˆBCC„SP260 2330SP250‚JMP„SP320„ERROR 2335SP260‚LDAAƒR3‡A.O.NR 2340ˆSTAAƒR2 2345ˆJSR„RATIO2ƒCHECKALLOTHERRATIO'S 2350ˆBCS„SP250„BRANCHIFERROR 2355ˆLDX„POINTR 2360ˆJSR„SETVLV 2365ˆBCC„SP270„BRANCHIFOK 2370ˆJMP„SP340„INTERLOCKERROR 2395*PUTRESULTINCORRECTPOSITION 2400SP270‚LDAAƒAOOFF„OFFSETINUNLINKEDA.O.TABLE 2405ˆADDAƒ#17†SKIPA.I.ENTRIES+1 2410ˆJSR„SETSP„CHANGESETPOINTINBUFFER 2415*NEXTSETPOINT 2420ˆLDABƒ#5 2425ˆJSR„SPACE 2430SP280‚LDAAƒAOOFF„OFFSETINSYSTAB+12 2435ˆINCA 2440ˆCMPAƒ#4‡DONE? 2445ˆBEQ„SP290„BRANCHIFALLA.O.'SDONE 2450ˆJMP„SP210„NEXTSETPOINTCHANGE 2455* 2460SP290‚LDX„#M25…/ALLCHANGESOK?/ 2465ˆJSR„PDATA 2470ˆRETURNSP300 2475* 2480*ENTERHEREAFTERKEYENTRY 2485* 2490SP300‚CMPAƒ#'Y 2495ˆBEQ„SP310„BRANCHIFOK 2500ˆCURPOSLINE1,0 2505ˆJSR„CLRDSP 2510ˆJSR„PCRLF 2511ˆTST„SPFLAG 2512ˆBNE„SP305„BRANCHIFSTATUSCHANGE 2513ˆJMP„SPRECPƒTRYAGAINRECIPECHANGE 2525SP305‚JMP„SPSTATƒIDEMSTATUSCHANGE 2526* 2527SP310‚TST„SPFLAG 2528ˆBNE„SP315„BRANCHIFSTATUSCHANGE 2530ˆJMP„SPRCP1ƒSETNEWCHANGESINSTEPRECORD 2531SP315‚LDAAƒ#24 2532ˆSTAAƒAICHKFƒDELAYA.I.CHECK23SECONDS 2535ˆJMP„SPST10ƒSETNEWCHANGESINSTATUS 2540*ERRORS 2545SP320‚LDX„#M31…/RATIOERROR/ 2550ˆBRA„SP350 2555SP330‚LDX„#M23…/NUMBERTOOLARGE/ 2560ˆBRA„SP350 2565SP340‚LDX„#M24…/INTERLOCKERROR/ 2570SP350‚JSR„PDATA 2575ˆDEC„DOBYTEƒRESETTOTHISLINE 2580ˆJMP„SP170 2585ˆPAGE 2590GETSP‚EQU„*ˆGETSANENTRYFORSETPOINTCHANGESANDSTORESIT 2591ˆLDX„#0 2592ˆSTX„NUMBER 2593ˆSTX„NUMBER+2 2595ˆLDX„#NUMBER‚INNUMBER 2600ˆSTX„TEMP1ƒ 2605ˆCLR„R4‡POSITIONOFDEC.POINT 2610ˆLDABƒ#3 2620ˆSTABƒBLOOP 2621ˆCLR„R3‡CHARACTERCOUNTER 2625GETSP1RETURNGETSP2 2630* 2635*ENTERHEREAFTERKEYENTRY 2640* 2641GETSP2TST„R3 2642ˆBNE„GETSP4ƒBRANCHIFNOTFIRSTCHARACTER 2645ˆCMPAƒ#$D 2650ˆBEQ„GETSP8ƒEXIT 2655ˆCMPAƒ#$20…SP6 ACE 2660ˆBEQ„GETSP8ƒEXIT 2670ˆCMPAƒ#'D†DON'TCARE 2671ˆBNE„GETSP4ƒBRANCHIFNOTDON'TCARE 2672ˆJSR„OUTCH 2675ˆBRA„GETSP8ƒEXIT 2676GETSP4CMPAƒ#$20…SPACE 2677ˆBEQ„GETS1„BRANCHIFENTRYFINISHED 2678ˆCMPAƒ#$D 2679ˆBEQ„GETS1„BRANCHIFFINISHED 2680ˆJSR„OUTCH 2681ˆCMPAƒ#'. 2685ˆBNE„GETSP5„BRANCHIFNOTDECIMALPOINT 2690ˆLDABƒBLOOP 2695ˆSTABƒR4‡STOREITSPOSITION 2700ˆBRA„GETSP1 2705GETSP5SUBAƒ#$30 2710ˆBLT„GETSP9ƒBRANCHIFERROR 2715ˆCMPAƒ#9 2720ˆBGT„GETSP9ƒERROR 2725GETSP7LDX„TEMP1 2730ˆSTAAƒ0,X†KEEPCHARACTER 2735ˆINX 2740ˆSTX„TEMP1 2741ˆINC„R3 2745ˆDEC„BLOOP 2755ˆBNE„GETSP1 2760ˆTST„R4 2765ˆBNE„GETSP8 2770ˆLDABƒ#1 2771ˆBRA„GETS2 2772GETS1‚LDABƒBLOOP 2773ˆTST„R4 2774ˆBNE„GETS2„BRANCHIFDECIMALPOINTSET 2775ˆSTABƒR4‡SETDECIMAL 2776ˆINCBŒBLOOP+1SPACES 2777GETS2‚JSR„SPACE 2780ˆCLRA 2785GETSP8LDX„EDVECTƒRETURNADDRESS 2790ˆJMP„X 2795*ERROR 2800GETSP9LDABƒ#1 2805ˆJSR„LEFT…CURSORONEPOSITIONLEFT 2810ˆLDAAƒ#'? 2815ˆJSR„OUTCH 2820ˆLDABƒ#1 2825ˆJSR„LEFT 2830ˆBRA„GETSP1 2835ˆSPCƒ3 2840SETSP‚EQU„*†PUTSTHESETPOINTCHANGEINBUFFER 2845ˆLDX„#BUFFER‚ 2850ˆDECAŒA=A.I.NRORA.O.POSITIONNR 2855ˆJSR„AXA†COMPUTETHEOFFSET 2860ˆJSR„AXA 2865ˆLDAAƒ0,X†GETOLDENTRY 2870ˆANDAƒ#$80…KEEPRAMPINGINFO 2875ˆORAAƒFACTORƒNEWVALUEINFACTOR 2880ˆSTAAƒ0,X 2885ˆLDAAƒFACTOR+1 2890ˆSTAAƒ1,X 2895ˆRTS 2900ˆSPC„3 2905SETVLVEQU„* 2910*OPENSORCLOSESWITHMFCASSOCIATEDVALVES;SAVE1HASOPEN/CLOSEDINFO 2915ˆLDABƒ14,X…GETD.O.NR 2920ˆBEQ„SETV6„BRANCHIFNOD.O.ASSOCIATED 2925ˆSTABƒR2 2930ˆLDX„SYSTAB+10DOPOINTR 2935ˆINX 2940ˆLDAAƒ#CNST10 2945SETV1‚LDABƒ0,X†GETDONR 2950ˆSTX„SAVEX„KEEPPOINTER 2955ˆCMPBƒR2 2960ˆBEQ„SETV2„BRANCHIFAMATCH 2965ˆJSR„AXA 2970ˆBRA„SETV1„TRYAGAIN 2975SETV2‚LDX„#BUFFER+40 2980ˆSTX„BUFPTRƒDATAADDRESS 2985ˆLDX„SAVEX 2990ˆLDAAƒVALVEƒOPEN/CLOSED 2995ˆLDABƒ7,X†N.C.=0/N.O.=1 3000ˆBEQ„SETV3„BRANCHIFN.C. 3005ˆCOMA 3010ˆANDAƒ#$01…COMPLEMENTBIT0 3015SETV3‚STAAƒR0 3020ˆBEQ„SETV4„BRANCHIF1TO0TRANSITION 3025ˆJSR„LOCK…CHECKTHEINTERLOCKS 3030ˆBRA„SETV5 3035SETV4‚LDABƒR2 3040ˆSTABƒSAVE1 3045ˆJSR„CONLCKƒCHECKTHECONDITIONALINTERLOCKS 3050SETV5‚BCS„SETV7„BRANCHIFERROR 3055ˆLDABƒR2‡GETD.O.NR 3060ˆLDX„#BUFFER+40 3065ˆJSR„TSTBITƒGETD.O.BITINCARRY 3070ˆJSR„SETBITƒSETIT 3075SETV6‚CLC 3080SETV7‚RTS 3085ˆPAGE 3090AIAOƒEQU„*ˆFINDSTHEASSOCIATEDA.O.ENTRY;B=0IFNOTFOUND, 3095*OTHERWISEITCONTAINSTHENUMBER;X,TEMPXCONTAINSTHEPOINTRIN 3100*SYSTABTOTHISA.O. 3105ˆLDX„POINTRƒFINDASSOCIATEDA.O.INSYSTAB-ENTRY 3110ˆLDAAƒ14,X…OUTPUTNR 3115ˆBEQ„AIAO1„NOOUTPUTORVALVEASSOCIATED 3120ˆSTAAƒR2 3125ˆJSR„FNDAO 3130AIAO1‚RTS 3135ˆSPC„3 3140UNAOƒEQU„*ˆFINDSCORRESPONDINGA.O.INUNLINKEDA.O.'S 3145*B=0IFNOTFOUND,ORCONTAINSTHEA.O.NR;R5HASOFFSETINDATA 3150*BUFFER;XPOINTSTOENTRYINSYSTAB 3155ˆLDX„SYSTAB+12 3160ˆCLRA 3165UNAO1‚LDABƒ0,X†UNLINKEDA.O.NR 3170ˆBEQ„UNAO3„BRANCHIFDONEWITHUNLINKEDA.O.'S 3175ˆCMPBƒR2‡WANTEDA.O.NR 3180ˆBEQ„UNAO2„A.O.NRFOUND 3185ˆINX 3190ˆINCA 3195ˆBRA„UNAO1„CHECKNEXTENTRY 3200UNAO2‚STAAƒR5‡OFFSETINDATABUFFER 320 e€HYX.RC:1 ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ7 ÿÿ!ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ17/06/8217/06/82 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@ 00.00.00.sÁ^.sÁ^.sÁ^ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ@  RDON'TCARE 3425ˆBNE„RAT17„BRANCHTORCHECKOTHERVALUEFORDON'TCARE 3430ˆANDAƒ#$F 3435ˆSTAAƒDIVISR+2STOREVALUEINDIVISORTOCOMPUTETHERATIO 3440ˆLDAAƒ1,X 3445ˆSTAAƒDIVISR+3 3450ˆLDX„#0 3455ˆSTX„DIVISR 3460ˆSTX„DIVID+2 3465ˆLDAAƒFACTOR 3470ˆBITAƒ#$70 3475ˆBNE„RAT16„NONEEDTOCHECKTHERATIO 3480ˆANDAƒ#$F 3485ˆSTAAƒDIVID„STORENEWVALUEINDIVIDEND 3490ˆLDAAƒFACTOR+1 3495ˆST h€S00500000001F9 S11B0000474141532E52433A31202020202020202020202020202020BA S11B001807D07FFF7FFF7FFF0CCC0CCC0B327FFF7FFF7FFF7FFF7FFF18 S11B00307FFF7FFF7FFF7FFF7FFF7FFF7FFF09C42EE07FFF06660E650A S11B00480FFF0E657FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF2F S11B00607FFF7FFF2020202020200400D2F00408168E12CB127403FAF2 S11B007821767FFF7FFF04CC066604CC7FFF7FFF7FFF7FFF7FFF7FFFD9 S11B00907FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFE001000087 S11B00A800002100000000000000000000000000000000000000388063 S11B00C0000400D2F00408168E12CB127403FA21767FFF7FFF04CC06E5 S11B00D86604CC7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F6B S11B00F0FF7FFF7FFF7FFF7FFF7FFFE00100000000210000000000007D S11B0108000000000000000000000000003880000400D2F00408168EAD S11B012012CB127403FA21767FFF7FFF04CC066604CC7FFF7FFF7FFF4A S11B01387FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFC3 S11B01507FFFE001000000002100000000000000000000000000000013 S11B0168000000003880000400D2F00408168E12CB127403FA21767FD7 S11B0180FF7FFF04CC066604CC7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FE9 S11B0198FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFFE00100000000215A S11A01B0000000000000000000000000000000000000003880000478 S9 D 3740ˆDEC„R7 3745ˆBEQ„RAT26„CHECKTHEUNLINKEDA.O.'S 3750ˆLDAAƒ#CNST15 3755ˆJSR„AXA 3760ˆBRA„RAT25„NEXTENTRY 3765RAT26‚JSR„UNAO…FINDA.O.OFFSETINDATABUFFER 3770ˆLDAAƒR5 3775ˆSTX„TEMPX„KEEPPOINTR 3780ˆADDAƒ#17„SKIPA.I.'S+1 3785RAT28‚DECA‚ 3786ˆASLAŒMULTIPLYBY2 3790ˆLDX„#BUFFER 3800ˆJSR„AXA‚ 3805ˆLDAAƒ0,X†DATA 3810ˆBITAƒ#$70…CHECKFORDON'TCARE 3815ˆBNE„RAT29„NONEEDFORTHISRATIOCHECK 3820ˆANDAƒ#$0F 3825ˆSTAAƒDIVID 3830ˆLDAAƒ1,X 3835ˆSTAAƒDIVID+1 3840*STORENEWVALUEINDIVISORANDCOMPUTETHERATIO 3845ˆLDX„#0 3850ˆSTX„DIVID+2 3855ˆSTX„DIVISR 3860ˆLDAAƒFACTOR 3865ˆBITAƒ#$70 3870ˆBNE„RAT30„BRANCHIFRATIOERROR 3875ˆANDAƒ#$0F 3880ˆSTAAƒDIVISR+2 3885ˆLDABƒFACTOR+1 3890ˆSTABƒDIVISR+3 3895ˆJSR„DIV4…COMPUTERATIO(XX.XX) 3900ˆLDAAƒDIVID+2‚L.S.8 BYTE 3905ˆLDABƒDIVID+1‚MS.BYTE 3910ˆTST„DIVID+3‚ROUNDOFFNEEDED? 3915ˆBPL„RAT27„NOROUNDOFF 3920ˆCLRB 3925ˆINCA 3930ˆADCBƒDIVID+1 3935ˆBCS„RAT30„BRANCHIFERROR 3940RAT27‚TST„DIVID‚ 3945ˆBNE„RAT30„RATIOERROR 3950ˆLDX„TEMPX„POINTSTOA.O.ENTRY 3955ˆLDX„16,X…RATIOVALUE(X.X) 3960ˆJSR„CPBAX„COMPAREB,AWITHXVALUE 3965ˆBHI„RAT30„BRANCHIFRATIOERROR 3970RAT29‚LDX„TEMPX„POINTERTOLASTA.O.WHICHWASCHECKED 3975ˆLDABƒR3‡RATIOLINKNR.TOBEFOUND 3980ˆSTABƒR2 3981RAT32‚DEC„COUNT1 3982ˆBEQ„RAT31„BRANCHIFALLA.O.'SCHECKED;NOERRORFOUND 3985ˆLDAAƒ#CNST18 3990ˆJSR„AXA 3995ˆJMP„RAT21„CHECKTHEOTHERA.O.'S 4000RAT30‚SECSETTHECARRYIFARATIOERROROCCURRED 4005ˆRTS 4010RAT31‚CLCNORATIOERROR 4015ˆRTS 4020ˆPAGEƒ 4025ˆEND 020ˆPAGEƒ 4025ˆEND Å&ùö,XÅ'¼,|'í Å'¼,¡'âÄ Á &~&ù…'… &Æ ñ, &ñ,©'銷,X„'~$Æ ñ, &¶,{·, ñ,©&þ,„ÿ,©ñ,¡&Î,|ÿ)ÑÎ,¡ÿ)ÓÎ)ÑÆ?ÆtSõ,['9n€70010‚NAMSLOPE 0020* 0030‚OPTREL,LLEN=120 0040* 0050‚XDEFRSTRMP,SETRMP,UPRAMP 0060‚XDEFINITDA,AOVAL,INCVAL,ADDRPT,AOINCR 0070* 0080‚XREFSSXBA,AXA,SETAO,AOMI16,AOMI1,IDTEMP,TIME,STPPTR 0090‚XREFBUFBUF,DIV4,DIVID,DIVISR,SOURCE,DESTIN,LENGTH 0100* 0110‚DSCT 0120* 0130UPDOWNRMB1FLAGFORADDORSUBTRACTINCREMENT 0140SAVEXRMB2SAVEAREAFORX 0150SAVEX1RMB2SECONDLEVELSAFEAREAFORX 0170TEMP2RMB2ŒPOINTERINAOMIR 0180TEMP3RMB2ŒPOINTERINAOINCR 0190AOWORKRMB8WORKINGAREAFORCOMPUTINGNEWA.O.SETPOINTINRAMP 0200* 0210AOINCRRMB96INCREMENTSFORA.O.RAMPING,ASFOLLOWS: 0220*4BYTESINCREMENT 0230*2BYTESREMAININGFORA.O. 0231ˆSPC„1 0240‚PSCT 0250ˆSPC„1 0260INITDAEQU„*ˆROUTINETOINITD.ACONVERTERS 0280‚PSHA 0290‚PSHB 0300‚STXSAVEX1 0360‚LDX#$800 0370‚LDAB#1 0380INDA2JSRSETAOPUTALLOUT'SHALFSCALE 0390‚INCB 0400‚CMPB#17ALLHALFSCALE 0410‚BNEINDA2 0420‚LDX#AOMI1SETALLOUTPUTSHALFSCALE 0440INDA3‚LDABƒ#8‡ 0450ˆSTABƒ0,X 0451ˆINX 0452ˆCLR„0,X† 0454ˆINX 0470‚CPX#AOMI16+2LASTMIRRORDONE 0480‚BNEINDA3 0490‚LDX#AOINCR 0500‚LDAA#6 0510INDA5LDAB#$FESETNORAMPING 0520‚STABX 0530‚JSRAXA 0540‚CPX#AOINCR+96 0550‚BNEINDA5 0560‚CLRSTPPTR 0570‚CLRSTPPTR+1RESETTHESTEPPOINTER 0580‚LDXIDTEMPSETTHEIDLETEMPERATURE 0590‚STXAOMI1 0600‚STXAOMI1+2 0610‚STXAOMI1+4SETTHETHREEFIRSTMIRRORTOIDLETEMP 0620INDA4PULB 0630‚PULA 0640‚LDXSAVEX1RESTOREREGISTERS 0650‚RTS 0750ˆSPC„3 0770SETRMPEQU„*ˆROUTINETOCOMPUTEANDSETARAMPINCREMENT 0790*INPUTPARAMETERS:A:INPUTNUMBER 0800*”B:OUTPUTNUMBER 0810*”X:SETPOINT 0812* 0813*THE2BYTESOFTHETOTALSTEPTIMEMUSTBEPUTIN 0814*THEDIVISOR(RIGHTMOSTBYTES) 0815* 0816*THE2BYTESOFTHETOTALVOLTAGETORAMP 0817*MUSTBEPUTINTHEDIVIDEND(LEFTMOSTBYTES) 0818*THEINCREMENTISGIVENINTHE4BYTESOFDIVIDEND 0830‚PSHASAVEREGISTERS 0840‚PSHB 0850‚STXSAVEX1 0860ˆJSR„AOPTRSƒCOMPUTEPOINTERSINAOMIRANDAOINCR 0870‚LDAA0,XTESTRAMPFLAG;XPOINTSTOAOINCRTABLEENTRY 0880‚CMPA#$FEIFNODEFAULTSTARTRAMPINGFROMACTUALSETPOINT 0890‚BNESETRP2ŒBRANCHIFNOTDEFAULT 0900ˆCLRA 0910ˆSTAAƒ0,X†9 CLEARRAMPFLAG 0920ˆSTAAƒ4,X†CLEARDECIMALPARTOFSETPOINT 0930ˆSTAAƒ5,X 0940ˆLDX„TEMP2„POINTTOAOMIR 0950ˆSTAAƒ0,X 0960ˆLDAAƒ#40 0970ˆSTAAƒ1,X†STARTRAMPINGFROM40 0980SETRP2LDX„TEMP2„POINTTOAOMIR 0990ˆLDX0,XTAKETHECURRENTSETPOINT 1000‚LDABSAVEX1 1010‚ANDB#%01111111KILLTHEFLAG 1020‚LDAASAVEX1+1TAKETHELSBOFSETPOINT 1030‚JSRSSXBASUBSTRACTWITHSETPOINT 1040‚PSHBSAVETHESIGN 1050‚ANDB#%01111111KILLTHESIGN 1060‚STABDIVIDSTORERESULTINDIVIDENDE 1070‚STAADIVID+1 1080‚CLRDIVID+2CLRTHEENDOFDIVIDENDE 1090‚CLRDIVID+3 1100‚LDXTIME+1TAKETHETIME 1110‚STXDIVISR+2STOREITINDIVISOR 1120‚CLRDIVISR 1130‚CLRDIVISR+1 1140‚JSRDIV4COMPUTETHEINCREMENT;RESULTINDIVID 1150*MOVEINCREMENTTOAO-INCREMENTTABLE 1160‚LDXTEMP3POINTTOTHEADDRESSINA.OINCREMENT 1170ˆPULBƒGETSIGN 1180‚ANDB#%10000000KEEPONLYTHESIGNFROMSETPOINT-THEORIC 1190‚ORABDIVIDSETTHESIGNININCREMENT 1200‚STAB0,X 1210ˆLDAAƒDIVID+1 1220ˆSTAAƒ1,X 1230ˆLDAAƒDIVID+2 1240ˆSTAAƒ2,X 1250ˆLDAAƒDIVID+3 1260ˆSTAAƒ3,X 1270‚CLR4,X 1280‚CLR5,XCLEARREMAINIINGOFA.O. 1290‚PULBRESTOREREGISTERS 1300‚PULA 1310‚LDXSAVEX1 1320‚RTS 1321ˆSPC„3 1340RSTRMPEQU„*ˆROUTINETORESET(CLEAR)ARAMPINCREMENT 1350* 1360*‚INPUTPARAMETERS:A:INPUTNUMBER 1370*”B:OUTPUTNUMBER 1380*”X:SETPOINT 1390* 1400‚PSHASAVEREGISTERS 1410‚PSHB 1420‚STXSAVEX1 1430ˆJSR„AOPTRSƒCOMPUTEPOINTERSINAOMIRANDAOVAL 1440‚LDAA#$FFSETNORAMPING;XPOINTSTOAOINCR 1450‚STAA0,X 1460‚LDAASAVEX1 1470‚CMPA#$7FSKIPSETTINGA.OIFSETPOINTISDUMMY 1480‚BNERSTRP2 1490‚LDAA#$FESETDEFAULTFLAG 1500‚STAA0,X 1510‚CLRSAVEX1+1SETTODEFAULT 1520‚LDAA#$8 1530‚STAASAVEX1 1540RSTRP2LDX„TEMP2„POINTTOAO-MIRROR 1550‚STAA0,XSAVETHETHEORICSETPOINT 1560‚LDAASAVEX1+1 1570‚STAA1,X 1580‚LDXSAVEX1 1590‚JSRSETAOSETTHEVALUEONOUTPUTDIRECTLY 1600RSTRP3PULB 1610‚PULASAVEREGISTERS 1620‚LDXSAVEX1 1630‚RTSNOWEXIT 1640ˆPAGE 1650UPRAMPEQU„*„ROUTINEWICHRAMPSALLOUTPUTSWITHRAMPFLAGSET 1660* 1670‚PSHA 1680‚PSHB 1690‚STXSAVEX1 1700ˆCLRB 1710UPR1ƒINCB 1720ˆCMPBƒ#17 1730ˆBNE„UPR2…BRANCHIFNOTDONE 1740ˆJMP„UPR6…EXIT 1750UPR2ƒJSR„AOPTRSƒCOMPUTEPOINTERSINAO-MIRROR,AOINCREMENT 1790ˆLDAAƒ0,X†TESTIFRAMP 1800ˆANDAƒ#$FE 1810ˆCMPAƒ#$FE 1820ˆBNE„UPR2A„BRANCHIFRAMP 1821ˆLDX„TEMP2„A.O.MIRRORPOINTER 1822ˆBRA„UPR4A„SETVALUE 1830*PUTA.O.VALUE,A.O.INCREMENTINWORKSPACETOCOMPUTENEWVALUE 1831UPR2A‚PSHBŒKEEPA.O.NR 1840ˆSTX„SOURCEƒXPOINTSTOAOINCR 1850ˆLDX„#AOWORK 1860ˆSTX„DESTIN 1880ˆLDX„#4 1890ˆSTX„LENGTH 1900ˆJSR„BUFBUFƒMOVEINCREMENT 1910ˆLDX„TEMP3„POINTERTOAOINCR 1920ˆLDX„4,X†GETA.O.REMAINING 1930ˆSTX„AOWORK+6 1940ˆLDX„TEMP2„AOMIRPOINTER 1950ˆLDX„0,X†GETA.O.VALUE 1960ˆSTX„AOWORK+4 1961*COMPUTENEWOUTPUTVALUE 1962ˆCLR„UPDOWNƒINDICATESADDOPERATION 1970ˆLDX„#AOWORK 1980ˆTST„0,X†CHECKSIGN 1990ˆBMI„UPR3…ISARAMPDOWN 2010ˆJSR„ADSUB4ƒRAMPUP 2020ˆBRA„UPR4 2030UPR3ƒASL„0,X†KILLSIGN 2040ˆLSR„0,X 2050ˆINC„UPDOWNƒSETSUBTRACTOPERATION 2060ˆJSR„ADSUB4ƒRAMPDOWN 2070ˆASL„0,X†RESTORESIGN 2080ˆSEC 2090ˆROR„0,X 2100*MOVERESULTBACK;AOVALUEINAOMIRROR,AOREMAININGINAOINCREMENT 2110UPR4ƒLDAAƒ6,X†AOREMAINING 2120ˆLDABƒ7,X 2130ˆLDX„TEMP3„AOINCRPOINTER 2140ˆSTAAƒ4,X 2150ˆSTABƒ5,X 2160ˆLDX„TEMP2„AOMIRPOINTER 2170ˆLDAAƒAOWORK+4 2180ˆSTAA: ƒ0,X 2190ˆLDAAƒAOWORK+5 2200ˆSTAAƒ1,X 2205ˆPULBŒA.O.NR 2210UPR4A‚LDX„0,X†A.O.VALUE 2240ˆCMPBƒ#3‡ISTHERMOCOUPLEOUTPUT 2250ˆBLS„UPR5…YES,SKIPSETTING 2260ˆJSR„SETAO„SETTHEOUTPUT 2270UPR5ƒJMP„UPR1…CONTINUETHEJOB 2280UPR6ƒPULB 2290ˆPULA 2300ˆLDX„SAVEX1 2310ˆCLC 2320ˆRTS 2330ˆSPC„3 2340AOPTRSEQU„*ˆCOMPUTETHEPOINTERSFORANAONR 2350*INAO-MIRRORANDAOINCREMENTTABLES 2380*–BHASA.O.NR 2390* 2410ˆJSR„AOVAL„COMPUTEPOINTERINAOMIRROR 2450ˆSTX„TEMP2 2460ˆJSR„INCVAL 2470ˆSTX„TEMP3„AOINCREMENTPOINTER 2490ˆRTS 2500ˆSPC„3 2510AOVAL‚EQU„*ˆCOMPUTESPOINTERINSTATUS;BHASA.O.NR 2520ˆLDX„#AOMI1ƒOFFSET=AOMIR+(AO-1)*2 2530ˆLDAAƒ#2 2540ˆJSR„ADDRPTƒADDABTIMES-1TOX 2550ˆRTS 2560ˆSPC„3 2570INCVALEQU„*ˆCOMPUTESPOINTERINAOINCR;BHASA.O.NR 2580ˆLDX„#AOINCR‚OFFSET=AOINCR+(AO-1)*6 2590ˆLDAAƒ#6 2600ˆJSR„ADDRPTƒADDABTIMES-1TOX 2610ˆRTS 2620ˆSPCƒ3 2630ADDRPTEQU„*ˆADD(B-1)TIMESATOX;RESULTINX,CHANGESB 2640ˆPSHBŒKEEPORIGINALVALUE 2650ADD1ƒDECB 2660ˆBEQ„ADD2…BRANCHIFDONE 2670ˆJSR„AXA 2680ˆBRA„ADD1…AGAIN 2690ADD2ƒPULB 2700ˆRTS 2701ˆPAGE 2720ADSUB4EQU„* 2721* 2730*ROUTINETOADDORSUBTRACT4BYTESTOTHEFOLLOWING4BYTES 2740*INPUTPARAMETERS:XPOINTSTOTHEFIRSTBYTETOBEADDED 2750*UPDOWN=0:ADD„UPDOWN<>0:SUBTRACT 2751* 2790‚STXSAVEX 2800‚LDAB#4„ADD4BYTES 2810‚CLC 2820ADSUBCLDAA7,X 2821ˆPSHB 2830‚LDABUPDOWNTESTIFADDORSUBTRACT 2831ˆPULBƒCOUNTER 2840‚BNESUB4 2850‚ADCA3,X 2860‚BRACONT 2870SUB4SBCA3,X 2880CONTSTAA7,XNEWVALUEOFA.O. 2890‚DEX 2900‚DECB 2910‚BNEADSUBC 2920‚LDXSAVEX 2950‚RTS 2960ˆSPC„3 2970ˆEND A 2950‚RTS 2960ˆSPC„3 2970ˆEND ,SKIPSETTING 3110‚JSRSETAOSETTHEOUTPUT 3120UPR41LDXTEMP1RESTORETHEPOINTER 3130‚BRAUPR10CONTINUETHEJOB 3140* 3150*ROUTINETOINITD.ACONVERTERS 3160* 3170INITDAPSHA 3180‚PSHB 3190‚STXSAVEX1 3200‚TSTBACKUPISABACKUPRESTART 3210‚BN}€0010‚NAMSTATUS 0020‚TTLRAMRESERVATIONFORSTATUSIMAGE 0040‚OPTREL,LLEN=100 0050* 0060*THISFILESHOWSTHERAMRESERVATIONFORTHETUBECONTROLLERSTATUS 0070*ITISSENDTOTHESUPERVISORUPONREQUESTƒ 0080* 0090‚XDEFAOMI1,AOMI16,DIMIR,DOMIR,AIMIR,BOTSTS,IMTC1,IMTC12,CH15,CH0 0100‚XDEFTCSTAT,TIME,CURSTP,IMTC10,ABSTAT,ALSTAT,HLSTAT 0110‚XDEFRCPTR1,RCPTR2,RCPTR3,ACTIV,SAVPIA,TCERR,SAVAB,POFL 0120‚XDEFPOFCNT,POFSTP,TEMPAO 0130* 0140‚DSCT 0150* 0210SPARE1RMB18SPARESFORFUTUREUSE,PUTATTHISPLACETOGET 0220*THERIGHTOFFSETFORIMTC1! 0240TEMPAORMB6TEMPERATURESETPOINTS(COPYOFAOMIR1,2,3) 0250* 0255*MEMORYRESERVATIONCORRESPONDINGTOEACHTHERMOCOUPLEINPUT 0260CH15RMB2 0270IMTC1RMB2 0280CH0EQUIMTC1 0290IMTC2RMB2 0300IMTC3RMB2 0310IMTC4RMB2 0320IMTC5RMB2 0330IMTC6RMB2 0340IMTC7RMB2 0350IMTC8RMB2 0360IMTC9RMB2 0370IMTC10RMB2 0380IMTC11RMB2 0390IMTC12RMB2 0400* 0410TCSTATRMB4‹FURNACETCSTATUS 0420* 0450TIMERMB3REMAININGTIMEINTHESTEP;ONLYLAST2BYTESUSED 0460* 0490CURSTPRMB1‹CURRENTSTEP 0500* 0530BOTSTSRMB1‹BOATPULLERSTATUSBYTE 0540* 05; 50RCPTR1RMB3‹FIRSTBYTEISTHELOADINGFLAG 0560RCPTR2RMB3ŠBYTE2,3CONTAINTHESTARTADDRESSOFTHERECIPE 0570RCPTR3RMB3 0580* 0600* 0610ACTIVRMB1ŒTUBECONTROLLERACTIVITYSTATUSWORD 0611*–BIT0,1=RECIPESELECTED(1,2OR3) 0613*–BIT2=HOLD 0614*–BIT3=ABORT 0615*–BIT4=ALARM 0616*–BIT5=FINISHED 0617*–BIT6=RUN 0618*–BIT7=IDLE 0640* 0650SAVPIARMB4‹SAVEPIA 0680* 0690AIMIRRMB38‹ANALOGINPUTMIRROR 0701* 0710*–ANALOGOUTPUTMIRROR 0711* 0780AOMI1RMB2ŒTEMPERATURESETPOINTZONE1 0790AOMI2RMB2ŒTEMPERATURESETPOINTZONE2 0800AOMI3RMB2ŒTEMPERATURESETPOINTZONE3 0810AOMI4RMB2 0820AOMI5RMB2 0830AOMI6RMB2 0840AOMI7RMB2 0850AOMI8RMB2 0860AOMI9RMB2 0870AOMI10RMB2 0880AOMI11RMB2 0890AOMI12RMB2 0900AOMI13RMB2 0910AOMI14RMB2 0920AOMI15RMB2 0930AOMI16RMB2 0940* 0970DIMIRRMB6ŒDIGITALINPUTMIRROR 0980* 1010DOMIRRMB6ŒDIGITALOUTPUTMIRROR 1030* 1031* 1060ABSTATRMB11‚BYTE0,1-ANALOGINPUTS(ALARM,ABORT) 1070*ŽBYTE2-7:DIGITALINPUTS(ALARM,ABORT,HOLD) 1080ALSTATRMB11‚BYTE8‚:CONTROLTHERMOCOUPLES(ALARM,ABORT) 1090*ŽBYTE9ƒ:AUXILIARYTHERMOCOUPLES(ALARM,ABORT) 1100HLSTATRMB11‚BYTE10‚:BOAT(ALARMONLY) 1110*ŽINPUTNR'SARECOUNTEDFROMLEFTTORIGHTINTHEBYTES 1111* 1120TCERRRMB1ŒHARDWAREERRORSONTCMUXBOARD 1130* 1140POFLRMB1NUMBEROFPOWERFAILSINARUN 1150POFSTPRMB1LASTSTEPNUMBERINEWHICHTHEPOWERWASOFF 1160POFCNTRMB2TOTALPOWEROFFTIMEINARUN 1170* 1180SPARE2RMB16SPARESFORFUTUREUSE 1190* 1200SAVABRMB85‹ABORTSTATUSRAMRESERVATION 1210* 1220‚END GHT 3350INDA3LDAB#$FEINDICATE‚DON'TCAREVALUE 3360‚STABX 3370‚LDAB#8 3380‚STAB5,X 3390‚JSRAXANEXTMIRROR 3400‚CPX#AOMaƒ€`0010‚NAMSTEPSC 0020‚IDNTSCANNINGOFARECIPE(STEPONLY) 0030* 0040‚OPTREL,LLEN=100 0050* 0060‚XREFAXA,SCANAI,DISCAN,UPDAL,OPSCAN,BOAT,GINIT,UPDO,UPAO 0070‚XREFUPRAMP,LIGHT,PANEL,ABVEC,SETEMP,INITEX,TIME,CURSTP 0080‚XREFSFTRST,SFTSET,AOMI1,IDTEMP,RCPTR1,RCPTR2,RCPTR3,ACTIV,DOMIR 0090‚XREFSAVPIA,SAVAB,ALSTAT,HLDFLG,POFCNT,IMTC1,POFL,UPDIMR,UPAIMR 0100‚XREFPIDSEL,INITPI,TCCHK,SAVKEY,PIRQ,TEMPAO 0110* 0120* 0130‚XDEFRECPTR,STPPTR,START2,PRECNT,AICHKF,RUNFLG,MAIN,SFTFLG,ICCGO,COMFLG 0140‚XDEFBACKUP,XXX,III,DISPTM 0150* 0160‚BSCT 0170* 0180RECPTRRMB2RECIPEPOINTER 0190STPPTRRMB2STEPPOINTER 0200PRECNTRMB1SECONDSINDICATOR 0210AICHKFRMB1A.IFLAGTEST 0220BLKFLGRMB1BLINKFLAG 0230READYRMB1ALLISOKFLAG 0240DEADRMB1ABORTSTEPFLAG 0250RUNFLGRMB1OKTORUN 0260SFTFLGRMB1SOFTSTARTFLAG 0270COMFLGRMB1COMMUNICATIONFLAG 0280BACKUPRMB1BACKUPFLAG 0290SAVEXRMB2 0300SAVEX1RMB2 0310DISPTMRMB1‚TIMERFORDISPLAYREFRESH 0320* 0330*SEQUENCEOFSCANNINGMUSTBEABSOLUTELYOBSERVED 0340* 0350‚PSCT 0360* 0370XXXJMPICCGO 0380IIIJMPPIRQ 0390MAINLDS#STACK 0400‚JSRGINIT 0410‚TSTBACKUP 0420‚BNEMAIN1 0430RTEST0CLRBACKUP 0440‚JMPTEST0 0450MAIN1LDXSAVPIA 0460‚STXPIA1DA 0470‚LDXSAVPIA+2 0480‚STXPIA1DB 0490‚LDAAACTIV 0500‚BMIRTEST0 0510‚LDAACURSTP 0520‚BEQIDLP1 0530‚PSHA 0540‚DECCURSTPCOMPUTETHESOFTSTARTSTEP 0< 550‚JSRCALSTP 0560‚LDXSTPPTR 0570‚JSRSFTSETSOFTSTART 0580‚PULA 0590‚STAACURSTP 0600IDLP1JSRCALSTP 0610‚LDX#105SECONDSWAITFORSOFTSTART 0620IDLPJSRWAITFL 0630‚DEX 0640‚BNEIDLP 0650‚JMPBACKST 0660ICCGOLDS#STACKINITSTACKFORTEST 0670‚LDX#$800 0680‚STXIDTEMP 0690‚CLRBACKUP 0700‚JSRGINIT 0710‚JSRINITPI 0720‚CLRSAVKEYOPERATORPANELINPUTBUFFER 0730‚CLRCURSTP 0740‚CLRRCPTR1 0750‚CLRRCPTR2 0760‚CLRRCPTR3FROMPOWERRESTARTNORECIPEARELOADED 0770‚LDAA#$FF 0780‚STAACOMFLGASSUMECOMMUNICATIONSARETHERE 0790TEST0LDAB#KRECP1+$80 0800‚JSRLIGHT 0810‚LDAB#KRECP2+$80 0820‚JSRLIGHT 0830‚LDAB#KRECP3+$80 0840‚JSRLIGHT 0850‚LDAB#KABORT 0860‚JSRLIGHTMAKESUREALLLIGHTAREOFF 0870‚LDAB#KALARM 0880‚JSRLIGHT 0890‚LDAB#KHOLD 0900‚JSRLIGHT 0910‚LDAB#KRSTMAKESURERESTARTLIGHTISOFF 0920‚JSRLIGHT 0930‚LDAA#$80SETIDLESTATEINACTIVITYSTATUS 0940‚STAAACTIV 0950‚CLRCURSTP 0960‚CLRTIME 0970‚CLRDISPTMCLEARTIMERFORSTATUSDISPLAY 0980‚CLRPOFLSTARTWITH0POWERFAILS 0990‚JSRSAVP 1000BEGINJSRSELRECSELECTTHERECIPE 1010‚BCSSTART 1020‚CLRSAVKEY 1030‚TSTASMTIM 1040‚BMIBEGIN 1042ˆJSR„UPDOTC 1044ˆJSR„UPRAMP 1050‚JSRTCCHK 1060‚JSRUPAIMRUPDATEA.I.MIRRORNFORALL16CHANNELS 1070‚TSTDISPTM 1080‚BEQNODECR 1090‚DECDISPTM 1100NODECRJSRUPDIMRUPDATEDIGITALINPUTMIROR 1110‚JSRUPDAL‚UPDATETEMP.ALARMS 1120‚TSTALSTAT+8TESTIFANYTCDRIFTALARMISTHERE 1130‚BNEBEGIN 1140‚LDAA#$EFRESETALARMSTATUSANDLAMP 1150‚JSRANDACT 1170‚LDAB#KALARM 1180‚JSRLIGHT 1190‚BRABEGIN 1200* 1210*NORMALSTARTOFRECIPE 1220* 1230STARTCLRCURSTPSETSTEP0 1231ˆLDX„#0 1232ˆSTX„POFL…CLEARPOFLTHROUGHPOFCNT+1 1233ˆSTX„POFCNT 1250‚CLRDEADCLEARTHEABORTFLAG 1260‚CLRSAVKEY 1270‚LDAAACTIV 1280‚ANDA#$3 1290‚ORAA#$40 1300‚STAAACTIV 1310‚LDAB#KFINMAKESUREFINISHLIGHTOFF 1320‚JSRLIGHT 1330‚JSRINITEXMAKESUREABORTISCLEAR 1340‚CLRREADYASSUMETHESYSTEMISREADY 1350‚LDAB#KABORT 1360‚JSRLIGHT 1390‚CLRBLKFLG 1400‚CLRRUNFLGCLEARTHERUNFLAG 1410‚CLRSFTFLG 1420‚BRASTART2FROMRESTARTMAKEDIRECTLYSTEP0 1430WAIRUNLDAB#KRST+%10000000SETTHERESTARTPERMANENT 1440‚JSRLIGHT 1450‚LDAB#KFINMAKESUREFINISHEDLAMPISOFF 1460‚JSRLIGHT 1470WAIR1TSTRUNFLGISTHERUNFLAGSETBYKEYBOARD 1480‚BEQSCAN1NO,CONTINUETOWAIT 1490‚LDAA#LHOLD 1500‚BITAPIA1DB 1510‚BNECLRRFL 1520‚TSTAICHKFIS15SECONDSELAPSED 1530‚BEQWAIR2YESYOUCANSTART 1540CLRRFLCLRRUNFLG 1550‚BRASCAN1NO,YOUHAVETOWAIT 1560WAIR2LDAA#$FF 1570‚STAASFTFLG 1580‚LDXSTPPTR 1590‚JSRSFTSETSOFTSTART 1600‚LDX#5 1610‚STXTIME+1 1620‚LDAB#KRUN+%10000000RUNNOW 1630‚JSRLIGHT 1680‚LDAB#KRSTRESETRESTARTLIGHT 1690‚JSRLIGHT 1700‚BRASCAN1 1710* 1720*STEPPROCESSSTARTINGPOINT 1730* 1740START2JSRCALSTPCOMPUTETHESTEP 1750‚LDXSTPTIM+1,XTAKETHELASTTWODIGITS 1760‚STXTIME+1PUTTHELASTTWODIGITS 1770‚LDXSTPPTR 1780‚JSRUPDOSETDIGITALSOUTPUTS 1781BACKSTLDX„STPPTR 1800‚JSRUPAOUPDATEANALOGOUT'SANDCOMPUTERAMPING 1820‚JSRSETEMP 1830‚LDAA#1 1840‚STAAPRECNT 1850‚JSRPIDSEL 1860‚LDAA#24SETSKIPAITIMETO23SECONDS 1870‚STAAAICHKF 1880‚LDXSTPPTR 1890‚LDAB#$FFMAKESUREBOATPROPERLYINIT. 1900‚JSRBOAT 1910‚JSRSFTRSTRESETSOFTSTART 1920‚CLRSFTFLG 1930* 1940*HEREBEGINTHECYCLICPROCESS=  1950* 1960SCAN1CLRSAVKEYCLEARPANELINPUT 1970‚LDAA#LHOLD 1980‚BITAPIA1DB 1990‚BEQSC11NOHOLD,DON'TUPDATACTIV 2000‚LDAA#$4 2010‚JSRORACT 2030SC11TSTABVEC 2040‚BEQSC13 2050‚LDAA#$8 2060‚JSRORACT 2080SC13JSRWAITFLWAITTHETIME 2081ˆJSR„UPDOTC 2090‚TSTPRECNTISAROUNDSECONDE 2100‚BNESCAN2NOSKIPANALOGINPUTSCAN 2110‚CLRBLKFLGRESETTHEBLINKFLAG 2120‚LDX#RECPTR 2130‚JSRSCANAIANALOGINPUTSSCANING 2140SCAN10LDAA#LHOLD 2150‚BITAPIA1DBISHOLDFLAG 2160‚BNESCANSSKIPTHETIMEUPDATEJOB 2170‚LDAA#$FB 2180‚JSRANDACTRESETHOLDFLAG 2200‚LDAA#LFINISTHELASTSTEPFINISHED 2210‚BITAPIA1DB 2220‚BNESCANS 2240‚LDXTIME+1DECREMENTTHETIME 2250‚BEQJSCAN3 2260‚DEX 2270‚STXTIME+1SAVEIT 2275‚JSRUPRAMPUPDATETHERAMPINGIFNOHOLD 2280‚CPX#5ISTHELAST5SECONDS 2290‚BNESCANS 2300‚TSTCURSTPIFSTEP0NOSOFTSTART 2310‚BEQSCANS 2320‚LDXSTPPTRPOINTONTHESTEP 2330‚JSRSFTSETSTARTTHESOFTSTART 2340‚LDAA#$FFSETSOFTFLAG 2350‚STAASFTFLG 2360SCANSTSTAICHKFISCHECKFLAGZERO 2370‚BEQSCANS0 2380‚DECAICHKF 2390SCANS0TSTCOMFLGISCOMMUNICATIONFLAG0 2400‚BEQSCANS1 2410‚DECCOMFLG 2420SCANS1TSTCURSTPISSTEP0 2430‚BNESCAN11 2440‚LDAA#%00001000ISTHEALARMON 2450‚BITAPIA1CA 2460‚BNESCAN1ASOMETHINGISWRONGLOOPINTHESTEP0 2470‚CLRREADYOKTORUNNOW 2480‚BRASCAN11 2490JSCAN3JMPSCAN3 2500SCAN1ALDAA#$FF 2510‚STAAREADYBADWAITAGAIN 2520SCAN11NOPISFORTEST 2530‚LDAA#2 2540‚STAAPRECNTRELOADSECONDINDICATOR 2550SCAN2LDAABLKFLGTESTIFHALFSECOND 2560‚EORA#$80 2570‚STAABLKFLG 2580SCAN20LDXSTPPTR 2590‚JSRDISCANDIGITALINPUTSSCANNING 2600‚LDAA#2 2610‚CMPAPRECNT 2620‚BNESCAN2B 2630‚JSRUPDALUPDATEALARMEWICHMAYOCCURS 2640‚LDAA#%00001000ISTHEALARMON 2650‚BITAPIA1CA 2660‚BNESCAN2B 2670‚LDAA#$EFRESETALARMLIGHT 2680‚JSRANDACT 2700SCAN2BLDAA#LFINISINTHEFINISHEDMODE 2710‚BITAPIA1DB 2720‚BNESCAN2CIFFINISHEDSKIPOPSCANANDABORTPROCESS 2730‚JSROPSCANSCANOPERATORPANEL 2740‚CLRSAVKEY 2750‚TSTABVECISANABORTENCOUNTERED 2760‚BNESCANABYESPROCESSIT 2770SCAN2CDECPRECNTDECREMENTSECONDCOUNTDOWN 2780‚LDAA#LFINTESTIFENDOFPROCESS 2790‚BITAPIA1DB 2800‚BNESCAN22ISFINISHD 2810‚TSTCURSTPISSTEPZERO? 2820‚BNESCAN23NODON'TMOVERESETLIGHT 2830‚TSTSFTFLG 2840‚BNESCAN23 2850‚TSTABVEC 2860‚BNESCAN23 2870‚TSTREADYALLISREADY? 2880‚BEQSCAN21YESDON'TBLINK 2890‚LDAB#KRSTBLINKRESETLIGHT 2900‚ORABBLKFLG 2910‚JSRLIGHT 2920‚CLRRUNFLGNORUNIFANYALARMPRESENT 2930SCAN23JMPSCAN1CONTINUETORUN 2940SCAN21JMPWAIRUN 2950SCAN22JSRSELRECSELECTTHERECIPE 2960‚BCCSCAN23NOTHING,CONTINUETOLOOP 2970‚JMPSTARTYES,INITANEWCYCLE 2980SCANABTSTDEADISTHESTEPDEAD 2990‚BNESCAN2C 3000‚LDX#IMTC1 3010‚STXSAVEX 3020‚LDX#SAVAB 3030‚STXSAVEX1 3040NEXTLDXSAVEX 3050‚LDABX 3060‚INX 3070‚STXSAVEX 3080‚LDXSAVEX1 3090‚STABX 3100‚INX 3110‚STXSAVEX1 3120‚CPX#SAVAB+85 3130‚BNENEXT 3140‚LDXSTPPTRTAKETHEPOINTER 3150‚LDABNEWSTP,XTAKETHEABORTSTEP 3160‚ANDB#%01111111KILLTERMINATORFLAG 3170‚STABCURSTPINITTHENEWSTEP 3180‚CLRTMCR2 3190‚LDAB#$FF 3200‚STABDEADRECIPEISNOWDEAD 3210‚STABHLDFLGINITAGAINTHISFLAG 3220‚LDAB#KHOLDRESETHOLDIFINHOLD 3230‚JSRLIGHT 3240‚LDAB#KRSTCLEARRESETLAMP 3250‚> JSRLIGHT 3260‚JMPSTART2STARTTHENEWSTEP 3270SCAN3LDXSTPPTRCHECKIFLASTSTEP 3280‚LDABNEWSTP,XTAKETHENEXTSTEP 3290‚BMISCAN4 3300‚TSTCURSTPISSTEPZERO? 3310‚BNESCAN30NOCONTINUETHERUN 3320‚TSTABVEC 3330‚BNESCAN4 3340‚LDXTIME+1 3350‚DEX 3360‚STXTIME+1 3370‚TSTRUNFLG 3380‚BEQSCAN31IFNORUNFLAG,WAITTHECOMMAND 3390‚TSTSFTFLG 3400‚BNESCAN30IFSOFTSTARTFLAGOKTORUN 3410‚JMPSCAN1 3420SCAN31JMPWAIRUNWAITFOROPERATOR 3430SCAN30INCCURSTP 3440‚CLRTMCR2 3450‚JMPSTART2DOTHENEXTSTEP 3460SCAN4CLRTMCR2KILLTHETIMER 3470‚LDAB#KFIN+%10000000SETFINISHEDLIGHT 3480‚JSRLIGHT 3490‚LDAA#$3FMAKESURIDLESTATEANDRUNARERESET 3500‚ANDAACTIV 3510‚ORAA#$20 3520‚STAAACTIVSETENDOFJOB 3530‚LDAB#KRECP1+$80 3540‚JSRLIGHT 3550‚LDAB#KRECP2+$80 3560‚JSRLIGHT 3570‚LDAB#KRECP3+$80 3580‚JSRLIGHT 3590‚LDAB#$F+$80STARTTHEBUZZER 3600‚JSRLIGHT 3610‚LDAB#KRUNSWITCHOFFRUNLIGHT 3620‚JSRLIGHT 3630‚JMPSCAN1LOOPINTHELASTSTEP 3640* 3650*ROUTINEFORWAITINGTHEREALTIME 3660* 3661WAITFLSTX„SAVEX 3670WAITF1JSRPANELCHECKFORREMOTECOMMAND 3680‚TSTASMTIMISTHEFLAGON 3690‚BMIWAITF1NOWAIT 3700‚TSTASMTIMMAKESUREIT'SRESET 3710‚LDAA#$10 3720‚ORAAPIA1DASTARTTHEWATCHDOG 3730‚STAAPIA1DA 3740‚LDAA#$EF 3750‚ANDAPIA1DA 3760‚STAAPIA1DA 3780‚JSRTCCHK 3790‚TSTDISPTM 3800‚BEQNODEC 3811‚DECDISPTM 3820NODECLDXSAVEX 3830SAVP‚STXSAVEX 3840‚LDXPIA1DA 3850‚STXSAVPIA 3860‚LDXPIA1DB 3870‚STXSAVPIA+2 3880‚LDXSAVEX 3890‚RTSEXIT 3900* 3910*ROUTINEFORCALCULATETHESTEPADDRESS 3920* 3930CALSTPPSHA 3940‚PSHBSAVEREGISTERS 3950‚LDXRECPTRTAKETHERECIPEADDRESS 3960‚LDAA#107SKIPTHEHEADER 3970‚JSRAXA 3980‚LDABCURSTPTAKETHESTEPTOCALCULATE 3990‚BEQCALS2IF0ADDRESSISOK 4000CALS1LDAA#NEWSTP+1TAKETHESTEPLENGHT 4010‚JSRAXA 4020‚DECB 4030‚BNECALS1 4040CALS2STXSTPPTRSTORETHERIGHTADDRESS 4050‚PULB 4060‚PULA 4070‚RTS 4080* 4090* 4100*ROUTINEFORRECIPESELECTION 4110* 4120SELRECTSTCOMFLG 4130‚BRASELRC1‚SELECMANUALLY 4140‚TSTRCPTR1 4150‚BEQSELRX3RECIPE1ISNOTLOADED 4160‚LDAB#KRECP1+$80 4170‚JSRSETRECSETRECIPEONESELECTED 4180‚JSRPANEL 4190‚CMPB#KRST 4200‚BEQSELRX2IFRESETEXITWITHCARRY 4210‚LDAB#1 4220‚JSRSETACTSETREC1INACTIV 4230‚LDXRCPTR1+1 4240SELREXSTXRECPTR 4250SELRELJMPSELRX1EXITWITHNOCARRY 4260SELRX2SECRECIPEREADYTORUN 4270‚RTS 4280SELRX3JSRPANEL 4290‚CLC 4300‚RTS 4310SELRC1JSRPANELWAITFORTHEKEY 4320‚BCSSELRC2 4330‚RTS 4340SELRC2CMPB#KRECP1ISRECIPE1 4350‚BNESELRC3 4360‚TSTRCPTR1ISTHERECIPELOADED? 4370‚BEQSELREL 4380‚LDAB#KRECP1+$80 4390‚JSRSETREC 4400‚LDAB#1 4410‚JSRSETACTSETREC1INACTIV 4420‚LDXRCPTR1+1 4430‚BRASELREX 4440SELRC3CMPB#KRECP2ISRECIPE2 4450‚BNESELRC4 4460‚TSTRCPTR2ISTHERECIPE2LOADED? 4470‚BEQSELREL 4480‚LDAB#KRECP2+$80 4490‚JSRSETREC 4500‚LDXRCPTR2+1 4510‚LDAB#2 4520‚JSRSETACT 4530‚BRASELREX 4540SELRC4CMPB#KRECP3 4550‚BNESELRC5 4560‚TSTRCPTR3ISTHERECIPE3LOADED? 4570‚BEQSELRX1 4580‚LDAB#KRECP3+$80 4590‚JSRSETREC 4600‚LDXRCPTR3+1 4610‚LDAB#3 4620‚JSRSETACT 4630‚JMPSELREX 4640SELRC5CMPB#KRST 4650‚BNESELRX1 4660‚LDXRECPTR 4670‚CPXRCPTR1+1 4680‚BNESELR1 4690‚LDAB#KRECP1+$80 4700‚JSRSETREC 4710‚LDAB#1 4720‚JSRSETACT 4730‚JMP? SELRX2 4740SELR1CPXRCPTR2+1 4750‚BNESELR2 4760‚LDAB#KRECP2+$80 4770‚JSRSETREC 4780‚LDAB#2 4790‚JSRSETACT 4800‚JMPSELRX2 4810SELR2CPXRCPTR3+1 4820‚BNESELRX1 4830‚LDAB#KRECP3+$80 4840‚JSRSETREC 4850‚LDAB#3 4860‚JSRSETACT 4870‚JMPSELRX2 4880SELRX1CLCNONEISSELECTED 4890‚RTS 4900* 4910SETRECPSHBSETONERECIPEILLUMINATED,CLEAROTHERLAMPS 4920‚LDAB#KRECP1 4930‚JSRLIGHT 4940‚LDAB#KRECP2 4950‚JSRLIGHT 4960‚LDAB#KRECP3 4970‚JSRLIGHT 4980‚PULB 4990‚JSRLIGHT 5000‚RTS 5010* 5020SETACTLDAA#$FC 5030‚JSRANDACT 5050‚TBA 5060‚JSRORACT 5070‚RTS 5080* 5081ANDACTANDAACTIV 5082‚BRASTACT 5083ORACTORAAACTIV 5084STACTSTAAACTIV 5085‚RTS 5100ˆSPC„3 5110UPDOTCEQU„*ˆUPDATETHEDIGITALOUTPUTSWITHDOMIRROR 5111*ANDCOPYTHEAUX.TCDATAINTEMPAO 5120ˆLDX„DOMIR 5130ˆSTX„DOMDL1 5140ˆLDX„DOMIR+2 5150ˆSTX„DOMDL1+2 5160ˆLDX„DOMIR+4 5170ˆSTX„DOMDL1+4 5171* 5180ˆLDX„AOMI1 5190ˆSTX„TEMPAO 5200ˆLDX„AOMI1+2 5210ˆSTX„TEMPAO+2 5220ˆLDX„AOMI1+4 5230ˆSTX„TEMPAO+4 5231ˆRTS 6000* 6010‚END C 5050‚ANDAACTIV 5060‚STAAACTIV 5070‚ORABACTIV 5080‚STABACTIV 5090‚RTS 5100* 5110DOSTATLDXDOMIRUPDATEDIGITALOUTPUTVALUESFROMSTATUS 5120‚STXDOMDL1 5130‚LDXDOMIR+2 5140‚STXDOMDL1+2 5150‚LDXDOMIR+4 5160‚STXDOMDL1+4 5170‚RTS 5500* 5510‚END }œ)¼€§0010‚NAMTCSCAN 0015‚OPTREL,LLEN=120 0020* 0025* 0030*MAINSCANPROGRAM 0035* 0040* 0045‚XREFCH0,CH15,AXA,CPBAX,SSXBA,AXB,TCSTAT,IMTC1,RSTRMP,SETRMP 0050‚XREFALSEQ,ABSEQ,ABAX,SETAO,AOMI1,STPPTR,AXBA,CURSTP,TCERR,POWFL 0055‚XREFFPADD,FPSUB,FPMUL,FPDIV,FLOAT,FIX,PIDTAB 0056‚XREFSOURCE,DESTIN,LENGTH,BUFBUF 0060‚XDEFTCSCAN,TCSEL,SETEMP,TCCHK,INITPI 0065‚XDEFPIDSEL 0070* 0075‚BSCT 0080* 0085VAL1RMB2 0090VAL2RMB2 0095VAL3RMB2 0100VAL4RMB2 0105VAL5RMB2 0110VAL6RMB2 0115* 0120COUNTRMB1 0125MUL1RMB2 0130MUL2RMB2 0135* 0140TEMPXRMB2 0145STATPTRMB2STATUSPOINTERFORTC 0150POINTRRMB2 0155SAVEXRMB2 0160LIMITSRMB4 0165DIFFRMB2 0170AOPTRRMB2 0175READVRMB2 0180ZONENRRMB11,2OR3DEPENDINGTOTHEZONESELECTED 0185R0RMB1 0190R1RMB1 0195R8RMB2 0200R9RMB2 0205INPUTRMB2 0210OUTPUTRMB2 0215MSBMEMRMB2 0220FPMEMRMB4 0225MEMORMB4 0230BANDRMB4 0235SHIFTRMB4 0240* 0245‚DSCT 0250* 0255SETP0RMB4 0260SETP1RMB4 0265FPINP0RMB4THESELOCATIONSAREUSEDINFORM;THEYARE 0270FPINP1RMB4FILLEDWITHTHEDATAFROMEACHZONE,BEFORE 0275FPINP2RMB4FORMISEXECUTED 0280FPINP3RMB4 0285FPOUTRMB4 0290KPROPRMB4 0295KINTRMB4 0300KDIFRMB4 0305UBANDRMB4 0310LBANDRMB4 0315‚SPC2 0320SETP10RMB4 0325SETP11RMB4 0330FPIN10RMB4MEMORYLOCATIONSFORZONE1 0335FPIN11RMB4 0340FPIN12RMB4 0345FPIN13RMB4 0350FPOUT1RMB4 0355KPROP1RMB4 0360KINT1RMB4 0365KDIF1RMB4 0370UBAND1RMB4 0375LBAND1RMB4 0380‚SPC1 0385SETP20RMB4 0390SETP21RMB4 0395FPIN20RMB4MEMORYLOCATIONSFORZONE2 0400FPIN21RMB4 0405FPIN22RMB4 0410FPIN23RMB4 0415FPOUT2RMB4 0420KPROP2RMB4 0425KINT2RMB4 0430KDIF2RMB4 0435UBAND2RMB4 0440LBAND2RMB4 0445‚SPC1 0450SETP30RMB4 0455SETP31RMB4 0460FPIN30RMB4MEMORYLOCATIONSFORZONE3 0465FPIN31RMB4 0470FPIN32RMB@ 4 0475FPIN33RMB4 0480FPOUT3‚RMB4 0485KPROP3RMB4 0490KINT3RMB4 0495KDIF3RMB4 0500UBAND3RMB4 0505LBAND3RMB4 0510‚SPC1 0515‚PAGE 0520*MACROMOVESETSTHEPARAMETERSFORBUFBUFANDCALLSBUFBUF 0525*THEARGUMENTSARESOURCE,DESTINATION,LENGTHOFDATASTRING 0530MOVEMACR 0535‚LDX#\0 0540‚STXSOURCE 0545‚LDX#\1 0550‚STXDESTIN 0555‚LDX#\2 0560‚STXLENGTH 0565‚JSRBUFBUF 0570‚ENDM 0580‚PAGE 0585‚PSCT 0590* 0595TCSCANPSHA 0600‚PSHB 0605‚CLRA 0610‚STAATCERR 0615‚STAACOUNT 0620‚LDX#CH15 0625‚STXTEMPX 0630‚LDAA#30 0635‚STAATCPIA 0640TCNEXTLDAB#100 0645TCWAITLDAATCPIA 0650‚BPLTCWEXT 0655‚DECB 0660‚BNETCWAIT 0665‚LDAATCERR 0670‚ORAA#1 0675‚STAATCERR 0680‚LDAA#$3F 0685‚LDAB#$FF 0690‚INCTCPIA 0695‚INCCOUNT 0700‚BRATCWOUT 0705TCWEXTJSRTAKE6 0710‚INCTCPIA 0715‚INCCOUNT 0720‚JSRMINMAX 0725TCWOUTLDXTEMPX 0730‚PSHA 0735‚LDAACOUNT 0740‚BITA#1 0745‚PULA 0750‚BNETCSTF 0755‚ADDBMUL2+1 0760‚ADCAMUL2 0765‚ASRA 0770‚RORB 0775‚CPX#CH15 0780‚BEQNOCORR 0785‚JSRTCCORR 0790‚LDXTEMPX 0795‚ADDB1,X 0800‚ADCAX 0805‚ADDB#1 0810‚ADCA#0 0812‚ASRA 0813‚RORB 0815‚STAAX 0820‚STAB1,X 0825‚LDAACOUNT 0830‚CMPA#26 0835‚BEQTCOUT 0840NXTINX 0845‚INX 0850‚STXTEMPX 0855TCREVBRATCNEXT 0860TCSTFSTAAMUL2 0865‚STABMUL2+1 0870‚BRATCREV 0875NOCORRSTAAX 0880‚STAB1,X 0885‚JSRDIFFER 0890‚BRANXT 0895TCOUTLDAA#28 0900‚STAATCPIA 0901‚MOVECH0,IMTC1,24…DUPLICATETHEVALUES;USEDWITHOLDSTATUS 0905‚TSTTCERR 0910‚BEQTCOK 0915‚SEC 0920‚BRATCEXIT 0925TCOKCLC 0930TCEXITPULB 0935‚PULA 0940‚RTS*EXITHERE 0945* 0950TAKE6EQU* 0955*ƒTAKE6READS6VALUESFROMTHEADCANDSTORES 0960*ƒTHESEINVAL1THROUGHVAL6 0965* 0970‚LDX#VAL1 0975TAK6NXLDAB#$34 0980‚STABTCPIA+1 0985‚STABTCPIA+3 0990‚LDAB#$3C 0995‚LDAATCPIA+2 1000‚ANDA#$F 1005‚STAAX 1010‚STABTCPIA+3 1015‚LDAATCPIA+2 1020‚STABTCPIA+1 1025‚STAA1,X 1030‚CPX#VAL6 1035‚BEQOUT6 1040‚INX 1045‚INX 1050‚BRATAK6NX 1055OUT6RTS 1060* 1075* 1080MINMAXLDX#VAL1 1085‚LDAAX 1090‚LDAB1,X 1095MINCONSTXSAVEX 1100MINCCPX#VAL6 1105‚BEQMIXT 1110‚CMPA2,X 1115‚BLTNXTMI3 1120‚BNENEWMI2 1125‚CMPB3,X 1130‚BLSNXTMI3 1135NEWMI2LDAA2,X 1140‚LDAB3,X 1145‚INX 1150‚INX 1155‚BRAMINCON 1160NXTMI3INX 1165‚INX 1170‚BRAMINC 1175MIXTLDXSAVEX 1180‚CLR0,X 1185‚CLR1,X 1190‚LDX#VAL1 1195‚LDAAX 1200‚LDAB1,X 1205MAXCONSTXSAVEX 1210MAXCCPX#VAL6 1215‚BEQMAXT 1220‚CMPA2,X 1225‚BGTNXTMA3 1230‚BNENEWMA2 1235‚CMPB3,X 1240‚BCCNXTMA3 1245NEWMA2LDAA2,X 1250‚LDAB3,X 1255‚INX 1260‚INX 1265‚BRAMAXCON 1270NXTMA3INX 1275‚INX 1280‚BRAMAXC 1285MAXTLDXSAVEX 1290‚CLR0,X 1295‚CLR1,X 1300* 1305*ƒADDVAL1.....VAL6 1310* 1315‚LDX#VAL6 1320‚LDAAX 1325‚LDAB1,X 1330ADDCONDEX 1335‚DEX 1340‚ADDB1,X 1345‚ADCAX 1350‚CPX#VAL1 1355‚BNEADDCON 1360‚RTS 1365* 1370* 1375DIFFERLDX#CH15 1380‚LDAA#$40 1385‚CLRB 1390‚SUBB1,X 1395‚SBCAX 1400‚ASLB 1405‚ROLA 1410‚STAAMUL1 1415‚STABMUL1+1 1420‚CMPA#$42 1425‚BGEERPLS 1430‚CMPA#$3E 1435‚BLTERMIN 1440‚RTS 1445ERPLSLDAA#$42 1450‚CLRB 1455ERCONTSTAAMUL1 1460‚STABMUL1+1 1465‚LDAATCERR 1470‚ORAA#$80 1475‚STAATCERR 1480‚RTS 1485ERMINLDAA#$3E 1490‚CLRB 1495‚BRAERCONT 1500* 1505* 1510TCCORRSTAAMUL2 1515‚STABMUL2+1 1520‚JSRHSMUL 1525‚LDXTEMPX 1530‚STAAX 1535‚STAB1,X 1540‚RTS 1545* 1550A * 1555HSMULLDX#14 1560‚CLRA 1565‚CLRB 1570‚RORMUL2 1575‚RORMUL2+1 1580HSNXTBCCHSROT 1585‚ADDBMUL1+1 1590‚ADCAMUL1 1595HSROTRORA 1600‚RORB 1605‚RORMUL2 1610‚RORMUL2+1 1615‚DEX 1620‚BNEHSNXT 1625‚CMPA#$40 1630‚BLTHSOUT 1635‚LDAA#$3F 1640‚LDAB#$FF 1645HSOUTRTS 1650* 1655* 1660* 1665*ROUTINEFORZONENRINGTHERIGHTTC 1670*INPUTPARAMETERS:ACCBTHETEMPCHANNEL(1-3) 1675*OUTPUTPARAMETERS:ACCBTHECHANNEL 1680*“:XTHERIGHTTCORINCASEOFFAILURETHEMAIN 1685* 1690TCSELPSHB 1695‚DECBADJUSTTHEADDRESSZONENR 1700‚LDX#TCSTATSETTHESTATPT 1705‚JSRAXB 1710‚STXSTATPTSAVTHESTATUSPTR 1715‚CLRXRESETTHETCSTATBYTE 1720‚ASLB 1725‚ASLB 1730‚LDX#IMTC1TAKETHEFIRSTTCIMAGEADDRESS 1735‚JSRAXBADJUSTTHEPOINTER 1740‚STXPOINTRSAVEIT 1745‚LDABXTAKETHEFIRSTTEMP.BYTE 1750‚LDAA1,X 1755‚LDX#$2B00CHECKIFHIGHERTHAN1350DEG. 1760‚JSRCPBAX 1765‚BLSSEL1NODON'TSETTHEBIT 1770‚LDAA#%00100000SETMAINTC.MORETHAN1350 1775‚LDXSTATPTTAKETHESTATUSPOINTER 1780‚ORAAXSETSTATUS 1785‚STAAX 1790SEL1LDXPOINTRTAKETHEVALUEPOINTER 1795‚LDAB2,X 1800‚LDAA3,XTAKETHEBACKUPTCVALUE 1805‚LDX#$2B00CHECKFORHIGHERTEMP. 1810‚JSRCPBAX 1815‚BLSSEL2TEMPISLOWSKIPBITSETTING 1820‚LDAA#%00010000SETBACKUPTC.MORETHAN1350 1825‚LDXSTATPT 1830‚ORAAX 1835‚STAAX 1840‚CMPA#%00110000BOTHARESET 1845‚BEQSELEXYESEXITNOW 1850SEL2LDXPOINTRCHECKNOWFORTHEDIFFERENCE>50DEG. 1855‚LDABX 1860‚LDAA1,X 1865‚LDX2,XTAKETHEBACKUPVALUE 1870‚JSRSSXBAMAKETHEDIFF. 1875‚PSHBSAVEACCB 1880‚TSTB 1885‚BPLSEL3IFPOSITIVEMAINISGREATHEST 1890‚LDAB#%00001000SETMAINISLOWEST 1895‚FCB$8CSKIP2BYTES 1900SEL3LDAB#%00000100SETBACKUPISLOWEST 1905‚LDXSTATPTTAKETHEPOINTERANDSETSTATUS 1910‚ORABX 1915‚STABX 1920‚PULBRESTOREACCB 1925‚ANDB#$7FKILLTHESIGN 1930‚LDX#$A0VALUEISMORETHAN15DEG. 1935‚JSRCPBAX 1940‚BHISEL4 1945‚LDXSTATPTSETMAINTCTAKEN 1950‚LDAA#%00000010 1955‚ORAAX 1960‚STAAX 1965‚LDABZONENRRESETDRIFTFLAG 1970‚DECB 1975‚ASLB 1980‚BNEDRST1 1985‚LDAB#1 1990DRST1COMB 1995‚ANDBTCSTAT+3 2000‚STABTCSTAT+3 2005SELEXLDXPOINTRTAKETHERIGHTTC 2010‚PSHASAVETHETCERRORCODE 2015‚ASLAADJUSTOFFSTE 2020‚ANDA#%00000011KEEPONLYZONENR 2025‚JSRAXA 2030‚PULA 2035‚LDXX 2040‚PULBRESTOREREGISTER 2045‚RTS 2050SEL4LDABZONENRSETTHEDRIFTFLAG 2055‚DECB 2060‚ASLB 2065‚BNEDSET1 2070‚LDAB#1 2075DSET1ORABTCSTAT+3 2080‚STABTCSTAT+3 2085‚LDAB#%10000000SETTHEALARMCODE(DRIFT) 2090‚ADDBZONENR 2095‚JSRALSEQSENDALARM 2100‚LDXPOINTRCHECKIFLESSTHAN350 2105‚LDABXTAKETHEMAINVALUE 2110‚LDAA1,X 2115‚LDX#$680LESSTHEN300DEG. 2120‚JSRCPBAX 2125‚BHISEL5MORETAHN300DEG. 2130‚LDAA#%10000000SETMAINLESSTHAN350 2135‚LDXSTATPT 2140‚ORAAXUPDATETHEWORD 2145‚STAAX 2150SEL5LDXPOINTRCHECKBACKUPTC 2155‚LDAB2,X 2160‚LDAA3,X 2165‚LDX#$680 2170‚JSRCPBAX 2175‚BHISEL6 2180‚LDAA#%01000000SETBACKUPLESSTHAN300 2185‚LDXSTATPT 2190‚ORAAXUPDATEWORD 2195‚STAAX 2200SEL6LDXSTATPTRESTORETHESTATUSPOINTER 2205‚LDAAX 2210‚BITA#%11110000TC.SALLINRANGE 2215‚BNESEL7NOCHECK 2220‚STAAX 2225‚ANDA#%00001100KEEPLOWESTBITS 2230‚LSRA 2235‚LSRASETTHETCTOTAKE 2240‚ORAAX 2245‚STAAX 2250‚BRASELEXEXITNOW 2255SB EL7TAB 2260‚ANDB#%11000000 2265‚CMPB#%11000000BOTHARELOWERTHAN3350 2270‚BEQSELEXYESEXIT 2275‚LSRB 2280‚LSRBCHECKONE>1350ANDOTHER<350 2285‚ORABX 2290‚ANDB#%00110000KEEPONLYTHERESULT 2295‚CMPB#%00110000 2300‚BEQSELEXEXITWITHNORESULT 2305‚TABCHECKFORTCINRANGE 2310‚ANDB#%10100000ISMAINTC 2315‚BNESEL8NOCHECKBACKUP 2320‚LDAA#%00000010SETMAINISOK 2325‚ORAAX 2330‚STAAX 2335‚BRASELEXR 2340SEL8TABCHECKFORBACKUPGOOD 2345‚ANDB#%01010000 2350‚BNESELEXRISBADNOZONENRION 2355‚LDAA#%00000001 2360‚ORAAX 2365‚STAAX 2370SELEXRJMPSELEX 2375* 2380*ROUTINEFORSETTINGTHETEMPERATURE 2385* 2390*INPUTPARAMETER:XSTEPADDRESS 2395* 2400SETEMPPSHA 2405‚PSHB 2410‚STXSAVEXSAVEREGISTERS 2415‚LDAATMPST1,XTAKETHEFIRSTSETPOINT 2420‚CMPA#$7FISDUMMY 2425‚BEQSET1 2430‚LDAB#1SETTHEFIRSTZONE 2435‚LDXTMPST1,X 2440‚TSTA 2445‚BMISET0TEMPERATUREISRAMPED 2450‚JSRRSTRMPSETFIXED 2455‚BRASET1 2460SET0JSRSETRMPSETRAMPINGVALUE 2465SET1LDXSAVEX 2470‚LDAATMPST2,X 2475‚CMPA#$7F 2480‚BEQSET3ISDUMMY 2485‚INCB 2490‚LDXTMPST2,XTAKETHESECONDSETPOINT 2495‚TSTA 2500‚BMISET2RAMPING 2505‚JSRRSTRMP 2510‚BRASET3 2515SET2JSRSETRMP 2520SET3LDXSAVEX 2525‚INCB 2530‚LDAATMPST3,XTAKETHELASTZONE 2535‚CMPA#$7FISDUMMYSETPOINT 2540‚BEQSET5YESNOTHING 2545‚LDXTMPST3,X 2550‚TSTA 2555‚BMISET4 2560‚JSRRSTRMP 2565‚BRASET5 2570SET4JSRSETRMP 2575SET5LDXSAVEX 2580‚PULA 2585‚PULB 2590‚RTS 2595* 2600*ROUTINEFORMAINTAINTHETEMPERATURE 2605* 2610TCCHKPSHA 2615‚PSHB 2620‚JSRPOWFL 2625‚LDX#AOMI1INITTHEPOINTER 2640‚STXAOPTR 2645‚LDXSTPPTR 2650‚LDXTMPALL,XTAKETHELIMITSANDSAVEIT 2655‚STXLIMITS 2660‚LDAALIMITS+1 2665‚STAALIMITS+3SETTHERIGHTLIMITS 2670‚CLRLIMITS+2SETTHEABORTLIMITAFTERMULTIPLYBYEIGHT 2675‚ASLLIMITS+3 2680‚ROLLIMITS+2 2685‚ASLLIMITS+3 2690‚ROLLIMITS+2 2695‚ASLLIMITS+3 2700‚ROLLIMITS+2 2705‚LDAALIMITSSETTHEALARMLIMITAFTERSAMEMULTIPLICATION 2710‚STAALIMITS+1 2715‚CLRLIMITS 2720‚ASLLIMITS+1 2725‚ROLLIMITS 2730‚ASLLIMITS+1 2735‚ROLLIMITS 2740‚ASLLIMITS+1ALARMLIMITSISNOWINLIMITSANDLIMITS+1 2745‚ROLLIMITSABORTLIMITSISNOWINLIMITS+2ANDLIMITS+3 2750‚LDAALIMITS+3 2755‚ADDALIMITS+1ABORTLIMITISGIVENBYADDITIONWITHALARM 2760‚STAALIMITS+3 2765‚LDAALIMITS+2 2770‚ADCALIMITS 2775‚STAALIMITS+2 2780‚JSRTCSCANUPDATEVALUE 2785‚CLRTCSTAT+3RESETTHEDRIFTBITS 2790‚LDAB#1CHECKTHEFIRSTZONE 2795TCCK1STABZONENR 2800‚JSRTCSELZONENRTHETC 2805‚STXREADVSAVETHEREADINGVALUE 2810‚JMPTCCKX 2815TCCK10LDXAOPTR 2820‚LDABX 2825‚LDAA1,XTAKETHEACTUALSETPOINT 2830‚LDXREADVTAKEVALUE 2835‚JSRSSXBASUBSTRACTTHEVALUE 2840‚STABDIFF 2845‚STAADIFF+1SAVETHEDIFFERENCE 2850‚LDXSTPPTRTESTIFALARMLIMITIS0 2855‚ANDB#$7FKILLTHESIGN 2860‚TSTTMPALL,X 2865‚BEQTCCK2 2870‚LDXLIMITSTAKETHEALARMLIMITS 2875‚LDAADIFF+1 2880‚JSRCPBAXCOMPARTHELIMITS 2885‚BLSTCCK2 2890‚TSTSTPPTRISNOTARUN 2895‚BEQTCCK2 2900‚PSHB 2905‚LDAB#%10000000PUTTHETCALARMCODE 2910‚ADDBZONENR 2915‚JSRALSEQSENDANALARM 2920‚PULB 2925TCCK2LDXSTPPTRTESTIFABORTLIMITIS0 2930‚TSTTMPALL+1,X 2935‚BEQTCCK3 2940‚LDXLIMITS+2 2945‚LDAADIFF+1RESTORELSVALUE 2950‚JSRCPBAX 2955‚BLSTCCK3 2960‚TSTSTPPTR 2965‚BEQC TCCK3 2970‚TSTCURSTP 2975‚BEQTCCK3 2980‚PSHB 2985‚LDAB#%10000000SETTHETCABORTCODE 2990‚ADDBZONENR 2995‚JSRABSEQPUTANABORT 3000‚PULB 3005TCCK3JSRPIDCOMPUTECONTROLLEROUTPUTFORTHISZONE 3010TCCKWLDABZONENR 3015‚CMPB#3ISTHELAST 3020‚BEQTCCKEXYESEXIT 3025‚INCB 3030‚LDXAOPTR 3031ˆINXUPDATEAOPOINTER 3032ˆINX 3045‚STXAOPTR 3050‚JMPTCCK1 3055TCCKXBITA#%00000011CHECKIFWRONG 3060‚BNETCCKYNOCONTINUE 3065‚PSHBSAVEZONENUMBER 3070‚LDAB#%10000000 3075‚ADDBZONENR 3080‚JSRABSEQGOTOABORT 3085‚LDAB#3 3090TCCKZLDX#0 3095‚JSROUT0SETSTHECONTROLLEROUTPUTFORALLZONESTO0 3100‚PULB 3105‚CMPB#3 3110‚BEQTCCKEXEXITONLYIFZONE3ISCHECKED 3115‚INCBNEXTZONE 3120‚JMPTCCK1 3125TCCKEXPULA 3130‚PULB 3135‚RTS 3140TCCKYJMPTCCK10 3150‚PAGE 3155PIDEQU* 3160*CHANGESTHE(THERMOCOUPLE)INPUTANDTHEACTUALSETPOINTTO 3165*FLOATINGPOINTANDCALCULATESTHENEWCONTROLLEROUTPUTVALUE. 3170*THEEXECUTEDFORMULAIS10-41FROMDIGITALEREGEL- 3175*SYSTEMENDEEL4(IR.H.B.VERBRUGGEN) 3180* 3185PID1LDAAZONENR 3190‚CMPA#1 3195‚BNEPID2BRANCHIFNOTTHISZONE 3200‚LDXAOPTRPOINTERTOSETPOINT 3205‚LDX0,XGETSETPOINT 3210‚STXMSBMEM 3215‚JSRFLOAT 3220‚FDBMSBMEM 3225‚FDBSETP10FLOATINGPOINTSETPOINT 3230‚JSRFLOAT 3235‚FDBREADVINPUTFROMTHERMOCOUPLE 3240‚FDBFPIN10FLOATINGPOINTINPUT 3245‚MOVESETP10,SETP0,48MOVEDATAZONE1 3250‚JSRFORMCALCULATEOUTPUTINFP 3255‚MOVESETP0,SETP11,24MOVEDATAZONEBACK,ONEPOSITIONSHIFTED 3260*INTHETIME 3265‚JSRCALOUTCALCULATEOUTPUTVALUE 3270‚MOVEFPOUT,FPOUT1,4KEEPOUTPUTVALUEFORNEXTCALCULATIONOFFORM 3275‚LDXOUTPUT 3280‚STXZONE1 3285‚RTS 3290* 3295PID2CMPA#2 3300‚BNEPID3BRANCHIFNOTTHISZONE 3305‚LDXAOPTRPOINTERTOSETPOINT 3310‚LDX0,XGETSETPOINT 3315‚STXMSBMEM 3320‚JSRFLOAT 3325‚FDBMSBMEM 3330‚FDBSETP20FLOATINGPOINTSETPOINT 3335‚JSRFLOAT 3340‚FDBREADVINPUTFROMTHERMOCOUPLE 3345‚FDBFPIN20FLOATINGPOINTINPUT 3350‚MOVESETP20,SETP0,48MOVEDATAZONE2 3355‚JSRFORMCALCULATEOUTPUTINFP 3360‚MOVESETP0,SETP21,24MOVEDATAZONE2BACK,ONEPOSITIONSHIFTED 3365*INTHETIME 3370‚JSRCALOUTCALCULATEOUTPUTVALUE 3375‚MOVEFPOUT,FPOUT2,4KEEPOUTPUTVALUEFORNEXTCALCULATIONOFFORM 3380‚LDXOUTPUT 3385‚STXZONE2SETCONTROLLEROUTPUTFORTHISZONE 3390‚RTS 3395* 3400PID3LDXAOPTRPOINTERTOSETPOINT 3405‚LDX0,XGETSETPOINT 3410‚STXMSBMEM 3415‚JSRFLOAT 3420‚FDBMSBMEM 3425‚FDBSETP30FLOATINGPOINTSETPOINT 3430‚JSRFLOAT 3435‚FDBREADVINPUTFROMTHERMOCOUPLE 3440‚FDBFPIN30FLOATINGPOINTINPUT 3445‚MOVESETP30,SETP0,48MOVEDATAZONE3 3450‚JSRFORMCALCULATEOUTPUTINFP 3455‚MOVESETP0,SETP31,24MOVEDATAZONE3BACK,ONEPOSITIONSHIFTED 3460*INTHETIME 3465‚JSRCALOUTCALCULATEOUTPUTVALUE 3470‚MOVEFPOUT,FPOUT3,4KEEPOUTPUTVALUEFORNEXTCALCULATIONOFFORM 3475‚LDXOUTPUT 3480‚STXZONE3SETCONTROLLEROUTPUTFORTHISZONE 3485‚RTS 3490‚PAGE 3495FORMEQU* 3500* 3505*CALCULATESACCORDINGTOFORMULA10-41FORTHEPIDCONTROLLERTHE 3510*CONTROLLEROUTPUTVALUE(POSITIONALGORITHM) 3515*THEFLOATINGPOINTOUTPUTVALUEISINFPOUTŽ 3520* 3525*OUTPUT=FPOUT 3530*Š+KPROP*(SETP0-FPINP0-SETP1+FPINP1) 3535*Š+KINT*(SETP0-FPINP0) 3540*Š+KDIF/6*(-FPINP0-3*FPINP1+3*FPINP2+FPIND P3) 3545* 3550FORM01JSRFPSUB 3555‚FDBSETP0 3560‚FDBFPINP0 3565‚FDBFPMEMSETP0-FPINP0 3570*TESTTOSEEIFTEMP.ISWITHINTHEPROP.BAND.IFNOTFORMIS 3575*NOTEXECUTEDANDOUTPUTSETTO0ORFFFFDEPENDINGONTHETEMP. 3580‚MOVEFPMEM,MEMO,4 3585‚TSTMEMO 3590‚BPLFORM04BRANCHIFTEMPISBELOWSETPOINT 3595‚ASLMEMO 3600‚LSRMEMOREMOVESIGN 3605‚JSRFPSUB 3610‚FDBUBAND 3615‚FDBMEMO 3620‚FDBMEMOUPPERBANDLIMIT-ABS{SETP0-FPINP0} 3625‚BRAFORM05 3630FORM04JSRFPSUB 3635‚FDBLBAND 3640‚FDBMEMO 3645‚FDBMEMOLOWERBANDLIMIT-ABS{SETP0-FPINP0} 3650FORM05TSTMEMO 3655‚BPLFORM2BRANCHIFWITHINTHEPROPORTIONALBAND 3660‚CLRA 3665‚TSTFPMEM 3670‚BMIFORM1BRANCHIFOUTPUTSHOULDBE0 3675‚LDAA#5PUTANR>FFFFINTHEOUTPUTOFFORM 3680FORM1STAAFPOUT 3685‚STAAFPOUT+1 3690FORM11RTS 3695‚SPC1 3700FORM2JSRFPSUB 3705‚FDBFPINP1 3710‚FDBSETP1 3715‚FDBMEMOFPINP1-SETP1 3720‚JSRFPADD 3725‚FDBFPMEM 3730‚FDBMEMO 3735‚FDBMEMOFPINP1-SETP1+SETP0-FPINP0 3740‚JSRFPMUL 3745‚FDBKPROP 3750‚FDBMEMO 3755‚FDBMEMO(SETP0-FPINP0+FPINP1-SETP1)*(KPROP) 3760‚SPC1 3765FORM21JSRFPMUL 3770‚FDBKINT 3775‚FDBFPMEM 3780‚FDBFPMEMKINT*(SETP1-FPINP0) 3785‚SPC1 3790FORM3JSRFPADD 3795‚FDBMEMO 3800‚FDBFPMEM 3805‚FDBFPMEM(KINT+KPROP)*(SETP0-FPINP0)+KPROP*(FPINP1-SETP1) 3810‚SPC1 3815‚JSRFPSUB 3820‚FDBFPINP2 3825‚FDBFPINP1 3830‚FDBMEMOFPINP2-FPINP1 3835‚JSRFPMUL 3840‚FDBMEMO 3845‚FDBCONST3 3850‚FDBMEMO3*(FPINP2-FPINP1) 3855‚JSRFPSUB 3860‚FDBMEMO 3865‚FDBFPINP0 3870‚FDBMEMO-FPINP0+3*(FPINP2-FPINP1) 3875‚JSRFPADD 3880‚FDBMEMO 3885‚FDBFPINP3 3890‚FDBMEMO-FPINP0+3*(FPINP2-FPINP1)+FPINP3 3895‚JSRFPMUL 3900‚FDBKDIF 3905‚FDBMEMO 3910‚FDBMEMOKDIF*{-FPINP0+3*(FPINP2-FPINP1)+FPINP3} 3915‚SPC1 3920FORM4JSRFPADD 3925‚FDBMEMO 3930‚FDBFPMEM 3935‚FDBFPMEMADDLINE4TOLINE2ANDLINE3 3940‚SPC1 3945‚JSRFPADD 3950‚FDBFPMEM 3955‚FDBFPOUT 3960‚FDBFPOUTRESULTOFFORMULA 3965‚RTS 3970‚PAGE 3975CALOUTEQU* 3980*CALCULATESTHEOUTPUTFORTHEZONES 3985‚LDAAFPOUT 3990‚BPLCAL1BRANCHIFRESULTISPOSITIVE 3995‚LDX#0SETRESULTOFFORMULATO0,SINCENEGATIVEOUTPUTISNOT 4000‚STXFPOUTPOSSIBLE 4005‚STXFPOUT+2 4010‚STXOUTPUT 4015‚BRACAL3 4020CAL1CMPA#4CHECKEXPONENT 4025‚BLECAL2BRANCHIFRESULTIS