ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u2card1.asm LIBF CARD1 2 | *************************************************** U2B00020 3 | * * U2B00030 4 | * SUBROUTINE NAME- * U2B00040 5 | * FULL NAME- N/A * U2B00050 6 | * CODE NAME- CARD1 * U2B00060 7 | * PURPOSE- * U2B00070 8 | * THIS 1130 SUBROUTINE OPERATES THE 1442 CARD * U2B00080 9 | * READER PUNCH. IT INITIATES REQUESTED OPERA- * U2B00090 10 | * TIONS, PROCESSES ANY COLUMN OR OPERATION * U2B00100 11 | * COMPLETE INTERRUPTS, AND, IF REQUESTED, * U2B00110 12 | * INITIATES ERROR RECOVERY PROCEDURES. * U2B00120 13 | * METHOD- * U2B00130 14 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U2B00140 15 | * CAPABILITIES AND LIMITATIONS- * U2B00150 16 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U2B00160 17 | * SPECIAL FEATURES- THIS SUBROUTINE USES A USER-* U2B00170 18 | * WRITTEN ERROR RECOVERY SUBROUTINE. * U2B00180 19 | * ADDITIONAL INFORMATION- * U2B00190 20 | * ESTIMATED EXECUTION TIME- * U2B00200 21 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U2B00210 22 | * * U2B00220 23 | *************************************************** U2B00230 24 | LIBR U2B00240 0000 25 | 1130 ISS 01 CARD1 0 4 U2B00250 26 | *************************************************** U2B00260 27 | * LOADER DEFINED LOCATIONS * U2B00270 28 | *************************************************** U2B00280 0000 6979 29 | CARD1 STX 1 CR42+1 LIBF ENTRANCE (+0) U2B00290 0001 6580 0000 30 | LINK LDX I1 0 LOADER STORES TV ADDR (+2) U2B00300 0003 7006 31 | MDX CR10 U2B00310 0004 0000 32 | INT1 DC 0 COLUMN INTERRUPT (+4) U2B00320 0005 4C00 00A4R 33 | BSC L CR50 U2B00330 0007 0000 34 | INT2 DC 0 OP COMPLETE INTERRUPT (+7) U2B00340 0008 4C00 00BCR 35 | BSC L CR60 U2B00350 36 | *************************************************** U2B00360 37 | * LIBF PROCESSING * U2B00370 38 | *************************************************** U2B00380 39 | * THIS PORTION STORES CALLING SEQUENCE INFO * U2B00390 40 | * AND CHECKS THE DEVICE STATUS BEFORE ANY I/O * U2B00400 41 | * OPERATION IS INITIATED. A CALLING ERROR OR * U2B00410 42 | * NOT READY 1442 CAUSES AN ERROR EXIT TO * U2B00420 43 | * LOCATION 41. IF THE OPERATION WILL CAUSE * U2B00430 44 | * INTERRUPTS, THE ROUTINE IS SET BUSY AND THE * U2B00440 45 | * IOCS COUNTER IS INCREMENTED TO INDICATE * U2B00450 46 | * INTERRUPT(S) PENDING. * U2B00460 47 | *************************************************** U2B00470 000A 6A71 48 | CR10 STX 2 CR44+1 SAVE XR2 U2B00480 000B 2871 49 | STS CR46 SAVE STATUS U2B00490 000C D075 50 | STO TEMP SAVE A REG U2B00500 000D C100 51 | LD 1 0 XR1= ADDR OF CONTROL PARAM U2B00510 000E 180C 52 | SRA 12 IS FUNCTION TEST U2B00520 000F 4C20 0015R 53 | BSC L CR12,Z NO,BRANCH U2B00530 0011 C078 54 | LD RESTR+2 YES,IS PROGRAM BUSY U2B00540 0012 4818 55 | BSC +- YES,EXIT TO CALL+2 U2B00550 0013 7101 56 | MDX 1 +1 NO,EXIT TO CALL+3 U2B00560 0014 7061 57 | MDX CR38 GO EXIT U2B00570 0015 D012 58 | CR12 STO CR24+1 U2B00580 0016 907F 59 | S D0004 IS FUNCTION LEGAL U2B00590 0017 4C30 0020R 60 | BSC L CR16,Z- NO,ERROR U2B00600 0019 C070 61 | CR14 LD RESTR+2 IS ROUTINE BUSY U2B00610 001A 4C20 0019R 62 | BSC L CR14,Z YES,WAIT TILL NOT U2B00620 001C C100 63 | CR15 LD 1 0 NO,SET UP FOR FUNCTION U2B00630 001D 100C 64 | SLA 12 IS DEVICE 0 U2B00640 001E 4C18 0026R 65 | BSC L CR22,+- YES U2B00650 0020 C07C 66 | CR16 LD H1001 NO,LOAD ERROR CODE U2B00660 0021 71FF 67 | CR18 MDX 1 -1 U2B00670 0022 6D00 0028 68 | STX L1 $PRET STORE CALL ADDR IN $PRET U2B00680 0024 6129 69 | LDX 1 $PRET+1 U2B00690 0025 7052 70 | MDX CR40 SET EXIT FOR $PRET+1 U2B00700 0026 C066 71 | CR22 LD FEED SET UP IOCC FOR FUNC U2B00710 0027 6600 0000 72 | CR24 LDX L2 0 XR2 = FUNCTION CODE U2B00720 0029 8600 008ER 73 | A L2 SETUP-1 U2B00730 002B D05B 74 | STO INIT U2B00740 002C 9600 0092R 75 | S L2 SETUP+3 U2B00750 002E D056 76 | STO COLM+1 U2B00760 002F 085A 77 | CR26 XIO SENSE-1 IS DEVICE READY U2B00770 0030 4C04 0038R 78 | BSC L CR30,E NO U2B00780 0032 4E00 0033R 79 | CR28 BSC L2 CR28+1 YES,INITIATE FUNCTION U2B00790 0034 700E 80 | MDX CR32 = GET U2B00800 0035 700D 81 | MDX CR32 = PUT U2B00810 0036 7027 82 | MDX CR33A = FEED U2B00820 0037 7038 83 | MDX CR36 = STK U2B00830 0038 1801 84 | CR30 SRA 1 IS DEVICE BUSY U2B00840 0039 4C04 002FR 85 | BSC L CR26,E YES,WAIT U2B00850 003B 1003 86 | SLA 3 NO,IS ERROR BIT ON U2B00860 003C 4C10 0041R 87 | BSC L CR31,- NO U2B00870 003E C0E9 88 | LD CR24+1 YES,IS FUNCT GET/FEED U2B00880 003F 4804 89 | BSC E NO U2B00890 0040 D03F 90 | STO ERROR YES,SET SKIP CARD INDR U2B00900 0041 C05A 91 | CR31 LD H1000 LOAD NOT READY CODE U2B00910 0042 70DE 92 | MDX CR18 EXIT U2B00920 0043 C580 0001 93 | CR32 LD I1 1 INITIATE FUNCTION U2B00930 0045 4C08 0020R 94 | BSC L CR16,+ ERROR IF COUNT NEG OR 0 U2B00940 0047 D03E 95 | STO COUNT U2B00950 0048 D03F 96 | STO RESTR SAVE WORD COUNT U2B00960 0049 904E 97 | S D0080 IS WORD COUNT OVER +80 U2B00970 004A 4C30 0020R 98 | BSC L CR16,Z- YES,GO TO ERROR EXIT U2B00980 004C C101 99 | LD 1 1 NO U2B00990 004D D036 100 | STO COLM SAVE ADDR OF I/O AREA U2B01000 004E D03A 101 | STO RESTR+1 U2B01010 004F D007 102 | STO CR33+1 U2B01020 0050 7101 103 | MDX 1 +1 SET XR1 TO SKIP THIRD PARAM U2B01030 0051 72FF 104 | MDX 2 -1 IS FUNCTION =GET U2B01040 0052 7014 105 | MDX CR34 NO U2B01050 0053 6680 0086R 106 | CR32A LDX I2 COUNT U2B01060 0055 C03F 107 | LD D0001 STORE +1 IN DATA AREA U2B01070 0056 D600 0000 108 | CR33 STO L2 0 (NOT READ INDICATOR) U2B01080 0058 72FF 109 | MDX 2 -1 NEXT WORD U2B01090 0059 70FC 110 | MDX CR33 LOOP U2B01100 005A C02B 111 | LD COUNT GET WORD COUNT U2B01110 005B 8039 112 | A D0001 INCREASE WORD COUNT BY U2B01120 005C D029 113 | STO COUNT *+1 SO PROCESS LAST U2B01130 005D D02A 114 | STO RESTR COLUMN U2B01140 005E 082B 115 | CR33A XIO SENSE-1 YES,IS LAST CD INDR ON U2B01150 005F 1003 116 | SLA 3 U2B01160 0060 4C10 0067R 117 | BSC L CR34,- NO U2B01170 0062 0829 118 | XIO FEED-1 EJECT CARD U2B01180 0063 7200 119 | MDX 2 0 IS FUNCTION GET U2B01190 0064 70DC 120 | MDX CR31 NO U2B01200 0065 71FF 121 | MDX 1 -1 YES,SET XR1=LIBF+1 U2B01210 0066 70DA 122 | MDX CR31 U2B01220 0067 0822 123 | CR34 XIO SENSE-1 IS DEVICE READY 2-7 U2B01230 0068 4C04 009FR 124 | BSC L CR47,E BRANCH IF NOT READY 2-7 U2B01240 006A C101 125 | LD 1 1 SAVE USER RESTART SUBR U2B01250 006B D01E 126 | STO RESTR+2 *ADDRESS U2B01260 006C 7101 127 | MDX 1 +1 SET XR1 TO SKIP 2ND PARAM U2B01270 006D 7401 0032 128 | MDX L 50,+1 INCREMENT IOCS COUNTER U2B01280 006F 1000 129 | NOP U2B01290 0070 C00F 130 | CR36 LD ERROR IS SKIP CD INDR ON U2B01300 0071 4C18 0075R 131 | BSC L CR37,+- U2B01310 0073 0818 132 | XIO FEED-1 YES, FEED 1 CARD U2B01320 0074 7001 133 | MDX CR38 U2B01330 0075 0810 134 | CR37 XIO INIT-1 NO, INITIATE FUNCTION U2B01340 0076 7101 135 | CR38 MDX 1 +1 SET XR1 TO SKIP FIRST PARAM U2B01350 0077 C00A 136 | LD TEMP RESTORE A REG U2B01360 0078 6906 137 | CR40 STX 1 EXIT+1 SET UP EXIT U2B01370 0079 6500 0000 138 | CR42 LDX L1 *-* RESTORE XR1 U2B01380 007B 6600 0000 139 | CR44 LDX L2 *-* RESTORE XR2 U2B01390 007D 2000 140 | CR46 LDS *-* RESTORE STATUS U2B01400 007E 4C00 0000 141 | EXIT BSC L *-* RETURN TO USER U2B01410 142 | *************************************************** U2B01420 143 | * CONSTANTS * U2B01430 144 | *************************************************** U2B01440 0080 145 | BSS E 0 U2B01450 0080 0000 146 | SENSR DC 0 U2B01460 0081 1702 147 | DC /1702 SENSE-RESET,LEVEL 4 U2B01470 0082 0000 148 | TEMP DC 0 SAVE ACCUM U2B01480 0083 1701 149 | CHAR DC /1701 TEMP REG FOR INTERPTS (ODD) U2B01490 0084 0000 150 | COLM DC 0 IOCC FOR COLUMN I/O (EVEN) U2B01500 0085 0000 151 | DC 0 (ODD) U2B01510 0086 0000 152 | COUNT DC 0 NO. OF WDS TO TR U2B01520 0087 0000 153 | INIT DC 0 IOCC TO INITIATE I/O (ODD) U2B01530 0088 0000 154 | RESTR DC 0 RESTART INFO - COUNT U2B01540 0089 0000 155 | DC 0 - IOAR U2B01550 008A 0000 156 | DC 0 - ERROR ADDR U2B01560 008B 1700 157 | SENSE DC /1700 IOCC TO SENSE DEVICE (ODD) U2B01570 008C 0082R 158 | ADDR DC CHAR-1 ADDR TO REPLACE I/O AREA U2B01580 008D 1402 159 | FEED DC /1402 IOCC TO FEED CARD (ODD) U2B01590 0080R 160 | ERROR EQU SENSR SKIP CARD INDR U2B01600 008E 0000 161 | INDIC DC 0 FEED CHK (RD STATION) INDR U2B01610 008F 0002 162 | SETUP DC /0002 INITIATE READ START U2B01620 0090 FFFF 163 | DC /FFFF PUNCH START U2B01630 0091 0000 164 | DC /0000 FEED CYCLE U2B01640 0092 007E 165 | DC /007E STACKER SELECT U2B01650 0093 0204 166 | DC /0204 INITIATE READ COLUMN U2B01660 0094 0301 167 | DC /0301 PUNCH COLUMN U2B01670 0095 0001 168 | D0001 DC +1 DECIMAL CONSTANTS U2B01680 0096 0004 169 | D0004 DC +4 CONST TO CHECK FUNCTION U2B01690 0097 0008 170 | D0008 DC 8 CONST FOR PUNCH STOP BIT U2B01700 0098 0050 171 | D0080 DC +80 CONST TO CHECK WD COUNT U2B01710 0099 000F 172 | H000F DC /000F MASKS AND HEXADECIMAL CONS U2B01720 009A 0100 173 | H0100 DC /0100 MASK CONST U2B01730 009B 02FE 174 | H02FE DC /02FE MASK CONST U2B01740 009C 1000 175 | H1000 DC /1000 NOT READY ERROR CODE U2B01750 009D 1001 176 | H1001 DC /1001 ILLEGAL CALL ERROR CODE U2B01760 009E 1701 177 | SDSW DC /1701 SENSE DSW AREA CODE 2-2 U2B01770 008D 178 | $PST4 EQU /8D POST-OPERATIVE ERROR TRAP U2B01780 0028 179 | $PRET EQU /28 U2B01790 180 | * U2B01800 009F C088 181 | CR47 LD CR24+1 IS XR1 2-7 U2B01810 00A0 90EE 182 | S SETUP INCREASED 2-7 U2B01820 00A1 4808 183 | BSC + * 2-7 U2B01830 00A2 71FF 184 | MDX 1 -1 YES 2-7 U2B01840 00A3 7094 185 | MDX CR30 * 2-7 U2B01850 186 | *************************************************** U2B01860 187 | * COLUMN INTERRUPT PROCESSING * U2B01870 188 | *************************************************** U2B01880 189 | * THIS PORTION IS ENTERED FROM INTERPT LEVEL * U2B01890 190 | * SUBROUTINE 00. AFTER THE REQUESTED NO. OF * U2B01900 191 | * COLUMNS HAS BEEN READ, THE REMAINING COLUMN * U2B01910 192 | * INTERRUPTS ARE MERELY TURNED OFF AS THEY * U2B01920 193 | * OCCUR. WHEN THE LAST COLUMN REQUESTED IS * U2B01930 194 | * PUNCHED, AN INDICATION IS GIVEN TO THE 1442 * U2B01940 195 | * TO INITIATE AN OP COMPLETE INTERRUPT. * U2B01950 196 | *************************************************** U2B01960 00A4 C0F9 197 | CR50 LD SDSW 2-2 U2B01970 00A5 D0DD 198 | STO CHAR RESTORE SENSE IOCC U2B01980 00A6 08DB 199 | XIO CHAR-1 SENSE DEVICE STATUS WORD U2B01990 00A7 74FF 0086R 200 | MDX L COUNT,-1 ANY MORE COLUMNS U2B02000 00A9 700D 201 | MDX CR54 YES U2B02010 00AA 4C10 00AFR 202 | BSC L CR52,- IS READ CC INTERPT U2B02020 00AC 7401 0086R 203 | MDX L COUNT,+1 YES,SET COUNT TO SKIP U2B02030 00AE 700B 204 | MDX CR56 *NEXT CC U2B02040 00AF 7401 0084R 205 | CR52 MDX L COLM,+1 NO,SET FOR NEXT WORD U2B02050 00B1 C480 0084R 206 | LD I COLM STORE STOP PUNCH U2B02060 00B3 E8E3 207 | OR D0008 * BIT (BIT 12) IN U2B02070 00B4 D0CE 208 | STO CHAR * WORD & PUNCH FROM U2B02080 00B5 C0D6 209 | LD ADDR * TEMPORARY ADDRESS U2B02090 00B6 D0CD 210 | STO COLM U2B02100 00B7 7401 0084R 211 | CR54 MDX L COLM,+1 SET FOR NEXT I/O WORD U2B02110 00B9 08CA 212 | XIO COLM EXECUTE COLUMN I/O U2B02120 00BA 4C80 0004R 213 | CR56 BSC I INT1 RETURN TO INTERPT LEVEL U2B02130 214 | *************************************************** U2B02140 215 | * OP COMPLETE INTERRUPT PROCESSING * U2B02150 216 | *************************************************** U2B02160 217 | * THIS PORTION IS ENTERED FROM INTERPT LEVEL * U2B02170 218 | * SUBROUTINE 04. IF AN ERROR IS DETECTED, * U2B02180 219 | * THE SUBROUTINE EXITS TO THE USERS ERROR * U2B02190 220 | * ROUTINE VIA THE ERROR PARAMETER, AND * U2B02200 221 | * GIVES THE USER THE OPTION OF TERMINATING * U2B02210 222 | * OR RETRYING THE OPERATION. IF TERMINATION * U2B02220 223 | * IS SELECTED OR IF NO ERROR IS DETECTED, THE * U2B02230 224 | * ROUTINE IS SET NOT BUSY AND THE IOCS * U2B02240 225 | * COUNTER IS DECREMENTED TO INDICATE INTERPT * U2B02250 226 | * PROCESSING COMPLETED. OTHERWISE THE SUBRT * U2B02260 227 | * WAITS AT THE POST-OPERATIVE ERROR TRAP U2B02270 228 | * UNTIL THE 1442 IS READY AND THE OPERATOR * U2B02280 229 | * PUSHES START,AT WHICH TIME THE CARDS ARE * U2B02290 230 | * POSITIONED AND THE I/O OP IS RE-INITIATED. * U2B02300 231 | *************************************************** U2B02310 00BC 08C3 232 | CR60 XIO SENSR OP COMPLETE, SENSE W/RESET U2B02320 00BD 1003 233 | SLA 3 IS OPERATION OK U2B02330 00BE 4C02 00D9R 234 | BSC L CR70,C NO,ERROR U2B02340 00C0 4C10 00CDR 235 | CR61 BSC L CR62,- YES U2B02350 00C2 1810 236 | SRA 16 U2B02360 00C3 4480 008AR 237 | BSI I RESTR+2 NO,LAST CARD U2B02370 00C5 C0C6 238 | LD ADDR U2B02380 00C6 80CE 239 | A D0001 U2B02390 00C7 F0BC 240 | EOR COLM IS FUNCTION PUT U2B02400 00C8 4C20 00CDR 241 | BSC L CR62,Z NO U2B02410 00CA 7401 0087R 242 | MDX L INIT,+1 U2B02420 00CC 08B9 243 | XIO INIT-1 YES,EJECT LAST CARD U2B02430 00CD C0B2 244 | CR62 LD ERROR WAS THIS A SKIP OPERATION U2B02440 00CE 1000 245 | NOP 2-3 U2B02450 00CF 1010 246 | SLA 16 2-3 U2B02460 00D0 D0AF 247 | STO ERROR U2B02470 00D1 4C02 00E9R 248 | BSC L CR72,C YES, INITIATE FUNCTION U2B02480 00D3 D0B6 249 | CR64 STO RESTR+2 CLEAR ROUTINE BUSY INDR U2B02490 00D4 74FF 0032 250 | MDX L 50,-1 DECREMENT IOCS COUNTER U2B02500 00D6 1000 251 | NOP U2B02510 00D7 4C80 0007R 252 | CR66 BSC I INT2 RETURN TO INTERRUPT LEVEL U2B02520 00D9 D0B4 253 | CR70 STO INDIC SAVE FEED CHECK (READ STA- U2B02530 00DA C0BA 254 | LD D0001 TION) INDR. U2B02540 00DB 4480 008AR 255 | BSI I RESTR+2 U2B02550 00DD 4C18 00D3R 256 | BSC L CR64,+- RESTART NOT REQUESTED U2B02560 00DF C0A7 257 | LD INIT IS FUNCTION PUNCH U2B02570 00E0 4C04 00E9R 258 | BSC L CR72,E YES,DONT SKIP U2B02580 00E2 1801 259 | SRA 1 IS FUNCTION FEED U2B02590 00E3 4C04 00F7R 260 | BSC L CR73B,E YES U2B02600 00E5 C0A3 261 | LD RESTR+1 FUNCTION IS GET U2B02610 00E6 F09D 262 | EOR COLM WAS FIRST CC READ U2B02620 00E7 4C18 00FBR 263 | BSC L CR73E,+- NO,SKIP ONE CARD U2B02630 00E9 08A0 264 | CR72 XIO SENSE-1 IS DEVICE READY U2B02640 00EA 4C04 00FER 265 | BSC L CR75,E NO,GO TO ERROR TRAP U2B02650 00EC C093 266 | LD ERROR IS CARD SKIP NECESSARY U2B02660 00ED 4C18 00F1R 267 | BSC L CR73,+- NO U2B02670 00EF 089C 268 | XIO FEED-1 SKIP FIRST CARD U2B02680 00F0 70E6 269 | MDX CR66 U2B02690 00F1 C096 270 | CR73 LD RESTR REINITIATE I/O U2B02700 00F2 D093 271 | STO COUNT *OPERATION FROM U2B02710 00F3 C095 272 | LD RESTR+1 *SAVED INFORMATION U2B02720 00F4 D08F 273 | STO COLM U2B02730 00F5 0890 274 | XIO INIT-1 U2B02740 00F6 70E0 275 | MDX CR66 RETURN U2B02750 00F7 C096 276 | CR73B LD INDIC WAS ERROR FEED CHK(READ U2B02760 00F8 1004 277 | SLA 4 *STATION) U2B02770 00F9 4C28 00E9R 278 | BSC L CR72,Z+ YES,DONT SKIP U2B02780 00FB C099 279 | CR73E LD D0001 2-3 U2B02790 00FC D083 280 | STO ERROR SET BIT 1 OF INDR U2B02800 00FD 70EB 281 | MDX CR72 GO SENSE DEVICE READY U2B02810 282 | * U2B02820 283 | *EXIT TO POST-OPERATIVE ERROR TRAP WITH NOT READY U2B02830 284 | *ERROR CODE IN THE ACCUMULATOR. U2B02840 285 | * U2B02850 00FE C09D 286 | CR75 LD H1000 ERROR CODE INTO A REG U2B02860 00FF 4400 008D 287 | BSI L $PST4 U2B02870 0101 70E7 288 | MDX CR72 TRY AGAIN U2B02880 0102 289 | END U2B02890 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PRET 0028 179 68 69 $PST4 008D 178 287 ADDR 008CR 158 209 238 CARD1 0000R 29 CHAR 0083R 149 158 198 199 208 COLM 0084R 150 76 100 205 206 210 211 212 240 262 273 COUNT 0086R 152 95 106 111 113 200 203 271 CR10 000AR 48 31 CR12 0015R 58 53 CR14 0019R 61 62 CR15 001CR 63 CR16 0020R 66 60 94 98 CR18 0021R 67 92 CR22 0026R 71 65 CR24 0027R 72 58 88 181 CR26 002FR 77 85 CR28 0032R 79 CR30 0038R 84 78 185 CR31 0041R 91 87 120 122 CR32 0043R 93 80 81 CR32A 0053R 106 CR33 0056R 108 102 110 CR33A 005ER 115 82 CR34 0067R 123 105 117 CR36 0070R 130 83 CR37 0075R 134 131 CR38 0076R 135 57 133 CR40 0078R 137 70 CR42 0079R 138 29 CR44 007BR 139 48 CR46 007DR 140 49 CR47 009FR 181 124 CR50 00A4R 197 33 CR52 00AFR 205 202 CR54 00B7R 211 201 CR56 00BAR 213 204 CR60 00BCR 232 35 CR61 00C0R 235 CR62 00CDR 244 235 241 CR64 00D3R 249 256 CR66 00D7R 252 269 275 CR70 00D9R 253 234 CR72 00E9R 264 248 258 278 281 288 CR73 00F1R 270 267 CR73B 00F7R 276 260 CR73E 00FBR 279 263 CR75 00FER 286 265 D0001 0095R 168 107 112 239 254 279 D0004 0096R 169 59 D0008 0097R 170 207 D0080 0098R 171 97 ERROR 0080R 160 90 130 244 247 266 280 EXIT 007ER 141 137 FEED 008DR 159 71 118 132 268 H000F 0099R 172 H0100 009AR 173 H02FE 009BR 174 H1000 009CR 175 91 286 H1001 009DR 176 66 INDIC 008ER 161 253 276 INIT 0087R 153 74 134 242 243 257 274 INT1 0004R 32 213 INT2 0007R 34 252 LINK 0001R 30 RESTR 0088R 154 54 61 96 101 114 126 237 249 255 261 270 272 SDSW 009ER 177 197 SENSE 008BR 157 77 115 123 264 SENSR 0080R 146 160 232 SETUP 008FR 162 73 75 182 TEMP 0082R 148 50 136