ibm:ibm1130-lib:dmsr2v12:t5paptz_lst
T5PAPTZ
| Table Of Contents |
|---|
|
- t5paptz.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \t5paptz.asm 1 | * JULY 6,1967 T5F00010 PAPTZ 3 | LIBR T5F00030 4 | ISS 03 PAPTZ 4 T5F00040 5 | *************************************************** T5F00050 6 | *STATUS-VERSION 2,MODIFICATION 10 * T5F00060 7 | * * T5F00070 8 | *FUNCTION/OPERATION- * T5F00080 9 | * THIS ROUTINE IS USED BY FORTRAN PROGRAMS TO * T5F00090 10 | * READ OR WRITE ON PAPER TAPE. * T5F00100 11 | * * T5F00110 12 | *ENTRY POINTS- * T5F00120 13 | * * PAPTZ-CALL PORTION FROM FORTRAN SFIO PROGRAM* T5F00130 14 | * * BZ100-INTERRUPT ENTRY * T5F00140 15 | * THE SUBROUTINE IS ENTERED BY A LIBF PAPTZ * T5F00150 16 | * * T5F00160 17 | *INPUT- * T5F00170 18 | * * XR1 CONTAINS THE I/O BUFFER ADDR * T5F00180 19 | * * XR2 CONTAINS THE WORD COUNT * T5F00190 20 | * * ACC CONTAINS 0 FOR READ, 2 FOR WRITE * T5F00200 21 | * * T5F00210 22 | *OUTPUT- * T5F00220 23 | * * PUNCHED PAPER TAPE IF WRITE * T5F00230 24 | * * A BUFFER FULL OF EBC INFORMATION IF READ * T5F00240 25 | * * T5F00250 26 | *EXTERNAL REFERENCES- * T5F00260 27 | * * $EXIT * T5F00270 28 | * * $PRET * T5F00280 29 | * * T5F00290 30 | *EXITS- * T5F00300 31 | * NORMAL- * T5F00310 32 | * * CALL PORTION-PAPTZ+1, BACK TO SFIO * T5F00320 33 | * * INTERRUPT PORTION-BZ100, BACK TO ILSO4 * T5F00330 34 | * * $EXIT-MONITOR EXIT WHEN //(BLANK) CONTROL* T5F00340 35 | * RECORD FOUND. * T5F00350 36 | * ERROR- * T5F00360 37 | * * $PRET-MONITOR PRE-OPERATIVE ERROR TRAP * T5F00370 38 | * WHEN NOT IN READY STATUS * T5F00380 39 | * * T5F00390 40 | *TABLES/WORK AREAS- * T5F00400 41 | * CONTAINS CONVERSION TABLE OF ALL CHARACTERS * T5F00410 42 | * ALLOWABLE FOR CONVERTING FROM EBC TO PAPER * T5F00420 43 | * TAPE CODE AND VICE-VERSA. * T5F00430 44 | * * T5F00440 45 | *ATTRIBUTES-RELOCATABLE * T5F00450 46 | * * T5F00460 47 | *NOTES-REGISTERS NOT SAVED * T5F00470 48 | * * T5F00480 49 | *************************************************** T5F00490 50 | * * T5F00500 PAPTZ 52 | * T5F00520 53 | * SYSTEM COMMUNICATION WORDS T5F00530 54 | * T5F00540 0038 55 | $EXIT EQU /38 MONITOR EXIT T5F00550 0028 56 | $PRET EQU /28 MONITOR PRE-OP ERR TRAP T5F00560 57 | * T5F00570 58 | * PROGRAM ENTRY POINT T5F00580 59 | * T5F00590 0000 7009 60 | PAPTZ MDX BZ200 ENTRY T5F00600 0001 4C80 0000 61 | BSC I *-* EXIT FROM ROUTINE T5F00610 0003 0000 62 | BZ010 DC 0 ROUTINE BUSY INDICATOR T5F00620 63 | * T5F00630 64 | * INTERRUPT ENTRY FROM INTERRUPT LEVEL T5F00640 65 | * SUBROUTINE. THIS PORTION PROCESSES T5F00650 66 | * INTERRUPTS AND RETURNS TO THE MAIN- T5F00660 67 | * LINE CODING OF THIS SUBROUTINE T5F00670 68 | * THROUGH $ILS4 T5F00680 69 | * T5F00690 0004 0000 70 | BZ100 DC *-* INTERRUPT ENTRY VIA BSI T5F00700 0005 0856 71 | XIO BZ900 RESET INTERRUPT LEVEL T5F00710 0006 D06C 72 | STO BZ926 SAVE INTERRUPT STATUS WD T5F00720 0007 68FB 73 | STX BZ010 SET ROUTINE BUSY FLAG T5F00730 0008 4C80 0004R 74 | BSC I BZ100 RETURN TO $ILS4 T5F00740 75 | * T5F00750 76 | * MAINLINE PORTION OF PROGRAM. T5F00760 77 | * INITIALIZATION PHASE A BRANCH OCCURS T5F00770 78 | * ON ENTRY TO THE PAPTZ SUBROUTINE T5F00780 79 | * T5F00790 000AR 80 | BZ200 EQU * ENTRY POINT T5F00800 000A D066 81 | STO BZ924 SAVE READ/WRITE INDICATOR T5F00810 000B 4818 82 | BSC +- SKIP IF WRITE T5F00820 000C 6278 83 | LDX 2 120 SET MAX. BUFR SIZE FOR RD T5F00830 000D 7201 84 | MDX 2 1 INCR WD CNT BY 1 FOR NEW T5F00840 85 | * *LINE CHARACTER T5F00850 000E 6A67 86 | STX 2 BZ929 SAVE WD COUNT T5F00860 000F 693C 87 | STX 1 BZ300+1 SAVE BUFFER ADDRESS T5F00870 0010 685F 88 | STX BZ922 SET NEW LINE SW TO NO EXIT T5F00880 0011 685A 89 | STX BZ918 SET CASE CHAR TEST SW T5F00890 0012 0849 90 | BZ210 XIO BZ900 SENSE AND TEST IF READY T5F00900 0013 1001 91 | SLA 1 T5F00910 0014 7400 0071R 92 | MDX L BZ924,0 CHECK FOR READ OR WRITE T5F00920 0016 7060 93 | MDX BZ400 BRANCH IF WRITE T5F00930 0017 1004 94 | SLA 4 SHIFT READY INDR TO SIGN T5F00940 0018 4C28 0058R 95 | BSC L BZ350,+Z BRANCH IF NOT READY T5F00950 001A 0843 96 | XIO BZ902 START READER T5F00960 97 | * T5F00970 98 | * WAIT FOR NEXT INTERRUPT TO OCCUR T5F00980 99 | * ROUTINE BUSY INDICATOR (BZ010) = 0 T5F00990 100 | * INDICATES NO INTERRUPT WAITING TO BE T5F01000 101 | * PROCESSED T5F01010 102 | * T5F01020 001B C0E7 103 | BZ220 LD BZ010 LOAD SUBROUTINE BUSY INDR T5F01030 001C 4C18 001BR 104 | BSC L BZ220,+- WAIT IF NO INTERRUPT T5F01040 001E 1010 105 | SLA 16 CLEAR SUBROUTINE BUSY INDR T5F01050 001F D0E3 106 | STO BZ010 *SO WAIT WILL OCCUR NEXT T5F01060 107 | * T5F01070 108 | * PROCESS INTERRUPT T5F01080 109 | * T5F01090 0020 C052 110 | LD BZ926 LOAD READ/WRITE INDICATOR T5F01100 0021 1001 111 | SLA 1 SHIFT WRITE BIT TO SIGN T5F01110 0022 4C10 0077R 112 | BSC L BZ400,- BRANCH IF WRITE T5F01120 113 | * T5F01130 0024 083B 114 | XIO BZ904 READ CHARACTER T5F01140 0025 C04C 115 | LD BZ925 LOAD CHARACTER READ T5F01150 0026 9041 116 | S BZ914 TEST FOR UPPER CASE CHAR T5F01160 0027 4C20 002BR 117 | BSC L BZ230,Z BR IF NOT UPPER-CASE T5F01170 0029 C040 118 | LD BZ916 LOAD UPPER CASE CONSTANT T5F01180 002A 7004 119 | MDX BZ240 BR TO SAVE CONSTANT T5F01190 120 | * T5F01200 002B 903A 121 | BZ230 S BZ912 TEST FOR LOWER CASE T5F01210 002C 4C20 0031R 122 | BSC L BZ245,Z BR IF NOT LOWER CASE T5F01220 002E 1010 123 | SLA 16 CLEAR ACC (LOWER CASE CON) T5F01230 002F D045 124 | BZ240 STO BZ928 SAVE CASE CONSTANT T5F01240 0030 70E1 125 | MDX BZ210 BR TO READ ANOTHER CHAR T5F01250 126 | * T5F01260 0031 902A 127 | BZ245 S BZ923 TEST FOR DELETION T5F01270 0032 4C18 0012R 128 | BSC L BZ210,+- DELETE FOUND,GO RD NXTCHAR T5F01280 0034 902F 129 | S BZ910 TEST FOR NEWLINE CHAR T5F01290 0035 4C18 004BR 130 | BSC L BZ300,+- BR TO EXIT IF NEWLINE CHAR T5F01300 0037 C03A 131 | LD BZ925 GET CHARACTER FROM INPUT T5F01310 0038 E83C 132 | OR BZ928 SET CHAR TO CURRENT CASE T5F01320 0039 D038 133 | STO BZ925 SAVE NEW CHAR T5F01330 003A 62CB 134 | LDX 2 -53 SET TO SCAN CONVERT TABLE T5F01340 003B 1090 135 | BZ250 SLT 16 CLEAR EXTENSION T5F01350 003C C600 00E2R 136 | LD L2 BZ990+1 GET CHAR FROM TABLE T5F01360 003E 18D8 137 | RTE 24 RIGHT 1/2 TBL WD TO ACC T5F01370 003F F032 138 | EOR BZ925 COMPARE WITH IO WD READ T5F01380 0040 4C18 0045R 139 | BSC L BZ260,+- BRANCH IF EQUAL T5F01390 0042 7201 140 | MDX 2 1 INCR TABLE POINTER T5F01400 0043 70F7 141 | MDX BZ250 BR IF TABLE NOT EXHAUSTED T5F01410 0044 C820 142 | LDD BZ911 CHAR NOT IN TBL, LD BLANKS T5F01420 0045 18D0 143 | BZ260 RTE 16 SHIFT EBC CHAR FR EXTNSION T5F01430 0046 D100 144 | STO 1 0 STORE IN OUTPUT BUFFER T5F01440 0047 7101 145 | MDX 1 1 INCR. BUFFER ADDR T5F01450 0048 74FF 0076R 146 | MDX L BZ929,-1 DECREMENT CHAR COUNT T5F01460 004A 70C7 147 | MDX BZ210 BR FOR NXT CHAR IF CNT GTO T5F01470 148 | * T5F01480 149 | * ALL CHARACTERS HAVE BEEN READ EXIT T5F01490 150 | * ROUTINE FOLLOWS T5F01500 151 | * T5F01510 152 | * T5F01520 153 | * CHECK FOR //BLANK CONTROL RECORD ON T5F01530 154 | * READ. IF FOUND BRANCH TO MONITOR T5F01540 155 | * EXIT ROUTINE T5F01550 156 | * T5F01560 157 | * T5F01570 004B 6500 0000 158 | BZ300 LDX L1 *-* GET LOC OF FIRST BUFR WD T5F01580 004D C900 159 | LDD 1 0 LOAD 2 WDS FROM BUFFER T5F01590 004E 981A 160 | SD BZ915 TEST FOR // (SLASH MUST BE T5F01600 161 | * * AT ODD ADDRESS) T5F01610 162 | * T5F01620 004F 4818 163 | BSC +- SKIP IF ACC NON ZERO T5F01630 0050 18D0 164 | RTE 16 PUT EXTENSION IN ACC T5F01640 0051 4C20 0001R 165 | BSC L PAPTZ+1,Z RETURN IF NOT // T5F01650 0053 C102 166 | LD 1 2 TEST THIRD CHARACTER T5F01660 0054 F010 167 | EOR BZ911 TEST FOR BLANK T5F01670 0055 4C20 0001R 168 | BSC L PAPTZ+1,Z RETURN IF NOT BLANK 2-10 T5F01680 0057 6038 169 | LDX $EXIT BR TO MONITOR EXIT T5F01690 170 | * T5F01700 171 | * PAPER TAPE NOT IN READY STATUS, T5F01710 172 | * LOAD ERROR INDICATOR (13000) T5F01720 173 | * BR TO SYSTEM PRE OPERATIVE ERROR TRAP T5F01730 174 | * T5F01740 0058 C01B 175 | BZ350 LD BZ927 LOAD ERROR INDICATOR T5F01750 0059 4400 0028 176 | BSI L $PRET BRANCH TO TRAP T5F01760 005B 70B6 177 | MDX BZ210 BRANCH TO PROCESS NXT CHAR T5F01770 178 | * T5F01780 179 | * CONSTANTS T5F01790 180 | * T5F01800 005C 181 | BSS E 0 T5F01810 005C 1100 182 | BZ900 DC /1100 DELETE CONSTANT AND T5F01820 005D 1F05 183 | DC /1F05 *SENSE IOCC WITH RESET T5F01830 184 | * THE FIRST IOCC WD AT BZ900 AND BZ902 T5F01840 185 | * IS USED FOR CONSTANT STORAGE T5F01850 005E DD00 186 | BZ902 DC /DD00 NEW LINE OP CODE AND T5F01860 005F 1C10 187 | DC /1C10 *START READER IOCC WORD T5F01870 0060 0072R 188 | BZ904 DC BZ925 READ IOCC WORD T5F01880 0061 1A00 189 | DC /1A00 T5F01890 0062 0072R 190 | BZ906 DC BZ925 WRITE IOCC WORD T5F01900 0063 1900 191 | DC /1900 T5F01910 0064 5E00 192 | BZ910 DC /5E00 NEW LINE CONSTANT TEST T5F01920 0065 0040 193 | BZ911 DC /0040 EBC BLANK--MUST BE ODD LOC T5F01930 0066 6000 194 | BZ912 DC /6000 LOWER CASE CONSTANT TEST T5F01940 0067 1000 195 | BZ913 DC /1000 PT BLANK--MUST BE ODD LOC T5F01950 0068 0E00 196 | BZ914 DC /0E00 UPPER CASE CONSTANT TEST T5F01960 0069 0061 197 | BZ915 DC /0061 EBC SLASH MUST BE ODD 2-10 T5F01970 006A 8000 198 | BZ916 DC /8000 UPPER CASE MASK T5F01980 006B 6E00 199 | BZ917 DC /6E00 CASE CHANGE MASK T5F01990 006C 0000 200 | BZ918 DC 0 CASE CHARACTER FLAG T5F02000 006D 0000 201 | BZ919 DC 0 CASE TO BE O/P T5F02010 006E 0000 202 | BZ920 DC 0 O/P CHAR-FOR CASE CHG TEST T5F02020 006F 0000 203 | BZ921 DC 0 PREVIOUS O/P CASE T5F02030 0070 0000 204 | BZ922 DC 0 NEW LINE CHAR SWITCH T5F02040 005CR 205 | BZ923 EQU BZ900 DELETE CONSTANT TEST CODE T5F02050 0071 0000 206 | BZ924 DC 0 READ/WRITE INDICATOR T5F02060 0072 0000 207 | BZ925 DC 0 CHAR TO READ OR WRITE OUT T5F02070 0073 0000 208 | BZ926 DC 0 DSW WD FROM SENSE T5F02080 0074 3000 209 | BZ927 DC /3000 ERROR INDICATOR T5F02090 0075 0000 210 | BZ928 DC 0 CASE CHAR ON READ T5F02100 0076 0000 211 | BZ929 DC 0 WORD COUNT T5F02110 005ER 212 | BZ930 EQU BZ902 NEW LINE O/P CODE T5F02120 213 | * T5F02130 214 | * CONVERT AND PUNCH PAPERTAPE OUTPUT T5F02140 215 | * T5F02150 0077 1006 216 | BZ400 SLA 6 TEST IF PUNCH READY T5F02160 0078 4C28 0058R 217 | BSC L BZ350,+Z BRANCH IF NOT READY T5F02170 218 | * T5F02180 007A C0F5 219 | LD BZ922 LAST CHAR O/P = NEW LINE T5F02190 007B 4C18 0001R 220 | BSC L PAPTZ+1,+- RETURN IF YES T5F02200 007D C0EF 221 | LD BZ919 LAST CHAR O/P = CASE T5F02210 007E 4C20 009AR 222 | BSC L BZ430,Z YES, O/P CHAR T5F02220 0080 74FF 0076R 223 | MDX L BZ929,-1 DECREMENT CHARACTER COUNT T5F02230 0082 7004 224 | MDX BZ410-1 BR UNLESS LOOP FINISHED T5F02240 225 | * T5F02250 226 | * LOOP FINISHED ALL CHARACTERS 0/P T5F02260 227 | * T5F02270 0083 1010 228 | SLA 16 CLEAR ACC T5F02280 0084 D0EB 229 | STO BZ922 SET NEW LINE CHAR SWITCH T5F02290 0085 C0D8 230 | LD BZ930 GET NEW LINE CHARACTER T5F02300 0086 701B 231 | MDX BZ440 BR TO OUTPUT NEW LINE CHAR T5F02310 232 | * T5F02320 233 | * SCAN TABLE FOR CHARACTER FOR OUTPUT T5F02330 234 | * AND CONVERT TO PAPER TAPE CODE T5F02340 235 | * T5F02350 0087 62CB 236 | LDX 2 -53 SET COUNT ON TABLE SIZE T5F02360 0088 1090 237 | BZ410 SLT 16 CLEAR EXTENSION T5F02370 0089 C600 00E2R 238 | LD L2 BZ990+1 LOAD CHAR FROM TABLE T5F02380 008B 18C8 239 | RTE 8 SHIFT CHARACTER T5F02390 008C F100 240 | EOR 1 0 COMPARE WITH BUFFER CHAR T5F02400 008D 4C18 0092R 241 | BSC L BZ420,+- BRANCH IF EQUAL T5F02410 008F 7201 242 | MDX 2 1 DECREMENT COUNT ON TABLE T5F02420 0090 70F7 243 | MDX BZ410 BR UNLESS TABLE FINISHED T5F02430 0091 C8D5 244 | LDD BZ913 NO MATCH FOUND. O/P BLANK T5F02440 0092 18D0 245 | BZ420 RTE 16 SHIFT CHARACTER TO O/P T5F02450 0093 D0DA 246 | STO BZ920 SAVE CHAR T5F02460 0094 F0DA 247 | EOR BZ921 TEST IF CASE CHANGE REQ T5F02470 0095 4C28 00A6R 248 | BSC L BZ450,+Z BR IF YES T5F02480 0097 C0D4 249 | LD BZ918 CASE CHAR NO O/P FLAG T5F02490 0098 4C20 00A6R 250 | BSC L BZ450,Z O/P CASE CHAR INITIALLY T5F02500 009A 1010 251 | BZ430 SLA 16 T5F02510 009B D0D1 252 | STO BZ919 CLEAR CASE INDICATOR T5F02520 009C D0CF 253 | STO BZ918 CLEAR CASE SWITCH T5F02530 009D C0D0 254 | LD BZ920 LOAD NEW CASE CHAR T5F02540 009E D0D0 255 | STO BZ921 SAVE FOR NEXT TIME CHECK T5F02550 009F 1001 256 | SLA 1 REMOVE SIGN T5F02560 00A0 1801 257 | SRA 1 T5F02570 00A1 7101 258 | MDX 1 1 INCR BUFFER ADDRESS T5F02580 00A2 D0CF 259 | BZ440 STO BZ925 SAVE CHAR IN O/P CHARACTER T5F02590 00A3 08BE 260 | XIO BZ906 INITIATE WRITE T5F02600 00A4 4C00 001BR 261 | BSC L BZ220 BR TO WAIT FOR INTERRUPT T5F02610 262 | * T5F02620 263 | * SETUP TO OUTPUT CASE CHANGE T5F02630 264 | * T5F02640 00A6 C0C7 265 | BZ450 LD BZ920 LOAD CHARACTER T5F02650 00A7 E0C2 266 | AND BZ916 MASK OUT ALL BUT CASE BIT T5F02660 00A8 1882 267 | SRT 2 SHIFT CHAR INCLUDING SIGN T5F02670 00A9 E0C1 268 | AND BZ917 MASK OUT BIT 0 AND CONVERT T5F02680 00AA F0C0 269 | EOR BZ917 *TO /6E00 OR /0E00 T5F02690 00AB D0C1 270 | STO BZ919 STORE CASE CHARACTER T5F02700 00AC 70F5 271 | MDX BZ440 BR TO O/P CASE CHAR T5F02710 272 | * T5F02720 273 | * THE FOLLOWING IS A CONVERT TABLE. THE T5F02730 274 | * LEFT 2 CHARACTERS OF EACH WORD ARE T5F02740 275 | * THE EBC CODE. THE RIGHT 2 CHARACTERS T5F02750 276 | * ARE THE PAPER TAPE CODE. T5F02760 277 | * T5F02770 00AD 4010 278 | DC /4010 BLANK T5F02780 00AE F01A 279 | DC /F01A 0 T5F02790 00AF F101 280 | DC /F101 1 T5F02800 00B0 F202 281 | DC /F202 2 T5F02810 00B1 F313 282 | DC /F313 3 T5F02820 00B2 F404 283 | DC /F404 4 T5F02830 00B3 F515 284 | DC /F515 5 T5F02840 00B4 F616 285 | DC /F616 6 T5F02850 00B5 F707 286 | DC /F707 7 T5F02860 00B6 F808 287 | DC /F808 8 T5F02870 00B7 F919 288 | DC /F919 9 T5F02880 00B8 6040 289 | DC /6040 - T5F02890 00B9 4B6B 290 | DC /4B6B . T5F02900 00BA C5F5 291 | DC /C5F5 E T5F02910 00BB 4EF0 292 | DC /4EF0 PLUS T5F02920 00BC 5070 293 | DC /5070 AMPERSAND T5F02930 00BD 7E81 294 | DC /7E81 EQUAL T5F02940 00BE 5D9A 295 | DC /5D9A RIGHT PAREN T5F02950 00BF 4D99 296 | DC /4D99 LEFT PAREN T5F02960 00C0 6B3B 297 | DC /6B3B , T5F02970 00C1 7D96 298 | DC /7D96 APOSTROPHE T5F02980 00C2 6131 299 | DC /6131 / T5F02990 00C3 5C88 300 | DC /5C88 * T5F03000 00C4 5B5B 301 | DC /5B5B $ T5F03010 00C5 4C82 302 | DC /4C82 LESS THAN T5F03020 00C6 6C95 303 | DC /6C95 PERCENT T5F03030 00C7 7B0B 304 | DC /7B0B POUND SIGN T5F03040 00C8 7C20 305 | DC /7C20 AT SIGN T5F03050 00C9 C1E1 306 | DC /C1E1 A T5F03060 00CA C2E2 307 | DC /C2E2 B T5F03070 00CB C3F3 308 | DC /C3F3 C T5F03080 00CC C4E4 309 | DC /C4E4 D T5F03090 00CD C6F6 310 | DC /C6F6 F T5F03100 00CE C7E7 311 | DC /C7E7 G T5F03110 00CF C8E8 312 | DC /C8E8 H T5F03120 00D0 C9F9 313 | DC /C9F9 I T5F03130 00D1 D1D1 314 | DC /D1D1 J T5F03140 00D2 D2D2 315 | DC /D2D2 K T5F03150 00D3 D3C3 316 | DC /D3C3 L T5F03160 00D4 D4D4 317 | DC /D4D4 M T5F03170 00D5 D5C5 318 | DC /D5C5 N T5F03180 00D6 D6C6 319 | DC /D6C6 O T5F03190 00D7 D7D7 320 | DC /D7D7 P T5F03200 00D8 D8D8 321 | DC /D8D8 Q T5F03210 00D9 D9C9 322 | DC /D9C9 R T5F03220 00DA E2B2 323 | DC /E2B2 S T5F03230 00DB E3A3 324 | DC /E3A3 T T5F03240 00DC E4B4 325 | DC /E4B4 U T5F03250 00DD E5A5 326 | DC /E5A5 V T5F03260 00DE E6A6 327 | DC /E6A6 W T5F03270 00DF E7B7 328 | DC /E7B7 X T5F03280 00E0 E8B8 329 | DC /E8B8 Y T5F03290 00E1 E9A9 330 | BZ990 DC /E9A9 Z T5F03300 00E2 331 | END T5F03310 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $EXIT 0038 55 169 $PRET 0028 56 176 BZ010 0003R 62 73 103 106 BZ100 0004R 70 74 BZ200 000AR 80 60 BZ210 0012R 90 125 128 147 177 BZ220 001BR 103 104 261 BZ230 002BR 121 117 BZ240 002FR 124 119 BZ245 0031R 127 122 BZ250 003BR 135 141 BZ260 0045R 143 139 BZ300 004BR 158 87 130 BZ350 0058R 175 95 217 BZ400 0077R 216 93 112 BZ410 0088R 237 224 243 BZ420 0092R 245 241 BZ430 009AR 251 222 BZ440 00A2R 259 231 271 BZ450 00A6R 265 248 250 BZ900 005CR 182 71 90 205 BZ902 005ER 186 96 212 BZ904 0060R 188 114 BZ906 0062R 190 260 BZ910 0064R 192 129 BZ911 0065R 193 142 167 BZ912 0066R 194 121 BZ913 0067R 195 244 BZ914 0068R 196 116 BZ915 0069R 197 160 BZ916 006AR 198 118 266 BZ917 006BR 199 268 269 BZ918 006CR 200 89 249 253 BZ919 006DR 201 221 252 270 BZ920 006ER 202 246 254 265 BZ921 006FR 203 247 255 BZ922 0070R 204 88 219 229 BZ923 005CR 205 127 BZ924 0071R 206 81 92 BZ925 0072R 207 115 131 133 138 188 190 259 BZ926 0073R 208 72 110 BZ927 0074R 209 175 BZ928 0075R 210 124 132 BZ929 0076R 211 86 146 223 BZ930 005ER 212 230 BZ990 00E1R 330 136 238 PAPTZ 0000R 60 165 168 220
ibm/ibm1130-lib/dmsr2v12/t5paptz_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator