ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020
Source File: \u2paptn.asm
LIBF PAPTN
2 | *************************************************** U2E00010
3 | * * U2E00020
4 | * SUBROUTINE NAME- * U2E00030
5 | * FULL NAME- N/A * U2E00040
6 | * CODE NAME- PAPTN * U2E00050
7 | * PURPOSE- THIS SUBROUTINE OPERATES BOTH THE * U2E00060
8 | * IBM 1134 PAPER TAPE READER AND THE IBM * U2E00070
9 | * 1055 PAPER TAPE PUNCH. IT IS ABLE TO * U2E00080
10 | * OPERATE THEM SIMULTANEOUSLY. * U2E00090
11 | * METHOD- * U2E00100
12 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U2E00110
13 | * CAPABILITIES AND LIMITATIONS- * U2E00120
14 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U2E00130
15 | * SPECIAL FEATURES- THE READ AND PUNCH CAN BE * U2E00140
16 | * OPERATED AT THE SAME TIME. * U2E00150
17 | * ADDITIONAL INFORMATION- * U2E00160
18 | * ESTIMATED EXECUTION TIME- * U2E00170
19 | * SEE IBM 1130 SUBROUTINE LIBRARY MANUAL * U2E00180
20 | * * U2E00190
21 | *************************************************** U2E00200
22 | LIBR U2E00220
23 | ISS 03 PAPTN 4 U2E00230
0000 691D 24 | PAPTN STX 1 XR1+1 CALL ENTRANCE (+0) U2E00240
0001 6580 0000 25 | LDX I1 0 LOADER STORES TV ADDR (+2) U2E00250
0003 7004 26 | MDX PT1 BR W/LIBF+1 IN XR1 U2E00260
0004 0000 27 | INTN DC 0 INTERRUPT ENTRANCE (+4) U2E00270
0005 4C00 0077R 28 | BSC L IPRG U2E00280
0007 1800 29 | AREA DC /1800 U2E00290
0008 6A17 30 | PT1 STX 2 XR2+1 SAVE XR2 U2E00300
0009 2817 31 | STS XR2+2 SAVE STATUS U2E00310
000A D01C 32 | STO SAVA SAVE A REG U2E00320
000B C100 33 | LD 1 0 GET THE CONTROL WORD U2E00330
000C 180C 34 | SRA 12 IS FUNCTION = TEST U2E00340
000D 4C20 0029R 35 | BSC L PT3,Z NO, BR TO CONTINUE U2E00350
000F C100 36 | LD 1 0 YES, WHAT IS THE DEVICE U2E00360
0010 100C 37 | SLA 12 U2E00370
0011 4C18 0024R 38 | BSC L RD,+- READER U2E00380
0013 9014 39 | S H1000 U2E00390
0014 4C20 0030R 40 | BSC L PT36,Z NOT READER,PUNCH- BAD CALL U2E00400
0016 C400 011CR 41 | LD L BUSY DEVICE IS PUNCH U2E00410
0018 4818 42 | PT2 BSC +- IS DEVICE BUSY U2E00420
0019 7101 43 | MDX 1 1 NO,RET TO LIBF+3 U2E00430
001A 7101 44 | MDX 1 1 NO,RET TO LIBF+2 U2E00440
001B C00B 45 | RESET LD SAVA RESTORE ACCUMULATOR U2E00450
001C 6906 46 | STX 1 RET+1 SET UP RETURN U2E00460
001D 6500 0000 47 | XR1 LDX L1 *-* RESTORE XR1 U2E00470
001F 6600 0000 48 | XR2 LDX L2 *-* RESTORE XR2 U2E00480
0021 2000 49 | LDS *-* RESTORE STATUS U2E00490
0022 4C00 0000 50 | RET BSC L *-* RETURN TO MAINLINE U2E00500
0024 C400 0128R 51 | RD LD L RBUSY TEST READER U2E00510
0026 70F1 52 | MDX PT2 *BUSY U2E00520
0027 0000 53 | SAVA DC 0 SAVE A REG U2E00530
0028 1000 54 | H1000 DC /1000 CON TO TEST FOR PNCH DVC U2E00540
55 | * U2E00550
56 | *THIS SECTION CONTINUES THE CALL PROCESSING U2E00560
57 | * U2E00570
0029 6600 0126R 58 | PT3 LDX L2 RDTBL TABLE FOR READ CONSTANTS U2E00580
002B 900A 59 | S D0002 U2E00590
002C 4C28 003AR 60 | BSC L PT4+2,+Z READ U2E00600
002E 4C08 0038R 61 | BSC L PT4,+ PUNCH U2E00610
62 | * U2E00620
63 | *ILLEGAL CALL U2E00630
64 | * U2E00640
0030 C006 65 | PT36 LD H3001 PUT ERROR CODE IN A REG U2E00650
0031 71FF 66 | MDX 1 -1 XR1 PTS TO LIBF U2E00660
0032 6D00 0028 67 | STX L1 40 SET UP RET FROM ERROR EXIT U2E00670
0034 6129 68 | LDX 1 41 SET XR1 FOR ERROR EXIT U2E00680
0035 70E6 69 | MDX RESET+1 GO TO EXIT U2E00690
0036 0002 70 | D0002 DC 2 CONSTANT TO TEST FUNCTION U2E00700
0037 3001 71 | H3001 DC /3001 ILLEGAL CALL ERROR CODE U2E00710
0038 6600 011AR 72 | PT4 LDX L2 PNTBL FUNC IS PUNCH,SO REF PNCH U2E00720
003A C202 73 | LD 2 BUSY-TBL GET BUSY INDR U2E00730
003B 4C20 003AR 74 | BSC L PT4+2,Z IF BUSY,LOOP U2E00740
003D C100 75 | LD 1 0 GET CHECK DIGIT U2E00750
003E E031 76 | AND H0F00 U2E00760
003F 9034 77 | S H0100 IS IT VALID U2E00770
0040 4C30 0030R 78 | BSC L PT36,-Z NO,TAKE ERROR EXIT U2E00780
0042 D203 79 | STO 2 CHECK-TBL ZERO MEANS NO CHECK U2E00790
0043 C580 0001 80 | LD I1 1 IS WORD COUNT VALID U2E00800
0045 4C08 0030R 81 | BSC L PT36,+ NO,TAKE ERROR EXIT U2E00810
0047 D204 82 | STO 2 WDCNT-TBL YES,SAVE U2E00820
0048 C208 83 | LD 2 SFT-TBL GET SHIFT TO NOT-RDY BIT U2E00830
0049 D001 84 | STO SHIFT INST FOR PNCH OR RD U2E00840
004A 0825 85 | XIO SENSE-1 SENSE U2E00850
004B 1005 86 | SHIFT SLA 5 IS DEVICE READY U2E00860
004C 4C28 0069R 87 | BSC L PT37,+Z NO, EXIT TO CORE LOC 41 U2E00870
004E C101 88 | LD 1 1 I/O AREA ADDRESS U2E00880
004F 801C 89 | A D0001 BYPASS WD CNT U2E00890
0050 D205 90 | STO 2 IOAR-TBL SAVE I/O AREA ADDR U2E00900
0051 C102 91 | LD 1 2 GET ADDR OF USER ERROR RTN U2E00910
0052 D206 92 | STO 2 USER1-TBL SAVE U2E00920
0053 C207 93 | LD 2 FC-TBL FUNCTION CODE U2E00930
0054 E8B2 94 | OR AREA + AREA = IOCC+1 U2E00940
0055 D201 95 | STO 2 IOCC+1-TBL ST IOCC CONTROL WD U2E00950
0056 D018 96 | STO IOCC2+1 SET IOCC FOR USE W/DELETE U2E00960
0057 D202 97 | STO 2 BUSY-TBL SET DEVICE BUSY INDR U2E00970
0058 1010 98 | SLA 16 U2E00980
0059 D209 99 | STO 2 CHAR-TBL ZERO THE CHAR COUNT U2E00990
005A 7401 0032 100 | MDX L +50,1 INCR ISS COUNTER U2E01000
005C 1000 101 | NOP MAY SKIP U2E01010
005D 4E80 000A 102 | BSC I2 WRIT-TBL BR TO INITIATE OP U2E01020
005F 0812 103 | RDS XIO READS-1 START READER U2E01030
0060 7103 104 | MDX 1 3 SET UP EXIT TO SKIP 3 PARAM U2E01040
0061 70B9 105 | MDX RESET GO TO RET TO MAINLINE U2E01050
0062 C680 0005 106 | WRT LD I2 IOAR-TBL U2E01060
0064 D20B 107 | STO 2 BUF-TBL STORE FIRST WORD TO PUNCH U2E01070
0065 C006 108 | LD D0001 ADD 1 TO CHARACTER COUNT U2E01080
0066 D209 109 | STO 2 CHAR-TBL U2E01090
0067 0A00 110 | XIO 2 IOCC-TBL PUNCH 1 CHARACTER U2E01100
0068 70F7 111 | MDX RDS+1 GO TO EXIT U2E01110
0069 C008 112 | PT37 LD H3000 DEVICE NOT READY ERROR U2E01120
006A 70C6 113 | MDX PT36+1 TO ERROR EXIT U2E01130
114 | * U2E01140
115 | *CONSTANTS AND BUFFER AREA U2E01150
116 | * U2E01160
006B 0000 117 | BUF2 DC 0 I/O BUFFER FOR USE W/DELETE U2E01170
006C 0001 118 | D0001 DC 0001 SET CHAR CNT TO 1 U2E01180
006E 119 | BSS E 0 U2E01190
006E 006BR 120 | IOCC2 DC BUF2 IOCC WORD FOR DELETE U2E01200
006F 0000 121 | DC 0 U2E01210
0070 0F00 122 | H0F00 DC /0F00 MASK ALL BUT CHK DIGIT U2E01220
0071 1F00 123 | SENSE DC /1F00 SENSE U2E01230
0072 3000 124 | H3000 DC /3000 DVC NOT RDY ERROR CODE U2E01240
0073 1C10 125 | READS DC /1C10 START READER O U2E01250
0074 0100 126 | H0100 DC /0100 CON TO CHK THE CHK MODE U2E01260
0075 0000 127 | SENSR DC 0 SENSE, RESET O U2E01270
0076 1F01 128 | SDSW DC /1F01 SENSE DSW AREA CODE 2-2 U2E01275
008D 129 | $PST4 EQU /8D POST-OPERATIVE ERROR TRAP U2E01280
130 | * U2E01290
131 | * THIS PORTION OF THE PROGRAM IS ENTERED FROM U2E01300
132 | * INTERRUPT LEVEL 04. IT SERVICES THE OP COMPLETE U2E01310
133 | * INTERRUPTS FROM BOTH THE READ AND PUNCH DEVICE. U2E01320
134 | * U2E01330
0077 C0FE 135 | IPRG LD SDSW 2-2 U2E01335
0078 D0FC 136 | STO SENSR U2E01340
0079 08FA 137 | XIO SENSR-1 SENSE AND RESET U2E01350
007A D0FA 138 | STO SENSR SAVE DSW U2E01360
139 | * READ ERROR HANDLED AFTER XIO READ U2E01370
007B 1001 140 | SLA 1 U2E01380
007C 6A1C 141 | STX 2 IXR2+1 SAVE XR2 U2E01390
007D 4C28 00BBR 142 | BSC L READI,+Z READER SERVICE REQUEST U2E01400
007F C0F5 143 | PNQ LD SENSR U2E01410
0080 1003 144 | SLA 3 U2E01420
0081 4C02 00B3R 145 | BSC L PNERR,C TEST FOR PUNCH ERROR U2E01430
0083 4C10 0098R 146 | BSC L IXR2,- IS IT PUNCH SERVICE REQUEST U2E01440
0085 6600 011AR 147 | PN1 LDX L2 PNTBL XR2 SET TO REF PNCH TBL U2E01450
0087 1010 148 | SLA 16 ZERO THE IOCC SENSE WD U2E01460
0088 D0EC 149 | STO SENSR U2E01470
0089 407C 150 | BSI CHKS IS PREVIOUS CHAR= STOP U2E01480
008A C209 151 | LD 2 CHAR-TBL U2E01490
008B 4C04 00B0R 152 | BSC L PNODD,E COMPLETE WD WAS PNCHED U2E01500
008D 1010 153 | SLA 16 IF EVEN, ZERO CHAR CNT U2E01510
008E D209 154 | STO 2 CHAR-TBL U2E01520
008F 74FF 011ER 155 | MDX L WDCNT,-1 DECREMENT WORD COUNT U2E01530
0091 700A 156 | MDX NEXT GO GET NEXT WD TO BE PNCHED U2E01540
157 | * U2E01550
158 | *THIS SECTION PREPARES THE FINAL EXIT U2E01560
159 | * U2E01570
0092 1010 160 | IRET SLA 16 U2E01580
0093 D202 161 | STO 2 BUSY-TBL TURN OFF BUSY INDR IN PROG U2E01590
0094 74FF 0032 162 | MDX L +50,-1 DECR ISS COUNTER U2E01600
0096 1000 163 | NOP MAY SKIP U2E01610
0097 70E7 164 | MDX PNQ GO TO EXIT U2E01620
0098 6600 0000 165 | IXR2 LDX L2 0 RESTORE XR2 BEFORE EXIT U2E01630
009A 4C80 0004R 166 | BSC I INTN RETURN TO ILS ROUTINE U2E01640
009C 7401 011FR 167 | NEXT MDX L IOAR,1 INCR I/O AREA ADDR U2E01650
009E C480 011FR 168 | LD I IOAR GET NEXT WORD U2E01660
00A0 D20B 169 | STO 2 BUF-TBL NEXT WORD IS IN BUF U2E01670
00A1 08CE 170 | PN2 XIO SENSE-1 SENSE W/NO RESET U2E01680
00A2 1007 171 | SLA 7 IS PUNCH READY U2E01690
00A3 4C10 00ACR 172 | BSC L PN3,- YES,GO PNCH NEXT CHAR U2E01700
00A5 C005 173 | LD H0004 NO,EXIT TO USER ERROR RTN U2E01710
00A6 4069 174 | BSI USERR WITH ERROR CODE IN ACC U2E01720
00A7 C0CA 175 | LD H3000 ERROR CODE INTO A REG U2E01730
00A8 4400 008D 176 | BSI L $PST4 TO ERROR TRAP U2E01740
00AA 70F6 177 | MDX PN2 RETRY--SENSE PNCH AGAIN U2E01750
00AB 0004 178 | H0004 DC /0004 PNCH NOT RDY ERROR CODE U2E01760
00AC 7401 0123R 179 | PN3 MDX L CHAR,1 INCR CHAR CNT U2E01770
00AE 0A00 180 | XIO 2 IOCC-TBL PUNCH 1 CHARACTER U2E01780
00AF 70E8 181 | MDX IXR2 RETURN TO ILS ROUTINE U2E01790
182 | * U2E01800
183 | *THIS SECTION GETS SECOND CHAR OF WD TO PNCH U2E01810
184 | * U2E01820
00B0 C20B 185 | PNODD LD 2 BUF-TBL GET SAME WD AS FOR LAST U2E01830
00B1 1008 186 | SLA 8 PUT 2ND CHAR IN 1ST HALF U2E01840
00B2 70ED 187 | MDX NEXT+4 GO PUT IN O/P BUFFER U2E01850
188 | * U2E01860
189 | *THIS SECTION TAKES CARE OF A PUNCH ERROR (NOT U2E01870
190 | *RECOGNIZED ON THE 1130, BUT IS ON 1800). U2E01880
191 | * U2E01890
00B3 C082 192 | PNERR LD D0002 GET ERROR CODE INTO A REG U2E01900
00B4 405B 193 | BSI USERR GO TO USER ERROR RTN U2E01910
00B5 4C08 00CER 194 | BSC L MOCK1,+ IF RETRY,ACC NEG,O/P DELETE U2E01920
00B7 C203 195 | LD 2 CHECK-TBL IS IT CHECK MODE U2E01930
00B8 4C20 00AER 196 | BSC L PN3+2,Z YES,GO REPNCH CHAR U2E01940
00BA 70CA 197 | MDX PN1 NO,GO GET NEXT CHAR U2E01950
198 | * U2E01960
199 | *THIS SECTION SERVICES A READER REQUEST INTERRUPT U2E01970
200 | * U2E01980
00BB 6600 0126R 201 | READI LDX L2 RDTBL READER SERVICE REQUEST U2E01990
00BD 1010 202 | SLA 16 U2E02000
00BE D20B 203 | STO 2 BUF-TBL CLEAR BUFFER WORD U2E02010
00BF 0A00 204 | XIO 2 IOCC-TBL READ 1 CHARACTER U2E02020
00C0 08AF 205 | XIO SENSE-1 IS THERE A READER ERROR U2E02030
00C1 4C10 00D6R 206 | BSC L RD2,- NO,GO CHK FOR DELETE CHAR U2E02040
00C3 C011 207 | LD THREE YES,LD READER ERROR CODE U2E02050
00C4 404B 208 | BSI USERR EXIT TO USER ERROR RTN U2E02060
00C5 4C10 00F1R 209 | BSC L RD5,- RETRY,ACC PTV, RD CHAR OVER U2E02070
00C7 C203 210 | LD 2 CHECK-TBL IS IT CHK MODE U2E02080
00C8 4C18 00DDR 211 | BSC L RD3,+- NO,GO READ NEXT CHAR U2E02090
00CA C002 212 | LD BLANK YES, INPUT BLANK U2E02100
00CB D059 213 | STO BUF U2E02110
00CC 7010 214 | MDX RD3 GO READ NEXT CHAR U2E02120
00CD 1000 215 | BLANK DC /1000 PTTC/8 BLANK U2E02130
216 | * U2E02140
217 | *THIS SECTION OUTPUTS A DELETE IF CHK MODE AND RETS U2E02150
218 | * U2E02160
00CE C203 219 | MOCK1 LD 2 CHECK-TBL IS IT CHK MODE U2E02170
00CF 4C18 0085R 220 | BSC L PN1,+- NO,GO TO READ NEXT CHAR U2E02180
00D1 C045 221 | LD DEL YES,OUTPUT A DELETE CHAR U2E02190
00D2 D098 222 | STO BUF2 U2E02200
00D3 089A 223 | XIO IOCC2 START READER U2E02210
00D4 70C3 224 | MDX IXR2 RTN TO ILS ROUTINE U2E02220
00D5 0003 225 | THREE DC +3 READER ERROR CODE U2E02230
00D6 C203 226 | RD2 LD 2 CHECK-TBL IF CHECK MODE, U2E02240
00D7 4C18 00DDR 227 | BSC L RD3,+- U2E02250
00D9 C20B 228 | LD 2 BUF-TBL CHECK FOR DELETE CHARACTER U2E02260
00DA 903C 229 | S DEL U2E02270
00DB 4C18 00F1R 230 | BSC L RD5,+- YES U2E02280
00DD 7401 012FR 231 | RD3 MDX L RCHAR,1 NO, ADD 1 TO CHAR. COUNT U2E02290
00DF C209 232 | LD 2 CHAR-TBL IS CHAR COUNT EVEN U2E02300
00E0 4C04 0102R 233 | BSC L RDODD,E NO,FIRST CHAR OF WD U2E02310
00E2 1010 234 | SLA 16 YES,SECOND CHAR OF WD U2E02320
00E3 D209 235 | STO 2 CHAR-TBL ZERO CHAR COUNT U2E02330
00E4 C20B 236 | LD 2 BUF-TBL COMBINE 2 CHARACTERS U2E02340
00E5 1808 237 | SRA 8 *INTO ONE WORD U2E02350
00E6 EE80 0005 238 | OR I2 IOAR-TBL U2E02360
00E8 D680 0005 239 | STO I2 IOAR-TBL U2E02370
00EA 74FF 012AR 240 | MDX L RWDCT,-1 DECREMENT WORD COUNT U2E02380
00EC 7001 241 | MDX *+1 MAY SKIP U2E02390
00ED 70A4 242 | MDX IRET EXIT ON ZERO WORD COUNT U2E02400
00EE 7401 012BR 243 | MDX L RIOAR,1 NEXT WORD U2E02410
00F0 4015 244 | RD4 BSI CHKS CHK FOR STOP CHAR U2E02420
245 | * U2E02430
246 | *THIS SECTION TESTS FOR READER READY U2E02440
247 | * U2E02450
00F1 0C00 0070R 248 | RD5 XIO L SENSE-1 SENSE W/O RESET U2E02460
00F3 1005 249 | SLA 5 IS READER READY U2E02470
00F4 4C10 00FER 250 | BSC L RD6,- YES,GO START READER U2E02480
00F6 C006 251 | LD H0005 NO,LOAD ERROR CODE AND U2E02490
00F7 4018 252 | BSI USERR EXIT TO USERS ERROR ROUTINE U2E02500
00F8 C400 0072R 253 | LD L H3000 ERROR CODE INTO A REG U2E02510
00FA 4400 008D 254 | BSI L $PST4 TO ERROR TRAP U2E02520
00FC 70F4 255 | MDX RD5 RETRY REQUEST, TEST AGAIN U2E02530
00FD 0005 256 | H0005 DC /0005 READER NOT READY ERROR CODE U2E02540
00FE 0C00 0072R 257 | RD6 XIO L READS-1 START READER U2E02550
0100 4C00 007FR 258 | BSC L PNQ GO TEST FOR REQUEST AND RET U2E02560
259 | * U2E02570
260 | *ODD CHAR COUNT, PUT IN FIRST HALF OF WORD U2E02580
261 | * U2E02590
0102 C20B 262 | RDODD LD 2 BUF-TBL GET CHAR JUST READ AND U2E02600
0103 D680 0005 263 | STO I2 IOAR-TBL STORE IN I/O AREA U2E02610
0105 70EA 264 | MDX RD4 RET TO SENSE READER U2E02620
265 | * U2E02630
266 | *CHECK IF STOP CHAR WAS LAST READ U2E02640
267 | * U2E02650
0106 0000 268 | CHKS DC 0 SAVE RET ADDR U2E02660
0107 C203 269 | LD 2 CHECK-TBL IS IT CHECK MODE U2E02670
0108 4C98 0106R 270 | BSC I CHKS,+- NO,RET U2E02680
010A C20B 271 | LD 2 BUF-TBL YES, WAS LAST CHAR = STOP U2E02690
010B 1808 272 | SRA 8 U2E02700
010C 900B 273 | S STOP U2E02710
010D 4CA0 0106R 274 | BSC I CHKS,Z NOT STOP CHAR,RET U2E02720
010F 7082 275 | MDX IRET STOP CHAR,DO FINAL EXIT U2E02730
276 | * U2E02740
277 | *SETS UP EXIT TO USER ERROR ROUTINE U2E02750
278 | * U2E02760
0110 0000 279 | USERR DC 0 SAVE RET ADDR U2E02770
0111 4680 0006 280 | BSI I2 USER1-TBL EXIT TO USER ERROR RTN U2E02780
0113 4CA0 0110R 281 | BSC I USERR,Z TRY AGAIN U2E02790
0115 4C00 0092R 282 | BSC L IRET TERMINATE U2E02800
283 | * U2E02810
284 | *CONSTANTS AND BUFFER AREA.-- THERE ARE TWO PARA- U2E02820
285 | *LLEL TABLES FOR READING AND PUNCHING OPERATIONS, U2E02830
286 | *SO THAT BOTH CAN BE DONE AT THE SAME TIME. U2E02840
287 | * U2E02850
0117 7F00 288 | DEL DC /7F00 PTTC/8 DELETE CHAR U2E02860
0118 00DD 289 | STOP DC /00DD PTTC/8 STOP CHAR U2E02870
290 | * TABLE OF PUNCH CONSTANTS U2E02880
011A 291 | TBL BSS E 0 U2E02890
011A 292 | PNTBL BSS 0 ADDR OF TBL U2E02900
011A 0125R 293 | IOCC DC BUF IOCC WORDS FOR PUNCHING U2E02910
011B 0000 294 | DC 0 U2E02920
011C 0000 295 | BUSY DC 0 BUSY INDR WORD U2E02930
011D 0000 296 | CHECK DC 0 CHK MODE INDR (0= NO CHK) U2E02940
011E 0000 297 | WDCNT DC 0 WORD COUNT U2E02950
011F 0000 298 | IOAR DC 0 I/O AREA ADDR U2E02960
0120 0000 299 | USER1 DC 0 USER ERROR RTN ADDR U2E02970
0121 0100 300 | FC DC /0100 FUNCTION CODE TEST CON U2E02980
0122 1007 301 | SFT SLA 7 SHIFT FOR NOT RDY INDR U2E02990
0123 0000 302 | CHAR DC 0 BUFFER TO PACK CHARS U2E03000
0124 0062R 303 | WRIT DC WRT SET UP BR TO PUNCH A CD U2E03010
0125 0000 304 | BUF DC 0 I/O BUFFER FOR PUNCH U2E03020
305 | * TABLE OF READ CONSTANTS U2E03030
0126 306 | RDTBL BSS E 0 ADDR OF TBL U2E03040
0126 0131R 307 | RIOCC DC RBUF IOCC WORDS FOR READING U2E03050
0127 0000 308 | DC 0 U2E03060
0128 0000 309 | RBUSY DC 0 BUSY INDR WORD U2E03070
0129 0000 310 | RCHEK DC 0 CHECK MODE INDR (0= NO CHK) U2E03080
012A 0000 311 | RWDCT DC 0 WORD COUNT U2E03090
012B 0000 312 | RIOAR DC 0 I/O AREA ADDR U2E03100
012C 0000 313 | RUSE1 DC 0 ADDR OF USER ERROR RTN U2E03110
012D 0200 314 | RFC DC /0200 FUNCTION CODE TEST CON U2E03120
012E 1005 315 | RSFT SLA 5 SHIFT FOR NOT RDY INDR U2E03130
012F 0000 316 | RCHAR DC 0 BUFFER TO PACK CHARS U2E03140
0130 005FR 317 | RWRT DC RDS SET UP BR TO READ U2E03150
0131 0000 318 | RBUF DC 0 I/O BUFFER FOR READ U2E03160
0132 319 | END U2E03170
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$PST4 008D 129 176 254
AREA 0007R 29 94
BLANK 00CDR 215 212
BUF 0125R 304 107 169 185 203 213 228 236 262 271 293
BUF2 006BR 117 120 222
BUSY 011CR 295 41 73 97 161
CHAR 0123R 302 99 109 151 154 179 232 235
CHECK 011DR 296 79 195 210 219 226 269
CHKS 0106R 268 150 244 270 274
D0001 006CR 118 89 108
D0002 0036R 70 59 192
DEL 0117R 288 221 229
FC 0121R 300 93
H0004 00ABR 178 173
H0005 00FDR 256 251
H0100 0074R 126 77
H0F00 0070R 122 76
H1000 0028R 54 39
H3000 0072R 124 112 175 253
H3001 0037R 71 65
INTN 0004R 27 166
IOAR 011FR 298 90 106 167 168 238 239 263
IOCC 011AR 293 95 110 180 204
IOCC2 006ER 120 96 223
IPRG 0077R 135 28
IRET 0092R 160 242 275 282
IXR2 0098R 165 141 146 181 224
MOCK1 00CER 219 194
NEXT 009CR 167 156 187
PAPTN 0000R 24
PN1 0085R 147 197 220
PN2 00A1R 170 177
PN3 00ACR 179 172 196
PNERR 00B3R 192 145
PNODD 00B0R 185 152
PNQ 007FR 143 164 258
PNTBL 011AR 292 72 147
PT1 0008R 30 26
PT2 0018R 42 52
PT3 0029R 58 35
PT36 0030R 65 40 78 81 113
PT37 0069R 112 87
PT4 0038R 72 60 61 74
RBUF 0131R 318 307
RBUSY 0128R 309 51
RCHAR 012FR 316 231
RCHEK 0129R 310
RD 0024R 51 38
RD2 00D6R 226 206
RD3 00DDR 231 211 214 227
RD4 00F0R 244 264
RD5 00F1R 248 209 230 255
RD6 00FER 257 250
RDODD 0102R 262 233
RDS 005FR 103 111 317
RDTBL 0126R 306 58 201
READI 00BBR 201 142
READS 0073R 125 103 257
RESET 001BR 45 69 105
RET 0022R 50 46
RFC 012DR 314
RIOAR 012BR 312 243
RIOCC 0126R 307
RSFT 012ER 315
RUSE1 012CR 313
RWDCT 012AR 311 240
RWRT 0130R 317
SAVA 0027R 53 32 45
SDSW 0076R 128 135
SENSE 0071R 123 85 170 205 248
SENSR 0075R 127 136 137 138 143 149
SFT 0122R 301 83
SHIFT 004BR 86 84
STOP 0118R 289 273
TBL 011AR 291 73 79 82 83 90 92 93 95 97 99 102 106
107 109 110 151 154 161 169 180 185 195 203 204
210 219 226 228 232 235 236 238 239 262 263 269
271 280
THREE 00D5R 225 207
USER1 0120R 299 92 280
USERR 0110R 279 174 193 208 252 281
WDCNT 011ER 297 82 155
WRIT 0124R 303 102
WRT 0062R 106 303
XR1 001DR 47 24
XR2 001FR 48 30 31