60221200F_SMM17_Program_Listings_LP1_Feb75 60221200F SMM17 Program Listings LP1 Feb75
User Manual: 60221200F_SMM17_Program_Listings_LP1_Feb75
Open the PDF directly: View PDF .
Page Count: 76
Download | |
Open PDF In Browser | View PDF |
\ I '-) C) o o o o CONTROL DATA® SMM17 C) o o o c Program Listings LP1 o o o o o o o CONTROL DATA CORPORATION CUSTOMER ENGINEERING MANUAL ( c RECORD of REVISIONS REVISION A (9-20-67) B (2-14-69) C (9-15-70) D (4-12-73) E (5-1-74) F NOTES Manual released. Information complete through SMM17 Edition 2. O. Manual revised; complete through SMM17 - Edition 2. 1. Information complete through Edition 2.3. Ali previous editions are obsoleted. This edition obsoletes all previous editions. Information complete through Edition 3. O. 'This edition obsoletes al1 previous editions. Information complete through Edition 3. I. Information complete through Edition 3. I-I. This edition obsoletes all previous editions. This edition obsoletes all previous' editions. (2-4-75) ....... ' ,,' \ .... ,r' ~ ( \ ..... ..... (..... ID I :> 1&.1 a: o I'l N < u 2 a: e Address comments concerning this manual to:' Pub No. 60221200r--© 1967, 1969, 1970, 1973. 1974, 1975 by Control Data Corporation Printed in United States of America Control Data Corporation Technical Publications Department 4201 North Lexington Avenue Arden Hills, Minnesota 55112 or use Comment Sheet in the back of this manual. C,' c., I ,-,J '~I \......--1 - , I '-.-/ ,~, \ \...../ I~ '-_.~ LPI00C ) PAGE DATE! 10/20/74 t 1.......... / r",\ \...,.,' 0 Cj 0 C Cl () 0 0 () 0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 NAH LPI00C 1015~ COPYRIGHT CONTROL DATA CORP 1914 ···00001 ••••••••••••••••••••••••••••••••••••••••••••••••••••••·····················00002 .. ····00003 • • • • • • • • • .,. REVISION P.ECORD • • • • • • • • • • .,. • • • • • • • • • • 00004 • ····00005 • MOOAYR VERSI~N WHAT nONE ~ WHY ~ AND WHO DID IT •••• 00006 • ····00007 • 03.2074 V 3.1 SYSTEHRELEASED •••• 00008 • CORRECTED INITIAL MESSAGE TYPEOUT •••• 00009 .. ····00010 ••••••••••••••••••••••••••••••••••••••••••••••••••••••·····················00011 ·1740/42 LINE PRINTER TEST NO. DC 00012 .. 0014 ·1742 DIRECTOR FUNCTION COOES (00 0016 0017 0018 0019 0020 0021 0022 0023 .,. • • • .,.• • • •.,. • • • • • • • • • 0025 0026 0027 0028 0029 0030 0031 0032 0033 0034 0035 0036 0037 0038 0039 0040 0041 0042 0043 II- \I- \I- • \I- • ••• GI / ... GI , , C) ('" .J (---) = SECONn GROUP (Ql U AD PRINT Al SINGLE SPACE A2 DOUBLE SPACE FORHAT TAPE LEVEL A3 1 FO~HAT TAPE LEVEL Aft 2 FORMAT TAPE LEVEL AS 3 A6 FORHAT TAPE LEVEL 47 FORMAT TAPE LEVEL 5 A8 FORHAT TAPE LEVEL 6 49 FORMAT TAPE LEVEL 7 FORHAT TAPE LEVEL Al0 8 FO~HAT TAPE LEVEL A11 9 FOI"{HAT TAPE LEVEL A12 10 FORMAT TAPE LEVEL A13 11 FORHAT TAPE LEVEL A14 12 EIGHT LINE (PER INCH) A15 SELECT Al0, All., A12~ A13, A15 ARE NOT USED ON THE 17401501 ,. ·1742 DIRFGTOR STATUS CODES (QO = 0047 0048 0049 0050 • • • • 60221200 F' OUTPUT) FIRST GROUP (al = OJ AD CLEAR PRINTER At CLEAR INTERRUPT A? INTFRRUPT ON DATA A3 INTERRUPT ON END OF OPERATION Aft INTERRUPT ON ALARM 1\5 LPIJ NOT A15 USED 0045 ........ 1~ AO Al READY BUSY A2 INTER~UPT A3 OATA 1~ INPUT) 00014 00016 00017 00018 00019 00020 00021 00022 OD023 00025 00026 00027 00028 00029 00030 00031 00032 00033 00034 00035 00036 00037 00038 OD039 00040 00041 00042 00043 00045 00047 00048 00049 00050 PAGE 1 r--" I ~ \"'" ~ ,.; I LP100C PAGF. • .... 0051 0052 '0053 0054 00155 005& 00157 00158 00;9 .... .. .'••• OATE'1 10/20/7,. ? A4 ENn OF OPERATION A; A6 ALA~H A7 P~OTECTEO AS A9 ' A9 THIS IS SET WHENEVER THERE IS NO OPERATION IN ,PROGRESS. (NOT USED) PROTECT SWITCH ON PRINTER IS IN THE PROTECT POSITION NOT USED TO SWITCH FROM 6 TO 8 LPI OR VICE VERSA IS NOT USF.O ON THE 11401501 O~AY ' 00051 00052 00053 00054 00055 0005& 00057 00058 00059 (- 60221200 F PAGE ,~... \ ". .......... ) C) c= 0 c) LPI00C (") PAGF 3 ,I ('" " '-_/ ) 0 (~ ,-) (") ..... ""/ "-1 L C'l (.--.... U 0 0 0 U' 0061 ·~RPOR 0063 .. .. 0065 0066 0067 0068 006q 0070 0071 0072 0073 0074 0075 0076 0077 0078 'OO7q 0080 0081 0082 00A3 0084 0085 0086 0087 008R OOSq OOqO OOql OOQ2 00Q3 0094 00Q5 OOQ& 00Q7 OOQa OOQ9 0100 0101 0102 0103 0104 0105 0106 0107 0108 010Q· 0110 ,0111 0112 0113 • •.. • .,.• .,. . ER~O~ CODES AND ERROR TVPEOUTS CODE 01 02 03 04 .y. .y. ot:) If. .y. .,. ... .y. 06 07 .y. .,. .y. 08 .y. .,. .... OQ .y. .• • •. .y. ..,... ..,. .,. .,. ... OA 08 OC 00 .,. .,. OE • • OF . .y. •.,. •. 1!J 11 12 00061 MEANING 00063 EQUIPMENT ADDRESS ERROR (OPERATOR ERROR). rEST MUST BE CALLED AGAIN. PARAMETER ERROR (OPERATOR ERROR). PARAMETERS MUST BE SELECTED AGAIN • INTEPNAL REJECT OF FUNCTION. A=CONTENTS OF A WHEN REJECT OCCURRED O=CONTFNTS OF Q WHEN REJECT OCCURRED EXTERNAL PEJECT OF FUNCTION. A=CONTENTS OF A WHEN REJECT OCCURRED. Q=CONTENTS OF.Q WHEN REJECT OCCURRED INTE~NAL REJECT OF STATUS INPUT A=O Q=CONTENTS OF Q WHEN REJECT OCCURREO EXTERNAL REJECT OF STATUS INPUT A=O Q=CONTENTS OF Q WHEN REJECT OCCURRED INCORRECT STATUS A=ACTUAL STATUS Q=EXPECTEO STATUS (AODITIONAL INFORMATION IN SECTION 2, LOOP lAI A=WORO COUNT Q=CURRENT WORD COUNT NO DATA INTERRUPT WHEN EXPECTED AFTER SELECTING DATA INTERRUP.T.« SECTION 1, LOOP 4 OR 5) • A=STATUS Q=O NO DATA INTERRUPT WHEN EXPECTED AFTER SELECTING DATA INTFRRUPT AND INTERRUPT CLEAR SIMULTANOUSLY (SECTION 1, LOOP 6). A=STATUS Q=O NO DATA INTERRUPT WHEN EXPECTED AFTER SELECTING DATA INTERRUPT AND CLEAR PRINTER SIMULTANOUSLY (SECTION 1,LOOP 7) . A=~TATUS Q=O NO DATA INTERRUPT WHEN EXPECTED AFTER SELECTING DATA INTERRUPT OR AFTER SELECTING ALL INTERRUPTS. A=STATUS Q=O NO ALARM INTERRUPT WHEN €XPECTfD AFTER OUTPUT OF ILLEGAL CHARACTER OR AFTER "CAUSE ALARM ON 1742-. A=STATUS Q=O NO END OF OPERATION INTERRUPT WHEN EXPECTED (SFCTION 4, LOOP 2 AND 5) • A=STATUS Q=O NO DATA INTERRUPT WHEN EXPECTED (SECTION 3,LOOP 5 ANO SECTION 4, LOOPS 4 AND 51 A=STATUS Q=O . INTERRUPT BUT NO INTERRUPT STATUS A=STATUS Q=INTERRUPT LINE NUM8ER, DECIMAL UNREQUESTED INTERRUPT A=STATUS Q=INTERRUPT LINE NUMBER, DECIMAL NO EXTERNAL REJECT OF.DATA WHEN EXPECTED AFTER EXCEEDING MEMORY CAPACITY BY ONE WORD (69 WORDS) A=STATUS Q=O EXTERNAL DATA REJECT 00065 00066 00067 00068 0006Q 00070 00071 00072 00073 0007,. 00075 00076 00077 00078 0007Q 00080 00081 00082 00083 0008lt 00085 00066 00087 00088 0008Q 00090 00091 000Q2 OOOQJ 0009lt 00095 00096 00U97 00098 00099 00100 00101 00102 00103 DOlO,. 00105 00106 00107 00108 00109 . 00110 00111 00112 00113 0 I~ ~ U r"') "J /'.--..... C ) &0221200 F PAGE 3 ,r---.. I \........ LtJ100C ?AGE .. 01140115 0116' 0117 .0116 • • • • • ..• • • • •.. • • • •.. • • • • ·~0119·· 0120 0121 '0122 0123 0124 0125· 0126 0127 0128 0129 0130 0131 0132 0133 . 013'" 0135 0136 ~-., 0137· ..• • 0138 ..• •.. .. 0139 0140 ..... 0141 0142 ·Gi43· .'• 14 15 16 17 18 19 lA • • 014-4014-5 014-1) 0147 0148 0149 0150 0151 "--'015~'" 0153 0154 ·. 0155··· 0156 0157 . 015-8,-" 0159 0160 0161 • • • • • • • •.. 18 • lE 0162· 0163 0164 0165 0166 ..... •.. lf . • F lC 10 • • 50221200 13 4 ".---... I A=CONTENTS OF A WHEN REJECT OCCURRED Q=CONTENTS OF Q WHEN REJECT OCCURRED. INTERNAL DATA REJECT A=r.ONTENTS OF A WHEN REJ£CT OCCURRED Q=CONTF.NTS OF Q WHEN REJECT OCCURRED WRONG WORD COUNT A=STATUS Q=O A=ACTUAL WORD COUNT Q=EXPECTEO WORD COU~T INTERRUPT STATUS FAILED TO CLEAR A=STATUS Q=INTERRUPT LINE NUMBER, DECIMAL INTERNAL REJECT WHEN £XP£CTING AN EXTERNAL REJECT A=STATUS Q=O NO EXTERNAL REJECT WHEN EXPECTED (CLEAR, SPACE, DATA, OR DURING PRINT) A=STATUS Q=O NO END OF OPERATION STATUS OCCURRED ON BUFFER DATA CHANNEL AFYER BUFFERED OUTPUT OF 69 OR 68 WORDS. A= LINE PRINTER STATUS Q=BOC STATUS BEFORE TERMINATION A=CURRENT WORD ADDRESS Q=EXPECTEO WORD ADDRESS ENO OF OPERATION STATUS OCCURRED ON BUFFER DATA CHANNEL AFTER OUTPUT OF 67 OR 68 WORDS, BUT WORD COUNT IS WRONG • A= LINE PRINTER STATUS O=BDC STATUS BEFORE TERMINATION A=CURRENT WORD ADDRESS Q=F.XPECTED WORD ADDRESS UNEXPECTED END OF OPERATION STATUS OCCURRED ON AFTER BUFFERED OUTPUT OF 69 WORDS. A= LINE PRINTER STATUS Q=BOC STATUS BEFORE TERMINATION A=CURRENT WORD ADDRESS Q=EXPECTED WORD ADDRESS UNEXPECTED EXTERNAL REJECT AFTER AN EXPECTED EXTERNAL REJECT DURING PRINT. A=STATUS 0=0 INTERNAL REJECT ON ATTEMPT TO INITIATE OUTPUT ON BUFFEP. DATA CHANNEL A=FIRST WORD ADDRESS MINUS ONE OF THE BUFFER AREA Q=CDNTENTS OF Q WHEN REJ£CT OCCURRED. EXTERNAL REJECT ON ATTE"PT TO INITIATE OUTPUT ON BUFFER DATA CHANNEL A=FIRST WORD ADDRESS MINUS ONE OF THE BUFFER AREA Q=CONTENTS OF Q WHEN REJ~CT OCCURRED INTERNAL REJECT ON ATTEMPT TO TERMINATE BUFFER AND GET CURRENT ADDRESS A=NOT APPLICABLE Q=EQUIP"ENT CODE EXTERNAL REJECT ON ATTE"PT TO TERMINATE BUFF.ER AND GET CURRENT ADD~ESS A=NOT APPLICABLE Q=EQUIPMENT CODE- 0011" 00115 00116 ........ 00117 00118 00119 00120 00121 00122 00123 0012 .. 00125 00126 00127 00128 00129 00130 00131 00132 00133 ,..r- . i I ...... 0013 .. 00135 00136 00137 00138 00139 001.. 0 00141 00142 001 .. 3 001 .... 001,.5 001,.6 00147 0014-8 001 .. 9 00150 00151 00152 00153 0015 .. 00155 00156 00157 00158 00159 00160 00161 00162. 00163 0016,. 00165 00166 PAGE c·· -.,,' ) .-./ PAGE lPl01J~ -... 0168 0110 --····0111 0172 0173 ..... " 0174 0115 0176 0111 0178 0179 0180 0181 0182 0183 0184 0185 0186 0187 0188 0189 0190 0191 0192 0193 0194 0195 0196 0191 0198 0199 0200 0201 0202 0203 0204 0205 0206 . 0207 0208 0209 0210 0211 . o u o o o o o r-"', U o .CAUTIONS TO USER 00168 • • • • • 00170 00111 00172 00113 00174 00115 00176 00117 00178 00119 00180 00181 00182 00183 00184 00185 00186 00187 00188 00189 00190 00191 00192 00193 00194 00195 00196 00191 00198 00199 00200 00201 00202 00203 00204 00205 00206 00207 00208 00209 00210 00211 ' • • • • • • • • • • • • c ........ ........... ••••••• •••••• • • • •... ... • • • .......... .......... •••••• ........... ........ ............ ........ • • • •... • 0213 60221200 F OATEI 10/20174 5 THE CHARACTER CODE FOR USE IN SECTION 8 ( CLARITY TEST t HUST a I.E.~ FROM 20 ( HEX. ) THRU SF ( HEX.). THE INTERRUPT LINES A CHA~ACTER CODE HAY BE CHOSEN AT THE PARAMETER STOP. IN SE~TIONS 3 THRU q UNEXPECTEO ALARM INTERRUPTS ( ER 10) HAY OCCUR BECAUSE ALARH INTE IS SELECTED AT SEVERAL PLACES. PASS THE ALARM INTERRUPT SELECTI SIT 15 IN THE STOP/JUMP PARAMETE IN SE~TION 10 A STOP OCCURS AT WHICH THE OPERA SHOULD CAUSE AN ALARH CONOITION PRINTER, ~.G., OPEN THE INTE~LOC THE END OF THE SECTION THE OPERA CLEAR THE ALARM CONOITION FOR FU TESTING. IF STOP AT END OF SECTION BIT IS SET, THE ALARM CONDITION CAN BE CLEAREO WHEN THE STOP OCCURS. IF STOP AT END OF SECTION BIT IS NOT SET, THE PROGRAM WILL LOOP UNTIL THE ALARM CONDITION IS CLEARED • IN SECTION 11 A STOP OCCURS AT WHICH THE OPERA SHOULD SET THE PROTECT SWITCHES COMPUTER AND ON THE PRINTER. AT OF THE SECTION THE OPERATOR HUST THE PROTECT SWITCH ON THE COMPUT FURTHER TESTING. IF STOP AT END OF SECTION BIT IS SET, THE PROTECT SWITCHES CAN BE CLEARED WHEN STOP OCCURS. IF STOP AT END OF SECTION Blf IS NOT SET, THE PROGRAM HILL LOOP UNTIL PROTECT STATUS DROPS. CLEAR THE PROTECT SHITCH ON THE COMPUTER FIRST, THEN CLEAR-THE PROTECT SWITCH ON THE LINE PRINTER. IN SECTION 13 . IT IS ASSUMED THAT THE FORHAT TA ALLOWS A CHANGE FROM 6 TO 8 LINE INCH HHEN STATUS BIT 9 IS SET. THIS SECTION SHOULD NOT BE RUN 0 1740/501 LINE PRINTER IHPO~TANT ADDRESSES 00213 PAGE 5 'c, ( '. - . PAGE LIl100e •. •.. 0215 0216 0217 0218 6 o ATEt 10/20./74 DATAL - PRESTO RED DATA INTERRUPT LINE EOPL - PRESTOREO END OF OPERATION INTERRUPT LINE ALARML - PRESTORED ALARH INTERRUPT LINE CHARS - PRESTOREO CHARACTER FOR ClA~ITY TEST c=' 0021S 00216 00217 00218 (' ,- .. r' \ " rr ( '. ,,( ( ( " ',. C'" (_ .•. '",,"--,.~ . (~' \"- . C".' I. 60221200 F PAGE 6 C.-' ,/' " \., (~ u o o PAGF LPI00C 0220 0221 0222 0223 0224 02250226 0227 0228 02Zq 0230 0231 0232 0233 o o o ·~·--O234- u c o f- o o ( '1 J 0235 0236 0237 ··0238 0239 0240 0241 0242 0243 0244 0245 0246 0241 0248 024Q 0250 0251 0252 0253 0254 0255 0256 0257 0258 025Q 0260 0261 0262 0263 0264 0265 0266 0267 0268 0269 .0270 0271 0272 0001 OOfJ2 0003 0004 0005 0006 0001 . 0008 OOOq OOOA 0008. oooe 0000 .. 0042 0043 0044 0045 0047 0048 0049 0056 01)69 0068 006C 0060 DOGE 006F 0070 0071 0072 0073 0074 0075 0076 0077 0078 0079 007A 0078 n07C 0070 007E 007F n080 001\1 0082 0083 0084 Orl85 .0086 -0(187 0088. 7 ·HONITOR DIRECT LOCATIONS EQU CONTROl(!) EQU STOPX(CONTROl+1) EflU EXIT (STOPX+U EflU REOINTCt:XIT+U Eau FGLRINT(REQINT+l) JU"fP (REQINT + 2) EflU EQU GENRAN (JUHP+-!) EQU TYPEOUTCGENQAN+l1 EQU TTYB1Y(TYPEOUT+l) EQU HEXASCCTYPEOUT+2) F.QU OVRLAY (HEXA SC+-U EQU RELPOS(OVRlAY+l) EQIJ HAINL (RElPOS+1) EQU SETHASK(HAINL+53) STJP (SETHASK+l) Eau EatJ LASTVALU(STJP+1) EQU' LASTAO CSTJP+ZJ EQU lOlCOREflASTAO+21 EQU LOLtCoReLDLCORE+l) fQlI INFORHCLDLICOR+l) EQU SHHCNTC1NFORH+13) EQU BITO 0 CS"HCNT +2U EQU BITO (SITOO) BITt (RITO+1) Eau BIT2 (8IT1+!) EQU EQU BIT3C9IT2+1) fQU BIT4 {BIT3.U EQU ElIT5 (B1f4+11 BIT6 (BIT5+1) EflU EQIJ BIT7(flIT6+t) EQU BIT8 (BIT7+1I 8IT9(81T8+1) EO.U BITtO (BITq+1) EQU FalJ BIT11(BITtO+U EQU BIT12(BIT11+1l EQU BITt3e 8IH2+U EQU BIT14 (~IT13+U Eau BIT15 CIUTi4+1) EQU HOOOOCBIT15+1J Eau HFFFFCHOOOO+l) EQU HOOOF(HFFFF+1J [QU HOOFO(HOOOF+-U EQU HOFOOCHOOFO+U HFOOO (HOFOO+U EQU HOOFFIHFOOO+1) EQtJ EQU HFFO 0 (HO OFF+ U EQU HFFFO(HFFOO+1) EQlJ HO FFF CHFFFO+ U EQU HFFOFCHOFFF+i) EQU HFOFFC HFFOF+i) EQU H7FFFCHFOFF+U EQU H7FOOCH1FFF+1) RETURN SHH CONTROL ADDRESS. ALL STOPS AND ERROR TYPEOUTS END QFTEST-PASS EXIT REQUEST INTERRUPT ADDRESS FAKE OLD -CLR INTRPT REQ- SUBRTN CHECK SKIPS WITCH FOR PARAH ENTRY RANDOM NUMBFR GENERATOR HESSAGE TYPEOUT ROUTINE ROUTINE TO WAIT TTY NOT RUSY. HEX TO ASCII CONVERSION OVERLAY CALL ROUTINE. A/Q RELATIVE POSITION ·TEST. HANUAL INTERRUPT ROUTINE. M-REG RESET VALUE STOP/JUHP PARA~ETER WORD. MONITOR AREA lWA.t AVAILABLE LOAD CORE FHA. BANKO LAST ADOR BANK1 LAST AODR 9KO SIZE, HASK SIZE, BUSY SWITCH SHH PARAHETER WORD. ••• CONSTANT TABLE ••• 00220 00221 00222 00223 00224 00225 00226 00227 00228 00229 00230 00?31 0[1232 00233 00234 00235 00236 00237 00238 00239 00240 00241 00242 00243 00244 00245 00246 00247 00248 00249 00250 00251 00252 00253 00254 00255 00256 00257 00256 00259 00260 00261 00262 00263 00264 00265 00266 00267 00268 00269 00270 00271 00272 i! ! Fl0221200 F PAGE 7 C (\. c-' (" r"---""" II PAGE LP 100C 8 /'-.... OATE1 10/20'74 i '''-_., 0273 0274 0275 0276 0277 0278 0279 0260 0281 0282 0283 0284 0265 0286 OOfJ9 008A 00R9 OO'll OOQ2 00';8 0056 0043 0007 nODA fQU EQU FQll EQU EQtJ fQIJ fQIJ EQU E'QI.I EQU EQU EQU faU E'QU noos 0004 00t1~ OOOA H0780 I H7FO 0+1) HOO7FIH0780+U H2020(HOO7F+U TSACTVCH202D+6) TSFPFQCTSACTV+l) CONST( BtTOO) SHHPAR (SHHCNTt SJPARISTJP) RA NOOH (GENRA Nt CONVF.~ H HEXA SC I HESSAG (TYPEOUT) REQND( RfQINTJ CLRNO (FCLRINn CONVIHEXASCt TABLE INOEX TO TEST IN CONTROL. TEST, FREQUENCY TASLE 00273 00274 00275 00276 00277 00278 00279 00280 OD281 00282 00283 00284 00285 00286 " ... -....."" ( \ ....... (' '- r--II, .. /-. ( 0288 0289 0290 0291 0292 0293 0294 0295 0296 0297 0298 0299 ·F.QUATEO OOGEl 006C 0060 006E 006F OOGR 0001 0002 174~ faU fQU EQU taU tQU EQU EQU EQU Eau on03 0003 F.QU EQU n07A FUNCTION COOFS CLfAR(CONSn CLINHCONST+t) OIREQICONST+2J EOPRf:Q(CONsr+3) ALIREQCCONST+4) PIUNTL (CONST) SPACECU OSPACE(2) TSPACEn) LVL1(3) EtGHT(CONST+1S) CLEAR PRINTER CLEA~ INTERRUPTS DATA INTERRUPT REQUEST ENO OF OPe INTERRUPT REQUEST ALARM INTERRUPT REQUEST PRINT LINE. SINGLE SPACE DOUm.E SPACE FORHAT TAPE LEVEL 1 EIGHT LINES PER INCH 00288 00289 00290 00291 011292 00293 00294 00295 00296 00297 00298 00299 ( " '( I '- 60221200 F . PAGE 8 (-'" . l) 0 .. ".. " ..... , U 0 0 0 0 0 ('\ '-/ 0 C r' ~) 0 0 0 0 0 lPI00C PAGF. 03'll POOOO 180C lPl00C 0302 POOOl 4C50 P·0002 3130 PODOl 3043 0303 POOO4 0012 P PA~AOR 0304 POOO5 0750 P RETU~N 0305 POOO£) 0000 EQUIP ·0301 0308 0309 0310 0311 POD07 POOOI} POOO!} POOOA poooa 0313 POOOG pooon 0314 POOO~ ·0315 POOOF ·0316 POOI0 0317 P0011 ·0318 0319 POO!2 0320 POO13 0321 POO14 0322 POOlS 0323 POO16 0324 POOt7 0325 POO13 0327 0328 0329 0330 0331 0332 0333 0334 0335 0336 0337 0338 0339 0340 0341 0342 0343 0344 0345 0346 0347 0348 0349 0350 POO19 POO1A POO1!l POOIC POOI0 POOlE POOIF P0020 POO2! P0022 P0023 P002'+ P0025 POO26 P0027 P0028 P002Q P002A P002a P002e P0020 P002E P002F POO3l) 0000 ESF'O 541)1+ !J£)FA P lCFB ~Il COOO"'~ START START 3,lPI00C ABC AOC HUM PARAHS INITOC 0 NUH lOi). RTJAOC JMP· D EQUIP (REQINTt INST (RIU LOA =XSTARTl 00313 STA· LOA.' RTJJMp· RI:TU~N 00314 00315 00316 00317 00318 00319 00320 00321 00322 00323 00324 00325 PARAHS SFCTNS nATAL EOPL ALARML CHAR/\ LPTYPE NUM NUM HUM NUM NUM HUM HUM 0844 PARCHK eL~ DeOF C9F7 A26B 0113 OOFE 01'+0 l8FA 89F1 01lA COFF !J9FO 0102 DOFF 18F2 C8ED 09aF 0132 09BF 0134 OADB De02 5879· O~G PARLOOP PARi STAE'NQ lOA· ANOSAN INQ SQZ JMp· PAR2 CHARCK PAR3 DATn 10/20'74 JMp· ALF 003Q-P 68F6 GS56 5402 1808 0012 P DCl! 33EA 0004 DnOIt 0004 00 ItO 0000 6tlF~ 9 EOR· SAN LOAINA SAZ RAOJl1p. lOA" INA SAM INA SAM ENA FNa RT J" 00301 00302 PARAMETER AREA FHA. SHM RETURNS CONTROL HE~E EQUIPMENT ADDRESS FOR STATUS INP 00303 00304 00305 REQUEST SYSTEM USE OF INTERRUPT LINE = AREG-BIT. 00307 00308 00309 00310 00311 IA (STOPXl PAR.CHK PARAMETER STOP. tOC3! $33EA 4 4 4 $40 0 tOENT SECTIONS TO BE RUN INTERRUPT LINES- DATA FOP ALARM ClA~ITY TEST CHARACTER 0=1740'42~ ELSE 9322'X2 A I 15 DATAL,I BITo,a PAR2-"-1 -1 PAR3-·-1 PAR1 DATAL,I PAR3-·-l I -2 CHARCK-"-l I PARLOOP CHAR.S CHECK FOR ILLEGAL PARAMETER. • (M) SKIP IF MORE THAN ONE LINE BIT. -32 PAR3-·-1 -64 RILS-·-l 8 2 STOP • • ;t& ERROR 2 = PARA" ENTRY ER~OR • 01)327 00328 00329 00330 00331 00332 00333 00334 00335 00336 00337 00338 00339 003,.0 003,.1 00342 00343 00344 00345 00346 00347 003lt8 00349 00350 0 0 0 (j 60221200 F PAGE 9 C r-" 1,,--./ C·" _./ C C LPI00C PAG':: 10 CI 0 (' ...-. OATE' 10'20'74 '-. 0351 P0031 180A - ········0353 0354 0355 0356 0357 0358 ·0359 0360 ·POO32 POOl3 P0034 P0035 POO36 POOl7 POO36 P0039 P003A 0361 POOlS 0363 0364 0365 0366 0367 0368 0369 0370 0371 0372 ···0373 037,. 037S 0376 0377 0378 0379 0380 031)1 0382 0383 0384 . 0385 0386 0387 0388 0389 0390 0391 0392 0393 0394 0395 CSl:1 RILS 5603 C6EO 5801 C80F 58CF 5401 COOO START! DOC7 P 68C9 P003C C806 POOlO 6AIF. P003E P003F POO40 P0041 P0042 PD043 POD41t P004S P0046 P0047 POOlt6 POOlt9 P004A POO4S POOItC P0040 POOItE POOltF poor;o PO 051 POOS2 P0053 POOSlt P0055 POO56 PODS7 P0058 P0059 P005A P0059 RESTART • oeOl TEST CRIC A26B 0115 OOF2 {l1S1 1818 OOOE 18F8 BRllt NEXTt 6813 OFA8 4822 OFA8 NEXT2 EAOl 1679 NEXTJ 012E P 0180 P 030C P 03QC P 0414 p. 0446 P 0478 P 0490 P OltAr. p 04nF P 0510 P 0587 P 05H P 0000 SECTOT JMp· START LOA· RTJ" LOA· RTJ" LOA· RTJLOA DATAL RIL EOPL RIL ALARML RIL (CONTROL) =XSHHR STA· RETURN RTJ· TRY AGAIN REQUEST DATA INTERRUPT LINE. • • EOP LINE. ALARM LINE. 00351 (" 00353 00354 00355 00356 00357 00358 00359 00360 ''---'' C (r-"- SECTNS LOA" SECTOT STA" GO TO NEXT SELECTED SECTION ENQ 1 LOA·' SECTOT ANOCONST,Q SAN NEXT1-"-1 INQ -1"3 SQN 1 JMp· ENOT~ST INQ 14 TEST+1 J'1P" EO~· SECTOT STA· SECTOT QlS 8 STO· SEC QLS 8 NEXT3,Q LOO." (HOOOO),Q JHPAOC SEC1 ADC SEC2 ADC SEC3 AOC SEC4 AOr. SECS Anc SEC6 AOC SEC7 AOC SEe8 ADC SEC9 AOC SEC10 AOC SEC11 AOC SEC12 AOr. SEC13 NUH 0 00361 O~ SECTIONS TO TEST EHOTEST. SECTIONS TO T£ST RUN NEXT SECTION NO HORE SECTIONS SELECTED. CLEAR SECTION BIT. FHA OF FIRST SECTION SECTIONS TO BE TESTED \...._.~ 00363 00364 00365 00366 00367 00368 00369 00370 00371 00372 00373 00374 00375 00376 00377 00378 00379 00380 00381 00382 00383 00384 00385 00386 00387 00388 0038Q 00390 00391 00392 00393 00394 003Q5 (~ (-. ( ( \ '-.. c. , c (' ' _. ~ ...... • • END OF TEST STOP IF BIT 2 OF S/J WORD SET. 00397 00398 (' , ..... 60221200 F PAGE 10 C ~ . \.. ~ ... (~ u o o () o o o o o [ o o o o o o o o o n PA~F LP100C 0399 0400 0401· 0402 0403 0404 0405 0406 0407 0408 0409 0410 0412 0413 0414 0415 0416 0417 0418 0419 0420 0422 0423 0424 0425 0426 0427 0428 0429 04JO 0431 0432 0433 0434 0435 POO5e POO,:)!) POOSE P005F P0060 POOGl POO62 POOf)1 POIJGIt POO6S P0060 • 6810 080E EAJO OA04 5849 I)A40 5406 1804 COOO ENDTEST RAO" LOa" ENA RTJ" ENA RTJJHP· LOA- ooon P tA 5403 C075 5406 16A2 1801 0000 0000 POOGO PODGE POO6F P0070 0000 OAI0 5406 lCFC P0071 P0072 POO7] P0074 POO75 P0076 POO77 POO7S RfPEAT PASSCT SEC ~EPCON • • OAIl2 ENOSEC ocoo 5836 E6F7 OA20 5406 1803 18CS 0437 P007Q 0000 0438 P007A EA7B 0439 P007A 0152. 60221200 Anc !HJ- • •.. P0067 POO6S POO6'.} POO6A PO!lGR POOGC REP~AT STAll- F SOATA DArEl 10/20/74 11 TfST IF AIT G OF S/J WORD SET, EXIT TEST IF NOT. SEr. PASSCT COU"T OF PASSES THRU TEST PASSCl ... STOP $40 ( JUMP) REPEAT END OF TEST STOP REPEAT TEST 0 LPtODC (EXITJ TEST IA. EXIT FROM TEST 00399 00400 00401 00402 00403 00lt04 00405 00406 00407 00408 00409 00410 PEPe:AT TEST. RE-ENTER PA~AHErERS IF BITS 0 AND 10 OF S/J WORD SET. LOACONST+10 RTJ( JIJMP' JMp· START RESTART JMP" NUM 0 NUMBER OF PASSES THRU TEST NUIo1 0 CURRENT SECTION SHIFTED 8 00412 00413 00lt14 00lt15 00416 00417 00416 00419 00420 NUM 0 $10 ENA CHECK REPEAT LAST CONDITION (JUMP) B£FORE END-OF-SECTION. RTJ(RF.:PCONl JHP" ENt') OF SECTION STOP IF BIT 1 OFS/J WORQ SET. REPEAT SECTION IF BIT S OF S/J WORn SET, NEXT SECTION IF NOT. ENA END OF SECTION 2 ENI) 0 RTJ· END OF SECTION STOP STOP SEC trlO· $20 ENA (JUMP) RTJJMP· REPEAT SECTION NEXT2 Jt1p. TEST NEXT SECTION 00422 00423 00'+2'+ 00425 00426 00,.27 00428 00429 00430 00431 00432 00433 00\34 00435 NUH loa· saN o SElO 2 (POSSIBLE ERROR SOU~CE ADO) 00437 00438 00439 PAGE 11 c c c' ~ "---" ~ (~' """'--'''' LP100C PAGE 0440 0441 044? 0443 0444 0445 P007C POO70 POOlE P001F pa080 POOSt E8FC 4876 OCFE 0447 044" 0449 0450 04151 0452 0453 0454 0455 -045& 0457 0458 0459 0460 0461 -,0462 0463 0464 046S 0466 0467 0468 0459 0470 0471 0472 0473 0474 POO82 POOS3 POOS4 P0065 POOS6 POO67 ponRS POO89 POO8A OOOQ FC5B 483A 68£7 OUTPUT ~R3E DATAt POO89 t~03 0476 0477 0478 0479 0480 0481 0482 0483 0464 0465 5803 0000 1CF7 ~ \~ LOQ¥ STQ¥ ENO RT J¥ NUH JMP¥ SOATA SELO -1 OUTPUT "iO (SDATA) NUM ADI)· STO· STI\· RTJ¥ lOA¥ lOO· OUT J,",p. JHP·' ENQ JHP" ENQ STA· ENA RTJ" ENA RTJ- 0 ( XFQlIIP) EXP REPCON SHH REPCON FXP DATRAN-¥-1 XOUT ·+3 $13 ·+2 $12 (OUTPUn ACT SELO Rf.TAO $18 STOP $10 (JUMP) J~p. DATAl Ct~ A SEtO SEtU REPCON OUTPUT (OUTPUn 004.. 7 004 .. 8 00449 00450 00451 00452 00 ..53 00454 00455 00456 00 .. 57 00458 00459 00460 00461 00462 00463 00464 00465 01J466 00467 OD468 00'+69 00'+70 00471 00472 00473 00474 0 fJATA SEtO LPTYPE 00416 00477 00476 00479 (POSSIBLE (US~O ER~OR PREP) TO CALC CODE ON ERROR) 00440 00441 00442 00443 004 .. ,. . 004 .. 5 (' '''---' (' '-..J C8E5 ER36 0.302 180£ PO!JIJr. P008D POOAf POO13F P0090 P0091 OC13 1802 OC12 FCF2 68211 C8Gft POO9~ 682A POO91 OA1S Poa94 5~1I; P009S OA10 POOQ6 5406 POO97 18££ POO9S OA44 POO99 E85C POO9A 665B POoqg C6Dl POO9C 06E5 P0090 iCF.4 POO9E POO9F POOr\o POOA! POOA2 POOA3 POOA4 POOA5 POOAI) POOA? POOA8 DATEI 10/20/74 12 DATRAN AD!)· STA· LOA" XOUT LOQ· STA· LOA· RAO· JMp· IlATA 0000 E"FE 4855 E400 0018 p 0143 OFC8 5803 OFCS 5801 LP1740 lCF5 NUM LOU· STO· LOQ. SQZ ALS RTJ· ALS RTJy. JMp· LP1740-·-1 8 SOATA 8 SOATA (oATA) (ADJUSTED EQUIP ADD) (DATA OR FUNCTION TEHP STORAGE) ••• ERROR 13 EXTERNAL DATA REJ. ERROR 12 'INTERNAL {lATA REJ. ••• ADJUST CODE TO 4/3 ON FUNCTIONS. (ERROR SOURCE ADD) REPORT REJECT ON OATA/FCN OUTPUT REP£.AT CONDITIONS (POSSIBLE F.RRORP~EPt (" ~.... ( ~-' ,r-' I, (' \. (-' '" (' t' ~"- 00480 00481 00482 00 ..83 00484 00485 . c:' C~ r \.., 60221200 F - PAGE 12 C-~ C ('-- '.' - u o o o (J o o o o o [ o o o o o o o o () PAGE LPI00C .... 0487 0488 ·04813 0490 POOA9 nooo 0491 POOAA 8000 POOAS OCOD 04132 POOAC GROE 0493 POOAD F8BE 04134 POOAE 4800 04Q5 POOAF C80!) 049G PODBO 0111 0497 POOSl C8F7 0498 POOB2 E043 041313 POOB3 OFAG 0500 Pooe4 0171 0501 POOB5 q8AF 0502 POOBG (81)6 0503 POOA7 0644 0504 POOBS 5402 0505 POOB9 1806 -0506 POOBA 0000 0507 POOBB 0000 0508 pooec 0000 0509 POOBD 0000 0510 POOBE 0001l 0511 POOBF 0000 0512 POOCO 0000 0513 POOCl 0844 0514 POOC? 66F9 0515 ponC3 lCE5 0517 0516 0519 0520 0521 0522 0523· 0524 0525 STOP 10 SECERR RETAn ACT EXP ACTl EXP! STOPr,O pone4 POOC5 POOC£) POOC7 PODCS POOC9 0000 COFF 68F9 5603 54-01 lCFA POOCA pooca pooce pooeD POOCE 0531 POOCF 0532 POD DO 0000 CCll 0822 ADOO F80D 0104 F077· 0527 0528 0529 0530 60221200 STOP FOR END OF TEST. END OF SECTION. AND HOST ERRORS IF CORRES RIT I~ SfJ WORD IS SET. NUM 0 ADn =NtOCOO TEST NUMBER STA" ADQ" STQ" LOA" SAN LOA" lOQQLS SQM SUB" STA" ell? ' RTJJHP" NUH NUH NUM NUM NUM NUH NUM CL~ ST~-- JHP-- . .-SMH SHHR F SHHl OATEa 10/20/74 13 10 SEC SECfRR RErAD 1 STOP STJP IOENT WORO SECTION. ERROR CODE (SKIP IF ENT~Y FROM ERROR PREP SUB, ELSE ENTRY FROH SOURCE) 6 1 lA RETAn UNBIAS REPORTED ERROR ADDRESS. RETURN· ADDRESS A (STOPX) STOPGO 0 0 0 0 0 TEST NO.C. NO. OF STOPS, TYPE OF SECTION , ERROR NUMBER RETURN ADDRESS ACTUAL EXPECTED 0 0 A RF.TAD ( STOP) JUMP TO MONITOR, SAVE ($OOFF), PRINTER SHOULD NOT BE BUS RETURN. GET STATUS UPON RETURN. NUM 0 LDAI EXPl SAVE INDEX STA" RTJ-SHHl (CONTROL) LET SHM HUX WHILE CHAN OR EQ BZY RTJ(SHH) RETURN HERE, STAT IN A, WHEN NOT JMP" RETU~N =N$F800 SAZ ADQ- SHHR1----·l CONST+12 00492 00493 00494 00495 00496 004137 00498 004<313 00500 00501 00502 00503 00504 00505 00506 00507 00508 00509 00510 00511 00512 00513 00514 00515 00517 00518 00519 00520 00521 00522 00523 00524 00525 00527 00528 00529 ' 00530 0 CXEQUIP) NU'" LOA-TRA AND 00487 00488 00489 004130 00491 Q IS EQUIP ON A CHANNEL YES CHANGE EQ NO FOR STATUS 00531 00532 PAGE 13 c ~, L PAGE LPI00G 14 DATE. 10/20/74 (' ~ 0533 0534 0535 0536 0537 PODOl POOO2 PO 00,1 POO!)4 POOO5 05~18 POOO~ 0539 0540 0541 0542 0543 POOO7 PO 0 'J.'J POOO9 POOOA 0545 0546 0547 0548 054Q 0550 0551 0552 0553 0554 0555 0556 0557 pooos RTJ· ANO- 5RI0 M6e 0117 5808 A06G 0114 5805 ESE7 40FF 08EF tCEE SP1HRl ANOSAN RTJ· Loa" SHH2 • POODe POODO POODE POOOF POOEO POOEI POOE2 POOE3 POOE4 POOES PO DE:) POOE7 POOES POOCq POOEA POOER POOEC POOEO POOEE POOEF POOFO POOF! • 0000 STAT E400 0006 P XEQUTP 5802 1CFB 0000 STATO 4812 ERU STAT'lA 0205 6807 AiJOO F07F lCF8 lR04 4803 STAT! OC06 1803 0558 055Q 0560 0561 0562 0563 4800 OCOS 0564 0565 0844 056& 6SeG 0567 OA18 01568 POOF~ 58A6 0569 POOFJ 18EF 0570 POOF4 0000 STORAO" JMp· STAT~ • • SElO SEl02 F CHECK CHANNEL BUSY 'SKIP IF BUSY. NO CHECK EQUIP BUSY SKIP OUT IF BUSY. 'RESTORE INDEX GET 'STATUS AND STORE AT ACT. NUM 0 lOQ- (0) ADG RTJ" JMP" EQUIP STATO (STArt NUM 0 STQ" lOO" IN? STA. STATZ STAT2 STAT1-.-1 ACT ANO =N$Fn7F Jt1P" J!1p. STO· .. +ft ENQ JHP" STO" ENQ ell'? 0572 0573 0574 POOFS 0000 0575 POOFG E6FE 0576 POOF7 5802 60221200 SAN RT J. STATO BITI SMH2-·-1 STAT . BITI SMH2-·-1 STAT EXP1 I SMHl (SHMU STAlL. EN./\ RT J. JHp· NUM SAVE ~QUIP ADDR GET STATUS SAVE ACTUAL STATUS DROP BITS 7 AND 9 ... ·ERROR 6 EXTERNAL REJECT OF STATU EXP .··ERROR 5 $5 INTERNAL REJECT OF STAT. A ACT $11\ STOP STATOA 0 0 SELO SELECT C,' 00545 005lt6 005 .. 7 00548 00551 EXP NUM c 00549 $6 ""+'3 lOll· .... ,.,......... 00550 (STATOl SELEGT FUNCTION WITH QO RTJ· DROP BITS 7 AND 9 IF SET. 00533 00534 00535 00536 00537 00538 00539 00540 00541 00542 00543 EQUIP ADDR IS STORED HERE = 1, Q1 = o. 00552 00553 00554 00555 00556 00557 00558 00559 00560 00561 00562 00563 ' 00564 00565 00566 00567 00568 00569 00570 ( '-...- ('" 00572 ' 00573 00574 00575 00576 PAGE 14 c (j o o o o o o o o o c o o o o o o o PAGE L P 100C 0577 POOF8 0000 0579 0580 0581 0582 0583 0584 0586 0587 0586 0569 0590 0591 0533 0594 0595 0596 0597 0598 0599 0600 0601 0602 0603 0605 0606 0607 0608 0609 0610 0611 0612 0613 PO OF'3 POOFA POOF3 POOFC POOF!J POOFE 0000 t.8FA ECFO 5885 FFFIl t67R SELECT ... POOFF POIOO POI0t POI0l OOO!) Sf.Lt E!lFE 58F7 00()2 ... .. P0103 P0104 P0105 POt06 POt07 POt08 POt09 • onoo SEL2 E043 0161 B06F 6C74 7'8FA 16EO ..... ... POIOA P010S P010C POI00 POI0E P010F POl10 0614 POlll 0615 P011Z 0000 ERRl B8At 6891 C8FC 689A BODO 0197 P 0116 t.8AO 60221200 F 15 OATEJ 10/20'74 NUM 0 00577 NUM STn" LOn" RTJ" NUP1 JMP- 0 SELO (SELECT) OUTPUT -$F CHoooo.,a 00579 00580 00581 00582 00583 00584 SEL'=CT FUNCTION WITH QIJ = 1, Q1 Nml 0 SELl LOa" ~TJ" SELECT NUM 2 (US£O TO CALC CODE ON TO SELX CALLER E~ROR) RETU~N = 1. SEtter ALARM INT. SIMULT AN£OUSL Y WITH OTHER FUNC TIONS UNLESS RIT 15 OF THE STOP/JUMP WORD IS SET, IN WHICH CASE THE OTHER FUNCTIONS ARE SELECTED BUT THE ALA~H INTERRUPT IS NOT SELECTED. NUM 0 STOP/JUMP PARAMETER LO'1STJP sap 1 CL£AR ALARM REQUEST CONST+4 EOR(XRFl CLEAR ALARM REQUEST FLAG. STA" Loa· SEL2 SEL02 J"P'" CODE $07, UNEXPECTFO STATUS ACTUAL STATUS, Q= EXPECTED STATUS ERRO~ = A NUM EaR" STA" LOA" STA· EOP SAN STQ" 0 ACT EXP ER~l STOp· =XSEC2ER7 NOTSfC2-.· EXP1 SKIP IF HOT SEC TION 2. OTHERWISE, AOO CURRENT WORD 00586 00587 00588 00589 01)590 00591 00593 00594 00595 00596 00597 005911 00599 00600 00601 00602 00603 00605 00606 00607 00608 00609 00610 00611 00612 . 00613 00614 00615 PAGE 15 C~' c LDtOOC 0616 P0113 POll,. 0617 P011e; 06t8 POtlo 06t9 POU7 0620 POlt8 0621 POI1Q 0622 POtlA '0623 POttO 062,. POlle 0625 POlI0 PI\GE C,.OO 0,.60 P 66Aq CA28 NOTSEC2 tR02 01118 Oe07 188F 0000 LOOP5F LOOPGF 0000 LOOP7F 0000 0627 0628 0629 0630 0631 0632 0633 063,. 0635 0636 0637 0638 POI1E POlIF POt20 POl21 P0122 P0123 P0124 P012e; P0126 P0127 POl28 P012Q 0000 58Aft 8865 0103 E8FB 48E6 18E6 OAI0 5,.06 lCF6 OSF5 lCF,. SU~1t 0640 06,.1 064? 06lt3 P012A P012FJ P012C P0120 0000 OAll 5806 lCFC SF.L21t IF, DATE'I 10/20/7,. LOA .. WOCNT ST~" ACTl $28 ·+2 $18 $7 STOP+1 ENA JHP" ENA END JMP" NUM n ANt) WORD COUNT TO STOP INFO. ERROR CODE 7 NtH'" 0 NliH 0 EO~" 0 SHH NINETEEN SAZ 3 LOQ" SUB11 ERRl ERR1"1 $ln (JUMP) (SUB1!) SUA11 (SUBll) NlJM RTJ" STO· JHP" E'NA RTJJHP" RAO· JHP" NUl-! ENA RTJ" JHP" . RETURN WITH STATUSEXPECT EOP, DATA, REAOY REPORT UNEXPECTED STATUS 9 CODF. 7 CHECK REPEAT CONOITION S/J BIT. NOT SET. . .11111111111111111111111111111111111111111111111111111111111111111111111 S TAT U S C H E S TAT I C SEC T ION 1 • 0649 0650 0651 P012E 58EF 0652 P012F 18FE • SEC! Sr:CTIO~~ RTJ· J~p. 19 LOOP 1 - GET SUR11 SECt c 00617 00618 00619 00620 00621 00622 00623 00624 00625 Otl627 00628 00629 00630 00631 00632 00633 00634 00635 00636 00637 00638 ( '-. .. STATUS~ EXPECT t0019 REPEAT CONDITIONS IF SET (' 00645 006 .. 6 00647 "'" 00649 00650 80651 00652 (' 065,. 0655 0656 P01JO 5~1A 0657 P013t t;8EC 0656 P01~2 t8FO ~ •lOOP12 SECTION 19 LOOP 2 - CLEAR PRINTER, GET STATUS, EXPECT $0019 RTJ. ClRP FUNCTION CLEAR PRINTER. RTJ· SU011 JHp. LOOP12 REPF.AT CONOITIONS IF SET \... 00654 00655 00656 , 00657 00658 .... c 60221200 F ' 00640 006ftl 006 .. 2 00643 0 $11 SEl2 (SEL?l!) .............................................................................. 06lt5 06lt6 0647 00616 . PAGE 16 C' u ~-) LI CJ 0 C) C) 0 0 0 0 rL 0 0 0 0 0 • 0 0 0 0 () LP10ne ·0660 0661 0662 06&3 0664 0665 0667 06&8 066Q 0670 0671 067? 0673 0674 0675 0676 0677 0678 0679 0680 0681 0682 0683 0684 0685 0686 0687 0688 0689 PAGE • P0133 POtl,. POllS POl3& •LOOPt3 C06e 5RCO 58E8 18FC ~TJ" Ft; NUM 0 00691 ClRP NU'i ENA RTJ" JMP" 0 1 SEtO (ClRP) 00693 0069'+ 00695 00696 RTJ+ SUB'+2 NUM JMP" RTJ· ENA RTJJHP· $10 LOOP14 CLRP $10 (JUMP) LOOP14-2 caoc = HOINr: ocnA P014B P014C P0140 P014E 5f\1E 180A 0698 P014F PO 150 06Q9 P0151 0700 PD152 0701 P0153 0702 P015'. 0703 P0155 0704 P0156 0000 0.1101 58A7 lCFC 5400 S14A 0378 P 0010 18£6 5FJF7 St48 DAtO 5406 16EO 60221200 F 00660 00661 00662 01)663 00664 00665 00667 00668 00669 00670 00671 00672 00673 0067'+ 00675 00676 00677 00678 01)679 00680 00681 00682 00683 0068'+ 00685 00686 00687 00686 00689 •. 58B5 5863 CCF9 011C OC08 FR07 ca07 0101 1. LOOP 3 - CLEAR INTFRRUPTS; GET STATUS. EXPECT ~OO19 CLINT SET BIT 1 FOR CLEAR INTE~RUPT SELO SELECT CLEAR INTERRUPT FUNCTION SUB11 LOOPt1 SECTION 1, LOOP 4 - SELECT DATA INTERRUPT, EXPECT INTERRUPT, EXPECT INTERRUPT STATUS $0010. CLEAR INTERR EXPECT STATUS $0019 LoQ~ OIREQ 5TO· FC CL~ A (0) ST4CLEAR OATA INT FLAG. AoC OF ENA $'+ (XRF) STA" FC LOA· SELECT DATA INTERRUPT SELO RT J" SHH IHJ" (XOFl LOA" CHECK DATA INT FLAG. SAN S14A-·-1 OKAY IF INTERRUPT OCCURRED .... CODE 8 NO DATA INTER~UPT. 8 FNO HAYBE CODE 9. LOOP6F ADa" LOOP7F LOA" SAZ 1 $A ENO OR CODE A. ERQX RTJ" JM!"" S148 E060 '+812 0844 LOOPt4 &400 020B P XOF OAO,. S14C 6C3E 06c)1 P014A 0000 0693 0694 0695 0696 LOART J" JHP" ... P0137 P0138 POll9 P013A P013a P013C POl30 P013E P013F P0140 P0141 P0142 P014J P0144 P0145 P014& P0147 P0148 P0149 s~crln~ OATEI 10/20/74 17 CHECK INTERRUPT STATUS EXPECT EOP, DATA, INTRPT, ROY. P+l RETURN REPEAT COND, P+2 IF NOT FUNCTION CLEAR PRINTER~ = CHECK BIT ~ OF S/J WORD REPEAT CONDITIONS IF SET 00696 00699 00700 00701. 00702 00703 0070~ PAGE 17 (-, 1.,....... _ • ,~ , r-' . . . . . . . ,• .,1 Co, ... _/ ~, r "'-_., /~ I , LPI0l)C PAG:;: 18 ~ ~ (' OATn 10/20/74 "-.. ..-' 07(}6 0707 07'18 0709 07tO 0711 0712 0713 0714 0715 0716 0717 0718 0719 .. .. .y. JMP· cu~ A STA" LOClP'7F {t')'J . • P0157 C8C'3 P015~ 0116 POICjQ C8C2 POt5A 011Q POt5~ CACt P01?C OtlC P0150 O~80 P01'7E 180A P015F 0844 potS!) 61\~A LOOP '5 - SELtCT DATA INTERRUPT~ EXPECT INTERRUPT~ EXPECT INTERRUPT STATUS $001D~ CLEAR PRINTE EXPECT STATUS '0019 LOOP'5F CHECK LOOP 5 FLAG Sl'7A-·-1 LOOP6F CHECK LOOP 6 FLAG <;161\-"'-1 LOOP7F CH~CK LOOP 7 FLAG S17'A-·-1 lOOPCjF SET LOOP '5 FLAG GO TO LOOP 4 LOOPi" S~GT LOOP15 1~ llJl\" SAN LOA" SAN LOA" SAN RAO· S154 CLEA~ LOOP 5 FLAG 00706 00707 00708 00709 00710 00711 00712 00713 00714 00715 00716 00717 00718 00719 C [' ' ......... " (' \,~. .,' '---" l'., r 0721 0722 0723 0724 0725 0726 0727 0728 0729 0730 0732 0733 0734 0735 0736 0737 0738 073Q 0740 0741 .. .y. •.y. J~p. LOOP 6 - SELECT DATA INTERRUPT ANO INTER~UPT CLEAR SI~ULTANEOUSLY~ EXPECT INTERRUPT. EXPECT INTERRUPT STATUS $0010. CLEA~ INTERR ExoECT STATUS t001Q SET LOOP 6 FLAG LOOP6F $6 SELECT DATA INT PLUS CLEAR INT. LOOP14-1 CL~ ~. STA" LOOP6F SEGTID~ .. P0161 P0162 P0163 P0164 P0165 0'''8A ne06 If104 LOOPt6 O~44 S16/\ ENO 6886 .y. .y. .y. .y. P01GE) POIG1 P016A POlr,Q P01&A RAn" '" LOOP!7 ORBS OCIJ5 lRCF 0844 6882 SECTI1~ RAfl'" ENO J~P.y. S17A CLR STA" 1~ CLEA~ LOOP 6 FLAG 1. LOOP 7 - SELECT DATA INTERRUPT AND CLEAR PRINTER SIHULTANEOUSLY. EXPECT INTERRUPT. EXPECT INTERRUPT STATUS !ooto. C(EA~ INTERRUPT~ EXPECT STATUS $OO1Q SET LOOP 7 FLAG LOOP7F $5 SELECT O~TA INT PLUS CLR PRNTR. LOOP1"-1 A LOOP7F CLEA~ LOOP 7 FLAG 00721 00722 00723 00724 00725 00726 00727 00726 00729 00730 00732 01)733 00734 0073'5 00736 00737 00738 00739 00740 00741 00743 07 .. 3 ( '- .. ( c, ( \ ........ 60221200 F ' PAGE C: ( ~.J : ,....._.", l) 0 u .,~ (J Pt\GE LPI00C 0 0 07fJ4 01fJ5 074n·P01GB 0747 P01GC 07fJ6 P0161 0749 P016E P016F 0150 POI10 0751 P017! 0752 P0172 0753 P0173 P0114 0754 P0175 0755 P017G 0756 P0117 0751 P0171J () ,r-"\ ~I (~' ~) • SfCTrO~ 9- OA06 f)COF COGE 5800 FF85 56AO lOOP18 OBOO 01\44 6800 0503 5IJ05 OAI0 5406 18F2 ENA STA" LOARTJ lq OATt1 10/20114 1, LOOP 6 - SELECT EOP INTERRUPT, EXPECT NO INTERRUPT, EXPECT STATUS $0019, $8 (X?F) EI)PREQ SELO RTJ" NOP SUB11 CL~ STA A INTF RTJ" ENA RTJJMP" CLRP '310 (JUMP) LOOP18 SELECT EOP INTERRUPT 011744 00745 00146 0111,.7 00746 00149 00750 00151 00752 00153 0 FUNCTION CL1:AR. CHECK BIT,. OF S/J WORD RfP£AT CONDITIONS IF SET 0015fJ 00155 00156 00151 ,---..., I 0759 0760 0761 0762 0763 0764 0765 0766 "-../ ,.~~~ ) ( ''--'' 0767 0768 0769 0170 u 0771 0 ... " P0179 OAI0 LOOP19 P017A 6fJOO P0178 074F P XRF P017G G06F P0170 5800 P017E FF76 Pf)17F 589E P0180 oeoo P0181···58G9 P0182 5400 P0163 0060 P P018418F4 0773 P0185 0019 SECTION 1, lOOP 9 - SELECT ALARM INTERRUPT, EXPECT NO INTERRUPT EXPECT STATUS $0019 ENA $10 (0) STARF AOC LOAAlIREQ PTJ SELO SELECT ALARM INTERRUPT 00159 00760 00761 00762 00163 0076,. 00765 00166 RTJ" NOP RTJ" RTJ+ SUB11 0 ClRP REPCON FUNCTION CLEAR. END SECTION. 00167 00768 00169 00710 JHp· LOOP19 RETURN FOR CONDITION REPEAT. 00111 !lCJ STATUS HASK NINETEEN NUM = EOP, DATA, READY. 00173 c) .Cl 0 0 C) 0 "...... ( '- \ t 60221200 F PAGE 1CJ ~--" I \"" (--~ 'I....... ,~".1 r \ ---. "- (_.,. \..." (' ' .... _- . LP100C PAGf OATE! 10/20'74 20 (~ "'-. 0775 POt86 0000 ERP.X 077& POt87 CaFE 0777 POles 6400 P0189 0200 r 0778 P01SA 0.11.18 ····0779 P018S 1400 P018C 020E P NUH LOA" STAt- 0 fRRX fRRSUB 00775 00776 00777 EN~ r.1B JHP+ ER~SUB+l 00778 00779 .~ ( ' ....... ... _, (' "'-. .. -' ~-'" .............................................................................. 0781 0782 0783 0785 , .0786 078'7 0788 '-0789 0790 0791 07c}2 0793 0794 0795 8 1- 1_ ... t • SEC T ION 2 0 A T A T RAN S FER ·2222222222?22?222222?2?222222222222222222222222222222222222222222222222 . '.... ... SECl 0644 6ClS' c)21AA 5800 FF32 BSFl 0104 E805 5400 otOA P 181E SEC2E~7 COOO 2020 WORD 0500 5400 58BO 00781 00782 00783 ~'-1 SECT'ION 2, LOOP lA,' •.. P0180P018E P018F P0190, P0191 079& P0192 07c}7 P0193 07QS POl~4 0799 POl95 P019Ei 0800 P0197 0801 P0198 0802 P0199 0803 P019A 0804 P019B P019C 0805 P0190 P019E 0806 P019F 0807 P01AO POtAl 0808 P01A2 0809 P01A3 0810 POtA4 P01A5 0811 P01A6 0812 P01A7 . ·0813 POtA8 P01A9 0614 POlAA 1 RTJ· CLR RTJ CLRP A' (XWOCNTl SHH fOR· SAZ WO~O-"-? Sf"· LOO· RT J+ CLEAR PRINTER, GET STATUS, EXPEC OUTPUT A WORD, GET STATUS AGAIN, !0019, CONTINUE FOR 68 WORDS, GE EXPECT $0011, ATTEMPT OUTPUTTING WORD, EXPEC T EXTERNAL REJECT CLEAR PRINTER. INITIALIZE WORD COUNT. NtNETEFt.I WORD ERR1 ••• ERROR 7 = UNEXPECTED STATUS. S21AC \ 00785 00736 011787 00788 00789 00790 00791 00792 00793 00794 00795 /( \. ( 00796 00797 00798 00799 JHP· LOANUH lIN RTJ+ $2020 0 SOATA RTJ STAT EIN STA 0 ACT RTJ· JMp· RJ J CHKCNT S21AA SMM CHECK OUTPUT COUNT LOOP FOR 136 PRINT CHARACTERS. 00808 00809 00810 EOR" SAZ . ·RTJ ELEVEN 3 ERRl EXPECT NO DATA STATUS 00811 . 00812 00813 INHIBIT INTERRUPTS (SINGLE WORD OUTPUT) r ( 00800 00801 00802 00803 00804 D '- '-, OO7C) P 5800 FF30 0400 6800 FF1B 5846 18EC 5600 FF1E 9837 S21AB 0103 5600 FF60 160S' 60221200 F JMP· S21AC 00805 FNAqlE INTERRUPTS 00806 00807 ' ERROR CODE 7,UNEXPECTED STATUS (' \ ....... - 00814 PAGE 20 (-~' ,. ( ! ----./ o o o o o o c o o o '· 0 ", o o o o o LPI03C 0815 POtAB P01AC 0816 POtAO 0817 POtAE 0618 P01AF 0819 POtao 0820 POtRl P01B2 0821 POtB3 0822 POtA'.. 0823 PotR5 0824 POtBo 0825 POt87 0626 POIR6 0827 P01S9 0828 POtSA POIB9 0829 POIRC 0830 POt80 0831 P01B5: 0832 POtBF 0633 PO tC,) 0834 P01Ct PAGt" E400 0328 ? coon IHO 2020 0305 SZtE~ OC11 5400 02EE P 1802 16FR OAtO S2UC 540& 1305 C8EO -'lSSC EOOD 0646 0847 0848 0849 0850 faIO 00815 LOANU'" OUT ENQ PTJ" n $2020 S21AC-"-1 $11 ERSUR2 0081& 00817 00818 00819 00820 JMP" JMP" ENA RTJJMP" LO~" AOO" LOQ .... 2 S21ER $10 (JUHP) SEC2 HORO HOINC =N$6060' .... CODE 11 = NO EXT REJ OF DATA 00821 00822 00823 00824 00825 0082& 00827 00826 RFP£AT CONDITIONS 6060 EAQ' STA" SQZ JriP" F.8EO lfJ~" nm 4807 STO" WORD • '" .'" POtC2 P01C3 POtC4 POles POICI) P01C7 POtC8 POICQ P01CA P01CS P01CC POlCI) P01CE P01CF P0100 POIOl P0102 LOQ .. 0872 6808 0141 18CO 0836 0637 0638 0839 0840 0841 0842 0843 0844 0645 OATEI t0/20'74 21 0844 LOOP21 0400 01t&0 P xwnCNT 5885 Of144 LP21A 6800 0113 OA046eeo 5600 FF28 5800 FEF5 CRoa 010H 0113 0851 Dcoe 0852 0853 P01~)3 56B2 0854 P0104 180!) 0855 POI05 C908 085& P0100 5400' P0107 0079 P 60221200 F 00829 00830 00831 00832 00833 00834 Q HORD 1 SE:C2 NEXT CHARACTER SC:GTION 2. LOOP 1, SELECT CLEAR PRINTER AND DATA IN EXPECT 68 DATA INTERRUPTS, GET S EXPECT $0011 00836 00837 00838 00839 00840 00841 00842 00843 00844 011845 CL~ A STAAOC RTJ'" CLP STA ( 0) WOCNT CLP.P ENA STAVo RTJ ~4 CXP.F. SELO RTJ 5HM 00849 LtJA TJF 00850 SAN FNQ RTJVo JMP" LOAVo RTJ" 3 $8 CLEAR PRINTER. A OF SELECT DATA INTERRUPT ..... ERROR B ERRX 5218 IWO SOATA (=$2020. = NO DATA INTERRUPT 00846 00847 00848 00851 00852 00853 00854 00855 00856 . PAGE 21 r· \'-. (--' "'- .. ' (-~' (~ \"--" I> (. '-... PAG:: LP100C 0857 P0108 5810 085R POlfJ9 18f.C 0859 P010A 5~OO POlns FE€8 ORGO POlnr. 0000 0861 POI00 0011 08&2 POI0E 0102 06&3 rOtOF ~800 P01EO FF29 0854 POtEl 01'110 0865 P01F.? 540& 086& POtS3 l'lDE 0867 P01E4 COOO 0868 P01E5 on no 06&9 POIEI) !JU9 0670 P01E7 V\C;F 0672 . 0873 0874 0675 087& ·0877 087'3 0879 P01ER P011:9 P01EA POtEB POlfe POlED P01EE POIEF S?lA f.LEVF.N CHKCNT LP?1A EORNmt SA? RTJ 0 E.NA CHAN PTJJMP· LOANUM 0111 08F9 lCF8 ~OO11 EXPECT NO DATA STATUS 2 ERR1 ERRO~ $10 (JUMP' LOOP2l NUH PAl)" RT J", 0 eXHOCNTl Ct.lT TGQ A AD!)" SAN (XHOCNTl 1 CHI1)400 110'.) P02C7 (1186 P XfR9X 1106 P02CS 1ROF 1107 P02GQ OAI0 1106 P02GA 6800 P02CA D4g4 1109 P02CC 5800 P02CD FE?7 1110 PO?CF 01\00 1111 P02CF 5800 PO~DO 1112 1113 1114 1115 SEr.TION2, LOOP 7, GLo STAlf. STA'" STA A OF AF 4 RF fN~, 60221200 p F XSUB!t.? CLEAR DATA INTERRUPT FLAG CLEAR ALARM INTERRUPT FLAG SELECT DATA INTERRUPT 01088 01089 01090 010g1 01092 01093 01094 01095 01096 01097 EN~ $F RTJ SELO 01098 01099 RTJ SH~ 01100 LO"· OF SAN 3 EN!) RTJAOC Jf'o!p" ENA STA $8 S27C $10 RF 01101 01102 01103 01104 01105 01106 01107 01108 RT.J SELO ENA 0 DATA OUTPUT ILLEGAL CHARACTEP. 01110 01111 ..... 01112 01113 01114 01115 P.TJ = NO DATA INTERRUPT ER~X LflA" AF £NQ $C RT J- . ( 0) SUJ342 AfJC .... ERROR 8 (0 ) F!JC~ POlOl C80B ?0202 ocor. P1l20l 5400 P0204 '137'3 SELEr.T 80TH CLEARS AND ALL INTER SIMUL TA NEOUSL Y, EXPECT OATA INTE OUTPUT ILLEGAL CHARACTER, EXPECT INTERRUPT, EXPECT INTERRUPT STAT SELECT ALARH INTERRUPT 0110g ERROR C = NO ALARM INTERRUPT PAGE 27 I " LPI00C P020r; P0206 P02!)7 PO?08 P020Q 1120 P020A 1121 PU20S 1122 P020C 1116 1117 1116 1119 1124 1125 ·1126 1127 ·1128 1129 - ·····1130 1131 1132 1133 1134 1135 ~,) 1136 1138 1139 1140 1141 1142 1143 1144 P020n P020E P020F' P02EO P02El P02E2 P02E3 PO?EIt P02E5 P02F'6 P02E7 P02E8 P02E9 P02EA P02ES P02EC P02EO PAGF. 0030 DADO 5CC5 S?7C 541]0 0060 P 1600 0000 OF AF' 0000 0000 ERRSUA t180R 480F 5400 oonc DATF.' 10/20/74 ?8 NUM NOP RTJ" PTJ+ $30 0 (XCLRPt REPCON CLEAR PRINTER. END SECTION. JMp· NUt1 LOOP27 RETURN FOR CONDITION REPEAT. NUt.f 0 NU.., STA" STQ· RTJ+ STPCNT EP-SUfl2 STAT 01124 01125 01126 01127 STA+ ERRSUB RETAO 01128 01129 CLR STA+ A EXP 01130 01131 LOANUM 0 RTJ+ 0 ERSUA2 STOP 01132 01133 01134 01135 JMP. (t:RRSUo) 01136 01138 01139 01140 011 .. 1 011.. 2 01143 01144 0 0 p C8FA 6400 ES2 ooae P OR44 6'+00 DOSE P COOO 0000 STPCNT F804 5400 OOA9 P leEF P02EE P02EF P02FO P02Fl 0000 OA18 68F8 C8FC P02F~ 66EA P02F3 48FA P02F4 18EE ERSUB2 01116 01117 01118 01119 LOA" lOQ· NU~ 0 ENA STI\· ~18 U).~· ERSUB2 €RRSUB ST~CNT STA" 5TQ" JHp· E~SUB2 (TEHP STORAGE) ES2 01120 01121 01122 (.'......_- i SUB31 1146 P02F5 0000 1147 P02F6 5400 POlF7 06C2 P 1148 P02F8 5400 ···P02F9 012A P 1149P02FA C400 P02FB 0018 P. U:5'!t~ P B2 m··· {l-1 03 1151 P02FO 0844 1152 P02FE 5400 P02FF 0079 p. NUM RT J+ SPACEL RTJ+ SEL211 0 LOA+ . ·SAZ eLP RTJ+ FUNCTION LINE SPACE. FCN CLR, AlRH INT IFS/J WORD POSITIVE. tPTYPE ,.' ...-, c. 01148 011 .. 9. 3 A SOATA 01146 01147 OUTPUT CONTROL CHARACTER. (' '·01150 01151 01152 " (' \ ... 60221200 F PAGE 26 C' ~, ~ (' o o o o o o o o LPI00C 1153 P0300 POJOI 1154-P0302 PO:103 1155 P0304 POl OS 1156 P0301) P0307 -- 1157-.$>0308 1158 P010q 11S9 POlOA 1150 P030S () 1'......../ o _. COOO 2021 R.OATA 5400 n09E P 8000 0202 EOOO 6061 0812·0141 18F7 lCE9 o o o o o o o 29 OATEI 10/20/74 LOA =Nt2021 01153 RTJ+ DATA 01154 ADO =N~0202 01155 LOO =N$60Gl 01156 EAQ SQZ JHp· JHp· Q 1 ROATA (SUB31J 01157 01158 01159 01160 1162 1163 1164 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 1166 1167 1168 1169 1170 1171 1172 • • • SEC] ·J3331333J1J1J3133J1J33~J333lJ3l333333JJJJ333333J33333333333333333333333 • P030C POlon P030E P030F 'iRE8 SC06 5C66 18FC o o PAGE' 1174 1175 1176 POJ10 PO 31-1 1177 P0312 _ 1176 P!l313 1179 P0314 POllS 1180 P0310 1161 POl17 1162 POl18 1183 P0319 1184 POllA 1185 P031B 1186-P031C POlI0 1187 POll!:: -- 1188P031F 1189 P03Z0 • •LOOPJ2 5800 FFEJ 5400 0568 P XPRINT F800 FCFO 532A COGC 0302 1804 OBOO OCIS S32ER 51\02 5800 S328 FOA6 OAI0 -5406 18EF 60221200. -- F-- SECTION 3 PRINT- - 01162 01163 01164 SEcrI,)"! 3~ LOOP 1 CLEAR PRINTER, PRINT ALL CHARACTERS, WAIT NOT BUSY, GET STATUS, EXPECT $0019 RTJ· SUS31 (XPRINTl RTJ· PRINT ALL CHARACTERS. USUSIU CHECK FOR UNEXPECTEO STATUS. lHJ· JHP· SEC3 REPEAT CONDITIONS 01166 01167 01168 01169 01170 01171 01172 SECTION 3, LOOP 2, CLEAR PRINTER, PRINT ALL CHARACTERS, RTJ SUB31 SPACE AND GNERATE DATA 01174 01175 01176 J RTJADC LDQ LOA~ OUT JHp· NOP ENQ RT J. RTJ ENA RT ..1JHp· (0) FUNCTION PRINT. PRINT EQUIP CLINT S32ER-·-l S3?B C $18 ERSUB2 S"H ••• ERROR 18 S10 (JUHP) lOOP~2 REPEAT CONDITIONS 01177 01178 01179 01180 01181 01182 01183 01184 01185 01186 01187 01188 01189 - PAGE 29 ( C~ LP10nc PAGF ... 1191 1192 .. l.r:f.' 119ft. 1195 P0321 . ·119&P0322 11q7 P0323 P032ft. "--·---1.1Q8 P0325 1199 P0326 P0327 1200 P0328 P0329 1201 POl2A 1202 P032S 1203 P032C 1204 PO,320 1205 P032£ 1206 P032F P0330 . 1207 POJ31 P0332 1208 P0333 P0334 1209 P0335 P0336 1210 P03l7 1211 POll6 1212 P033Q POllA 1213 POl3S 1214 P033C POllO 1215 POl3E POl3F . 1216 PO 340 1217 P034! 1218 POl4Z 1219 P0341 ;.--. "'--1221-1222 1223 -122ft 1225 POl44 1226 P0345 ··1227 P0346 P0347 1228 P0348 SEr.TION 5603 LOOP33 5eFO 5800 F09F 08"" 6800 0139 COOO S338 2020 fOOO 0000 EOIO 0302 t80F 0900 5400 021C P CltOO 0460 P 6ft. 0 0 OOBF P 4400 RTJ" RTJ· RTJ OA2S OCtlt 5400 0200 P 1806 S33A 5800 FOA6 5400 01E8 P 18E7 OAI0 S33C 5406 1800 ooeo p .... • • 58BO lOOP34 OAIA 5400 0103 P 0842' 31) 3~ c c-: c' c nATEI 10/20'74 LOOP 3, CLEAR PRINTER, PRINT ALL CHARACTERS~ WAIT NOT 8USY~ ATTEMPT OUTPUTTING 68 W~OS~ EXPECT NO EXTERNAL REJECT SUB31 ()(PRtNTl PRINT. SMH 01191 01192 01193 01194 01195 01196 01197 CLR STA ~ LOA =N!i2020 01200 LOQNU'" 0 WOCNT CLEAR WORD. COUNT - ( '---~. C 01198 01199 (~ \ '-. ../ OUT JMP" NOP RTJ+ CNT 01201 01202 01203 01204 01205 01206 LOA+ WOCNT 01207 STA+ ACTI 01208 STo.+ EXPI 01209 ENA ENo. RTJ+ $26 $14 ERRSUB 01210 01211 01212 JMP" RTJ S33C SMH 01213 0121 .. RTJ+ CH~CNT 01215 " J"P" ENA RTJJHP· S338 $10 (JUHP) lOOP33 01216 01217 01218 01219 (~' 0 2 S33A 0 LOOP FOR 136 PRINT CHARACTERS. REPEAT CONDITIONS ( \..... .... (~ (" \. (" C RTJ· ENA RTJ+ . lOOP 4, CLEAR PRINTER AND SELECT EOP INTERRUPT~ PRINT ALL CHARACTERS, EXPECT INTERRUPT, EXPECT INTERRUPT STATUS $0010 SU831 $lA SEl2 01221 01222 01223 01224· 01225, 01226 01227 ClR Q 01228 SEr,TION 3~ C ("" 1,,,-_- ~.' 60221200 f:' ' PAGE 30 C C· (' u o o o o o o o o c o o o o o o o o n PAG~ LPI00C 122<3 P034<3 P034A 1230 P034lJ 1231 P034C P0340 1232 P034E P034F 1233 POl5!) 1234- POl51 1235 P0352 1236 P0353 4800 0404 5CC7 '5800 F076 CaOD 03FF OeOD 562A 0010 16FO • • • • LOOP3; RTJ· RT J (XPIUNTl SHH LOA EF E'NQ $0 SUB42 $10 LOOP34 • F 0122<3 PRINT ... 01230 01231 01232 ••• ERRO~ 0 = NO EOP INTERRUPT REPEAT CONDITIONS SECTIJN 3, LOOP 5, CLEAR PRINTER, INITIATE PRINT OPERATION, SELECT DATA INT. AND CLEAR INTERRUPT, EXPECT DATA INTERRUPT, EXPECT INTERRUPT STATUS $0010 RTJ. SUB31 OF CLEAR OATA INTERRUPT FLAG STD. 01233 01234 01235 01236 01238 0123<3 012 .. 0 012"1 012"2 01243 RTJ· ENA RTJ (xPRINTI PRINT. $16 SEL2 00 NOT SELECT ALAR" INT. IF S,J WORD IS MINUS 012"" 012"5 012 .. 6 RLI SHM 012 .. 1 LOA OF END RTJ· tE NU~ •. • • 60221201) EF JH!H. 1254 1255 1256 1257 1256 125<3 P0363 SC17 LOOP36 1260 P0364 5C6C 1261 P0365 e400 PO;J66 00l!J p 1262 P0367 0101 1263 P0368 1ROll 1264 P0369 5~OO P036A F033 DATEI 10/20'74 STQ RTJ· NUH JMp· 1238 123<3 1240 1241 1242 POl54 58AO 1243 P03,); 4800 P0356 FF84 1244 P0357 5CBa 1245 P0358 OA16 1246 P035<3 5600 P035A FOA8 1247 P03S3 5~OO P035C F067 1248 POl50 caoo P035E FF7C 124<3 P035!=' OCOE 1250 P0360 5818 1251 P0361 0010 1252 PI)362 18F1 31 012"8 ••• ERROR E = NO DATA INTERRUPT SUBlt2 S1P LOOP~5 SECTION 3, LOOP 6 OUTPUT ILLEGAL CHARACTER, EXPECT STATUS, PRINT, NAIT NOT BUSY, EX ALARH STATUS RT J. RT J. LOA. (xSPACELJ (yCL RP) LPTYPE FUNCTION LINE SPACE. CLEAR PRINTE~. SAZ JHP· RTJ 1 XSUB11-1 DATA 0124<3 01250 01251 01252 01254 01255 01256 01257 01258 01259 01260 01261 01262 01263 01264 PAGE 31 ( c c c PAG~ Lf>100C 1265 P03GO 51\00 32 DATE1 10/20/14 RTJ SMM EOR ;N~OO39 EXPECT-ALARM STATUS 01266 SAZ RTJ 2 ERR1 ERROR CODE 7, UNEXPECTED STATUS 012&1 01268 RTJ" RT JAOC NOP PRINT. RT J+ (XPRINTJ (,0) SUB1t 0 (yCLRP) REPCON CLEAR PRINTER. END SECTION. 01269 01270 01271 01272 01273 01274 JMP" LOOP36 RETURN FOR CONDITION REPEAT. 01275 AGC SPACEL 012&5 PO:U,r, f'nSl 1266 P03!;D P036E 1267 P036F 1268 P0370 P0371 1269 P0372 1270 POJ13 1271 P0374 1272 P0375 1273 P0376 1274 P0377 P0376 1'275 P0379 BODO 0039 0102 51\00 F098 5CAO 5400 011E P XSUBl1 0800 C;C5A 5400 005t) P 18F.Q 1277 P037A 06C2 P XSPACEL 1279 POl78 0000 '1260 P037C OUC 1281 P0370 COOO P037E 0396 1282 P037F 6400 PO.J80 0200 1283 P038'! 4400 P03S? 02EE 1284 POl83 OAt8 1?8'3 POJS4 6400 POJ65 02E9 1286 POlS6 C8Flt 1287 P0387 1400 POJ88 02E'] 1288 P0369 C4'OO P03flA 0740 , 1289 P038'3 6400 PUlSC ooao 1290 P0380 AOOO P038E F07F 1291 P03'SF BCES 1292 P03QO Ot05 1293 P03Ql E8E9 1294 P0392 4400 P0393 010A - ,-,,1295 P0394 1400 P0395 0108 1296 P0396 08E4 '1297,P0397 OAI0 12q8 'P039!3 5406 1299 PO.199 lCEl 1300 POl9A D8F:0 1301 P039a lCDF 60221200 SUB42 RTJ" c 01277 NUM 0 S~N LOA SUAft2A-"-1 =XENOSft2 STA+ ERR SUB 01282 STQ+ ERSUB2 01283 ENA STA+ $18 STPCNT 01284 01285 LOA" JMP+ SUB42 ES2 01286 01287 lOA+ INtSTAT 01288 STA+ ACT 01289 AN1 =N~F01F EOR" STI'). (SUB42) ENOS42-·-1 SUA42 ERR.1 JMP+ ERP1+1 01295 RAO'" ENA SUR42 t10 (JUMP) (SU842) SU9r.2 (SU842) 01296 01297 ' 01298 . 01299 01300 01301 SKIP IF NO ERROR, 01279 01280 01281 P P P ( P P SUB42A P P SAZ LOQ" DROP aITS 7 AND 9 01290 REPORT UNEXPECTED STATUS, CODE 1 01291 01292 01293 01294 c c P P £NOS42 RTJJMP" ~AO'" JMP" F CHECK S/J REPEAT CONDITION 9IT. NOT SET. PAGE 32 c c o o o o. o o o LP10De 1307 1308 1309 1310 1311 1312 1313 o o 0 () SfC4 E~A $11 ~TJ. SUB41 (XSUB1 U SEC4 C;CO; RT J. J"IP" t8FC 131; 1316 • 1311 1318 LOOP42 1319 POlAO OR44 1320 PO 3Al 6400 P03A2 074E P 1321 P03A] OA19 1322 P03A4 5650 1323 P03AS 5800 P03A6 FU10 1324 POlA7 CHOO POJA8 031\6 1325 POJA9 aeOD 1326 P01AA 5ROO 1321 P03AS 0010 1326 PfJ3AC 16F3 1330 1331 1332 1333 1334 1335 13.36 0 0 01\11 5864 SECTION • o 0 ·444444444444444~44444444444444444444444444444~44444444~444444~4444444 . 0··· I 1331 1336 1339 i 1340 1341 1342 .•.. P03AO P03AE P03AF P03BO POJAt P03A2 POlB] POJS4 POJa5 P01B6 P03B7 P03BR o ATE' 10/20114 .... .. [ 0 POl9C P0390 POl9E P039F 33 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• .. S f. C T ION 4 0 PER A T ION S 1303 1304 ·1305 . o 0 PAGE OA11 5853 OAOl E800 Fe54 0301 0900 5800 FOOE OAI0 5406 18F4 LOOP43 4~LOOP 1 CLEAR PRINTER, SINGLE SPACE, GET EXPf..:CT $OU19 01303 01304 01305 01307 01306 01309 01310 01311 01312 01313 CL !? STA+ A EF 01315 01316 01311 01318 01319 01320 ENA RTJ· RTJ $19 SUfJ41 SHH 01321 01322 01123 LOA EF 01324 ENO RTJ" NUM !fl SUB42 JHp· LOOP42 sterI'JN 4, LOOP 2 ENA .... ERRO~ 0 = NO EOP INTERRUPT ~1fl SF.CTIDN 4, LOOP 3 RTJ" ENA LflQ CLEAR PRINTER, SELECT EOP INTERR SPACE, EXPECT !NTER~UPT WITH STA $OOlfl $.11 SU041 1 EQUIP CLEAR PRINTER, SPACE, SELECT CLE TER~ EXPECT EXTERNAL REJECT 01325 01326 01327 01328 01330 01331 01332 01333 01334 01335 01336 OUT NOP RTJ 1 SHM 01337 01338 01339 ENA IHJJHP· $10 (JUHP) LOOP43 013ftO 01341 01342 0 !. I 60221200 F PAGE 33 / ' \, ",-----..... ~-, /"-, I \..... (' \... " (' .'-. LP100C PAGE 34 C •.. . LOOP44 ~ C. . ·1344 1345 1346 1347 1346 P03fH OA11 1349 P038A 5847 1350 P03AB 0844 13;1 P03BC 6800 POlBO FF10 1352 P03BE COGO 1353 P03BF 6800 P03CO OJ8F 1354 P03Cl 5~OO P03C? FO~J2 1355 P03C] 5800 P03C4 FCFF 1356 POles ceoo P03C£, 0381 1357 P03C7 OCOE 1358 POlca 5882 1359 P03C9 0010 1360 P03CA 18EE , SECTrO~ 4, LOOP 4 CLEAR PRINTER, SPACE, SELECT OAT UPT EXPECT INTERRUPT WITH STATUS ~0010 0134 .. 01345 01346 01347 01348 01349 01350 01351 FNA P.TJ· ClR STA $11 SUB41 LOASTA OIt;lEO RF 01352 01353 RTJ SELO 01354 RT J SHH 01355 LOA INTF 01356 ENQ RTJ· NUM JHP" $E SUB42 $10 LOOP"" A OF CLEAR DATA INTERRUPT FLAG • .... ·ERROR E = NO DATA INTERRUPT Ir-'" 'I, ....... ,., (" "... " " ("' ,--" . r-'-- 01357 01358 01359 01360 \.. ( ;;:'1 1362 1363 1364 1365 136? 1367 . , .... 1368 1369 1370 .... ··--1371 1372 1373 POlCS poacc 1374 P03CO 1375 P03CE 1376 POJer 1377 P0300 1378 P0301 1379 POJ02 POJOJ 1380 P0304 POlD5 ... • • •.. SEr.TTON 4, LOOP 5 .. ... .... •.. CROO LOOP4S FC4S 0101 1830 5400 014B P YCLRP 0844 6800 0374 6800 FF05· CLEAR PRINTER, SPACE, SELECT DATA, EOP, ALARM INTS, EX DATA INTERRUPT WITH STATUS $0010 INTERRUPTS AND SELECT EOPANO AL ERRUPTS, OUTPUT ILLEGAL CHARACTE EXP£CT ALAR" INTERRUPT WITH STAT t003D, SELECT END OF OP INTERRUPT, EXPECT EOP INT •. WtTH $0030 LOA LPTYPE . SAZ RTJADC Clf<' STA 1 S45B+1 (0) CLRP A INTF Sfll OF J~P" SKIP IF 1742. CLEAR QATA INTERRUPT FLAG ( , ' 01362 01363 01364 01365 01366 01367 01368 01369 01370 01371 01372 01373 ,~ . (\'-- . (' ('~' 01374 01375 ·01376 01377 01378 01379 (" "-." 01380 (' '- -60221200 F . PAGE 3 .. C C~· r- ...... ( o C"", .j C) C) o o o o l LPI00C PA~t: 1381 P0306 6800 P0307 0377 1382 POlO8 6400 P0309 020e p 1383 P030A 5C9F _. ·1384 POloa DAIC 1385 P030C 6800 P030n 0372 1366 POlOE OAOE 1387 P030F 5800 P03EO FOI4 1368 PO 3El 5600 P03E2 FCEl 1389 POlE3 r600 P03E4 FEF6 13CJO POlE5 OCOE 1391 P03E6 . 5894 1392 POlE7 0010 13<)3 P03E8 01300 1394 P03E9 OA10 . 13<)5 P03EA 6800 P03ER 0364 13<)6 P03EC 5800 POlED FOO7 13<)7 POlEE OAOO 1398 POlEF 5800 . P03FO FCAO 1399 P03Fl C800 POlF2 FEE9 1400 POlF3 OCOC IItOl POlflt 5886 1402 P03F5.0.030 1403 P03F6 OROO 1404 POlF7 C800 S45A POlF6 Ol56 1405 P03F9 DCOD 1406 P03FA 5880 1407 P03FB 0030 ·1408 P03fC 01300 1409 P03FO '5C02 S458 Iltl0P03FE 5400 _ ...___ .__ .. P-03FF 006D.P. Ilt11 P0400 18CA L o o o o o ...__ .- .-- o o ~"' - .... ~ EF CLEAR EOP I NTERRUPT FLAG 01381 STH AF CLEAR ALAR" INTERRUPT FLAG. 01382 ~TJ· (XSPACEU SlC RF FUNCTION LINE SPACE. ENA STA 01383 01384 01385 ENA RTJ SE SELO RTJ SHH OF ENQ $E SUB42 S10 0103 P 5COD FF74 1CFA .... 01389 ERROR E NO OATA INTERRUPT 01390 01391 01392 01393 01394 01395 RTJ· NUH' NOP EtiA STA $10 RF RTJ SELO ENA RTJ 0 OATA LOA AF 01399 ENQ RTJ· NUH NOP LOA $C SUB42 $30 01400 01401 01402 01403 01404 0 SELECT ALARM INTERRUPT 01396 OUT~UT ILLEGAL CHARACTER. 0 EF.- = NO 01397 01398 ENQ RTJ· NU'1 NOP PTJ· RT J+ $0 ••• ERROR 0 SUB42 $30 0 (yCLRD) REPCON ENd SECTION. 01405 01406 01407 01408 01409 01410 JMp· LOOP45 RETURN FOR CONDITION REPEAT. 01411 NUH RT J+ t;400 01388 LnA . .-. SUB41 01386 01387 ........ ... 0000 OATE1 10/20'74 STA .,.- 1413 P040l 1411t P0402 .... P0403 1415P0404 P0405 1416. PD406 RTJ .~. -. 0 SEL2 ( XSPACELJ JMP· EOP INTERRUPT .... (SUB,.l) (ALARM INT NOT SELECTED IF S,J BIT 15 IS SET 1 FUNCTION LINE SPACE 01lt13 01414 01415 01416 I !i 1- . .I.. L .• _._. C) C) 35 _0 . • ___ . •••• _ • __••••• _ 60221200 F PAGE 35 f". ~ PAGE LPI00C CHAP-CHK Ilt18 P0401 0000 i~.i; ru';uQ EQUG ----1lf2-0POlf09 0882 Ilt21 POItOA FOOO P040'1 qFFF - .. _. I1t22· P040e 0171 11t23 P0400 B07Q Ilt21t P040E EOSl --'----1425 POlfOF 0882 Ilt26 P0410 009F IIt27'POltll 0171 1428 P0412 R071 Ilt29 P0413 tCF3 I" VU LAQ AO'l ~!~!~ Q =N-$6000 01lt20 01421 • CHECK LIMITS OF UPPER CHARACTER, RESET TO $2X IF $6X. ' 1 BIT1 .. HOOFF Q INQ -$60 SQH 1 EORJHP'" CHECK LIMIT·S OF BIT6 lo.WE~ CHARACTER. . (CHARCHK) S EC T ION 5 RIP P L E T EST ·555555555559555555555555555555555555,55555555555555555555555555555555555 P041'. CO 00 POlt15 2021' P0416 S61F POlt17 081t2 P0418 1t0FF POlt19 C82B P041A 58EC P041B 5400 POltlC 009E P 141t2 POltl0 DOFF ·11tCt3P041E 8000 Ilt41t P041F 0202 . 1445 P0420 _E,OFF .. 1"446 P0421 OOBB 141t7 P04?2 0141 14 .. 8 PO .. 23 18F6 1449 P04Z'. 5830 1450 P0425 18Fl 1451 PO,"26 5817 -----1452 PO .. 27 081£ 1453 PO .. '28 C810 1 .. 51t POlt29 09C5 --.- --1455P042A 0102· Ilt56 P042B 09C5 1457 POlt2C 0111 ! :",-,-,,-,1458' P0420 ·1800 11t59 P042E 0905 1460 P042F 0101 '; '--,- 1461· POlt30 18E6 , 11t62 PO .. 31 5800 PO .. 32 FC91 :"·----.. 1463 POCt33-1-800 "" POlt34 FCJC 11t34 . -"-1435 Ilt36 11t37 1438 1439 11t1t0 . Ilt1t1 - ··60221200 011t18 LU"C- • F SEC5 S2021 S51 S52 S202 S51t lOANUM RTJ" CLR STQLOA· RTJ· RT J+ a DATA SQZ S5~-·-1 JHp· RTJ· S52 SUB71 JH~ S51 . SAZ INA SAN CHECK CHARACTER LIMITS. CHARACTERS TO PRINT 8FR. OUT~UT 01422 01lt23 01424 01425 01426 01lt27 01428 01429 01431 ' 01 ..32 011t3 .. 01435 01 ..36 01437 01438 01439 014.. 0 01 ..41 /1'" -6~' RAO· . LOA" INA CLEAR PRINTER, SEL ALARH, FORHAT. I CHAR CHARCHK RAOADONUM LOQINQ RTJ· S55 S57 o $2021 SUB50 I o 01 .... 2 INCqEHENT LINE CHARACTERS. $202 I SUB51 TEMP TEMP -58 S55-·-1 SKIP IF LINE BFR FULL. PRINT AND SPACE. (P.ETURN HERE IF REPEAT CONDITION SET)' UPUATE CHARACTERS. UPDATE lINE COUNT. SKIP TO EJT AFTER 1ST PAGE~ -58 JH~" S57-·-1 S50 INA -58 SAZ JHp· . S51 RTJ SHH JHP ENOSEC 1 SKIP IF NOT END OF 2ND PAGE. SKIP TO END SF-CTtON AFTER 3 PAGE -. END OF SECTION- ' c OATEI 10/20/74 o • ' ... .-n ,.. NUM SQH EORLOQLAQ 1431 11t32 36 '-. 01 .... 3 014 .. .. 01 .... 5 01 .... 6 014,.7 01448 014 .. 9 01450 01451 01 ..52 01453 01454 01 ..55 01456 01 .. 57 01 ..58 01459 011t60 01 ..61 01 ..62 co,· (' 01463 . PAGE '-. . 36 u 0 C) C) () LPI00r. '\ ......) _/ 1-' l) C) () 0 r'Ul 0 0 0 0 \:..' NUH STA" CLR STQ" RT J. RTJ+ 0 CHAR JMP" ( SUBSOl 01471. 1473 1474 1415 1416 1477 1478 1479 0000 r,80G 8000 0101 S8CS 6802 lCF9 NUM lOllY. AOONUH RT .1" .. STA" JMP" 0 CHAR 0 $101 CHAP.CHK CHAR (SUBS!) 01473 01474 01475 01476 011t77 01478 01479 HUH NUH 0 P0430 P04lE P043F P0440 P0441 P0442 P044J SUB51 5101 Q TEMP exSEL21U LVLI0P CLEAR PRINTER, SELECT ALARM INT PAGE EJECT. SHIFT ~EXT LINE ONE CHARACTER. 1481 P0444 0000 1482 P044S 0000 CHAR TEHP 1484 1485 1486 .66666666666666666666666666666666666666666666666666666666666666666666666 .. . S F C T ION 6 ALL p a s I T ION S 1499 1500 1501 1502 1503 I () 0000 SUBSO 680E 0842 '+800 5C40 5400 - 550 06BA P lCF8 1504 1505 .-.. 1506 1507 1508 P04'+6 PO'+'+7 P04't8 P0449· P04'+A P0448 P04'+C P0440 P044E P044F P04S2 P0453 P04S4 P0455 P0456 POlt57 P0458 P0459 P04SA P0450 P045C 5618 SUR60 0000 0842 561 40FF C8EE 5400 S62 009E .P DOFF EOFF ooaa 0141 18F 1 1562 c_) I~ 0 [~ C) 0 0 C\ 0 0 580F 1576 P0499 P049A 1577 P0498 P049C 5800 Fr.29 1800 FBOr. 1563 1.564 1565 151;6 1567 1568 1569 11.)70 1571 1572 1513 1574 C) ".--.... P0488 P04S9 P048A P048R P048e P0480 P04aE P048F P0490 P049! P0492 P0493 P0494 P049!) P0496 P0497 P0498 .:, LOOP73 08B3 C8BA 9000 008A 0108 C886 A069 0104 OA44 90FF 60FF 18n4 C8AF OF41 60FF 11300 I 01557 RTJ· RAr)" LOA" SUB7? TEHP TEMP =N138 01559 01560 01561 01562 S74-"-1 SUB SAZ LOA· SUB- I STAJMO .. LOA· r SUB72+1 TEMP A~S STA~ 1 I JHP. SUB72+1 01563 01564 01565 01566 011.)61 01568 01569 01570 01571 01512 01573 01574 RTJ SMH 01576 JHP FNOSfC ANO- SAZ ENA S74 TEMP CaNST 4 68 END OF SECTION 01577 .................................. ............................ ......... 1579 1580 1581 1583 1584 1585 1586 ·1587 1586 1589 1590 1591 1592 1593 1594 STA- ~ ~ • 8 C LA R r T Y S t:.: r. T rON T EST .8888888888888S888888888888888888888888888888888888888888888888888888688 P0490P049E P049F P04AO PO 4A1 P04A2 P04A3 P04_A4 P04A5 P04A6 P04A7 P04A6 P04A9 .. 1595 P04AA P04AB SfC8 C.COJ OFce 8400 0017 P XCHAQ8 5893 58AF 581 OHAt C8AO 0987 0101 18AB 5800 FC1A 1800 F9C5 LOA· AlS Ann- Aoe RTJ· RT J. RAf)· LOA· INA SAZ JHp· RTJ JMP (XCH"~R' LOAD PARAMETER CLARITY CHARACTER 8 (0) CHAR8 SUB50 SUB60 TEHP TEMP -120 1 CLEAR PRINTER, SEL ALARM, FORHAT FILL PRINT BFR, PRINT, SPACE. S61- SH'1 ENOSfC END OF SECTION ........................................................................................ 15 1} ] ---1593 1599 - S f C T ION T EST A L I G N HEN T 9 •.99999999999999999999999999999999999999999999999999999999999999999999999 01579 01580 01581 01583 01564 01585 01586 01587. 01588 01589 01590 01591 01592 01593 0159 .. 01595 01597 011.)98 011j99 0 C) C~") (,) 60221200 F PAGE 39 (-', \ ........ _... C ~ .~ " ~, : \..j PAGF LPI00G 40 r'- OATE1 10/20/74 '., .. 1601 P04AC COOO P04AO 2020 1602 P04Af: IP.F2 S~Cq U'lA =N~202D HYPHENS 01601 SBt-l •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 1604 1605 1606 • S ~ C J ION l O A L A R" WIT H NOT ~ E A 0 ·AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 1608 P04AF P04BO 1609 P040t P04B2 1610 POLtB1 1611 P0484 1612 P04R5 P04S6 1613 POlt-B7 1614 POLtB8 P0499 1615 P04BA 1616 POlt-SS 1617 POlt-Be 1618 POlt-BO 5400 SECI0 "148 P 5400 06AA P OAOB OCOE 5400 064n p 15850 COOO 065E P OC1" 5lt-013 01\10 6ROO P04~E 02Ql 1619 POLtBF COoF 1620 POlt-CO 51\1)0 "04e! FCJ3 1621 P04CZ OAOl 1622 P04C3 AOlt-9 1623 POlt-C4·0101 1624 P04C5 18FO 1625 P04CG COCO ~04C7 1742 1626 P04C8 0822 1627 POlt-Cq 0000 1628 P04CA 5ROO LOOPA1 P04tR FCI0 1629 P04CC ROOO polt-cn 0031\ 1630 P04eE 0102 1631 P04CF 5800 P0400 FC39 1632 P0401 OAI0 1633 00402 5406 1634 P0403 18F6 1635 P040lt- 0844 LOOPA2 1636 P0405 G800 P0406 0271 1637 POlt-07-5S00 POlt-08 F8ES 163'1 POlt-O<) CROO P040A FEOl 60221200 F RTJ+ CL~P CLEI\R PRINTER. r--, MESSA-L~Hl 01610 01612 LOA SU'UOl =XHESSA-i 01613 ENQ RTJ- HESSA-HESSA+l (MESSAGl E'IA STA flO RF 01615 01616 1)1617 01618 LfJI\RT J SELO ENA 1 ANI)SAl JHP· INFORM ·-2 LOA :N~1742 TRA SL,) RTJ Q o STAT STOP GET STATUS 01626 01627 01628 EaR =N$3R EXPECT 3R 01629 2 ER~l ENA RTJJHP· $10 LOOPI\1 CLR A SELECT ALAR~ INTERRUPT INTF R.TJ SM .. AF 0161<) 01620 01621 01622 01623 HAlT TTY NOT BUSY. (..... 01621t 01625 01&30 ERROR COOE 7, UNEXPECTED STATUS 01631 01632 (JUMP) STl\ ( 0161 .. 1 SAZ C-' 01611 LP~SG RTJ C 01608 01609 I\lIREQ "- ( 01604 01605 01606 LVLI0P MESSB-HESSA-l RT,J· r\, 01602 01633 REPEAT CONOITIONS CLEAR INTERRUPT FLAG 01634 ,01635 01636 (~ 01637 CH£CK.ALARH FLAG I", 01638 ,PAGE ItO ",-",..." (..... ,. . l) 0 0 (~) C~) C) C) Cl ('\ "-./ (~) "-. [: ....---... U C) 0 0 0 0 0 0 C) ....... -...... ( ) Pt\GF LP100C 1639 P041)S neoc 1640 P040C S401) P0400 0378 1641 P040E OOlC 1642 P040F lRF4 1643 P04EO C06S 1644 P04El E800 P04E2 FB23 1645 P04E3 0301 1646 P04E4 0900 1647 P04Er; OAI0 1648 P04F.6 15406 1649 P04E7 16F6 16150 P04E8 e400 P04E9 0018 1651 P04EA 0113 1652 P04EB OA02 1653 P04EC 0("02 1654 P04EO 1603 1655 P04EE OADl 1656 POltEF DeFE 1657 P04FO F4DO P04Fl 0006 1658 P04F2 0301 1659 P04F3 0800 1660 P04F4 OAI0 1661 PD4F, 5406 1(1)2 P04F6 18Ft 1663 P04F7 cono P04FB 2020 1664 P04F9 £600 P04FA· F.ElO 1665 P04FB 0301 1666 P04FC oaoo 1667 PO ... FO OA02 1668 P04FE A043 1669 PO ... FF 0115 1670 P!J500 5400 PD?O 1 OODC 1671 PDS02 A06S 1672 P0503 0111 1673 POS04 18F8 1674 POSOS 5CS2 1675 PD50!) 18FO F.~Q 'G RTJ. SU1342 NUM JMp· LOALOO lOOPA2 CLEAR EQUIP ••• ERRO~ C : NO ALARM tNTER~UPT 01639 016ltO P LOOPA3 LOOP~4 OUT NOP ENA RTJJHP· LOA+ !3C REPEAT CONDITIONS 016 .. 1 01642 01643 01644 01645 01646 01647 01648 016lt9 01650 1 0 $10 (JUHP) LOOPA3 LPTYPE P LPA4A LPA4A-y.-l 2 2 SAN ENA ENQ' JHp· ENA ENQ AO/l+ ·.3 1 OUT NOP ENA RTJJMP· LOA 1 0 $10 (JUMP) LOOPA,. =N$2020 01658 01659 01660 01661 01662 01663 LDO fQIO 01664 OUT NOP ENA ANOSAN RTJ+ 1 01665 01666 01667 01668 01669 01670 -1 EQUIP OUTPUT SPACE FUNCTION OUTPUT SPACE CONTROL CHAR. 01651 01652 01653 01654 01655 01656 01657 P LOOPAr; LPAS(J o ,., 2 STJP LPA51-"'-1 STAT CHECK END-Of-SECTION STOP SIT. P LPA51 SUR101 1677 P0507 0000 1676 P0508 5660 1679 P0509 S"'OO P050,4 06BA P i - ,,·1.040 pos.oB.. DAOl 1661 P050C AO ... 9 1682 PUS on 0101 60221200 OATES 10/20174 '+1 F BITOO CHECK READY- ANDSAN JHp· RTJ'" JI1P· LPA50 (XREPCONJ LOOPA5 LOOP TIL READY. END SECTION. RETURN FOR CONDITION REPEAT. NUM RTJy. RTJ+ 0 I1UXPRNT LltL10P GO TO SHH WHILE PRINTING. ENA ANOSAZ 1 INFORM 1 1 01671 01672 01673 01674 01675 01677 01678 01679 01680 01661 01682 PAGE 41 c "AGF. LPI0DC 1663 P050E 18FO 1684 P050F lCF7 JMP" JHP" r.2 OAT'E.1 10/20.174 "-2 (SU8101) 01683 01684 \, ........ .......... , 16&6··· 1667 1688 1690 P0510 5C64 1691 P0511 5400 P0512 06BA 1692 P0513 5400 P0514 021C 1693 POS15 FOOD POS16 0751 1694 POS17 OOFF. 1695 P0518 0700 1696 P0519 0141 1697 P051A 18FC 1698 P0519 DAtA 1699 P051e OCt4 1700 POS10 5400 . P051E 0640 1701 P051F 51)£7 1702 P0520 COOO P0521 0660 1703 P0522 OC16 1704 P0523 5406 1705 P052'. OADl 1706 P0525 A049 1707 P0526 ·0101 170e 00527 18FO 1709 P0521i COOO P0529 1742 ··1710 P052A 0822 1711 P052R 0000 1712 P052C 5800 P0521) FSAE 1713 P052E ceoo P052F FB80 1714 P0530 A072 1715 POS31 B372 1716 P05J2 0102 1717 P0533 5800 P0534 FR05 1718 P0535 01\10 1719 P0536 5406 1720 P05J7 18F4 .............................................................................................................. OtfoRfo .~ C T ION T EST ·BBgBB8B8Bq9qBB~eABABBB8BBBBBqBBBBBBBB~BBBBB8BB8B8BBBBB~BBBBBBBBBBaBBBBB 01687 01688 • SE~TION SEC1! RT J. 1 1 PRO T RT J+ (ZCLRP) LVLI0P RT J+ CNT 01692 AOQ =XFWA 01693 IN/) Cpg SQZ JHP" -1 0169" 01695 01696 01697 01698 01699 01700 Ct.EAR PRINTF.R. c ~ ..... ,- 01690 01691 P P P 0 1 "'-3 t:NA MESSB-t.PH1 I::NO RT J. Hr:SS46-~ESSB-l LPMSG ( P PTJ" LOA SU~101 01701 01702 =)(HESSB-l P SAZ HESS46-MESS8+1 (HESSAG) 1 INFORM 1 J~p. --2 LOA =N$1. 742 FNO PT JE~A ANO- LOOPAt TRA Q SLS PTJ 0 STAT 01710 01711 01712 LOI\ ACT 01713 01714 01715 01716 01717 AND- CONST.1 EOR- . CO~ST+7 SAZ fHJ ::P. P l fNA RTJJMP· ·1722 P0538 0"42 1723 P05J9 C06S 1724 P053A 51HF LOOPR2 01703 0170" 01705 01706 01707 01708 01709 CLR LOART J" 2 ERROR CODE 7, UN~XPECTEO STATUS $10 (JUMP) lOOPS1 01718 01719 01720 a 01722 01723 01724 CLf.A~ CHKIO 1\ c-~ (--.~" \ ............ -. 60221200 F PAGE 42 c u 0 ,..._\ LI C) C:' C) LP100C 1725 POS38 1)40G 1726 PO'33C 18F9 0 n '----- C~ ) C) C .-- U ,- ", (-) C:; C) 0 0 0 -- 1728 POS3fl POS3!:: 1729 POS3F 1730 POS4!) 1731 P05ltl 1132 P0542 1713 P05lt3 1714 P0544 173'3 PO'345 1716 POSft6 1717 POS47 1739 P051t8 PO'349 1740 PO'3!tA 1741 POS4S 1742 PO'34C 11.. 3 POS41] 1744 PO'54E.: 1745 POSltF 1"0550 1746 POS';;l 1741 P055? POS'33 1748 POS51t 1749 P05S,) 1750 POS56 1751 P0557 1752 P0558 C400 00t8 0103 OA20 OCFf L) ~, .) LOOP8~~ DATE' 10/20fl4 1t3 RTJJHp· (JUMP) LDOPB2 01125 01726 LOA+ LPTYPE 01728 SAZ ENA LPB3-·-1 EN') -1 t.PR31 f' RTJ· RTJJ'"'p. CHKIO (JUMP) lOOP9~ 01729 01730 01731 01732 01733 0173 .. 01735 01736 01731 LOOPS4 LOA =N$2020 01739 -1 CHKIO 2 STJP XREPCON-·-2 STAT CHECK ENO ... OF-SECTION STOP BIT. LPB4 F.NQ RTJ· ENA ANOSAN RTJ+ 017 .. 0 017.. 1 017"2 017 .. 3 017.... 011.. 5 LonAND+ BIT7 ACT CHECK PROTECT STATUS. 017.. 6 011'+7 SAZ 1 lP84 NO (0) END SECTION. REPCON LOOPS4 RETURN FOR CONDITION REPEAT. 1803 LP03 OAOl oe02 5814 5406 18F5 JMP· ENI\ ENQ lPB31 COOO 2020 OCFE 580E OA02 AO .. 3 0117 '3400 oooe p (;072 A40n 00130 P 0101 18Fq 5400 OOGO P XPEPCON -18EF CHKIO 1754 P0559 Dono 17515 P05SA F400 PO'358 0006 P 1756 P055C 1803 1757 POS50 1807 ·1758 P055E ·180ft. 1759 P05'3F 03Fn 1760 POSGO OCt7 17&1 P05&.1 18Jl't XCHI< 1762 P0562 DAI0 1763 P0563 lCF5 JHp· RTJAOC JHP. NUH AOQ+ JHp· JHP· JHP· OUT ENQ JHP·. ENA JH~ f~O SPACE 2 2 • .. 3 F.R~16 ENQ $16 CHKIO ERRX"2 PRINT 17G9 POS613 0000 1770 POS69 C400. P056A 0Ol!J P NUH LOA+ lPTY?E I=" ntH REJ. XCH.J( tEXT -2 $17 ERR16+1 t1D (CHKIO) LOA· JHP+ 0 017 .. 8 01749 01750 01751 01752 0175 .. 01755 0 EQUIP --' EP.R1& 1765 PD564 OC16 1766 P!l5GS C8F3 . _._.17&7 PD56G. 14DO P05G7 0188 P G0221201} 0 PAG~ ~EJ' = ••• ERROR 16 INTERNAL REJECT. EXPECTING EXTERNAL. ••• ERROq 17 = NO EXT REJ • 01756 01757 01758 01759 01760 01761 01762 01763 01765 01766 01167 01769 01770 PAGE 43 ,'/ \, """'- (------ , ....... LPI00C PAG!=' 1771 P05f>O 0104 1772 PO'56C OA20 1773 POS60 ·Z;ltOO PO'56E OOF5 P 1774 P056F lCF8 .. 171-'5 P0570 OAOl 1776 P0571 5400 P0572 OOFF P 1777 P0573 lCF4 OAln 10/20n .. 44 SAZ ENA RTJ+ . NOTCR-w.-l $20 SELO J"'p. ENA RTJ+ (PRINT) 01774 1· ~~ 7?~ SELl 01776 JMp· (PRINT) 01777 1779 POS74 014B P lCL?!) Aoe CLI?P 01779 1781 PO'i75 0000 1782 PO'i76 58Ft. 1783 P0577 S400 POS78 OOC4 P 178,. POS7c) lCFB NUH RTJ· RTJ+ 0 P~!NT SHM 01781 01782 01783 (HUXPRNn 01784 NOTC~··· . HUXP~NT JMPw. SKIP IF 17"0'42 01771 01772 01773 : :::3 1786 1767 1788 1789 1790 1791 1792 ··1793 1794 1795 1796 1797 1798 P057A P057R PO'57C POS70 P057E P057F P0580 POS81 0000 56F9 C872 09F6 0870 0113 686E OA11l P058~ 5406 P0563 lCF6 P05S4 D8FS P05S5 lCF4 P0586·1FF£ SU812 NU'~ RTJ· LOA· INA RAO· SAN STA" ENA RTJSUB12A JM".. LVLS JHP· NUM ~AO" 0 HUXPRNT COUNT -9 COUNT GO TO St1t1 WHILE PRINTING. SUB1~A 'COUNT S10 (JUMP) (SUB12) SU812 (SUB12. $lFFE ...... ....... FORMAT LEVELS 1 THRU 12 ENABLED. ................................................................................... 1601 1802 1803 :. ····_·180, • SEC T ION 1 2 SPA C E t F 0 Rtf A T TAP E L E ·ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 1806 1807 ····1:808 'POSS? SltOO· POSSS 012A P 1809 POCi89 0844 : ~-" ·18-10· -P058A&8&4 , 1811 POS88 6864 t612 P05SC S400 ·PI)S80 06C2 P 1613 P056E OA2F. 1814 P058F OCOG 6022120(l F 01786 01787 01788 01789 01190 01791 01792 01793 0179 .. 01795 01796 01797 01798 ( 01801 01802 01603 • .. 'SEC12- SECTION 12,' LOO? 1 CLEAR PRINTER, PRINT, SINGLE SPACE RT J+' SEL211 FeN ClR, ALRH INT IF S,J WORD POSITIVE. 01805 01806 01807 01808 S46A CLR STA-- . STA· RTJ+ 01809 01810 01811 , 01812 . ENA ENQ A COUNT LEVEL SPACt::L HESS46-LPH1 HESS47-HESS46 SPACE LINE. 01813 01814 PAGE 44 ( , -~. u 0 0 C~) 0 0 0 0 0 0 lPI00C 1815 P0590 1816 P0591 - 1811 ·P0592 1818 P0593 0 ~l 0 0 0 o o o o o r', U PAGE ,.5 OATEI 10/20n4 5400 (0) 0&40 P XlPHSG 58E7 16F8 LPHSG SU812 546A 1820 1821 1622 P0594 DC02 1823 P059Cj 5400 P0596 06E3 P 1824 P0597 OA35 1825 P059lJ Or.1}6 1826 P0599 5CF7 1827 POS9A S6DF 1828 POSQB 18F8 1829 P059C caoa P0590 FA7A 1830 POS9E 0111 1831 POS9F 180F 1832 POSAO OA03 1833 P05Al S800 P05A2 FADG 1834 POSAJ 5AOO POCj~4 0138 183S POSAS 0844 . 1836 .. P05A6 5800 P05A7 FAD1 1837 P05A8'OA3B 1838 POSA9 OC06· 1839 POSAA SCE6 1840 P05AB S8CE 1841 P05AC 18EF 1842 POSAn 5r.45 1844 1845 P05A£ 0841 1846 POSAF £840 1841 P05BD C26B 1648 POSBi AR04 1-••••. --. 184 9. P05S2 .. 0111 1850 P05S] 18FA 18S1 P05Sr. C83B .. :~la52P.o5B5.~09F5 . 1853 POSB6 013t. 1854 P05B7 0906 60221200 F • • lOOPC2 LPC2A LPC2fJ •LOOPC3 5ECTIO~ ENQ RT.J+ SAME AS LOOP 1 EXCEPT DOUBLE SPA DOUBLE SPAC E. 0181S 01816 GHI17 01818 01820 01821 011122 01823 ENA ENQ RTJ· RTJ..IMp· L04 HESS47-LPHl MS547A-MESS47 (XLPMSGJ SUB12 lOOPC2 LPTYPE PRINT MESSAGE. 01824 0182S 01826 01827 01828 01829 SAN JMp· ENA RTJ LPC2A-lJ-l LOOPCJ TSPACE .sOATA IS THIS A 93X2 NO 'YES OUTPUT SPACE CONTROL CHARACTER 01830 ' 01831 01832 01833 GIV€ PRINT FUNCTION TO SPACE 01834 SUPPRESS SPACE IN ,ACTUAL PRINT 0183S 01836 RTJ FPRINT CLR RTJ SDATA ENA ENQ RTJ· RTJ· JMp· IHJ· H5S47A-LPMl HESS48-MSS47A CXt:PHSG) PRINT HESSAGE- TRIPLE SPACE CHECK FOR LOOP COUNT EXPI~ED SUB12 LPC2A NOT EXPtREO- REPEAT (ySEL211 J FeN CLR, ALRM INT IF S/J WORD POSITIVE. 01837 01838 01839 01840 018 .. 1 01842 LEVEL LEVEL 8tTOO,Q LVlS 0184" 01845 01846 01847 01848 01849 G18S0' , A ,RAO. LOQ":'. LOAAND· - .. SAN 1 JMP~ ... -, 12, LOOP 2 DSPACE FFORH PRINT MESSAGE. LOA· , .~J--l-NA. SAM INA . ,,~I lOOPCJ LEVEL -SA:" 1 $10-!A CONYERT TO DECIMAL. 01851 .•1852 01853 0185" PAGE 1t5 LPI00C PAGE: 1855 P05e8 Oc)OA 1856 POSB9 540A -'-1:'85-?-',P05B-A - {,4i1 0 --P05BS 06QE P 1858 P05SC F.833 S48A i~ ·.yu51:;;r-· iiUii c 1860 POSSE 5400 POS9F 06E3 P .- 1.861 POSCO 01'41' 1862 P05C1 ocoe 1863 PO'5Cl SCGE 186.. P05CJ C82C 1865 POSC4 Oc)FE 1866 P05C5 0113 1867 P05C6 OA4C TOF 1868 P05C7 oe06 186c) POSCR 1814 -1870 POSCc) 1:400 . LPC3A POSCA 0018 P 1871 P05CB 0142 ·--·.. ·187~ P05ce OQFE 1873 po'scn OIOC 1674 poseE Oc)Fc) LPC3S _.-.--' -1875·P05CF· 0133 1876 P0500 09FA 1877 POS01 0'151 1878 P050? 0107 187c) POS03 0C)06 LEVX e 1880 POS04 540A 1881 P0505 6400 P051;lG 06A6 P 1882 P0507'OA52 ·-----1883--P0506 -0003 -1884 P050c) 1803 1885 P050A OA55 BOF ......-· ..18-86-P05DS-·OC09-. 1887 P050C 5871 LPC3C 1888 P0500 5Ac)7 ... _--- -1&89 ..POSOE.. Olt·O .-. 1&c)0 P050F:Slt06 lac)l POSED 180B ..._-;-. ·189-2P05El caOE 1;893 P05E2 Oc)F3 -t8C)1t P05E3 0101 :.:.;.·--··189,· POSEIt-18C9 lec)6 POSES 5C8E lac)7 POSED 1800 .. POSE? FA89 18eJ9 teJOO 1901 19D2 PO,E& P05F.q.. P05EA POSES 60221200 F 10/20n .. INA RTJSfA+ SA (CONV."'4ft A. 01855 01856 01857 LOa" LEVEL 01858 i;~~ ~ RTJ+ FFOR!1 FNA ENO RTJ" LOA" INA HESS48-LP141 LIHESS"",MESS48 tXLPHSG) LEVEL -1 LPC3A-"-1 L1t4ESS-LPMl LXHESS-LIHESS LPC3C lPT¥PE S~N ENA ENQ JHp· LOO" SQZ INA SA Z It.I~ SA ... INA saN SAZ INA RTJSTA+ ENA . -ENQ JHP" ENA ENQ-- RTJ· RTJW- ... ENA·_· . RT.JJMp· LOA· INA SAZ JHP· RT J" JHP 0000 PRtlTSPC 588R 5400. 0613E P XSPACOP O"T~t 1t6 c c c NUH RTJ" RTJAOC n~_ SELECT FORHAT TAPE LEVEL. PRJ NT HESSAGE. LPC3B-"-1 BOF-"-1 -6 LEVX-·-l -5 1 80F-4-1 6 CHFXASC' LXHESS LXHESS-LPHl LCHESS-L X"'ESS LPC3C LCHESS-LPHl ·MESSD-lCMESS LPHSG HUXPRNT !1&·· REP£AT CONDITIONS • 1 l.OOPC3 CZCLRPl ENOSEC 0 HUXPRNT (0) SPACOP 01861 01862 01863 0186 .. OlfJ65 01866 01867 01868 01869 01870 c c 01871 01872 01873 . 0187 .. 01875 01876 01877 01818 01819 01880 01881 -1 (JUHP) S48A LEVEL -12 "C;q 01860 CLEAR PRINTER. END OF SECTION P~INT AND GO TO SH". SPACE LINE. 01882 01883 01884 01885 01886 01887 01888 91889 01890 01891 01892 01893 0189 .. 018c)5 01896 01891 ( c c c 0189c) 01eJOO 01c)Ol 01c)G2 PAGE c .. 6 c ·c c u 0 0 0 0 0 0 0 0 0 1903 P05F.C nAI0 1904 P05Ell 1CFA c (~~ C) 0 0 0 C) C) 0 0 0 r--, ) ENA JMp· 1t7 OATEt 10/20/74 $10 01903 01904 (P~NTSPC) lQ06 P05EE 0000 1907 P05EF Dono 1908 PD5FO ODOO COUNT LEVEL LINE 1910 1911 1912 ·00000000000000000000000000000000000000000000000000000oooonooooooOOOOOOO A N {) SECTtON 8 LIN E S E L E C T 1 3 6 NUH NU'" NUM 01906 01907 01908 0 0 0 •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• • • • •SEell 1914 1915 1916 1917 P05Fl 5 .. 00 1918 P05F2 012A 1919 P05FJ C40n P05F" 0018 .1920 P05Fc) 0102 1921 P05F6 1400 P05F7 0071 - 1922 P05F3 5400 1923 P05F9 OI;BA 1924 PIJ5FA 58no P05F8 FACS 1925 P05FC C~OO P05FO FABF 1926 P05FE A07 .. 1927 P05FF B07.. 1928 P0600'Di02 ·1929 P060l 5801) P0602 F~07 1930 P060J OAI0 -1931 P0604 5406 1932 P0605 18E8 SECTION 13, LOOP 1 P.YSEL211 . CLEAR PRINTER, PAGE EJECT, WAIT GET STATUS, EXPECT BIT 9 TO BE S FCN CLR, ALRM INT IF S/J MO~O POSITIVE. 01910 01911 01912 01914 01915 01916 01917 01918 01919 RTJAoe LOA+ I (0) SEL211 lPTYPE SAl JHP+ 2 ENOSEC IGNO~F. RTJAOr: RTJ (In PAGE EJECT. LVl10P SHH 01922 - 01923 01924 LOA ACT 01925 ANOEORSAZ ~TJ CONST .. q CONST+9 2 ERRl ENA RTJJ!1p. $10 (JUMP) SEC13 P SECTION FOR 93X2. 01920 01921 P P XLVL10P 193.. 1935 1936. 1937 1938 POG06 5CEa .1939 R0607 0""4 19.. 0P0608 68E7 1941;.,p060,} .5eE1 1942.:P.OGO A~ -',;8.00 P0608 FAB8. 1943 P060C c.. on '" P0600 0080 P 60221200. ( PAGE LPI00C F • • • • LOOP02 S02A . _. SECTIJN 13, lOOP 2 RTJ· CLR STA· ~if J. RTJ LOA • (ySEL211 ) A LINE (xSPACOP) ...... SHH ;~: I . ACT ERROR CODE 7, UNEXPECTED STATUS 01926 01927 01928 01929 REPEAT CONDITIONS 01930 01931 01932 EXPECT BIT q CLEAR PRINTER, SPACE THREE TIMES NO BIT 9 STATUS, SPACE AGAIN, EX 9 STATUS. FCN CLR, ALRH INT IF S/J MORO POSITIVE. CLEAR LINE COUNT SPACE LINE. 01Q34 01935 01936 01937 01938 01939 01940 . 01941 01942 019 .. 3 . PAGE 47 C-- - ", LPI0llC lq44 1945 ··1946 1947 1948 1<)"9 19,0 1951 1<)52 1<)53 -1954 1955 19C;6 1957 1958 ,~~~ POGOE PD60F P0610 P0611 P0612 P0613 F0614 POG1S P06t'> P061"7 P0618 P0619 P05tA P06l9 P061G P0610 P061E P~Gt:' A074 D8EO EROF OOFC 0144· 0102 ANORAO· LOO· ;800 FAF4 tAF2 460A 9074 0102 5800 FAEE OAI0 5406 18E7 S02B ft6 OATES 10/20174 BITq LINE LINE INQ. -1 SQl SA] RTJ S!J2B-lJ.-l 2 ERR1 JMp· STQ" S02A E'1P- SAl RTJ P~A P.TJJ~p. 01<)"" 01q .. 5 01Q .. 6 01947 01948 01950 ERROR CODE 7,· UNEXPECTED STATUS 01<)51 01<)52 01Q53 01Q54 01955 REPEAT CONDITIONS 01<)56 01957 01958 LINE CONST+9 2 E~Rl $10 (JUMP) LOOP02 ..- P061F SCD2 LOOP03 P06?0 COOO SIXOR,8 P0621 0008 P0622 ;ltOA P0623 6400 P0624 0682 P 1<)68 P0625- 08ftft "1969 P0625 GOFF 1<)70 P0627 C6F9 1971 P0621\ 09F9 1'372 P0629·0103 1q73 P062A C07A 1<)74 P0628 5800 - ·P06·2Cf'A02 1975 P0620 045E S03A 1976 P062E OC06 1977 P062F 581E 1978 POG31J 5887 1979 P0631.08BE 1980 P0632 C8BO 1981 P0633 09EJ:" 1982 POfl34 0101 1983 P0635 18F7 1984 P0636 66139 1965 P0637 OAI0 1986 P063~ 5406 1987 P063(~ 18E, 60221200 F SECTION 13, LOOP 3 RT J. LDANUM RTJSTA+ (ySEL21U 0 (CONV) MESSO A STALOA" INA SAZ LOARTJ I ENA ENQ RTJ" RTJ" ·RAO· LOA" INA SAl JMP" STA" ENA RTJJHP. CLEAR PRINTER~ SELECT 8 LINES PE PRINT ON 8 LINES. FCN CLR, ALRM INT' IF S/J WORD POSITIVE. 8 CL~ SI)(OR8 -6 503A---1 EIGHT SELl MESSO-LPM1 LVL10P-MESSD LPHSG PRNTSPC LINE lINE -16 PRINT, GO TO SHH, SINGLE SPACE. 1 S03A LINE !to (JUMP) LOOPOJ c Digltg CODE 7, UNEXPECTED STATUS ERRO~ .. 1960 1961 1962 1963 1964 .1965 1<)66 1967 ..... REPEAT CONDITIONS c 01960 01<)61 01<)62 01963 01<)64 01<)65 01<)66 01<)67 I \. 01 <)68 01969 01<)70 01<)71 01 <)72 01<)73 01 <)7" ( '- 01<)75 01976 01<)77 01978 01979 01980 01<)81 01982 01983 01984 01985 01<)86 01987 c PAGE 48 U c) 0 0 0 0 0 0 0 0 LPI0nc 0 .. 0 0 0 0 0 0 0 0 0 n I9!J9 1990 1991 POolA P0639 1992 POG3C P0630 1993 P063E lqq4 POGlF 1995 P0640 1996 P064! P0642 1997 P0643 1998 P0644 1999 P0645 2000 P0646 2001 P0647 P0648 2002 P06"'9 PO·64A 2003 POG43 P06ltC 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018 .. 2019 2020 PAGE' .... caoo LOOPO,," 0077 9000 30.36 010':; nA06 68[0 5800 FA81 18013 OAG8 G809 SCAB 5800 0072 ':;400 060e p 1800 FA24 .. 2022- PQGSE 800A 2023 P065F lt3lt1 P0660 5553 POGGi "'520 P0662 41ltC P0663 4152 P0664 4020 POG65 4F4E· P0666 204C P0607 49ltE 60221200 F SECTION 1l, LOOP 4 lO/\ HE:SSO 01989 01990 01991 =N ot l036 01992 Sl\Z 5 6 SIXOR6 01993 01994 01995 01996 STA'" RTJ ME'SSA SAHE AS LOOP 3 EXCEPT SELECT 6 L SUB EN~ P0640 0000 LPMSG P06ltE 80fJO POGltF egao P0650 680lt POG51 480R POo52'0844 P0653 60FF P06S t • e90S LPHl PO 655 5400 P0656 OOgE P P0657 DOFF' P0658 COOO P06G9 0000 LPH2 P055A 90FF P065a 010t P065C 18F7 P0650 lCEF .. 9 SHM Loopn3 JMP'" ENfI STA· RTJ'" RTJ SIXOR8 (YSEL21U LVL tOP RTJ+ FPr?INT JMD ENOSEC HUM AOO- LO"" 8 ,0 0 ·,I FCNCLR, ALRH INT IF SJJ WORD PO SI TIVE. PAGE EJECT 01997 01998 01999 02000 02001 02002 END OF SECTION 02003 TRANSFER HESSAGE TO PRINTE~ BFR A= MESSAGE FWA, Q=WO~D COUNT. 02005 02006 02007 02008 02009 02010 02011 02012 02013 STA" STQ· CLR STALDA" PTJ. LPl11 LPM2 A RAfJLOA ... HUM SUBSAZ JHP· JMp· ! 1 LPHt (LPHSGl 02014 02015 02016 02017 02018 02019 02020 NUM ALF $8004 X,CAUSE ALARHON LINE PRINTERX 02022 02023 r MESSA,I DATA 0 0 t . PAGE 49 c-' ("" \...__/ C C~ -_/ LP100C PAGE C 50 POG6S 4520 (-, PO&G9 5052 -P066A 49ft.E \........--- P06&Q 5445 P066C 5220 2025 P066~ POG6F P0670 POG71 P0672 P0673 P0674 PO"75 POo76 POn77 POG78 P067Q POf)7A 5345 5420 5052 4F54 4543 5lt20 5357 4q54 4346 4553 204F 4£20 3137 HESS3 10"10.. !~!:'~,~ n2n2 .. ALF X,SET pqOTECT SWITCHES ON'1700 ANO PRINTERX 02025 f \.- -' r '-.. r '''''- .. P0670 3030 P067C 2041 POf,70 4~44 P067E 2050 POG7F 5249 POGRO 41=:54 POG8! 4552 --2026-POGS2 SOOA 2027 P0683 5349 P0684 4E47 -POG85 4C45 POG86 2053 POG87-504t POG68 4345 2028 P066g 444F P068A 5542 P068B 4C45 P066C 2053 P0680 5041 P068E -4345 2029 P068F 5452 P0690 4950 - - P0691 4C45 POr,92 2053 PO&93 5041 2030 PO&95 464F P0696 52LtO - P0697-4154 P0696 2054 P0699 4150 -POG9A 4520 P06913 LtC45. P069C 5645 -- POG9!) 'te20 &0221200-- F'- , ' (' '-... ( MESS4~ NUJof ALF MFSS~7 , !i800A X,S!NGLF. SPACEX 02026 02027 ALF X,OOUBLF SPACEX 02028 MSS47A ALF )(,TRtPLF. SPACEX 02029 HFSS48 ALF X,FORHAT TAPE LEVELX 02030 c c ----.--••-- - ---P069-4t 431t5 , ..- " c c PAGE 5" C~ c (~ LPI00C PQGF' 2058 P06C9 0114 2059 P06CA C?6CJ 2060 POGGS 5"'00 P06CC FAJ2 2061 POGCD lCF8 2063 2064 2065 2066 2067 2P68 2069 2{)70 2071 POGC£ P06CF P0600 P0601 P0602 P0603 POG04 P0605 P0606 P060? 2072 P0608 2073 POG09 P060A 2074 PO~l)9 .~ .. Sl\~ 0814 09FC Ot21 09C2 0940 6000 0000 OAOl 51'00 FA10 Fl F1A 5400 0079 P leEA 2082 ··2fr83 2084 2085 POGE3·0000 FFOR"I P06E4 ·56E1 P06ES 58F6 P06E6 E400 POGE7 0016 P 208G POGE8 0143 2087 P06E9 0844 208~ POI;E~ ,400 P06ES 0079 P ENOFF 20R9 POf)EC tCF6 P06ED POGEE P06EF P06FO P06F1 POGF2 P06FJ P06F4 P06F5 2099 P06F6 0000 C85S OF42 INTERR 09F5 Ot31 0906 090A 6lt-00 OOSE·P OA1S 60221200 LOARTJ Fl---1 8ITOO,Q SELl JHP- (FORHA Tl 02061 T~Q A INA -:3 IS THIS A 1740142 YE:S OUTPUT SPACING FUNCTION 02058 02059 02060 SAD INA INA SrANUM ENA 1 -$40 .. 3 $40 0 ~TJ S~LO 02063 0206' 02065 02066 02067 02068 02069 02070 02071 LOARTJ .. FIA SOATA 02072 02073 JHP- (FORMAT) 02074 MUM lOl\+ 0 LPTYPE 02076 02077 SAZ RTJ+ EXITFP---l PRINT 02078 02079 JMP- (FPRINTJ 02080 NU..., RTJ· PTJlflQ+ FORHAT '. n 1 CLR CONTROLLER FIRST '-...... C~FA 2076 P060G 0000 FPRINT 2077 P06no e400 P060E 0016 P 2078 P060F 0102 2079 P06EO 5401] POGEl 05G8 P EXITFP 2080 POGE2 lCF9 . 2091 ; -···~:·2fJ92 2093 2094 Z095 2096 2097 2098 OATEI 10120'74 C;2 SQZ OUTPUT CONTROL CHARACTE~. FORCt: FORMAT. ° FP~INT SPACING(1740~"2),SETUP(93X2) OU""Y PRINT FOR SPACING (93 X2) LPTYPE 02082 02083 0208 .. 02085 02086 02087 02088 ~T J+ ENOFF-"-l A SOAlA JMP" (FFORH) 02089 NUM LOA- FY _. 0 EXP 02091 02092 020«)3 0209 .. 02095 02096 020«)7 02098 $1~ 020«)9 CL~ A~~ 2 INA SAM INA INA STA+ -$A ENA SUPPRESS SPACE ON ACTUAL PRINT CALCULATE DECIMAL LINE 1 tl0 .. !A $A F / NU"BE~. c c u 0 0 0 0 LPI00C (--\ \J l\ y/ 0 0 0 PI\GF. 2100 P06Fl 5400 P06F8 00A9 P 2101 P06F9 1CF3 l1ll2 2103 2104 2105 P06FA 0900 2106 P06FB 484~ -2107 POliFC 1804 2108 P06FD OBOO 210Q P06FE 5 .. 00 P06FF 00C4 P 2110 P0100 E800 P0701 F904 2111 P010Z 02FA 2112 P0703 684A 2113 P0104 E800 P0705 FC2? 2114- P0700 0001 211? P0707 OA02 _2116 P010S 03FE 2117 P0109 0800 2118 P070A 1804 2119 P070a oaoo 2120 P070C 5800 P0700 F985 2.121 P070E EROO P070F F8F6 2122 P0710 .02FA 2123 P0711 6800 P0712 F9AA 2124 P0113-A060 2125 P0114 ·tlt05 2126 P071S OCl5 2127 P0716 5806 ... ___ ._.2128 P0117 5800 P0116 F9AB 212'3 P0719 18F2 -21l0 POlla C82F 21-31 P011B 8073 2132 POTIC 682F 2133 P071D CC2E 2134 P071E 682E . 2135 P071F COOO P0720 072ft P 2136 P0721 6C2A 2111 P0122 E821 2138 P0123 lC06 2139 P0121t C826 2140 P0725 6e26 21'+1 P0726 0821 2142 P0121 C826. 2143 P0721i A060 C ~ 0 0 0 0 0 0 o o o 60221200 F o ATEI 10120'7" 53 RTJ+ STOP 02100 J"'p. (lNTfRR' t~Tr:~~IJPT PROCESSOR 0 EV tNSTO STATER NOP STO· JHP· NOP RTJ+ SM'" 02101 02102 02103 02104 02105 02106 02101 02108 0210'3 INSTfl LDf) EQUIP INP STA" LOQ SfATER-·-l INTSTAT EQIO INQ ENA OU<' . NOP JMP" NOP RTJ 1 2 -1 ·+It 0 .SHH 02114 02115 02116 02111 02118 0211'3 02120 lOQ EQUIP 02121 INP STA INST1-·-1 ACT ANOSAZ E~a CONST+2 INST2-·-1 $15" RTJ· INTE'R~ RTJ SHH JHp· LO"'" AOOSTA" LOA· STA· LOA INST1 EV . CONST+8 TRAP (TRAP) STP.AP =XINT STA· LOO· EV • • • INST INST1 INST2 JHp· INT LOA· SlA· RAO· LOA· ANfI- a EXIT VALUE CINT R~J) (EXT REJ) 02110 STAfUS CLEAR 02111 02112 02113 INTERRUPT 0 STATUS ···ERROR 15 INTERRUPT FAILED TO CL REPORT ERROR • 0212,+ 02125 02126 02127 02128 0212'3 02130 02131 021~2 ADDRESS OF INTERRUPT PROCESSOR (TRAP) (INSn STRAP (TRAP) 'INTF INTSTAT CONST.2 02122 02123 EXIT IS INTERRUPT STATUS AIT SET 02133 0213'+ 02135 02136 02131 02138 02139 021"0 02141 021 .. 2 021'+3 PAGE 53 C~ LPI00C PAt;F. 'f" DATn 10/20'74 5'. \ ............ 2144 2145 2146 2147 2146 214q 2150 P0729 0112 P072A OCOF P072S 5AC1 P072C OAtC P0720 1I822 P072E 0116 P072F C800 P0730 00 In 2151 P0731 ~8"!J P0732 Fq8A· 2152 P0733 OCtO 2153 P07l4 58B8 2154 P073S CP.18 2155 P07l6 A!J6E 215& P0737 010? 2157 P0738 11800 P07;lQ F~Al 2158 P07lA C813 2159 P073S A06F 2160 P07le 0101 21451 P07]O 0811 21&2 P073E C80F 21&3 P073F A070 2164 P0740 0102 21&5 P0741 0800 P0742 F099 2166 P0743 n844 2167 P0744 &"1)9 21&8 P074Cj £804 21&Q-P0746 le8l 2170 P0747 0000 ·2171 P07'ft8· nooo -2172-P0749 0000 2173 PO 741\ 0000 2174 P0743 0000 2175 P07ltG ·0000 2176 P0740 0000 2177 P07ftE: 0000 217-8 P07,4F 0000 INt SAN ENQ RT J4 ENA STA ACT ~10 P.T J. INTERR INTSTAT CONST+3 T~AP STRAP INTSTAT f.F RF 2 INTSTAT CONST+4 t RAI)· l!ll\· ANT1- EF INTSTAT CONST+') 2 AF ell:? A ST"· LOO· JMP· NIP1 NUM RF EV NU:I1 NU,", NU~ NUM NUt.f CHECK INTERRUPT REQU~ST FLAG. ···ERRORI0 UNREQUESTEO INTERRUPT REPORT ERROR. 02152 02153 02154 02155 02156 02157 IS IT A DATA INTERRUPT NO OF LOA· ANI)SAl NUH NU"'I 021 .... 021 .. 5 021 .. 6 021 .. 7 02146 02149 02150 02151 ENQ Lnl\· AN\)SAZ RAO YES ··""ERROR F INTERRUPT aUT NO REPORT ERROR. $lC PF IN2-·-1 INTSTAT SAl RAO tNTF ISR EV IRCH JNTEP..~ SAN LOA ANn· HI2 INt-·-l $F 02158 0215Q 02160 02161 02162 02163 02164 02165 IS IT AN E.O.fl. INTERRUPT NO SET EOP INTER~UPT FLAG IS IT AN ALARH INTERRUPT NO 02166 02167 02168 0216Q 02170 02171 02172 02173 02174 02175 02176 02177 02178 UNsn 0 0 0 OJ 0 0 0 0 '1:0 \. • .... 6022120!l F , c PAGE 54 ,- ~) r-") ("J 0 ","', () '-.J C·) t:) CI 0 0 C) LPI00C PAGl:" 2160 P0750 COOO P0751 OOOC .. - 2181 P0752 6400 P0753 0005 2182 P07S4 01F3 2183 1>0755 540A 2184 P0756 6R67 211J5 P0757 4865 2186 P0758 E091 2187 P07e;Q C291 2188 P07'5A 540A 2189 P07S!) 6A67 2190 P07SC COOO P0750 079a 2191 P07SE oe2S 2192 o07SF 5408 21q3 P0760 C400 P0761 0006 2194 P0762 AOSA 2195 P0763 B06B . -219~ P~764 0105 2197 P076S OA08 2198 P076!; OCOl .2199 PDI67 5800 P076S F940 2200 P0769 18F6 2201 P076A C800 P076B F89A f, 2202 P076C AOOO P0160 FF80 2203 P016E 6800 P016F'FI3BB ·:~··2204 P0710 AOOO P0771 Fano 2205 P0112 6BOO ._ .. ,... _.... P..DIl3. FA71 2206 P0774 0111 2207 P0775 1819 ... 2208 P0776 0622 2209 P0777 B077 2210 P077~ 0100 . _ 2211 P0779 0814 2212 POl7A 8000 P0779 3800 2213 P07Te 0109 2214 P0771) 0814 2215 P077E 8000 P077F 6000 2216 P0780 010e; 2217 P0781 OA08 i ....... 2218.. P0782 oeOl 221q P0783 5800 POT84 F924 INITO~ o o o o o C) &0221200 DATEt 10/2017'+ LOA :)(STA~T 02180 STA+ RETUPN 02181 P I> INA LPtOOC-START RT J- (H~XASC) STA· FR~QCNT-2 FR~QCNT-3 STQ· LOO- LOARTJSTA· LOA FORM tA IN AREG 02182 02183 0218'+ 02185 02186 02187 02188 02189 02190 TYPE TITLE 02192 02193 TSACTV TSFREQ-l,Q (HF.XASC) ENOTYP-l =)(TVPEIA P ENQ IN!Tl RTJLOA+ ENOTYP-TYPfIA (TVPEOUTJ EQUIP 0~191 P RTJ H007F BITOO INIT2-·-1 8 $1 STOP ..IMP·LOA fQUIP 02200 02201 ANO =N!FFBO 02202 STA fQIO ANO =N$F800 STA CHAN SAN Jl1p. TRA EOR 1 INIT3 Q BIT12 INIT2A-·-l A =N$3800 SAZ TRQ EOR INIT2A-"'-1 A =N$6000 02213 02214 02215 INtT2A-·-1 02216· 02217 02218 02219 ANOEO~-' SAZ.· EN.A ENQ C o 55 INIT? E:O~- SAZ TRI) SAZ ENA ENQ RTJ F ···ERROP. 1 EQ ADDRESS ERROR INIT1 EQUIPHENT ADDRESS FOR DATA TRANS 02203 02204 ZERO IF AQ CHANNEL CHECK FOR LEGAL W 8 $1 STOP 02194 02195 02196 02197 02198 02199 •••ERROR 1 ERRO~, EQ ADDRESS ERROR W IS NOT 02,D7,OR DC 02205 02206 02207 02208 02209 02210 02211 02212 PAGE 5~. ,-"'. , I I \.._- PAjE LP100C e 2220 P078'5 1AOA 2221 P{J786 CROO INIT2A P07S1 FBA3 2222 P078~ 807~ 22~3 P0189 6800 P078A FAEF 2224 P078S 6076 2225 P01RC 6800 P0780 FADl 2226 P076E 5800 INTT3 P078F F94C 2227 P0790 13800 P0791 fCJ2B 2226 P0792 AD 72 2229 P0793 OC01 2230 P07Q4 0102 2231 P0795 OAF3 2232 P0796 OCOI) 2233 P0797 8000 INtT5 P079a D7CF. P 2234 PQ799 5 .. 08 2235 P079A 5401 2236 P07(}B SOOA TYPEIA 2237 P079C 4C50 P0790 3130 P079E 3043 . P079F 2020 P07AO 3137 P07Al 3430 P07A2 2F·J4 P07A3 322F P07A4' 3':)33 'P07A5 5632 P07A6 204e P07A7 494E P07A8 4520 P07A9 '5052 P07AA 494E . : P07-A9 5445 P07Ae 5220 P07A!) 5445 P07AE 5354 P07AF 2020 2238 P07BO 800A ., ·2239 P07Bl 4350 POTB2 3246 P07Sl 2C20 P07B4 5645 P07e5 522E P07B6 2U33 P07S7 2E31 2240 POTS8 800A· 2241 P07BQ 2049 -_ .... - --.-.- ... P078A 4120 56 JHP" LOA ~QIO INITt AOI)STA RTT11 EQTf;RM ADOSTA BIT1! fQWRT P.TJ STAT 02226 EO~ ACT 02227 W=02 FPR DIRECT INPUT OR OUTPUT W=03 FOR TERMINATE BUFFER W=04 FOR BUFFERED OUTPUT OR BOC 02220 02221 02222 02223 0222 .. 02225 ANO- BIT7 OHl ! SAZ ENA ENQ IN1T5-·-1 ENIJTYP-EPRO EPP.O-ENOTVP+l ='XEPRO 02228 02229 02230 02231. 02232 02233 . (HESSAG) (CONTROL) $81)0A Z,LP100C l7ltO/42/93X2 'LINE PRINTER TEST Z 0223 .. 02235 02236 02237 ADO ~TJ-' RTJNU~ ALF " ( \, r ( ' ..... r~' I, \, NUM ALF ~8DOA X,CP2F, VER. 3.1X ···02238 ·"·02239 ,r-" i '-",-.~ (~~NUM ALF $8DOA 6, IA = 022.. 0 02241 ,r....... ( I, ......_ ..... -. ·_· ..···60221200 F - PAGE ......... " 56 C~ (~ (~' ..... ,,"," (-" o o l'''-) lPI00C o o [ P07BB P07Be P07BO P07SE 2242 P078F P07CO POlC1 P07C2 2243 P07C:] P07C4 P07C5 P07C6 P07C7 P07Cf\ P01C9 P07CA P07CB P07CC P07CO P07CE 224,. P07CF 2245 2246 P07DO 2247 2248 PAGE DATEI 10/20/74 57 3020 2020 2020 2C20 2046 4320 3020 2020 2020 2020 5052 4F54 4543 5420 5354 4154 5553 2053 4554 2E20 600A 0751 P FREQr::NT AlF 4, Fe ENDTYP ALF X, PROTF.:CT STATUS SET.X 022 .. 3 NUM !i800A FH.HINITOC+U IOBFR(68+6Q-EPRO+FHA-l) AIDOPLOR(68+69-EPRO+FHA-l) 022 .... 022 .. 5 022 .. 6 022 .. 7 022 .. 6 EPRO EQU ooot\ 9Z'5 0000 0 DAT ENO 022"2 o o o o 60221200 o o F ·PAGE 57 c c L PAGE LP10tlC PGK:; 070A« COK:; 00,00 2,10) c. S8 OAt « DOOA , to, { ... "" ' /, \ .. "::. -- .... ,. _." -. -~ ,r---I, '-. r' ( ,-, \' ....... ,."' 60221200 F PAGE 58 4." .. ~ c.~ l) r---"'" '. ) '---.-/ 0 0 0 ( "'-'-','I '~J LPI00C Pl\GE OOFF I QEFERENr.EO AT LINE NUMBER (000255' 0 0 0 [: 0 0 0 CI DATEI 10/20174 HE QUI V ALE N C E S ----------------------Ii nEF.LINE NAME VALUF 0000 c) 59 0221 0222 0223 0224 0225 0226 CONTRO STOP)( EXIT REQINT FCL~IN JUMP (00000l) (00001)2' (000003. (00000,*. (000005' (OOOOOG) 0001 0002 0003· 0004 000; 0006 , , , , , , , , , , , , , , 0227 0221\ 0229 0230 GENRAN TYP=:OU TTYBZY HEXASC 0007 00C8 0009 0231 -02320233 0234 -0235 OVRLAY RELPOS HAINL SETHAS STJP OOOB 023G 0237 0238 023Q 0240 0241 0242 lASTVA LI\STA-n LOLCOR. LOLtCO INFOR.M SMHCNT 0243 0244 0245 0246 0247 0248 024Q BITO BITl BIT2 BITOO BIT3 BIT4 BITS BIT6 (000007) (00001)13) (00001)9' (000010) OOOA , , , , , , 0328, 1021, 150'*, 1546, 1969, 0222, 0223, 0224, 0225, 0285 0227, 0635, 0976, 1298, 171Q, 1957, 622S, 022Q, 0338, 1022, 1505, 155'*, 2011, 0359, 0316, 0'*10 0226, 0341, 1438, 1525, 1557, 2014, 0524, 0504 0406, 0703,0990, 1341, 1725, 1966 0416, 0756, 1037, 1516, 1736, 1016 1501 15.... 1573 0424, 0624, 1085, 1633, 1794, 04l3, 0865, 118A, 1648, 1890, 0467 090G 1218 1661 1931 0~81 tl230, 0283, 2192 0231, 0282, 0286, 1880, 2183, 2186 0044 0045 on47 0048 0049 0056 006B 0068 006e 0060 006E 006F 0070 0071 (000t!)7) 0244, 0331 0245, 0534, 0537 (001)10'" C00laO.9) • 0246 (OOOltO) 0247 (0001111 0248 (000112t , 024Q (000113) 0250, 1428 0000 0042 0043 0541, 1 .. 45, 151ft, 1569, 0284, 0309 (0000111 0232 tOOOO12) 0233 (000013' .; 0234 (00006&) ,. 0235 (000067) 0236, 1143 (00006R' (000069' , 023A 023qJ (000071) (0001)721 0240 (000073) 0241, (OOOO~f)' 0242, (000107) 0243, oooe 0521, 1442, 1527, 1568, 2017 2235 , 0237, 0280, 0496, 0598, 1668 , , , , 1622, 1661, 1706 0279 0278, 1671, 1847, 2059, 2195 , , , , , , .. 0 . ;' ~ -- ; , 0 0 C) C' (~) 60221200 F - PAGE 59 c LP100e 0250 0251' 0252 0253 025ft. 0255 0256 0257 0258 0259 0260 0261 0262 0263 0264 0265 0266 ·0267 0268 0269 .0270 . 0271 0212 0273 o27ft. 0275 0276 0217 0218 027c) 0260 .... 0281 0262 0283 0284. 0285 0286 !J269 0290 -, 0291 0292 0293 0294 .0295 0296 0297 ;. -----. .j) 29&.. 0299 PAGE 8IT7 BITS BIT9 BITI0 BITll BIU2 BrTl3 BITlft . aITt5 HOOOO HFFFF HOOOF HOOFO HOFon HFflOO HOOFF HFFOO HFFFO HOFFF HFFOF HFOFF H7FfF H7FOO H07ao H007F H2020 TSACT\f TSFRE!l CONST SHHPAR 0072 0073 0074 0075 0076 0077 0078 0079 407A 007B D07C 0070 007f 001F 0080 OOAl 0(182 0083 008 .. 0085 0086 0087 0088 0089 a08A 0088 0091 OOgZ 006B (00011'" (000115) (000116' (OOfJl171 (OOOl1IU (000119) (000120) (000121) (000122) (000123) (0001?4) (0001~5) 607.21200 F , , , , tl2!)] (000t26) (OUI) 127) , 0264 UJOO121U 0265 (OOotl'l) 0266, (000130) , 0267, . (0001311 0268 (000t32) 026c) (0001.33) 0270 (OOO131t) 0271 (00013';) 0272 (000135) , 0273 (000137) 027" (000118) 0275, , (000139) D27fi (000145' 0277~ (000146 ) 21!t7 0289, (000107' t 0299, 1023, , 1953, 2163(00001)6) (000n61) -. (oon 00 7) (OOOOl(J) (OOOOOft) 1616., (000004) (000005) (000011)) 1528. (00010n , 1643, (000108) 0662, (000109) , 0671, 9748 (000110' (OOO11U 0765, 0056 0043 .RANDOM 0007 CONVER OOOA HESSAG 0008 .RE"QND 0004 CLRNO 0005 CONV OOOA CLEAR 006B CLINT 006C OIREQ 0060 EOPREQ 006E ALIREQ 006F (OQOI07) PRINTL 006B SPACE 0001· ... (OODOO1) OSPACE 0002 (000002) (OOooon TSPACE 0003 -l.VLl ---00n3 ... (000003). EIGHT' (000122) 007A SJJlA~ 0251, 0252 0253, o 25ft. 0255, 0256, 0257 02t;a, , 025CJ 0260, 0261 .. 0262 , , , , , r'· nATEs 10120'74 60 17"6, 2228 19ft.ft. 2222, 222ft 220c) 1423 o38t, Ot;A4 r---- I \ ...... , 1 .. 2 .. 1 .. 1 q , •, • , , "r'" i 2194 •, 2186 , 0290, 0368, 1565, 2124, , 170 .. , 2234 , .. , , 0291, 0415, 1714, 2131, 0292, 0532, 1715, 2143, 0293, 0600. 1926, 2155, 0294 1019 1927 2159 c. 1856, 196ft 1723 1180 1352 1072, 1619 ,. 2047, 2052 , 1622 , 1832 ,..20lt2 , 1913 . PAGE 60 ( ~' I C) 0 0 ,.-'''. CJ LP100G PAGE H,S Y H B 0 L S \'\; ,--" ------------- NAME ···---tt, .' O€F.lINE ,.-....,. l) 0301 LPI00C 0303 PARAO~ 1]307 0313 0319 0320 0321 '0322 U 0 AOD~ESS REFERENCED AT LINE NUHBER 0000 0004.RETURN '0005 EQUIP 0006 030'+ 0305 ",.--" RIL START PA~AHS SEeTNS DATAL EOPl ALARHL CHAR6 lPTVPE : a323 0324 0325· , 0314, 0361, , 03.08, 05... 9, 1155, 2110, , 0311, 035", 0301, 0351, 0007 DOOC 0012' 0013 0014 , oa1r; 0016 0017 001& [-I ......... ' : ---·PARCHK PARLOO PAR1 ~336 PAR2 0343 CHARCK 0019 0018 DOle 0022 0029 0~48 PAR3 002E :'._'-_ .. -03;3' .....- RllS·-' . 0032 0360 START1 0039 ~:) 0363 RESTAR 003e ,f}~21 0329 0330 -0360' ···TEST ,., ,003E 0375 NEXT1 0047 0379 NEXT2 004B ·t)-38tNEXT·:J ., - 0640 0395 SEC TOT 00S9 0400 ENOTES OOSC ··iV+09 . ·····IA 0065· 0,.15 REPEAT 0067 0419 PAsscr 0068 "SEQ, ' D06C 0422 REPCON 0060 o ·4428 ..... ' , I -_,0437 ..-.._ -. , , ..;-., , , , , ; , , , , ,- o 0071 . SDATA 0079 .. 0447 0451 '\7"'."-7: . ":.,...G4S 0469 i o ·ENOSEC -.' OUTPUT DATAl ·QAT~AN XOUT I I .--.---.... ;--.- .. ~..-----.,.. --.-.-- . 60221200 o (~) 03~6, 0353 1586 0928" 1149, 1251, t373, 1650 1770, 1829, 1870, 1919, 2057 2085 0331. 03 .. 5 0435 .. - . ..,.. __ ... -, ...... - k._" t , 0364; 0372 0315., 0401 0401, 0376", 0425, 1274, 1463, 2003 04 .. 0, 1152, 0443, D466 0367, 0375, 0376 0501 0402 0400, 0450, 1410, 14Q7, 043'1, 0493 0452, 0472, 0770, 1119 1751 1577, 1595, 1397, 1921 0445. 0482, 0484, 0804, 0856 1833, 1836, 2073, 29S8 0460, 0473, 0474, U582 04540455 _ _.....,__ .".. r···-::--;-'-:---:·--·_- '."... -.. ,. ...._._ . _. . ---- -'--.. '-:--;'" ~.... -~- .. :-~- C) 0082 0086 OO-&C .. 0098 !...:.i..;.~__ .:...._:~:._ ..; .., _._....._._~_, 1336, 1644, 1657 2193, 2201 0358 2160, 2182 ·,.···0389~· . "2-0 I 2181 1119, 2121, 0356, 0417, 0303 , 0363 , 0330, ,'03S5 , 0351 , 0343, , 0479, • 1128, t 2077, , 0317 ,.0342 , 0335 , 0332 , 0·340 , 0334, , tl347 . ; 0313 ., 0418 , 4374, , 0369 , 0434 ~, L) OATEa 1D/20fllt 61 F ~. - - _....... ,,;,. '.- PAGE 61 ",--, ( '-_.. , c= (' '\.. .... LPI00r. DATA O(l9E , 0484 0490 LP171t0 STOP ODA7 OOA9 0460 0350, 0566, 1035, 0492 0494 0463, 0461, 1041, 1943, 0449, 1018, 0617, 0522, 1209 0505 0451, 0849, 1186, 1323, 1576, 1c)96 , 6360 0523, 0531 0535, ,. 0536, 0963, 2226 0506 0507 0508 0509 I{I 0510 EXP OOBE 0511 051? ACTl EXPl OOBF oDeD 0513 0520 STOPGO SHH OOCt 00C4 . DORA SECER~ RETAO ACT 0088 OOBC ODeD SH"1R SHHl SHt1Rl SHH2 STAT 00C7 OOCA 0004 OoOB DOOC , , , , , , , , , 0495, 0556, 1045, 2123, 0453, 1040, 1030, 0540, 0502, 0566, 1289, 2151, 0560. 1046,· 1206 0615, 0514, 0.609, 1713, 2227 0563, 1131, , , , , , , 0525, 0859, 1197, 1339, 1594, 2109, 0626, 0920., 1214, 1355, 1637, 2120, 0680, 0985, 1231, 1388, 1783, 2128 1129 0807, 1005 1741, 1925 C 0610, 1006 2098 (~ , , , , , , 0576 (J57Q 0588 0597 0606 SEL02 SELECT SEll SEt? ERR1 OOF7 00F9 OOFF 0103 01(,1'1 NOTSEC LOOP5F ..... LDOP6F., lOOP1F SUB11 0117 0118 011.C . 0533; 0550, 0558 U569 0555 0553, 0554 043'1, 04,.1, 0 ... 62, n571r~ 0580, 0663, 07&6, 0848, 1073, 138,7, 13Q6, 1620, 0603 0516, 0581, 0591) 0589, 1776, 1974, 0602, 0642, 1227, 0611, 0632, 0633, 092'+, 0988, 1266, 1717, 1929, 1950, 0614 0710, 0716, 0119 0684, 0712, 0726, 0685, 0714, 0137, 0631, 0636, 0637, , •, , -, .... I' 0538 0539, 0551, 0805, 0901~ 0915 1121, 1628, 1670, 1712, 1745 OOEl OOF.3 O!lEA 00F4 00F5 , , , , , , , , "r--' 0810 1100 1265 1496 19'*2 r-- 0542, 05,.3 STATO STATOA STATl STAT2 SElO , , , 0795, .1014,· 1247, 1462, 1924, ... \' 0900, 0912, 0962 , o...... ft,· ·0528 01lE ~ ii, "-.-' ; Ot10 (' 04!)4, 043"., 0465, 0497, 0515 0612, 0622, 0904, 091.8, 0966 1135, 2100. 2199, 2219 XEQUI'P - OOOE 0619 0623 . D6l4 0625 0627 ~-., 0477, 0485, 0984, 1069, 1111, 1154 1264, 1398, 1441., 1503, 1529, 2013 ... -05"'9,· 0552 055,. .0560 0570 0574 .....- . i ;-~., , , •, , ,r-""", OATEI 10/20/14 62 0476 0523 0527 0536 0543 U547 f,' PA:iE " ./ I I I 0470, 0679, 1099, 1773, 01t71 , 0695, 1109, 2071 r ',. I" ; 0478 0749 1354 (' 1\ 2060 1246, Ift14 0799, 0813, 0863 1294, 1295, 1631 1955 ' .... (_., \ ........... ('" 0730 0741 0638, 061)1,' 0657 '- ... ..--, ( " 60221200 F PAGE 62 (' \~ .... . (~ \" - . (-' , .... (-" L) C) C) 0 C) c) 0640· 0651 0656 0662 0673 0675 0676 0686 0691 0693 0 ~ U '''--''1 l..J ' --'1 0 (--\ 0 C\ 0 C) 0 SEL211 SECt lOOP12 LOOP1] lOOP14 XOF '514r: WOINe FC ClRP 012A 012E 0130 0133 1)139 0138 01le 0146 01'+~ 01'+8 069S 0701 0710 0718 0726 0729 0737 07'+0 0 ---) PAG!=' LP100C 1.:, S14A 014F 0153 S148 LOOP15 0157 S15A 015F LOOP16 0161 S16A . 016'+ LOOP17 0166 0169 S17A 614t-6· -,- -- LOOPt8 . 0169 lOOP19 0179 0762 XRF 0178 0764 NINETE 0185 0773 0186 ERRX 0775 0180 0792 SEC2 S21AA 0190 0795 0800 SEC2E~ 0197 HORO 0199 0802 S21AQ 01AO 0607 IHO 01AE 0817 0180· S21ER 0819 01':35 . 0623 S21AC LOOP21 01(,;2 08'+0 XWOCNT 01C4 08'+2 LP21A 01C6 08-44 010A 0859 S21A 0861 ELEVEN 0100 S218 01El - 0864 CHAN 01E5 OB68 CHKCNT OtE8 0872 lOOP22 01FO 0883 01F2 LP22 0890 01FA 0899 S22C 0203 S22G 0905 CKER19 0207 0910 0214 S22E 0920 S23E 0217· 0922 0218 S22F 0925 021C CNT 0927 OQ37 0946 LOOP23 S230 0223 022C 63 , , , , , , , , , , , , OATFI 10/2017'+ DGG'+, 116'+3, 0382, (J658 0665 0700, 0681 0750, 07G7, 1271 11'+8, 1542, 1808, leaS, 0652 0704, ~117, 0728, 013.9 0627 11672, 0678 0656, 0696, 0701, 0754, 0769, 079"2 0843, 1065, 1377, 1606, 1779 061\2 , 0689 , 0711 0713 , 0715 0757 , 0771 0601, 0629, 066A, (1363, 0809 0613 0797, , , , , , , , , 0677, 0747, 0847 0796 0776, 0853, 1105, 1767 0625, 0832 0798, 0826, 0830, O~J'+ OB33, 0855, oe88 0822 , 0800..... 0814, 0818 OB66 079,., 0873, 0876 0858 , , , , 0811 085'+ , 220C; , , , , , 0608, 0857, 0678, 0879, 1215 0869, OB93 OA9S; OR97 , 0896, OQ14 094ft, 091Q, , 087'+, , , , 0907, 09,.5 0925, 0971 0948 OQ23 0889, 0932, 0996, 1206, 1692 090" 0'138 .~ C' 0 0 (") 60221200 F PAGE 63 (--' " ,/'--" ( , .... - (" \, . (' "'-_.LPI00C PAGF 0958 0969' 0971 0972 0982 OQ94 099'" LOOP24 lP23F S24C S24G LOOP25 INIT80 S22A 0i?31 023E 02JF 1)240 0246 0255 0259 1002 1004 1007 1010 1015 1017· 1026 1028 1033 ·1044 1047 1050 1062. 1065 1084 10931105 1115 1118 1121 FHAM1 EQWRT BOCl BOC2 BOC03 BOCSTA O?')O 025F 0264 02&7 026e 026E EQTERM INBoe Boe3 SOC4 LOOP26. XClRP S26A lOQP27 XERRX XSUB42 S27C OF' 027A 027F 028C 02'U 0294 029A 1]290 0285 029a 02C7 0204 0207 02ng 1122 AF G20r. 1124 ERRSUq 0200 xeo 0278 BOCER~ 1129 1133 1138 ES2 STPCNT ERSUB2 02E3 1146 SUB31 02F5 ~OATA 0302 030C 0310 0313 0316 031A 031C 0321 0328. 0328 033C 0341 OJ44 0354 '1154 1169 1176 1178 1160 1164 1186 1195 1200 1202 1214 1217 1225 1242 SEC3 LOOP32 XPRINT S,32A S32E~ S328 lOOP33 SJ3B £QIO SJ3A S33C lOOP3lt lOOP35 02E9 02EE 64 0977 0937, Og&O 09&7 0870, oa94, 0940, 0974 0890, 2225 1014 1007 1008 1025 1020 1024, 1013, 1017, 1054 10ft7 • 0992, 0982, 1079 11,20 ~ 1'078 1081 1106 ; 0675, 12ftR, 1063, 1638, 0777, , 128i! 1144, 1125, 0620, ., 1283 1160, , , , , , , , , , (\ 1,, __ ., DATEt 10/20/14 ~ OQ39, 0950 ( 0991 09-:;9, 1026, 1031 0942, 0946, 0958, Og61, 0972 ~ ~ .. , , , , , , , , , , , , , , , , , t , , ., ., ., , ., , ., , 0899, 0911, 0999, 1000 ~ ( , , , , •, "-,.- " (' ., 2223 1039, 10 .. 2, 1053 1029, 1048, 1055 \, 1086 0995, 1080, 1118 ( 0"45, 1351, 1075, 2165 0779., 0850, 1094, 111l1, 1243 1380, 1389, 2157 1095, 1112, 1382, 1399 1128, 1136, 1142, 1212 -'., 1287 1140, 12~5 1126, 1134., 1141, 1143., . 1185 .r 116CJ., 1176, 1195, 1225, 12"2 " 11513 03e4, 1172 1169 1170, 1196, 1230., 1244, 12(1) , ,- ( - " "----" \"'- .. 1181 1182 1219 1216 081r;, 1664, 2113., 2203, 2221 1204 1213 1236 1252 -' (' ',-,,--.. ( ....... ,. 60221200 F PAGE 64 ~. I, " C(~ '- .' (-" " u 0 C) C) C) 125q 1271 1277 1279 0 0 ,,....--...,,.\ ~) r"" ( \ '--") ,,,--., l-) ~-,.,-, C ('~" \ l "--'" 0 r . . .~ ~ 0 0 0 ("-" ',-) (-') 1288 1296 1310 1319 1331 1348 1373 1377 1404 1409 1413 1418 1434 1435 1437· 1440 1444 -1449 1458 1459 ·1 ..65 1470 1473 1476 1481 1482 1488 1489 1496 1499 1500 11j(}3-' 1';09 1512 0 0 PAGE LPI00C 1514 1521 .-.~. lOOP36 XSUB11 XSPACE SUR42 S6.J WDCNT 0446 0447 044E 0452 0453 , 04156 0450 0460 SUB71 SUB72 0461 0468 S71B S71C SEC7 XSEl21 LOOP71 LOOP72· LOOP73 S74 046R 0474 0478· 0479 041C 0481 0488 04Q9 SEC6 S5959 S61B 5UB60 S61 . S6?'" ~ r-- . 1524 1532 . 1541 1542 1545 1SS1 1559 1576 60221201) F , • , , , , 0363 0374 037A 0378 SIJ!J42A !Jl89 ENOS42 0396 SEC4 il39C lOOP42 03AO LOOP4J 03AO lOOP" 03R9 LOOP45 03ca YClRP 0300 03F7 S45A 1)3FO S45B 5UfJ41 0401 CHARCH 0407 5FC5 0414 S2021 0415 SSt 0417 552 041A S202 041F ··554 '··0"24 . 0 .. 20 555 S57 042E -SU850· ·-9..35 S50 043A 0430 SU~51 5101 0440 CHAR 0444 TFHP 0445 65 , , , , , , DATEC 10/20'74 1275 1171, 125Q, 0698, t29.J, 1358, 1280 12-81, 0385, 1328 1342 1360 1411 1260, 1263, 1383, 1115, 1296, 1lcH, 1312 1415 1234, 1250, 121\6, 1291 1299, 1300, 1301, 1326 1401, 1406, 164.0 12Q2 1313 1273, 1409 , 1375 , 1311, 1322, 133 .. , 13,.9, 1,.16 1,.29, 1440, 1477 , 0386 -- , 1450, 1461· , 14,." , 1447 1455 , 1457 1436, Ilt71, 1 .. 9-0, 1567 , t4C;/] , 1451, 1479, 1492 , , , 1439, 1466, 1474, 1478, 1502 1452, 1453, 1468, 1556, 1560, 1561 1564" 1571, 1&;89, 1C;90 , tl367 1493 , , 1491, 1511, • 1495, 1510, , 1508 . , 1507 0616, 0~42, 1530 , 1449. 1509, , 1533, 1535, , 15159, 1570, 1531 1526 0388 t 146q , , 1586 1593 1199, 1207, 1523, 1524 1518, 1519, 1532 1545, 1549, 1551, 1555 1574 , , , 1548 , 1563 PAGE 65 ( \ c LPI00C 1583 1586' 1'>88 1601 1608 1626 1635 1643 1650 1655 1663 ... " 1670 1674 1677 ·····1690 1712 172? 1728 .1733 1735 173CJ 1745 1751 1754 1762 1765 -11-69 . 1775 1779 17.81 178& PAG':: SEe8 0490 XCHAR8 04AO S81 04A2 SEC<) 04AC SECI0 04ftF LOOPAl n4CA LOOPA2 0404 LOOPA3 04t:::U LOOPA4 04E8 LPA4A 04E[ LOOP45 04F7 lPA50 0500 LPA51 0505 0-:;07 SURI01 . SEC11 . 0510 LOOP91 052C ·LOOPS2 0538 LOOPBJ 053{l LP83 0543 LPB31 0545 LOOP"4 0548 O-:;4F LP04 XRF.PCO 05'>7 .CHI(IO OS59 XCHI( 0562 ERR16 0564 . PRINT 0568 NOTCR 0570 ZClRP 0574 l'tUXP!Ut .0575 . SUB12 057A ··t795 .... SU8124 . LVLS 1798 1808 SEC12 S46A. 1812. 1816 XlPHSG LOOPC2 1822 LPCZA ·1829 1832 LPC28 1845 LOOPC3 .. 1858 S48A TOF 1867 1870 lPC3A LPC3B --1874 1879 lFVX BOF' 1885 ...1887 LPC3C 1899 PRNTSP XSPACO 1902 .190& COUNT LEVEL' 1907 60221200 F -0583 058(0'>87 nSBC 0591 0594 059C 05AO 05AF Dsee ose6 05C9 05CE 0503 050A D5DC 05E8 05£8 U5EE OSEF 66 , , , , ., , , , , , , , , , ., , , ., , , ., ., , ., , DATEr 10/20174 U389 1583 1602 0390 0391 1634 1fift,2 l<CJ 1662 1651 167'>. 1673 1669 1613, 161)4, 0392 1720 172fl 1737 1729 1732 1752 1749 1674, 1744 172ft, 1735, 1758' 1757, 1761 1178,. 1774. 1771 1690, 1896 1678,' 1184, 1795, 1796, 1701 '- .. ' 17ft1, 1163, 1166 1777. 1782, 2079 I \. 17.87 • 1888. 1900 1797, 1817, 18~7, 1840 (' .; 1791. , , , , •, , , , , , 1848 0393 1818 1826, 1839, 1663 1828 1841 1830 1831, 1850, 1895 1891 1866 1871 1975 ( I '-.. 187l~ 1818 .,.18&.Q. 1884 IS15; 190 .., 1978 19ftl 1788. 1790, 1792, 1810 1811, 1845, 18.. 6, 1851, .1858. 1864 1892 , , .., , PAG~ 66 (.\. u U 0 0 0 0 0 0 0 () 1908 LINE 1917 lCJlR 1923 1938 1941 1952 1963 1965 1CJ75 lCJ91 2005 SEC13 05Ft YSEL21 05F2 XLVl10 05F9 LOOP02 0606 S02A 0~09 S028 0617 LOOP03 061F SIXORR 0621 SOlA 0620 LOOP04 . 063A LPHSG 0640 lPtU ·2016· '2023 2025 LPH2 . : 0659 HESSA 065F HEsse 066E ~028 C ." 0 0 0 0 0 0 0 0 n 2029 2030 2031 2033 2034 2036 2037 2041 2171 1940, 19lt5, 19.. 6, 1952, 1979, lCJaO 1964 03'34, 1'332 .. 18'+2, 1938, 1963, 2000 , , , ., ., , ,.. ., ., , 065,. .. .. , , .. MESS46 0683 HFSS47 OG69 I1SS47A 068F 0695 HESS413 H48A 069E L1HESS . OGAO 06A6 LXHESS LCHESS 06A9 ... MESSO 0682 06flA ~VL10P t1lft6' .. -.SPACOP SPACEL 2051 2056 FO~HAT . Fl - 2063 2069 FIA 2016 FPRINT ·2060 EXITFP '2062 FFORH ENOFF 2089 2091 INTERR 1NST 2105 2109 STATER .. ·.. 211~ INSTO 2120 INSTt 2130 INST2 "'2139-- _... INT -21"7 . IN1 215ft. 1N2 2110· "-'1NTF - .. , , , ., , ; , , , ,• ., 06Eo __ • M. 1612, 1700, 1816, 1887, 1977, 2020 1610, 1698, 1813," 182,. .. ill37, 1861 1867, 1882, 1885, 1975, 2008, 2019 2009 1610, 1611, 161ft, ,1615, 2012 1611, IG15, 1698, 1699, 1702, 1703 . 1699, 1814, 1625, 1838, 1857 1862,· 1866, 1863, 1886, tltl0, 2001, 1902-, I1lt7, 2043, 2058 2012 1831t, 201R 16~3, , 2086 2101, 0310, , 2111 , 21ft7 2122, 2125 ·2135 , 21 .... , 21'+9 ., 0753; 1703, 11'24, 1837, 1661, 1613, 1614 1825 1838 1862 1867, 16"1, 1885, lCJ67, 1609, 20,.,. 20,.9 1277, 2048, 1868 1882, 1883 1886 lQ75, 1976, 1991 167CJ, 1691, 1923, 1976 1812, 2054 2061, 2014, 2083 2002, 2080, 2084 1660, 2053, 20S9 , , 2127, 21 .. 6, 2153 2138, 2169 ., 2129 , • .. 1958 1951 1948 1987, 1997 1Q70, lCJCJ5, lCJ99 1912, 1983 1061. 1156, 1379, 1636, 21ft1 0148 IS~ 60221200 ., , 1t6BE .06C2 06Cfl 06eE 0604 060C OflE2 06E3 06EC 06FA 06FE 0700 070C 071A 072 .. ·· 072C 0735 -07lt7- ........ DATEJ 10/20/74 67 , 05FO '2012 _., 2027 0 PAGE LPI00C F PAGE 67 c--'C~ C C' PAGF LPI00r. ':V 2172 21732174 2175 2176 TRAP STRAP INT<)TA 117ft9 07ftA 074R 07ltC 0740 2177 EF 07ltE 2178 RF 074F INITOC INITt INIT2 INIT2A INIT3 INIT5 TYfJEI/\ FREQCN ENOTYP EPPO 0750 0760 07GA 0786 078E 0797 079A 07BF 07C3 1)7CF 0751 0700 0000 2180 2193 2201 2221 2226 2233 2236 2242 .2243 224ft 2245 2246 2247 IRCH FHA I08F~ AIOOPL C DATn 101'201'74 6a 2092, 2106, 2130, 2137, 2166 , , , , , , , , , , , , t , , , 2132, 2134, 1288, ?162 1229, 2161 0764, 1395, 0304, 2200, 2196 2210, 2207 2230 2190, 2184, 2169, 2231, 1002, C 2133, 2136, 21ftO 2119 2112, 21ft2, 2t50, 215ft, 2158 1232, 1320, 132ft, 138t, 1,.04 r 1071, 1097, 1108, 1353, 1385 161~, 21ft8, 2167 2245 2220 C "-- 22t3, 2216 ( '-- 2191 2185 21CJl, 2231, _2232 2232, 2233, 22,.6, 22,.7 16CJ3, 22,.6, 2247 (' \, ( ,- I (' '- c-.-'-.' c c 60221200 F PAGE 68 c u 0 0 0 0 0 0 0 0 0 [J 0 0 0 0 0 0 0 0 0 () LPI00C ••• A L P H A B E: T I CAL ACT ALIREO BDCER~ BITl BIT14 BIT5 BOF CHARCK CLINT CONTRO DATAl OS PACE" ENOS42 EOPP.E~ EQWRT .. ···-ERSUB2 EXP FCLRIN ... FHA H007F HOFFF ·HFOOO HFFFF IN2 . INtT2 INST TNTERR ·ISR lASTVA lEVX lOOP15 lOOP21 LOOP26 LOOP35 lOOP45 LOOP73 LOOPAt, LOOPR4 lOOP04 LP23F LPB31 LPC3B lPTVP~ Ht,6A HESSA HUXPRN NOTCR PAR2 PARlon RANOOM 01)09 O?93 1033 02 .. 4 0257 0248 1885 OJ43 0290 0221 0451 0296 1296 0292 1004 1138 0510 0225 ·2245 0274 026S 0264 02&0 2154 2201 ?105 2091 2171 0235 1879· 0710 oa40 10&2 1242 1373 155g 1650 1739 1991 0969 1735 187'+ 0325 2031 2023 1781 1775 0336 032Q 1)281 60221200 6q Pl\~E ACTl ~or.t f]()COl aITlO BIT15 . '31T6 CHAN CHKCNT ClRNO CONV DATAL EF ENOSEC [PRO ER~l ES2 EXPl FI='ORH FHAM! HOOFO H2020 HFOFF I INROC tNIT2A I~STO INTF tHO LCI'IES<'; LtNE LOOP1£, lOOP22 LOOPZ7 LOOP3ft lOOP5F lOOP]F lOOPA5 lOOPCZ LPI00C LPA4A LPB4 LPC3C lVll H"INl HESSAG NEXTl NOTSEC PAR3 PAsser P'I}ATA F 0511 1007 1015 J)253 0251\ 0249 S 0 ~ AI=' 90G2 fl1JGSTA T nATEI 10/20'74 o F 1122 1011) 1017 :JITl1 025'+ I3TT2 0245 ~IT7 0250 O~68 CHAR 1481 0872 CHKIO 1754 !l265 CL~P 0693 0286 CONV::R 0282 0321 OATRAN 0457 2177 EIGHT 0299 ENOT':<) 0400 042/\ 1202 22'+4 EQIO 1)608 ER~16 1765 2172 1129 ;:V 0512 Ft 2063 2082 FO~"'AT 2056 10(}2' GFNIUN 6227 {)2&5 0262 HOOFF 0272 0275 H7FOO 0266 0270 HFI='OO 0000 14 0409 10,.4 INFO~11 0240 2226 2221 INIT3 2120 2110 T~STl 2170 INTSTA . 2176 0226 0617 JU'1P 2036 LflLICO 0239 1908 lOOP12 065& 0726 LOOP17 07371)868 LOOP2 J 0937 10q~ 1176' LOOP3~ 1259 LOOP'... Z 1319 !J623 lOOP&1=' 062'+ 0&25 LOOPAt 1628 1663 lO!)J»Bl 1712 1822 lOOpe] 1845 o:SO 1 LP17!t0 046r. 1655 lPA50 1670 17,.5 LPC2A 1829 1887 LP!o11 2012 OZqIJ lVlI0P 20ft1 0233 HESS!t& 2027 2025 0263 MESSR 0-375 NE)(T2 0379 0619 OUTPUT 0447 l13t,8 PARAIJR 0303 1769 0419 P~.INT 115t, ~Elpn<) 0232 S Y " B o L S ..... HHHH AIDOPl BDC3 BITO BIT12 BIll lHT8 CHARR CKER19 CNT COUNT OF ELEVEN ENOTYP EQTE"~H ERRSUB EXIT· FIA FPRINT MOOOO H0760 H7FFF HFFOF 10 INtTOC . INtT5 INST2 IOBFR l1MESS LOLCOR lOOPt3 LOOP18 LOOP24 lOOP33 lOOP,,3 lOOP]l LOOPA2 LOOPB2 LOOP02 lP21A lPA51 LPC2B LPH2 lVLS HESS,.7 HEssa . NEXT3 OVRLAY PARAHS PRINTL REPCDN 2247 1.047 02 .. 3 0255 02 .. 6 0251 0324 0910 0927 1906 1121 0861 22'.3 1028 112,. 0223 2069 '2076 0259' 0273 0271 0269 0506 2180 2233 2130 22,.6 2033 0238 0.662 0746 0958 1195 1333 1545 1635 1722 1938 084 .. 1674 1832 2016 1798 2028 2037 0381 0231 0319 0294 0422 AlARHl 0323 BOC .. 1050 BITOO 02 .. 2 BIT13 .0256 02,.7 AIT4 BIT9 0252 CHARCH 1418 CLEAR 0289 CONST 0278 OATA 0476 DIREQ 0291 .ENOFF 2089 EOPt. 0322 EQUIP 0305 ERRX 0775 EXITFP 2080 FC 06 1n FREQCN 22,.2 HOOOF 0261 HOFOO 0263 HEXASC 0230 HFFFO 0267 INt 2147 INITl 2193 INITBO 09Q .. INT 2139 IRCH 2173 LASTAO 0237 1907 LEVEL LOOP1,. 0673 LOOP19 0762 LOOP25 0962 lOOP34 1225 LOOP" .. 1~48 lOOP72 1551 LOOPA3 1643 LOOPB3 1728 lOOPD3 19&3 lP22 0890 lP83 1733 lPC3A 1870 LPHSG 2005 lXHESS 2034 MESS4ft 2030 HSS47A 2029 NINETE 0773 PARl 0330 PARCHK 0327 PRNTSP 18qq REPEAT O~15 . PAGE 69 c c c LPlnnr; REQINT RF S14B S202 S21AC S2?E S24C S328 S4c)A S51 S5959 S71R S028 SFCI0 SEC2ER SEC7 SFCTOT SEL211 0224 217~ 0701 1444 PAGE REQNO RIL S14r. S20?1 0823 S21~ 0920 0971 S7.2F" S24(; S32fR S459 S52 Sbl S71C S03A <)EC11 1186 140,. 1437 148q 1524 1952 1608 0300 1541 0395 0640 SM"1 0520 SHI'1R 0523 ST~RT ·0313 STAT1 0560 STOPGO 0511 SUB11 0627 1279 SUB42 SUR71 1514 TRAP 2174 TYPEIA ~23o XBO 1026 XEQUIP 054Q XPRINT 1178 XSPACO lQ02" Il18 YSEL21 S~C1 SECS SELn SELECT SI1f041 . SHHR1 STARTl STAT2 STOPX sun12 SUB42A SUB72 TSACTV TYPF"OU Xr.t-tA~3 XER.RX x~EPCO X<:)U!311 lCLPP 0284 0307 ::J67& t43r; OR64 0925 'lq72 1184 1409 1440 1500 1532 1975 1690 11F;9 lr;83 0574 0579 0527 0516 !J360 0570 !)2~2 1786 1288 1521 fJ?7fi 02211 tS86 1105 1751 1271 1779 ~~')TAR ~ILS S1t;tI S21A C:;21E~ ~?2G S~6A 'nu S451.1 C:;C;,. 5r,1rJ S7,. 5D~TA S~C12 SF"C4 Sf:C9 SJ:.:Ln2 SETI'fAS S~"'2 SPAC,: STH STAT>::~ S T?CNT SUQ12A ')ua~o TFHP TSFP~I) WO::;tH X'.:fH( XLPM~G )(~~ XSUB4? 70 c c OATES 10/20174 fl363 0353 0718 Oa"Sq 0819 0905 1084 1214 1812 1449 1496 tc)7~ 0,.37 1608 131" 1601 0576 0234 0543 029'5 0547 2109 1133 1795 1465 1482 0277 1512 1762 181n 0764 1115 RETAO S101 S16A S21AA S22A S23B S?7C S3~B S48A S55 S62 S61 SEC SEC13 SEC5 SECERR SELl SIXORR SHHCNT SPACEL STATO STJP STPAP SUB31 SUB51 TEST TSPACf WOINC XCLRP XLVLI0 XSEl21 XWOCNT 0508 1476 072CJ 0795 099S 0946 1118 1200 18C;8 1458 1503 1588 0420 1917 1434 0507 0588 1965 02,.1 2051 0K;52 023K; 2175 1146 1473 0366 0297 0686 1055 1923 1542 OS,.2 RETURN Sl,.A S17A S21AB S22C S23E S32A S33C SC)O S57 S63 S02A SEC1 SEC2 SEC6 SECTNS SEL2 SJPAR SHHPA P. SPACOP STATOA STOP SUB101 SUB,.1 SUB60 TOF TTYBZY wo~o XOF XOUT XSPACE YCLRP 0304 1J6CJ8 07,.0 0807 0899 0922 llRO 1217 1470 1459 1509 1941 0651 0192 1488 0320 01591 0280 0279 20,.6 0554 0490 1617 1413 1499 1867 0229 0802 0675 0,.69 1277 1377 c \.~ Co, (-'" "- (-\. - ". C~ C C 60221200 F PAGE 7D C c-' ~" (--('" \.. " o COMMENT SHEET MANUAL TITLE _ _ C_O_N_T_R_O_L_D_A_T_A __ S_M_M_1_7_P_R_O_G_R_A_M_L_IS_T_I_N_G_L_P_1_ __ Customer Engineering Manual o o o o F _ _ __ REVISION _ _ _ PUBLICATION NO. _6_0_2_2_1_2_0_0_ _ _ __ FROM: NAME: _________________________________________________________ BUSINESS ADDRESS: ___ ~ _______________________________ COMMENTS: This form is not intended to be used as an order blank. Your evaluation of this manual will be welcomed by Control Data Corporation. Any errors, suggested additions or deletions, or general comments may be made below. Please include page number references and fill in publication revision level as shown by the last entry on the Record of Revision page at the front of the manual. Customer engineers are urged to use the TAR. o o c o o o o o o o NO POSTAGE STAMP NECESSARY IF MAILED IN U. S. A. FOLD ON DOTTED LINES AND STAPLE ( STAPLE STAPLE (----'-. .. ' i-' \ I r .......... , .... ' ~ (' - '- •. ... (~ (' \ ....... FOLD r- FOLD '-. -------------------------------------------~ (-, FIRST CLASS PERMIT NO. 8241 I '- ,r MINNEAPOLIS, MINN. (' BUSINESS REPLY MAIL w Z :::; NO POSTAGE STAMP NECESSARY IF MAILED IN U.S.A. (!) Z 0 -' ...-« POSTAGE WILL BE PAID BY ~ u CONTROL DATA CORPORATION \ ... i ( \ Technical Publications Department 4201 North Lexington Avenue Arden Hills, Minnesota 55112 '- ( .. " i \'-. .,.,.- FOLD FOLD ~ " (, ... (~' C' (' ......--.,,,- C.' ~" (, (' , (J o ,0 o o o o o o c) [ o o o o c; o o ,/ '-. ./ ~ ~CUT OUT FOR USE AS LOOSE -LEAF BINDER TiTlE TAB \- , ' ./ '-.. / / ........ ( CONTROL DATA CORPORATION ,~ 8100 34th AVE. SO., MINNEAPOLIS, MINN. 55440 PRINTED IN U.S.A. ( "
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Producer : Adobe Acrobat 9.13 Paper Capture Plug-in Modify Date : 2009:08:25 21:50:35-07:00 Create Date : 2009:08:25 21:50:35-07:00 Metadata Date : 2009:08:25 21:50:35-07:00 Format : application/pdf Document ID : uuid:77da0cee-78b4-443f-8387-de44c57f99eb Instance ID : uuid:904f53e2-e0da-4585-b88a-cecfe9f75a31 Page Layout : SinglePage Page Mode : UseNone Page Count : 76EXIF Metadata provided by EXIF.tools