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