ibm:ibm1130-lib:dmsr2v12:u2pnch1_lst
U2PNCH1
| Table Of Contents |
|---|
|
- u2pnch1.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u2pnch1.asm PNCH1,1442-5 CARD PUNCH IOCS ROUTINE* 2 | *************************************************** U2I00020 3 | *TITLE- PNCH1,1442-5 CARD PUNCH IOCS ROUTINE * U2I00030 4 | *STATUS- CHANGE LEVEL 000 * U2I00040 5 | *FUNCTION/OPERATION- * U2I00050 6 | * THIS 1130 SUBROUTINE OPERATES THE 1442-5 * U2I00060 7 | * CARD PUNCH. IT INITIATES REQUESTED OPERA- * U2I00070 8 | * TIONS, PROCESSES ANY COLUMN OR OPERATION * U2I00080 9 | * COMPLETE INTERRUPTS,AND EXITS TO THE USERS * U2I00090 10 | * ERROR SUBROUTINE WITH ERROR AND LAST CARD * U2I00100 11 | * INDICATIONS U2I00110 12 | * * U2I00120 13 | * IDENTIFYING FEATURE - ERROR PARAMETER * U2I00130 14 | *ENTRY POINTS- * U2I00140 15 | * 1. PNCH1 CALL ENTRANCE FOR TEST, PUNCH * U2I00150 16 | * OR FEED OPERATIONS. * U2I00160 17 | * E.G. LIBF PNCH1 * U2I00170 18 | * DC /2000 * U2I00180 19 | * DC IOBUF * U2I00190 20 | * DC ERROR * U2I00200 21 | * 2. INT1 COLUMN INTERRUPT ENTRY POINT. * U2I00210 22 | * 3. INT2 OPERATION COMPLETE INTERRUPT ENTRY* U2I00220 23 | * POINT. * U2I00230 24 | *INPUT- NONE OTHER THAN FROM THE PARAMETERS IN * U2I00240 25 | * LIBF CALLING SEQUENCE. * U2I00250 26 | * VALID PARAMETERS ARE- * U2I00260 27 | * /0000 TEST * U2I00270 28 | * /2000 PUNCH * U2I00280 29 | * /3000 FEED * U2I00290 30 | *OUTPUT- SUBR WILL PUNCH UP TO 80 COLUMNS FROM * U2I00300 31 | * I/O BUFFER TO CARD AS SPECIFIED BY CALL. * U2I00310 32 | * THE LEFT 12 BITS FROM EACH I/O BUFFER WORD * U2I00320 33 | * ARE PUNCHED INTO THE CARD COLUMNS. * U2I00330 34 | *EXTERNAL SUBROUTINES- NONE. * U2I00340 35 | *EXITS- * U2I00350 36 | * NORMAL- * U2I00360 37 | * 1. CA34 IF NO PRE-OP ERROR HAS BEEN DE- * U2I00370 38 | * TECTED, THE EXIT FROM CA34 IS BACK* U2I00380 39 | * TO THE CALLER AFTER THE REQUESTED * U2I00390 40 | * 1442 OPERATION HAS BEEN INITIATED * U2I00400 41 | * 2. CR22 THE EXIT FROM CR22 IS BACK TO THE* U2I00410 42 | * CALLER VIA ILS00 AFTER THE COLUMN * U2I00420 43 | * INTERRUPT IS SERVICED. * U2I00430 44 | * 3. CR66 CONTROL RETURNS TO CALLERS PRO- * U2I00440 45 | * GRAM VIA ILS04 AFTER OP COMPLETE * U2I00450 46 | * PROCESSING HAS BEEN FINISHED. * U2I00460 47 | * ERROR- * U2I00470 48 | * 1. CA34 IF A PRE-OP ERROR OR NOT READY * U2I00480 49 | * CONDITION IS DETECTED, THE SUBR * U2I00490 50 | * WILL BRANCH TO HEX 0029 VIA CA34 * U2I00500 51 | * AND DISPLAY ONE OF TWO CODES IN * U2I00510 52 | * ACCUMULATOR. * U2I00520 53 | * 1000 IS DISPLAYED IF 1442 IS NOT * U2I00530 54 | * READY. 1001 IS DISPLAYED IF AN * U2I00540 55 | * ERROR IS DISCOVERED IN CALLING * U2I00550 56 | * PARAMETERS OR AREAS REFERENCED BY * U2I00560 57 | * THEM. * U2I00570 58 | * 2. CR71A IF A POST-OPERATIVE HARDWARE ERROR* U2I00580 59 | * IS DETECTED, THE SUBR EXITS VIA * U2I00590 60 | * CR71A TO THE USERS ERROR SUBR * U2I00600 61 | * WITH AN ERROR CODE,0001,IN THE ACC* U2I00610 62 | * UPON RETURN,THE FUNCTION IS TERM- * U2I00620 63 | * INATED OR REINITIATED DEPENDING ON* U2I00630 64 | * WHETHER OR NOT THE ACC. IS CLEARED* U2I00640 65 | * 3. CR61A IF A LAST CARD CONDITION IS * U2I00650 66 | * DETECTED, THE SUBR EXITS TO THE * U2I00660 67 | * USER VIA CR61A WITH CODE 0000 IN * U2I00670 68 | * THE ACCUMULATOR. * U2I00680 69 | *TABLES/WORK AREAS- NONE. * U2I00690 70 | *ATTRIBUTES- REUSABLE. * U2I00700 71 | *NOTES- THIS SUBR CONTAINS NO WAIT INSTRUCTIONS. * U2I00710 72 | *************************************************** U2I00720 73 | LIBR U2I00730 0000 74 | 1130 ISS 01 PNCH1 0 4 U2I00740 75 | *************************************************** U2I00750 76 | * LOADER DEFINED LOCATIONS * U2I00760 77 | *************************************************** U2I00770 0000 6948 78 | PNCH1 STX 1 CA30+1 LIBF ENTRANCE (+0) U2I00780 0001 6580 0000 79 | LINK LDX I1 0 LOADER STORES TV ADDR (+2) U2I00790 0003 7006 80 | MDX CA10 TO PROCESS CALL U2I00800 0004 0000 81 | INT1 DC 0 COLUMN INTERRUPT (+4) U2I00810 0005 4C00 008AR 82 | BSC L CR14 U2I00820 0007 0000 83 | INT2 DC 0 OP COMPLETE INTERRUPT (+7) U2I00830 0008 4C00 009BR 84 | BSC L CR60 U2I00840 85 | *************************************************** U2I00850 86 | * LIBF PROCESSING * U2I00860 87 | *************************************************** U2I00870 88 | * THIS PORTION STORES CALLING SEQUENCE INFO * U2I00880 89 | * AND CHECKS THE DEVICE STATUS BEFORE ANY I/O * U2I00890 90 | * OPERATION IS INITIATED. A CALLING ERROR OR * U2I00900 91 | * NOT READY 1442 CAUSES AN ERROR EXIT TO * U2I00910 92 | * LOCATION 41. IF THE OPERATION WILL CAUSE * U2I00920 93 | * INTERRUPTS, THE ROUTINE IS SET BUSY AND THE * U2I00930 94 | * IOCS COUNTER IS INCREMENTED TO INDICATE * U2I00940 95 | * INTERRUPT(S) PENDING. * U2I00950 96 | *************************************************** U2I00960 000A D067 97 | CA10 STO TEMP SAVE STATUS U2I00970 000B 2840 98 | STS CA32 U2I00980 000C 6A3E 99 | STX 2 CA31+1 U2I00990 000D C100 100 | LD 1 0 X1= ADDR OF CALL+1 U2I01000 000E 180C 101 | SRA 12 IS FUNCTION TEST U2I01010 000F 4C20 0015R 102 | BSC L CA14,Z NO U2I01020 0011 C064 103 | LD BUSY YES, IS SUBROUTINE BUSY U2I01030 0012 4818 104 | BSC +- SKIP IF YES U2I01040 0013 7101 105 | MDX 1 +1 NO, EXIT TO CALL+3 U2I01050 0014 7030 106 | MDX CA28 YES, EXIT TO CALL+2 U2I01060 0015 9063 107 | CA14 S D0004 IS FUNCTION LEGAL U2I01070 0016 4C30 005AR 108 | BSC L CA40,Z- NO, ERROR U2I01080 0018 8063 109 | A H7003 RESULT WILL BE 7003, 7002 U2I01090 0019 D00B 110 | STO CA20 *7001, OR 7000 U2I01100 001A 8059 111 | A CONST MODIFY THE COMMAND U2I01110 001B D007 112 | STO CA18 *AT CA18 U2I01120 001C C059 113 | CA15 LD BUSY IS SUBROUTINE BUSY U2I01130 001D 4C20 001CR 114 | BSC L CA15,Z YES, WAIT TIL NOT U2I01140 001F 0854 115 | CA17 XIO SENSE-1 IS DEVICE READY U2I01150 0020 4C04 005CR 116 | BSC L CA42,E NO, ERROR U2I01160 0022 C052 117 | LD SENSE SETUP CONTROL IOCC U2I01170 0023 905F 118 | CA18 S SETUP MODIFIED INSTRUCTION U2I01180 0024 D04E 119 | STO INIT U2I01190 0025 7000 120 | CA20 MDX CA20+1 WHAT IS FUNCTION U2I01200 0026 7033 121 | MDX CA40 READ IS ILLEGAL U2I01210 0027 7027 122 | MDX CA36 = PUT -- PUNCH-- U2I01220 0028 7005 123 | MDX CA25 = FEED U2I01230 0029 7030 124 | MDX CA40 STK IS ILLEGAL U2I01240 002A C101 125 | CA24 LD 1 1 SAVE DATA ADDRESS U2I01250 002B D044 126 | STO COLM U2I01260 002C D054 127 | STO RSTRT+1 U2I01270 002D 7101 128 | MDX 1 1 U2I01280 002E 7101 129 | CA25 MDX 1 +1 SET X1 TO SKIP 2ND PARAM U2I01290 002F C100 130 | LD 1 0 U2I01300 0030 D051 131 | STO RSTRT+2 U2I01310 0031 0842 132 | XIO SENSE-1 U2I01320 0032 1003 133 | SLA 3 IS LAST CARD IND ON U2I01330 0033 4C10 003AR 134 | BSC L CA25B,- NO U2I01340 0035 C0EF 135 | LD CA20 IS FUNCTION A FEED U2I01350 0036 4C04 003AR 136 | BSC L CA25B,E NO, PUNCH U2I01360 0038 083D 137 | XIO FEED-1 EJECT CARD U2I01370 0039 702C 138 | MDX CA43 TO DISPLAY NR CODE U2I01380 003A 7401 0032 139 | CA25B MDX L 50,+1 INCREMENT IOCS COUNTER U2I01390 003C 1000 140 | NOP U2I01400 003D C03A 141 | LD D0001 U2I01410 003E D037 142 | STO BUSY SET ROUTINE BUSY U2I01420 003F C03E 143 | CA26 LD ERROR U2I01430 0040 4C20 0044R 144 | BSC L CA27,Z U2I01440 0042 082F 145 | XIO INIT-1 INITIATE I/O U2I01450 0043 7001 146 | MDX CA28 SKIP FEED OPERATION U2I01460 0044 0831 147 | CA27 XIO FEED-1 U2I01470 0045 7101 148 | CA28 MDX 1 +1 U2I01480 0046 C02B 149 | LD TEMP U2I01490 0047 6906 150 | CA29 STX 1 CA34+1 SET EXIT TO SKIP 1ST PARAM U2I01500 0048 6500 0000 151 | CA30 LDX L1 0 RESTORE STATUS U2I01510 004A 6600 0000 152 | CA31 LDX L2 0 *AND INDEX REGISTERS U2I01520 004C 2000 153 | CA32 LDS 0 U2I01530 004D 4C00 0000 154 | CA34 BSC L 0 EXIT U2I01540 004F 9038 155 | CA36 S SETUP+5 U2I01550 0050 D020 156 | STO COLM+1 SETUP PUNCH I/O U2I01560 0051 C580 0001 157 | LD I1 1 U2I01570 0053 4C08 005AR 158 | BSC L CA40,+ = ERROR IF ZERO OR NEG U2I01580 0055 D027 159 | STO COUNT U2I01590 0056 D029 160 | STO RSTRT SAVE WORD COUNT U2I01600 0057 9023 161 | S D0080 DO NOT PUNCH OVER 80 COL U2I01610 0058 4808 162 | BSC + SKIP ON ERROR U2I01620 0059 70D0 163 | MDX CA24 GO GET DATA U2I01630 005A C02C 164 | CA40 LD H1001 ERROR CODE - ILLEGAL CALL U2I01640 005B 700B 165 | MDX CA44 TO ERROR EXIT --LOC 41 U2I01650 005C 1801 166 | CA42 SRA 1 IS DEVICE BUSY U2I01660 005D 4C04 001FR 167 | BSC L CA17,E YES, WAIT TIL NOT U2I01670 005F 1003 168 | SLA 3 IS DSW ERROR INDIC ON U2I01680 0060 4C10 0066R 169 | BSC L CA43,- NO U2I01690 0062 C0C2 170 | LD CA20 YES, IS FUNCTION FEED U2I01700 0063 4C04 0066R 171 | BSC L CA43,E NO U2I01710 0065 D018 172 | STO ERROR YES, INDIC SKIP 1ST CD U2I01720 0066 C01F 173 | CA43 LD H1000 ERROR CODE - DVCE NOT RDY U2I01730 0067 71FF 174 | CA44 MDX 1 -1 U2I01740 0068 6D00 0028 175 | STX L1 40 STORE CALL ADDR IN 40 U2I01750 006A 6129 176 | LDX 1 41 SET EXIT FOR 41 U2I01760 006B 70DB 177 | MDX CA29 TO SOFT ERROR TRAP U2I01770 178 | *************************************************** U2I01780 179 | * CONSTANTS * U2I01790 180 | *************************************************** U2I01800 006C 181 | BSS E 0 U2I01810 006C 0000 182 | SENSR DC 0 E U2I01820 006D 1702 183 | DC /1702 SENSE-RESET LEVEL 4 O U2I01830 006E 0088R 184 | ADDR DC PLC-1 ADDR TO REPLACE O/P AREA E U2I01840 006F 1701 185 | CHAR DC /1701 SENSE-RESET LEVEL 0 O U2I01850 0070 0000 186 | COLM DC 0 IOCC FOR COLUMN I/O E U2I01860 0071 0000 187 | DC 0 IOCC FOR PUNCH O U2I01870 0072 0000 188 | TEMP DC 0 TEMPORARY STORAGE U2I01880 0073 0400 189 | INIT DC /0400 IOCC TO INITIATE I/O O U2I01890 0074 205F 190 | CONST DC SETUP-CA18-1+/2000 U2I01900 0075 1700 191 | SENSE DC /1700 SENSE DSW WITHOUT RESET O U2I01910 0076 0000 192 | BUSY DC 0 ROUTINE BUSY INDICATOR U2I01920 0077 1402 193 | FEED DC /1402 IOCC TO FEED 1 CARD O U2I01930 0078 0001 194 | D0001 DC +1 CONSTANT U2I01940 0079 0004 195 | D0004 DC +4 CONSTANT U2I01950 007A 0008 196 | D0008 DC +8 CONSTANT U2I01960 007B 0050 197 | D0080 DC +80 CONSTANT U2I01970 007C 7003 198 | H7003 DC /7003 INSTRUCTIONS = MDX X +3 U2I01980 007D 0000 199 | COUNT DC 0 NO. WORDS TO XFER U2I01990 007E 0000 200 | ERROR DC 0 SKIP ONE CARD INDIC U2I02000 007F 0000 201 | INDIC DC 0 RD STATION FEED CHK IND U2I02010 0080 0000 202 | RSTRT DC 0 RESTART INFO - WORD COUNT U2I02020 0081 0000 203 | DC 0 DATA ADDR U2I02030 0082 0000 204 | DC 0 - ERROR PARAM U2I02040 0083 02FC 205 | SETUP DC /02FC INITIATE IOCC SETUP - GET U2I02050 0084 02FF 206 | DC /02FF - PUT U2I02060 0085 02FE 207 | DC /02FE - FEED U2I02070 0086 1000 208 | H1000 DC /1000 CONSTANT U2I02080 0087 1001 209 | H1001 DC /1001 CONSTANT U2I02090 0088 0301 210 | DC /0301 - PUT U2I02100 0089 0000 211 | PLC DC *-* WD FOR LAST CHAR PUNCHED U2I02110 008D 212 | $PST4 EQU /8D POST-OPERATIVE ERROR TRAP U2I02120 213 | *************************************************** U2I02130 214 | * COLUMN INTERRUPT PROCESSING * U2I02140 215 | *************************************************** U2I02150 216 | * THIS PORTION IS ENTERED FROM INTERR LEVEL * U2I02160 217 | * SUBROUTINE 00. * U2I02170 218 | * WHEN THE LAST COLUMN REQUESTED IS * U2I02180 219 | * PUNCHED, AN INDICATION IS GIVEN TO THE 1442 * U2I02190 220 | * TO INITIATE AN OP COMPLETE INTERRUPT. * U2I02200 221 | *************************************************** U2I02210 008A 08E3 222 | CR14 XIO CHAR-1 SENSE DSW WITH RESET U2I02220 008B 74FF 007DR 223 | MDX L COUNT,-1 ANY MORE COLS TO PROCESS U2I02230 008D 7008 224 | MDX CR18 YES U2I02240 008E 7401 0070R 225 | CR16 MDX L COLM,+1 NO, STORE STOP PUNCH U2I02250 0090 C480 0070R 226 | LD I COLM *BIT (BIT 12) IN COL U2I02260 0092 E8E7 227 | OR D0008 *DATA U2I02270 0093 D0F5 228 | STO PLC U2I02280 0094 C0D9 229 | LD ADDR PUNCH FROM TEMPORARY U2I02290 0095 D0DA 230 | STO COLM *LOCATION U2I02300 0096 7401 0070R 231 | CR18 MDX L COLM,+1 SET ADDR FOR NEXT COLUMN U2I02310 0098 08D7 232 | CR20 XIO COLM EXECUTE COLUMN I/O U2I02320 0099 4C80 0004R 233 | CR22 BSC I INT1 EXIT U2I02330 234 | *************************************************** U2I02340 235 | * OP COMPLETE INTERRUPT PROCESSING * U2I02350 236 | *************************************************** U2I02360 237 | * THIS PORTION IS ENTERED FROM INTERR LEVEL * U2I02370 238 | * SUBROUTINE 04. IF AN ERROR IS DETECTED, * U2I02380 239 | * THE SUBROUTINE EXITS TO THE USERS ERROR * U2I02390 240 | * ROUTINE VIA THE ERROR PARAMETER, AND * U2I02400 241 | * GIVES THE USER THE OPTION OF TERMINATING * U2I02410 242 | * OR RETRYING THE OPERATION. IF TERMINATION * U2I02420 243 | * IS SELECTED OR IF NO ERROR IS DETECTED, THE * U2I02430 244 | * ROUTINE IS SET NOT BUSY AND THE IOCS * U2I02440 245 | * COUNTER IS DECREMENTED TO INDICATE INTERR * U2I02450 246 | * PROCESSING COMPLETED. OTHERWISE THE SUBRT * U2I02460 247 | * WAITS AT POST-OPERATIVE ERROR TRAP UNTIL * U2I02470 248 | * THE OPERATOR HAS INTERVENED * U2I02480 249 | * AND THE 1442 BECOMES READY, AT WHICH TIME * U2I02490 250 | * THE CARDS ARE POSITIONED AND THE I/O OPERA- * U2I02500 251 | * TION IS RE-INITIATED. * U2I02510 252 | *************************************************** U2I02520 009B 08D0 253 | CR60 XIO SENSR SENSE WITH RESET U2I02530 009C 1003 254 | SLA 3 IS OPERATION OK U2I02540 009D 4C02 00B7R 255 | BSC L CR70,C NO, ERROR U2I02550 009F 4C10 00ACR 256 | CR61 BSC L CR62,- YES, CHK FOR LAST CARD U2I02560 00A1 1810 257 | SRA 16 GO TO USER WITH U2I02570 00A2 4480 0082R 258 | CR61A BSI I RSTRT+2 LAST CARD CODE U2I02580 00A4 C0C9 259 | LD ADDR RETURN FROM USER U2I02590 00A5 80D2 260 | A D0001 CHECK FUNCTION U2I02600 00A6 F0C9 261 | EOR COLM IS FUNCTION PUT U2I02610 00A7 4C20 00ACR 262 | BSC L CR62,Z NO, GO TO CR62 U2I02620 00A9 7401 0073R 263 | MDX L INIT,+1 U2I02630 00AB 08C6 264 | XIO INIT-1 YES, EJECT LAST CD U2I02640 00AC C0D1 265 | CR62 LD ERROR WAS THIS A SKIP OPERATION U2I02650 00AD 1010 266 | SLA 16 U2I02660 00AE D0CF 267 | STO ERROR U2I02670 00AF 4C02 00C1R 268 | BSC L CR72,C YES, INITIATE FUNCTION U2I02680 00B1 D0C4 269 | CR64 STO BUSY NO, CLEAR ROUTINE BUSY IND U2I02690 00B2 74FF 0032 270 | MDX L 50,-1 DECREMENT IOCS COUNTER U2I02700 00B4 1000 271 | NOP U2I02710 00B5 4C80 0007R 272 | CR66 BSC I INT2 RETURN TO INTERRUPT LEVEL U2I02720 00B7 D0C7 273 | CR70 STO INDIC SAVE FD CHK (RD STAT) IND U2I02730 00B8 C0BF 274 | LD D0001 U2I02740 00B9 4480 0082R 275 | CR71A BSI I RSTRT+2 EXIT TO USER U2I02750 00BB 4C18 00B1R 276 | BSC L CR64,+- RESTART NOT REQUESTED U2I02760 00BD C0B5 277 | LD INIT IS FUNCTION PUNCH U2I02770 00BE 4C04 00C1R 278 | BSC L CR72,E YES, DONT SKIP U2I02780 00C0 700E 279 | MDX CR73B NO, GO CHK FEED CHECK ERRO U2I02790 00C1 08B2 280 | CR72 XIO SENSE-1 IS DEVICE READY U2I02800 00C2 4C04 00D6R 281 | BSC L CR75,E TO ERROR-TRAP IF NOT READY U2I02810 00C4 C0B9 282 | LD ERROR IS CARD SKIP NECESSARY U2I02820 00C5 4C18 00C9R 283 | BSC L CR73,+- NO U2I02830 00C7 08AE 284 | XIO FEED-1 SKIP 1ST CARD U2I02840 00C8 70EC 285 | MDX CR66 RETURN TO INTRP.LVL. TRN U2I02850 00C9 C0B6 286 | CR73 LD RSTRT REINITIATE I/O U2I02860 00CA D0B2 287 | STO COUNT *OPERATION FROM U2I02870 00CB C0B5 288 | LD RSTRT+1 *SAVED INFO U2I02880 00CC D0A3 289 | STO COLM U2I02890 00CD 08A4 290 | XIO INIT-1 REINITIATE AND EXIT U2I02900 00CE 70E6 291 | MDX CR66 WITHOUT CLEARING BUSY U2I02910 00CF C0AF 292 | CR73B LD INDIC WAS ERROR FD CHK (RD ST) U2I02920 00D0 1004 293 | SLA 4 U2I02930 00D1 4C28 00C1R 294 | BSC L CR72,Z+ YES, DONT SKIP U2I02940 00D3 C0A4 295 | CR73E LD D0001 U2I02950 00D4 D0A9 296 | STO ERROR SET BIT 1 OF INDIC U2I02960 00D5 70EB 297 | MDX CR72 U2I02970 00D6 C0AF 298 | CR75 LD H1000 LD NOT READY ERROR CODE U2I02980 00D7 4400 008D 299 | BSI L $PST4 POST-OPERATIVE ERROR TRAP U2I02990 00D9 70E7 300 | MDX CR72 TRY AGAIN U2I03000 00DA 301 | END U2I03010 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $PST4 008D 212 299 ADDR 006ER 184 229 259 BUSY 0076R 192 103 113 142 269 CA10 000AR 97 80 CA14 0015R 107 102 CA15 001CR 113 114 CA17 001FR 115 167 CA18 0023R 118 112 190 CA20 0025R 120 110 135 170 CA24 002AR 125 163 CA25 002ER 129 123 CA25B 003AR 139 134 136 CA26 003FR 143 CA27 0044R 147 144 CA28 0045R 148 106 146 CA29 0047R 150 177 CA30 0048R 151 78 CA31 004AR 152 99 CA32 004CR 153 98 CA34 004DR 154 150 CA36 004FR 155 122 CA40 005AR 164 108 121 124 158 CA42 005CR 166 116 CA43 0066R 173 138 169 171 CA44 0067R 174 165 CHAR 006FR 185 222 COLM 0070R 186 126 156 225 226 230 231 232 261 289 CONST 0074R 190 111 COUNT 007DR 199 159 223 287 CR14 008AR 222 82 CR16 008ER 225 CR18 0096R 231 224 CR20 0098R 232 CR22 0099R 233 CR60 009BR 253 84 CR61 009FR 256 CR61A 00A2R 258 CR62 00ACR 265 256 262 CR64 00B1R 269 276 CR66 00B5R 272 285 291 CR70 00B7R 273 255 CR71A 00B9R 275 CR72 00C1R 280 268 278 294 297 300 CR73 00C9R 286 283 CR73B 00CFR 292 279 CR73E 00D3R 295 CR75 00D6R 298 281 D0001 0078R 194 141 260 274 295 D0004 0079R 195 107 D0008 007AR 196 227 D0080 007BR 197 161 ERROR 007ER 200 143 172 265 267 282 296 FEED 0077R 193 137 147 284 H1000 0086R 208 173 298 H1001 0087R 209 164 H7003 007CR 198 109 INDIC 007FR 201 273 292 INIT 0073R 189 119 145 263 264 277 290 INT1 0004R 81 233 INT2 0007R 83 272 LINK 0001R 79 PLC 0089R 211 184 228 PNCH1 0000R 78 RSTRT 0080R 202 127 131 160 258 275 286 288 SENSE 0075R 191 115 117 132 280 SENSR 006CR 182 253 SETUP 0083R 205 118 155 190 TEMP 0072R 188 97 149
ibm/ibm1130-lib/dmsr2v12/u2pnch1_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator