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