ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u2card0.asm LIBF CARD0 2 | *************************************************** U2A00020 3 | * * U2A00030 4 | * SUBROUTINE NAME- * U2A00040 5 | * FULL NAME- N/A * U2A00050 6 | * CODE NAME- CARD0 * U2A00060 7 | * PURPOSE- * U2A00070 8 | * THIS 1130 SUBROUTINE OPERATES THE 1442 CARD * U2A00080 9 | * READER PUNCH. IT INITIATES REQUESTED OPERA- * U2A00090 10 | * TIONS, PROCESSES ANY COLUMN OR OPERATION * U2A00100 11 | * COMPLETE INTERRUPTS, AND AUTOMATICALLY * U2A00110 12 | * INITIATES ERROR RECOVERY PROCEDURES. * U2A00120 13 | * METHOD- N/A * U2A00130 14 | * CAPABILITIES AND LIMITATIONS- N/A * U2A00140 15 | * SPECIAL FEATURES- NO ERROR PARAMETER * U2A00150 16 | * ADDITIONAL INFORMATION- * U2A00160 17 | * ESTIMATED EXECUTION TIME- * U2A00170 18 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL. * U2A00180 19 | * * U2A00190 20 | *************************************************** U2A00200 21 | LIBR U2A00210 0000 22 | 1130 ISS 01 CARD0 0 4 U2A00220 23 | *************************************************** U2A00230 24 | * LOADER DEFINED LOCATIONS * U2A00240 25 | *************************************************** U2A00250 0000 6961 26 | CARD0 STX 1 CA30+1 LIBF ENTRANCE (+0) U2A00260 0001 6580 0000 27 | LINK LDX I1 0 LOADER STORES TV ADDR (+2) U2A00270 0003 7006 28 | MDX CA10 START CALL PROCESSING U2A00280 0004 0000 29 | INT1 DC 0 COLUMN INTERRUPT (+4) U2A00290 0005 4C00 00E6R 30 | BSC L NT14 PROCESS COL INTERRUPT U2A00300 0007 0000 31 | INT2 DC 0 OP CMPLTE INTERRUPT (+7) U2A00310 0008 4C00 00A9R 32 | BSC L NT10 PROCESS OP COMPLETE INTRP U2A00320 33 | *************************************************** U2A00330 34 | * LIBF PROCESSING * U2A00340 35 | *************************************************** U2A00350 36 | * THIS PORTION STORES CALLING SEQUENCE INFO * U2A00360 37 | * AND CHECKS THE DEVICE STATUS BEFORE ANY I/O * U2A00370 38 | * OPERATION IS INITIATED. A CALLING ERROR OR * U2A00380 39 | * NOT READY 1442 CAUSES AN ERROR EXIT TO * U2A00390 40 | * LOCATION 41. IF THE OPERATION WILL CAUSE * U2A00400 41 | * INTERRUPTS, THE ROUTINE IS SET BUSY AND THE * U2A00410 42 | * IOCS COUNTER IS INCREMENTED TO INDICATE * U2A00420 43 | * INTERRUPT(S) PENDING. * U2A00430 44 | *************************************************** U2A00440 000A D07B 45 | CA10 STO TEMP SAVE A REG U2A00450 000B 2859 46 | STS CA32 SAVE STATUS U2A00460 000C 6A57 47 | STX 2 CA31+1 SAVE XR2 U2A00470 000D C100 48 | LD 1 0 GET FIRST PARAM AT CALL+1 U2A00480 000E 180C 49 | SRA 12 NO,GO CHK FUNCTION U2A00490 000F 4C20 0015R 50 | BSC L CA14,Z NO U2A00500 0011 C07C 51 | LD BUSY YES,IS ROUTINE BUSY U2A00510 0012 4818 52 | BSC +- U2A00520 0013 7101 53 | MDX 1 +1 NO,EXIT TO CALL+3 U2A00530 0014 7049 54 | MDX CA28 YES,EXIT TO CALL+2 U2A00540 0015 907D 55 | CA14 S D0004 IS FUNCTION LEGAL U2A00550 0016 4C30 0073R 56 | BSC L CA40,Z- NO,PRE-OPERATIVE ERROR EXIT U2A00560 0018 807E 57 | A H7003 YES,CONSTRUCT PROPER MDX TO U2A00570 0019 D00B 58 | STO CA20 BRANCH TABLE. U2A00580 001A 8075 59 | A CONST CONSTRUCT CON TO REFERENCE U2A00590 001B D007 60 | STO CA18 IOCC TABLE. U2A00600 001C C071 61 | CA15 LD BUSY IS ROUTINE BUSY U2A00610 001D 4C20 001CR 62 | BSC L CA15,Z YES,WAIT UNTIL NOT BUSY U2A00620 001F 0870 63 | CA17 XIO SENSE-1 IS DEVICE READY U2A00630 0020 4C04 0075R 64 | BSC L CA42,E NO,ERROR U2A00640 0022 C06E 65 | LD SENSE SET UP IOCC TO INITIATE I/O U2A00650 0023 9079 66 | CA18 S SETUP U2A00660 0024 D062 67 | STO INIT U2A00670 0025 7000 68 | CA20 MDX CA20+1 WHAT IS FUNCTION U2A00680 0026 7003 69 | MDX CA21 =GET U2A00690 0027 7040 70 | MDX CA36 =PUT U2A00700 0028 701B 71 | MDX CA25 =FEED U2A00710 0029 702E 72 | MDX CA26 =STACKER SELECT U2A00720 002A 9076 73 | CA21 S SETUP+4 GET FUNCTION U2A00730 002B D061 74 | STO COLM+1 SET UP READ I/O U2A00740 002C C580 0001 75 | CA21B LD I1 1 OBTAIN THE WORD COUNT U2A00750 002E 4C08 0073R 76 | BSC L CA40,+ ERROR IF ZERO OR NEGATIVE U2A00760 0030 D009 77 | STO CA22+1 COUNTER TO INITLZ DATA AREA U2A00770 0031 8060 78 | A D0001 SAVE WORD COUNT +1 U2A00780 0032 D055 79 | STO COUNT *BECAUSE OF DECREMENT U2A00790 0033 D067 80 | STO RSTRT *BEFORE COLUMN READ U2A00800 0034 9061 81 | S D0081 CHK WORD COUNT U2A00810 0035 4C30 0073R 82 | BSC L CA40,Z- ERROR IF OVER 81 U2A00820 0037 C101 83 | LD 1 1 I/O AREA ADDR U2A00830 0038 D004 84 | STO CA23+1 ST FOR USE U2A00840 0039 6600 0000 85 | CA22 LDX L2 *-* U2A00850 003B C056 86 | LD D0001 U2A00860 003C D600 0000 87 | CA23 STO L2 *-* STORE +1 IN DATA AREA U2A00870 003E 72FF 88 | MDX 2 -1 (INDICATES NOT YET READ FOR U2A00880 003F 70FC 89 | MDX CA23 THE SPEED CONVERSION SUBR U2A00890 0040 C101 90 | CA24 LD 1 1 SAVE DATA AREA ADDR U2A00900 0041 D04A 91 | STO COLM U2A00910 0042 D059 92 | STO RSTRT+1 U2A00920 0043 7101 93 | MDX 1 +1 SET XR1 TO SKIP SECOND U2A00930 94 | * PARAMETER U2A00940 0044 084B 95 | CA25 XIO SENSE-1 SENSE IOCC U2A00950 0045 1003 96 | SLA 3 IS LAST CARD INDR ON U2A00960 0046 4C10 0050R 97 | BSC L CA25B,- NO,ENTER JOB U2A00970 0048 C0DC 98 | LD CA20 YES,IS FUNCTION GET OR FEED U2A00980 0049 4C04 0050R 99 | BSC L CA25B,E NO,ENTER JOB U2A00990 004B 1008 100 | SLA 8 YES,IS FUNCTION GET U2A01000 004C 4808 101 | BSC + U2A01010 004D 71FF 102 | MDX 1 -1 YES,SET XR1=LIBF+1 U2A01020 004E 083F 103 | XIO FEED-1 EJECT CARD U2A01030 004F 702F 104 | MDX CA43 TO ERROR EXIT U2A01040 0050 083F 105 | CA25B XIO SENSE-1 IS DEVICE STILL READY 2-9 U2A01050 0051 4C04 00A4R 106 | BSC L CA50,E NO, ERROR 2-9 U2A01060 0053 7401 0032 107 | MDX L $IOCT,1 INCR IOCS CTR U2A01070 0055 1000 108 | NOP MAY SKIP U2A01080 0056 C03B 109 | LD D0001 U2A01090 0057 D036 110 | STO BUSY SET ROUTINE BUSY U2A01100 0058 C02C 111 | CA26 LD ERROR DO DEVICE ERROR CONDS EXIST U2A01110 0059 4C20 005DR 112 | BSC L CA27,Z YES,ATTEMPT TO FEED A CARD U2A01120 113 | * TO GET ERROR RET U2A01130 005B 082A 114 | XIO INIT-1 OTHERWISE INITIATE I/O U2A01140 005C 7001 115 | MDX CA28 SKIP FEED OP U2A01150 005D 0830 116 | CA27 XIO FEED-1 U2A01160 005E 7101 117 | CA28 MDX 1 +1 SET RET ADDR U2A01170 005F C026 118 | LD TEMP RESTORE ACC U2A01180 0060 6906 119 | CA29 STX 1 CA34+1 SET EXIT TO SKIP 1ST PARAM U2A01190 0061 6500 0000 120 | CA30 LDX L1 *-* RESTORE XR1 U2A01200 0063 6600 0000 121 | CA31 LDX L2 *-* RESTORE XR2 U2A01210 0065 2000 122 | CA32 LDS *-* RESTORE STATUS U2A01220 0066 4C00 0000 123 | CA34 BSC L *-* EXIT U2A01230 0068 9039 124 | CA36 S SETUP+5 CONSTRUCT PUNCH IOCC U2A01240 0069 D023 125 | STO COLM+1 SET UP PUNCH I/O U2A01250 006A C580 0001 126 | LD I1 1 GET WORD COUNT U2A01260 006C 4C08 0073R 127 | BSC L CA40,+ IF ZERO OR NEG,ERROR EXIT U2A01270 006E D019 128 | STO COUNT U2A01280 006F D02B 129 | STO RSTRT SAVE WORD COUNT U2A01290 0070 9024 130 | S D0080 DO NOT PUNCH OVER 80 CC U2A01300 0071 4808 131 | BSC + IF GT 80, ERROR EXIT U2A01310 0072 70CD 132 | MDX CA24 OTHERWISE,GO TO START I/O U2A01320 0073 C025 133 | CA40 LD H1001 ERROR CODE - ILLEGAL CALL U2A01330 0074 700B 134 | MDX CA44 TAKE ERROR EXIT U2A01340 0075 1801 135 | CA42 SRA 1 IS DEVICE BUSY U2A01350 0076 4C04 001FR 136 | BSC L CA17,E YES,WAIT UNTIL NOT U2A01360 0078 1003 137 | SLA 3 IS DSW ERROR INDR ON U2A01370 0079 4C10 007FR 138 | BSC L CA43,- NO,--NOT READY EXIT U2A01380 007B C0A9 139 | LD CA20 IS FUNCTION GET/FEED U2A01390 007C 4C04 007FR 140 | BSC L CA43,E NO,NOT READY EXIT U2A01400 007E D006 141 | STO ERROR YES SET INDICATOR TO SKIP U2A01410 007F C018 142 | CA43 LD H1000 ERROR CODE,DEVICE NOT READY U2A01420 0080 71FF 143 | CA44 MDX 1 -1 U2A01430 0081 6D00 0028 144 | STX L1 $PRET STORE CALL ADDR IN $PRET U2A01440 0083 6129 145 | LDX 1 $PRET+1 SET EXIT FOR $PRET+1 U2A01450 0084 70DB 146 | MDX CA29 TO PREOPERATIVE ER TRAP U2A01460 147 | *************************************************** U2A01470 148 | * CONSTANTS * U2A01480 149 | *************************************************** U2A01490 0085 0000 150 | ERROR DC 0 SKIP ONE CD INDR U2A01500 0086 151 | BSS E 0 U2A01510 0086 0000 152 | TEMP DC *-* TEMPORARY STORAGE U2A01520 0087 0400 153 | INIT DC /0400 IOCC TO INITIATE I/O U2A01530 0088 0000 154 | SENSR DC 0 U2A01540 0089 1702 155 | DC /1702 OP COMPLETE SENSE-RESET U2A01550 008A 008AR 156 | ADDR DC CHAR-1 ADDR TO REPLACE O/P AREA U2A01560 008B 1701 157 | CHAR DC /1701 SENSE-RESET FOR CC INTERPT U2A01570 008C 0000 158 | COLM DC 0 IOCC FOR COL I/O U2A01580 008D 0000 159 | DC 0 U2A01590 008E 0000 160 | BUSY DC 0 PROGRAM BUSY INDICATOR U2A01600 008F 1402 161 | FEED DC /1402 IOCC TO FEED 1 CARD U2A01610 0090 2079 162 | CONST DC SETUP-CA18-1+/2000 U2A01620 0091 1700 163 | SENSE DC /1700 SENSE DSW WITH RESET U2A01630 0092 0001 164 | D0001 DC +1 DECIMAL CONSTANTS U2A01640 0093 0004 165 | D0004 DC +4 FOR CHECKS. U2A01650 0094 0008 166 | D0008 DC +8 U2A01660 0095 0050 167 | D0080 DC +80 U2A01670 0096 0051 168 | D0081 DC +81 U2A01680 0097 7003 169 | H7003 DC /7003 INSTRUCTION =MDX X +3 U2A01690 0098 1000 170 | H1000 DC /1000 DEVICE NOT READY CODE U2A01700 0099 1001 171 | H1001 DC /1001 ILLEGAL CALL CODE U2A01710 0088R 172 | COUNT EQU SENSR NO. OF WDS TO TRANSFER U2A01720 009A 0000 173 | INDIC DC 0 FEED CHECK--READ STATION U2A01730 009B 0000 174 | RSTRT DC 0 RESTART INFO--WORD COUNT U2A01740 009C 0000 175 | DC 0 DATA ADDR U2A01750 009D 02FC 176 | SETUP DC /02FC INITIATE IOCC SETUP - GET U2A01760 009E 02FF 177 | DC /02FF - PUT U2A01770 009F 02FE 178 | DC /02FE - FEED U2A01780 00A0 0280 179 | DC /0280 - STK U2A01790 00A1 0204 180 | DC /0204 COLUMN IOCC SETUP - GET U2A01800 00A2 0301 181 | DC /0301 - PUT U2A01810 00A3 1701 182 | SDSW DC /1701 SENSE DSW AREA CODE 2-2 U2A01820 008D 183 | $PST4 EQU /8D POST-OPERATIVE ERROR TRAP U2A01830 0032 184 | $IOCT EQU /32 2-9 U2A01840 0028 185 | $PRET EQU /28 2-9 U2A01850 186 | * 2-9 U2A01860 00A4 C080 187 | CA50 LD CA20 GET FUNCTION 2-9 U2A01870 00A5 1004 188 | SLA 4 IS FUNC GET 2-9 U2A01880 00A6 4818 189 | BSC +- THEN DO NOT SKIP 2-9 U2A01890 00A7 71FF 190 | MDX 1 -1 RESET RETURN ADDR 2-9 U2A01900 00A8 70CC 191 | MDX CA42 GO TO DISPLAY ERROR 2-9 U2A01910 192 | * 2-9 U2A01920 193 | *************************************************** U2A01930 194 | * OP COMPLETE INTERRUPT PROCESSING * U2A01940 195 | *************************************************** U2A01950 196 | * THIS PORTION IS ENTERED FROM INTRPT LEVEL * U2A01960 197 | * SROUTINE 04. IF NO ERROR HAS BEEN DETECTED, * U2A01970 198 | * THE ROUTINE IS SET NOT BUSY AND THE IOCS * U2A01980 199 | * COUNTER IS DECREMENTED TO INDICATE * U2A01990 200 | * INTERRUPT PROCESSING COMPLETED. OTHERWISE * U2A02000 201 | * THE SUBROUTINE WAITS AT THE POST-OPERATIVE * U2A02010 202 | * ERROR TRAP.THE OPERATOR MUST READY THE * U2A02020 203 | * DEVICE AND PUSH START TO GET OUT OF THE * U2A02030 204 | * WAIT. * U2A02040 205 | *************************************************** U2A02050 00A9 08DE 206 | NT10 XIO SENSR SENSE DSW WITH RESET U2A02060 00AA 1003 207 | SLA 3 IS OPERATION OK U2A02070 00AB 4C02 00C2R 208 | BSC L NT11,C NO,ERROR U2A02080 00AD 4C28 00BCR 209 | NT10B BSC L NT10X,Z+ NO,LAST CARD U2A02090 00AF C0D5 210 | LD ERROR U2A02100 00B0 1002 211 | SLA 2 YES, WAS A SKIP OF DESIRED U2A02110 212 | * IF SO,CARRY IND IS SET ON U2A02120 00B1 1810 213 | SRA 16 U2A02130 00B2 D0D2 214 | STO ERROR CLEAR ERROR COND INDRS U2A02140 00B3 4C02 00CDR 215 | BSC L NT12,C IS SKIP OP,INITIATE FUNC U2A02150 00B5 74FF 0032 216 | NT10E MDX L $IOCT,-1 IF NOT,TERMINATE FUNC AND U2A02160 00B7 1000 217 | NOP DECR IOCS CTR U2A02170 00B8 1810 218 | SRA 16 U2A02180 00B9 D0D4 219 | STO BUSY CLEAR PROGRAM BUSY INDR U2A02190 00BA 4C80 0007R 220 | BSC I INT2 EXIT U2A02200 221 | * U2A02210 222 | *SECTION TO HANDLE LAST CARD CONDITION U2A02220 223 | * U2A02230 00BC C0CD 224 | NT10X LD ADDR U2A02240 00BD 80D4 225 | A D0001 U2A02250 00BE F0CD 226 | EOR COLM IS FUNCTION PUT U2A02260 00BF 4818 227 | BSC +- NO U2A02270 00C0 08CD 228 | XIO FEED-1 YES,EJECT LAST CARD U2A02280 00C1 70F3 229 | MDX NT10E GO TERMINATE FUNC U2A02290 230 | * U2A02300 231 | *SECTION TO HANDLE ERROR CONDITION U2A02310 232 | * U2A02320 00C2 1005 233 | NT11 SLA 5 SAVE FEED CHK(RD STA) INDR U2A02330 00C3 C0C3 234 | LD INIT IS FUNC PUNCH U2A02340 00C4 4C04 00CDR 235 | BSC L NT12,E YES,DONT SKIP U2A02350 00C6 1801 236 | SRA 1 IS FUNC FEED U2A02360 00C7 4C04 00DDR 237 | BSC L NT13B,E YES,GO CHK FEED CHK INDR U2A02370 00C9 C0D2 238 | LD RSTRT+1 WAS ONE CC READ IN U2A02380 00CA F0C1 239 | EOR COLM U2A02390 00CB 4C18 00DFR 240 | BSC L NT13E,+- NO,SKIP FIRST CARD U2A02400 241 | * U2A02410 242 | *SECTION TO SKIP FIRST CARD ON ERROR CONDITION U2A02420 243 | * U2A02430 00CD 08C2 244 | NT12 XIO SENSE-1 2-5 U2A02440 00CE 4C04 00E2R 245 | BSC L NT13F,E TO ERROR TRAP IF NOT RDY U2A02450 00D0 C0B4 246 | LD ERROR IS CARD SKIP NECESSARY U2A02460 00D1 4C18 00D6R 247 | BSC L NT13,+- NO,GO SET UP RETRY U2A02470 00D3 08BA 248 | XIO FEED-1 SKIP FIRST CARD U2A02480 00D4 4C80 0007R 249 | BSC I INT2 EXIT U2A02490 00D6 C0C4 250 | NT13 LD RSTRT U2A02500 00D7 D0B0 251 | STO COUNT SET UP WD COUNT FOR RETRY U2A02510 00D8 C0C3 252 | LD RSTRT+1 U2A02520 00D9 D0B2 253 | STO COLM RESET DATA ADDR U2A02530 00DA 08AB 254 | XIO INIT-1 INITIATE I/O OPERATION U2A02540 00DB 4C80 0007R 255 | BSC I INT2 EXIT U2A02550 00DD 4C02 00CDR 256 | NT13B BSC L NT12,C NO SKIP IF FEED CHK (RD) U2A02560 00DF C0B7 257 | NT13E LD H7003 U2A02570 00E0 D0A4 258 | STO ERROR SET BIT 1 OF INDR U2A02580 00E1 70EB 259 | MDX NT12 U2A02590 260 | * U2A02600 261 | *EXIT TO POST-OPERATIVE ERROR TRAP WITH NOT READY U2A02610 262 | *ERROR CODE IN THE ACCUMULATOR. U2A02620 263 | * U2A02630 00E2 C0B5 264 | NT13F LD H1000 U2A02640 00E3 4400 008D 265 | BSI L $PST4 EXIT TO ERROR TRAP U2A02650 00E5 70E7 266 | MDX NT12 TRY AGAIN U2A02660 267 | *************************************************** U2A02670 268 | * COLUMN INTERRUPT PROCESSING * U2A02680 269 | *************************************************** U2A02690 270 | * THIS PORTION IS ENTERED FROM INTRPT LEVEL * U2A02700 271 | * SUBROUTINE 00. AFTER THE REQUESTED NO. OF * U2A02710 272 | * COLUMNS HAS BEEN READ, THE REMAINING COLUMN * U2A02720 273 | * INTERRUPTS ARE MERELY TURNED OFF AS THEY * U2A02730 274 | * OCCUR. WHEN THE LAST COLUMN REQUESTED IS * U2A02740 275 | * PUNCHED, AN INDICATION IS GIVEN TO THE 1442 * U2A02750 276 | * TO INITIATE AN OP COMPLETE INTERRUPT. * U2A02760 277 | *************************************************** U2A02770 00E6 C0BC 278 | NT14 LD SDSW 2-2 U2A02780 00E7 D0A3 279 | STO CHAR RESTORE SENSE IOCC U2A02790 00E8 08A1 280 | XIO CHAR-1 SENSE DSW WITH RESET U2A02800 00E9 74FF 0088R 281 | MDX L COUNT,-1 ANY MORE COLS TO PROCESS U2A02810 00EB 700D 282 | MDX NT18 YES,CONTINUE U2A02820 00EC 4C10 00F1R 283 | BSC L NT16,- IS THIS A READ CC INTRPT U2A02830 00EE 7401 0088R 284 | MDX L COUNT,+1 YES,SET TO SKIP U2A02840 00F0 700B 285 | MDX NT22 NEXT COLUMN U2A02850 00F1 7401 008CR 286 | NT16 MDX L COLM,+1 NO,STORE STOP PUNCH U2A02860 00F3 C480 008CR 287 | LD I COLM BIT,BIT 12, IN CC U2A02870 00F5 E89E 288 | OR D0008 DATA U2A02880 00F6 D094 289 | STO CHAR U2A02890 00F7 C092 290 | LD ADDR PUNCH FROM TEMPERORY U2A02900 00F8 D093 291 | STO COLM LOCATION U2A02910 00F9 7401 008CR 292 | NT18 MDX L COLM,+1 SET ADDR FOR NEXT COLUMN U2A02920 00FB 0890 293 | NT20 XIO COLM EXECUTE COLUMN I/O U2A02930 00FC 4C80 0004R 294 | NT22 BSC I INT1 EXIT U2A02940 00FE 295 | END U2A02950 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $IOCT 0032 184 107 216 $PRET 0028 185 144 145 $PST4 008D 183 265 ADDR 008AR 156 224 290 BUSY 008ER 160 51 61 110 219 CA10 000AR 45 28 CA14 0015R 55 50 CA15 001CR 61 62 CA17 001FR 63 136 CA18 0023R 66 60 162 CA20 0025R 68 58 98 139 187 CA21 002AR 73 69 CA21B 002CR 75 CA22 0039R 85 77 CA23 003CR 87 84 89 CA24 0040R 90 132 CA25 0044R 95 71 CA25B 0050R 105 97 99 CA26 0058R 111 72 CA27 005DR 116 112 CA28 005ER 117 54 115 CA29 0060R 119 146 CA30 0061R 120 26 CA31 0063R 121 47 CA32 0065R 122 46 CA34 0066R 123 119 CA36 0068R 124 70 CA40 0073R 133 56 76 82 127 CA42 0075R 135 64 191 CA43 007FR 142 104 138 140 CA44 0080R 143 134 CA50 00A4R 187 106 CARD0 0000R 26 CHAR 008BR 157 156 279 280 289 COLM 008CR 158 74 91 125 226 239 253 286 287 291 292 293 CONST 0090R 162 59 COUNT 0088R 172 79 128 251 281 284 D0001 0092R 164 78 86 109 225 D0004 0093R 165 55 D0008 0094R 166 288 D0080 0095R 167 130 D0081 0096R 168 81 ERROR 0085R 150 111 141 210 214 246 258 FEED 008FR 161 103 116 228 248 H1000 0098R 170 142 264 H1001 0099R 171 133 H7003 0097R 169 57 257 INDIC 009AR 173 INIT 0087R 153 67 114 234 254 INT1 0004R 29 294 INT2 0007R 31 220 249 255 LINK 0001R 27 NT10 00A9R 206 32 NT10B 00ADR 209 NT10E 00B5R 216 229 NT10X 00BCR 224 209 NT11 00C2R 233 208 NT12 00CDR 244 215 235 256 259 266 NT13 00D6R 250 247 NT13B 00DDR 256 237 NT13E 00DFR 257 240 NT13F 00E2R 264 245 NT14 00E6R 278 30 NT16 00F1R 286 283 NT18 00F9R 292 282 NT20 00FBR 293 NT22 00FCR 294 285 RSTRT 009BR 174 80 92 129 238 250 252 SDSW 00A3R 182 278 SENSE 0091R 163 63 65 95 105 244 SENSR 0088R 154 172 206 SETUP 009DR 176 66 73 124 162 TEMP 0086R 152 45 118