ibm:ibm1130-lib:dmsr2v12:u2prnt1_lst
U2PRNT1
| Table Of Contents |
|---|
|
- u2prnt1.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u2prnt1.asm LIBF PRNT1 2 | *************************************************** U2J00010 3 | * * U2J00020 4 | * TITLE - PRNT1 * U2J00030 5 | * * U2J00040 6 | *STATUS - VERSION 2, MODIFICATION 12 * U2J00050 7 | * * U2J00060 8 | * FUNCTION/OPERATION - PRNT1 CAN PERFORM THE * U2J00070 9 | * FOLLOWING FUNCTIONS * U2J00080 10 | * 1. TEST * U2J00090 11 | * 2. PRINT * U2J00100 12 | * 3. CONTROL CARRIAGE * U2J00110 13 | * 4. PRINT NUMERICAL * U2J00120 14 | * * U2J00130 15 | * ENTRY POINTS - * U2J00140 16 | * 1. PRNT1 CALL ENTRANCE, LIBF PRNT1 * U2J00150 17 | * 2. INT1 INTERRUPT ENTRANCE FROM ILS01 * U2J00160 18 | * * U2J00170 19 | * INPUT - THE I/O AREA CONTAINS EBCDIC CHARACTERS * U2J00180 20 | * PACKED TWO PER WORD * U2J00190 21 | * * U2J00200 22 | * OUTPUT - PRINTED ON 1132 PRINTER * U2J00210 23 | * * U2J00220 24 | * EXTERNAL SUBROUTINES - NONE * U2J00230 25 | * * U2J00240 26 | * EXITS - * U2J00250 27 | * NORMAL * U2J00260 28 | * 1. CALL PORTION - FC58, BACK TO USER. * U2J00270 29 | * 2. INTERRUPT PORTION - OUT, BACK TO ILS01 * U2J00280 30 | * ERROR * U2J00290 31 | * 1. CALL PORTION - IF PRE-OP ERROR IS DETECT* U2J00300 32 | * *ED, SUBROUTINE BRANCHES TO $PRET AND * U2J00310 33 | * DISPLAYS 6000 OR 6001 IN ACCUMULATOR. * U2J00320 34 | * 2. INTERRUPT PORTION - IF CARRIAGE CHANNEL * U2J00330 35 | * 9 OR 12 IS DETECTED, SUBROUTINE PERFORMS* U2J00340 36 | * BSI TO USER'S ERROR SUBROUTINE WITH 0003* U2J00350 37 | * OR 0004 RESPECTIVELY IN ACCUMULATOR. * U2J00360 38 | * * U2J00370 39 | * TABLES/WORK AREAS - NONE * U2J00380 40 | * * U2J00390 41 | * ATTRIBUTES - REUSABLE * U2J00400 42 | * * U2J00410 43 | * NOTES - EBCDIC CHARACTERS NOT INCLUDED IN 1132 * U2J00420 44 | * CHARACTER SET ARE PRINTED AS BLANKS. * U2J00430 45 | * * U2J00440 46 | *************************************************** U2J00450 47 | * EJCT BLK REMOVED U2J00460 48 | LIBR U2J00470 0000 49 | 1130 ISS 06 PRNT1 1 U2J00480 0000 697F 50 | PRNT1 STX 1 FC58+1 CALL ENTRANCE (+0) U2J00490 0001 6580 0000 51 | LDX I1 *-* ADDR OF 1ST PARAM +2 U2J00500 0003 7068 52 | MDX FC10 TO PROCESS CALL U2J00510 0004 0000 53 | INT1 DC *-* INTERRUPT ENTRANCE +4 U2J00520 0005 4C00 0124R 54 | BSC L FC50 TO INTRPT PROCESSING U2J00530 55 | * U2J00540 56 | *CONSTANTS AND BUFFER AREA U2J00550 57 | * U2J00560 0007 0000 58 | WHEEL DC *-* STORAGE FOR WHEEL CHAR U2J00570 0008 59 | BSS E U2J00580 0008 0000 60 | AQ DC 0 SAVE ACC AND EXT U2J00590 0009 0000 61 | DC 0 * U2J00600 000A 6001 62 | H6001 DC /6001 ERROR CODE U2J00610 63 | * U2J00620 64 | *THIS SECTION DOES THE SHIFT TO POSITION SCAN BITS, U2J00630 65 | *STORES THEM IN THE SCAN FIELD AND KEEPS TRACK OF U2J00640 66 | *THE WORD COUNT. U2J00650 67 | * U2J00660 000B 1082 68 | CKLPS SLT 2 POSITION FOR 2 MORE BITS U2J00670 000C 74FC 0023R 69 | MDX L QTEST,-4 IF A WD IS DONE,BR U2J00680 000E 7036 70 | MDX SCAN *ELSE RET TO GET 2 BITS U2J00690 000F 108E 71 | SLT 14 WHEN EXT FULL,MOVE TO ACC U2J00700 0010 7420 0023R 72 | MDX L QTEST,32 RESET FOR NEXT WD U2J00710 0012 7408 008FR 73 | MDX L NEGW2,8 MODIFY WD CNT U2J00720 0014 D400 0020 74 | PARTM STO L 32 STORE 1 WD IN SCAN FIELD U2J00730 0016 7401 0015R 75 | MDX L PARTM+1,1 INCR SCAN FIELD ADDR U2J00740 0018 702C 76 | MDX SCAN RET TO SET UP NEXT WD U2J00750 77 | * U2J00790 78 | *END OF FORMS ERROR EXIT U2J00800 79 | * U2J00810 0019 C06C 80 | ILGL2 LD STRTP GET ERROR CODE U2J00820 001A 7001 81 | MDX ILLGL+1 EXIT TO CORE LOC 41 U2J00830 82 | * U2J00840 83 | *ERROR EXIT TO CORE LOC 41 W/CALL ADDR IN LOC 40 U2J00850 84 | * U2J00860 001B C0EE 85 | ILLGL LD H6001 GET ERROR CODE U2J00870 001C 6500 0000 86 | LDX L1 *-* GET CALL ADDR AND STORE IN U2J00880 001E 71FF 87 | MDX 1 -1 CORE LOC 40 U2J00890 001F 6D00 0028 88 | STX L1 40 U2J00900 0021 6129 89 | LDX 1 41 SET TO EXIT TO CORE LOC 41 U2J00910 0022 705B 90 | MDX STXIT U2J00920 91 | * U2J00930 92 | *CONSTANTS AND BUFFER AREA U2J00940 93 | * U2J00950 0028 94 | $PRET EQU /28 U2J00952 0020 95 | $SCAN EQU /20 2-10 U2J00955 007F 96 | $1132 EQU /007F SYSTEM 1132 INDICATOR 2-12 U2J00956 0023 0020 97 | QTEST DC 32 16 BITS CTR FOR SCAN ST2-12 U2J00957 0024 98 | BSS E U2J00960 0024 0007R 99 | READE DC WHEEL * U2J00970 0025 3200 100 | DC /3200 READ EMITTER IOCC WDS U2J00980 101 | * U2J01060 102 | *THIS SECTION SETS UP THE BITS FOR THE SCAN FIELD U2J01070 103 | * U2J01080 104 | * U2J01090 0026 08FD 105 | EMIT XIO READE WHEEL CHAR TO EMITTER U2J01100 0027 C069 106 | LD NUM IS NUMERIC INDR ON U2J01110 0028 4C08 0036R 107 | BSC L FC75,+ NO,GO START SCAN SETUP U2J01120 002A C0DC 108 | LD WHEEL GET PRESENT WHEEL CHAR U2J01150 002B 4C10 0030R 109 | BSC L FC74A,- BR IF SPECIAL CHAR 2-12 U2J01155 002D 905E 110 | S KNUM U2J01160 002E 4C28 0163R 111 | BSC L OUT,Z+ NO CMP, BR TO WAIT FOR 212 U2J01170 112 | * * INTRPT ON NEXT WHEEL CHAR U2J01180 0030 74FF 0091R 113 | FC74A MDX L NUM,-1 DO CMP, DECR NUM CTR 2-12 U2J01182 0032 7003 114 | MDX FC75 BR IF CTR NOT = 0 2-12 U2J01184 0033 C059 115 | LD BIN1 SET SCAN COUNTER 2-12 U2J01186 0034 D400 00E2R 116 | STO L CTR48 * = 1 IF CMPLT 2-12 U2J01190 0036 C059 117 | FC75 LD K32 2-10 U2J01192 0037 D0DD 118 | STO PARTM+1 RESET SCAN FIELD ADDR 2-10 U2J01194 0038 D0EA 119 | STO QTEST RESET Q REQ FULL CTR 2-10 U2J01196 0039 C00A 120 | LD NEGWD RESET MODIFIED WD CNT 2-10 U2J01198 003A D054 121 | STO NEGW2 *TO STARTING VALUE 2-10 U2J01200 003B 10A0 122 | SLT 32 CLEAR A & Q 2-11 U2J01203 003C C0CA 123 | LD WHEEL LOAD CHARACTER 2-11 U2J01205 003D 1808 124 | SRA 8 MOVE CHAR TO RT SIDE ACC U2J01210 003E E8C8 125 | OR WHEEL OR CHAR INTO LEFT SIDE U2J01220 003F D0C7 126 | STO WHEEL 2 CHARS NOW AT WHEEL U2J01230 0040 6100 127 | LDX 1 0 RESET CHAR COUNTER 2-10 U2J01235 0041 6D00 0027 128 | STX L1 $SCAN+7 CLEAR THE SCAN CK BIT 2-10 U2J01240 0043 6600 0000 129 | LDX L2 *-* NEG WD CNT TO XR2 2-10 U2J01250 0044R 130 | NEGWD EQU *-1 NEG WD CNT OF MSG 2-10 U2J01255 0045 C600 0000 131 | SCAN LD L2 *-* GET NEXT WD TO BE O/P U2J01260 0047 F0BF 132 | EOR WHEEL CMP W/PRESENT WHEEL CHAR U2J01270 0048 8041 133 | A FF DID LEFT CHAR CMP U2J01280 0049 4C02 004DR 134 | BSC L SCAN1,C NO,BR 2-10 U2J01290 004B 883E 135 | AD BIN2-1 YES,SET 2 BIT IN Q REG U2J01300 004C 7101 136 | MDX 1 1 BUMP CHAR CNT 2-10 U2J01305 004D 1008 137 | SCAN1 SLA 8 DID RT CHAR CMP 2-10 U2J01310 004E 4C20 0052R 138 | BSC L SCANX,Z NO,BR 2-10 U2J01320 0050 883B 139 | AD BIN1-1 YES,SET 1 BIT IN Q REG U2J01330 0051 7101 140 | MDX 1 1 BUMP CHAR CNT 2-10 U2J01335 0052 7201 141 | SCANX MDX 2 1 DECR WD CNT 2-10 U2J01340 0053 70B7 142 | MDX CKLPS IF NOT ZERO,GO DO SHIFT U2J01350 143 | * U2J01360 144 | *WD CNT ZERO, DO FINAL SHIFT AND STORE U2J01370 145 | * U2J01380 0054 C03B 146 | LD K32 RESET CTR THAT TESTS 212 U2J01390 0055 8039 147 | A NEGW2 ADD MODIFIED WD CNT U2J01410 0056 8038 148 | A NEGW2 *TWICE TO SET Q SHIFT U2J01420 0057 D001 149 | STO SETSH+1 *LEFT-JUSTIFIED U2J01430 0058 6600 0000 150 | SETSH LDX L2 *-* SET UP XR2 FOR SLC U2J01440 005A 1810 151 | SRA 16 CLEAR ACC BEFORE SHIFT U2J01450 005B 12C0 152 | SLC 2 COUNT XR2 U2J01460 005C D480 0015R 153 | STO I PARTM+1 STORE FINAL PART OF SCAN U2J01470 005E C400 0027 154 | LD L $SCAN+7 SET SCAN COMPLETE 2-12 U2J01475 0060 E82C 155 | OR BIN1 *INDR 2-12 U2J01476 0061 D400 0027 156 | STO L $SCAN+7 2-12 U2J01478 0063 C07E 157 | LD CTR48 U2J01480 0064 9028 158 | S BIN1 DECR CTR48 U2J01490 0065 D07C 159 | STO CTR48 U2J01500 0066 C07C 160 | LD CTRWD UPDATE THE CHAR CTR 2-10 U2J01510 0067 697C 161 | STX 1 CTRX *TO EQUAL REMAINING 2-10 U2J01520 0068 907B 162 | S CTRX *NUMBER OF CHARS TO BE 2-10 U2J01530 0069 D079 163 | STO CTRWD *PRINTED 2-10 U2J01540 006A 4C00 0163R 164 | BSC L OUT BR TO EXIT INTRPT RTN 2-10 U2J01550 166 | *************************************************** U2J01700 167 | * * U2J01710 168 | *THIS PORTION SERVICES A CALL ENTRANCE * U2J01720 169 | * * U2J01730 170 | *************************************************** U2J01740 006C 69B0 172 | FC10 STX 1 ILLGL+2 ADDR OF CALL+1 STORED U2J01760 006D 6A14 173 | STX 2 FC58+3 SAVE XR2 U2J01770 006E 2814 174 | STS FC58+4 SAVE STATUS U2J01780 006F D898 175 | STD AQ SAVE A AND Q REGS U2J01790 0070 086F 176 | XIO SENSE SENSE PRINTER U2J01800 0071 1005 177 | SLA 5 END OF FORMS TEST U2J01810 0072 4C28 0019R 178 | BSC L ILGL2,+Z IF END, TAKE ERROR EXIT U2J01820 0074 C100 179 | LD 1 0 FETCH 1ST PARAMETER 2-10 U2J01830 0075 188C 180 | SRT 12 WHAT IS THE FUNCTION U2J01840 0076 4820 181 | BSC Z BR IF TEST FUNC U2J01850 0077 701A 182 | MDX FC13 NOT TEST,GO CHK PR OF CTRL U2J01860 0078 0867 183 | XIO SENSE CHK FOR PTR OR CARRIAGE U2J01870 0079 1808 184 | SRA 8 BUSY. U2J01880 007A 4818 185 | BSC +- U2J01890 007B 7101 186 | MDX 1 1 NOT BUSY,EXIT AL CALL+3 U2J01900 007C 7101 187 | MDX 1 1 BUSY, EXIT AT CALL+2 U2J01910 007D C88A 188 | LDD AQ RESTORE A AND Q REGS U2J01920 007E 6906 189 | STXIT STX 1 EXIT+1 SET UP EXIT U2J01930 007F 6500 0000 190 | FC58 LDX L1 *-* RESTORE XR1 U2J01940 0081 6600 0000 191 | LDX L2 *-* RESTORE XR2 U2J01950 0083 2000 192 | LDS *-* RESTORE STATUS U2J01960 0084 4C00 0000 193 | EXIT BSC L *-* EXIT TO MAINLINE U2J01970 194 | * 2-10 U2J01972 195 | *CONSTANTS AND BUFFER AREA 2-10 U2J01974 196 | * 2-10 U2J01976 0086 197 | BSS E 2-10 U2J01978 0086 6000 198 | STRTP DC /6000 END OF FORMS ERROR CODE2-10 U2J01980 0087 3480 199 | DC /3480 START PRINTER IOCC WD 2-10 U2J01982 0088 0030 200 | K48 DC 48 CON TO SET 48 PR CYCLES2-10 U2J01984 201 | * OR 16 IDLE CYCLES. 2-10 U2J01986 0089 000C 202 | K12 DC 12 CON TO SET 2 CYCLES 2-10 U2J01988 008A FF00 203 | FF DC /FF00 SETS CARRY IF NOT CMP 2-10 U2J01990 008B 0002 204 | BIN2 DC 2 SET 1ST CHAR CMP BIT 2-10 U2J01992 008C F000 205 | KNUM DC /F000 USED TO CHK FOR NUMERIC2-12 U2J01994 008D 0001 206 | BIN1 DC 1 SET 2ND CHAR CMP BIT 2-10 U2J01996 008E FFC4 207 | NEG60 DC -60 WD CNT ERROR CHK CON 2-10 U2J01998 008F 0000 208 | NEGW2 DC *-* WD CNT BUFFER USED BY S2-10 U2J02000 0090 0020 209 | K32 DC 32 Q REG FULL CON 2-10 U2J02002 0091 0000 210 | NUM DC *-* PTV=NUMERIC,NEG=ALPHA 2-12 U2J02003 211 | * 2-10 U2J02004 212 | *NOT TEST FUNCTION,CHECK PRINT OR CARRIAGE CTL 2-10 U2J02006 213 | * 2-10 U2J02008 0092 90FA 214 | FC13 S BIN1 IS FUNCTION LEGAL 2-11 U2J02040 0093 4C08 001BR 215 | BSC L ILLGL,+ NO,BR U2J02050 0095 90F5 216 | S BIN2 TEST IF CONTROL U2J02060 0096 4818 217 | BSC +- NOT,SKIP U2J02070 0097 704F 218 | MDX FC20 IS, TO CTRL PROCESSING U2J02080 0098 D04C 219 | STO NIND SAVE TO SET NUMERIC IND2-10 U2J02090 0099 10A0 220 | SLT 32 CLEAR Q REG U2J02100 221 | * U2J02110 222 | *THIS SECTION SETS UP THE ROUTINE TO PRINT U2J02120 223 | * U2J02130 009A 0845 224 | FC14X XIO SENSE ANY RESPONSE,BUSY,OR ERROR U2J02140 009B 1005 225 | SLA 5 IS 1132 READY 2-6 U2J02141 009C 4C10 00A2R 226 | BSC L FC14Y,- BR IF YES 2-6 U2J02142 009E C0E7 227 | LD STRTP LOAD ERROR CODE 2-6 U2J02143 009F 4400 0028 228 | BSI L $PRET BR TO PRE-OP ERROR 2-6 U2J02144 00A1 70F8 229 | MDX FC14X TEST AGAIN 2-6 U2J02145 00A2 083D 230 | FC14Y XIO SENSE SENSE DSW 2-6 U2J02146 00A3 1808 231 | SRA 8 BITS ON. U2J02150 00A4 4C20 009AR 232 | BSC L FC14X,Z YES,SENSE PTR AGAIN U2J02160 00A6 C03E 233 | LD NIND IF PREVIOUS LN NUMERIC 2-10 U2J02170 00A7 4830 234 | BSC Z- *SKIP DOESN'T OCCUR 2-12 U2J02172 00A8 C03D 235 | LD K13 SET NUMERIC CTR 2-12 U2J02174 00A9 D0E7 236 | STO NUM INDR WAS SET OFF WHEN U2J02180 237 | * 1ST NUMERIC CHAR FOUND U2J02190 00AA C100 238 | LD 1 0 LOAD CALL+1 (1ST PARM) 2-11 U2J02193 00AB D034 239 | STO SENSE SAVE CONTROL WORDPARM) 2-11 U2J02195 00AC 7101 240 | MDX 1 1 INCR XR1 TO CALL+2 ADDR U2J02200 00AD 6909 241 | STX 1 FC16+1 ST CALL+2 ADDR U2J02210 00AE 7101 242 | MDX 1 1 INCR XR1 TO CALL+3 ADR 2-11 U2J02220 00AF 6D00 01AER 243 | STX L1 STRE3+6 STORE CALL +6 ADDRESS 212 U2J02230 244 | * 2-10 U2J02250 00B1 188C 245 | SRT 12 GET FUNC DIGIT U2J02260 00B2 906E 246 | S K1 SUB 1 U2J02270 00B3 1802 247 | SRA 2 IF ANY BIT REMAINS, PARAM U2J02280 00B4 4C20 001BR 248 | FC14C BSC L ILLGL,Z WAS OVER 4.TAKE ERROR EXIT U2J02290 00B6 9480 0000 249 | FC16 S I *-* SUB WD CNT FROM ZERO U2J02300 00B8 4C10 001BR 250 | BSC L ILLGL,- RESULT SHOULD BE NEG U2J02310 00BA D089 251 | STO NEGWD SAVE MINUS WD CNT U2J02320 00BB D0D3 252 | STO NEGW2 U2J02330 00BC 90D1 253 | S NEG60 CHECK RANGE AND DISPLAY U2J02340 00BD 4C28 001BR 254 | BSC L ILLGL,+Z *6001 IF ERROR U2J02350 00BF C480 00B7R 255 | LD I FC16+1 LD ADDR OF I/O AREA U2J02360 00C1 805F 256 | A K1 AVOID STORED WD CNT U2J02370 00C2 9400 0044R 257 | S L NEGWD SUB NEG WDCNT-PT TO END2-12 U2J02380 00C4 D081 258 | STO SCAN+1 SAVE IN SCAN RTN U2J02390 00C5 D004 259 | STO TOTL+1 SAVE PRINTABLE CHAR CNT2-10 U2J02392 00C6 10A0 260 | SLT 32 CLEAR Q REG 2-10 U2J02394 00C7 6680 0044R 261 | LDX I2 NEGWD FETCH MSG WD CNT 2-10 U2J02396 00C9 C600 0000 262 | TOTL LD L2 *-* FETCH NEXT CHAR PAIR 2-10 U2J02398 00CB F056 263 | EOR BLANK CHECK FOR BLANK CHARS 2-10 U2J02400 00CC 80BD 264 | A FF IS LEFT CHAR BLANK 2-10 U2J02402 00CD 4802 265 | BSC C YES,SKIP 2-10 U2J02404 00CE 88BD 266 | AD BIN1-1 ADD 1 TO Q REG 2-10 U2J02406 00CF 1008 267 | SLA 8 IS RT BLK 2-10 U2J02408 00D0 4820 268 | BSC Z YES,SKIP 2-10 U2J02410 00D1 88BA 269 | AD BIN1-1 ADD 1 TO Q REG 2-10 U2J02412 00D2 7201 270 | MDX 2 1 SKIP WHEN COMPLETED 2-10 U2J02414 00D3 70F5 271 | MDX TOTL DO NEXT WD 2-10 U2J02416 00D4 18D0 272 | RTE 16 2-10 U2J02418 00D5 D00D 273 | STO CTRWD SAVE PRINTABLE CNT 2-10 U2J02420 00D6 C8B1 274 | LDD K48 SET CTRS 48, 16, +2 U2J02422 00D7 D00A 275 | STO CTR48 *FOR A TOTAL OF 66 CYCLES U2J02425 00D8 D835 276 | STD CTR16 U2J02427 00D9 4400 01BDR 277 | BSI L CLEAR CLEAR SCAN FIELD (32-39) U2J02430 00DB 08AA 278 | XIO STRTP START THE PRINTER U2J02450 00DC 7401 0032 279 | CNTUP MDX L 50,1 INCR ISS CTR (I/O OP CTR) U2J02460 00DE 1000 280 | NOP MAY SKIP U2J02470 00DF 709C 281 | MDX STXIT-2 EXIT TO CALLING PROG U2J02480 282 | * 2-10 U2J02482 00E0 283 | BSS E 0 2-10 U2J02483 00E0 0000 284 | SENSE DC *-* STORAGE FOR CALL +1 2-10 U2J02484 00E1 3700 285 | DC /3700 SENSE PRT IOCC WD 2-10 U2J02485 00E2 0000 286 | CTR48 DC *-* PTR SCAN CNT BUFFER 2-10 U2J02486 00E3 0000 287 | CTRWD DC *-* PRINTABLE CHAR CNT 2-10 U2J02487 00E4 0000 288 | CTRX DC *-* PRINTABLE CHAR THIS LN 2-10 U2J02488 00E5 0000 289 | NIND DC *-* NUMERIC INDICATOR 2-10 U2J02489 00E6 0016 290 | K13 DC 22 CTR IF NUMERIC MODE 2-12 U2J02490 291 | * 2-12 U2J02495 292 | *THIS SECTION DOES THE CARRIAGE CONTROL FUNCTION U2J02500 293 | * PROCESSING U2J02510 294 | * U2J02520 00E7 C026 295 | FC20 LD CTR16 WAIT FOR 16 IDLE SCANS U2J02530 00E8 4830 296 | BSC Z- U2J02540 00E9 70FD 297 | MDX FC20 U2J02550 00EA 08F5 298 | FC20A XIO SENSE U2J02560 00EB 180C 299 | SRA 12 IS THE CARRIAGE BUSY U2J02570 00EC 4C20 00EAR 300 | BSC L FC20A,Z YES,SENSE PTR AGAIN U2J02580 00EE C09A 301 | LD K12 NO, SET 6-CTR FOR CHAN CHK U2J02590 00EF D400 0170R 302 | STO L STOPC 2-12 U2J02600 00F1 1810 303 | SRA 16 CLEAR ACC U2J02610 00F2 1084 304 | SLT 4 GET 2ND HEX DIGIT FROM Q U2J02620 00F3 D02B 305 | STO AFTIN NOT ZERO--IMMEDIATE CTRL U2J02630 306 | * ZERO--CTRL AFTER PRINT U2J02640 00F4 4C20 00F9R 307 | BSC L FC25,Z IS IT ZERO U2J02650 00F6 1084 308 | SLT 4 YES,TRY 3RD HEX DIGIT U2J02660 00F7 4C18 001BR 309 | BSC L ILLGL,+- IS IT ZERO ALSO,ERROR EXIT U2J02670 00F9 908F 310 | FC25 S K12 NO,SUB 12 U2J02680 00FA 4C30 0113R 311 | BSC L FC44,-Z IS THIS A SKIP U2J02690 00FC 6200 312 | LDX 2 0 YES U2J02700 00FD 4C10 0110R 313 | BSC L FC39,- IS IT A SKIP TO CHAN 12 U2J02710 00FF 801C 314 | A K3 NO U2J02720 0100 6201 315 | LDX 2 1 SET XR2 FOR SHIFT & COUNT U2J02730 0101 4C18 0110R 316 | BSC L FC39,+- IS IT CHAN 9 U2J02740 0103 8018 317 | A K3 NO, INCR XR2 U2J02750 0104 7201 318 | MDX 2 1 U2J02760 0105 4C18 0110R 319 | FC38 BSC L FC39,+- TEST FOR NEXT CHANNEL U2J02770 0107 8019 320 | A K1 NO, LOOP & TRY FOR 5,4,3, U2J02780 0108 7201 321 | MDX 2 1 *2,1 U2J02790 0109 74FF 0170R 322 | MDX L STOPC,-1 CTR TO LIMIT LOOPS U2J02800 010B 70F9 323 | MDX FC38 RET TO CHK CHAN U2J02810 010C 70A7 324 | MDX FC14C ILLEGAL CALL-TAKE ERROR U2J02820 325 | * EXIT.(ACC NEG BY NOW) U2J02830 326 | * U2J02840 327 | *CONSTANTS AND BUFFER AREA U2J02850 328 | * U2J02860 010D 0000 329 | DSW DC *-* DVC STATUS WD 2-10 U2J02865 010E 330 | BSS E U2J02870 010E 0000 331 | CTR16 DC *-* CTR FOR 16 IDLE SCANS (48) U2J02880 010F 0000 332 | CTR2 DC *-* CTR FOR 2 IDLE SCANS (12) U2J02890 333 | * U2J02920 334 | *SET UP SKIP MASK,AND EXECUTE SKIP OR EXIT U2J02930 335 | * U2J02940 0110 C010 336 | FC39 LD K1 SET UP BIT FOR SKIP MASK U2J02950 0111 1240 337 | SLCA 2 U2J02960 0112 E859 338 | OR SIGNB SET SIGN BIT ON U2J02970 0113 D00C 339 | FC44 STO SPSK PTV=SPACE, NEG= SKIP U2J02980 0114 C00A 340 | LD AFTIN SHOULD EXECUTION WAIT U2J02990 0115 4C18 007CR 341 | BSC L STXIT-2,+- GO TO EXIT IF YES,ELSE U2J03000 0117 C008 342 | LD SPSK DETERMINE IF SKIP OR SPACE. U2J03010 0118 4C10 011DR 343 | BSC L SPACE,- IS IT A SKIP U2J03020 011A 0807 344 | XIO STRTC YES,START CARRIAGE U2J03030 011B 70C0 345 | MDX CNTUP GO INCR ISS CTR, RET U2J03040 011C 0003 346 | K3 DC 3 CON OF 3 U2J03050 347 | * U2J03060 348 | *SPACE CARRIAGE CONTROL PROCESSING U2J03070 349 | * U2J03080 011D 0850 350 | SPACE XIO CARSP START SPACES THAT INTRPT U2J03090 351 | * *SERVICE PART WILL FINISH U2J03100 011E 70BD 352 | MDX CNTUP INCR ISS CTR, RET TO USER U2J03110 353 | * U2J03120 354 | *CONSTANTS AND BUFFER AREA U2J03130 355 | * U2J03140 011F 0000 356 | AFTIN DC *-* CTRL BEFORE OR AFTER PR U2J03150 0120 0000 357 | SPSK DC *-* SKIP OR SPACE INDR 2-10 U2J03155 0121 0001 358 | K1 DC 1 CON OF 1 2-10 U2J03157 0122 359 | BSS E U2J03160 0122 4040 360 | STRTC DC /4040 BLK CHAR FOR COMPARE 2-10 U2J03170 0123 3404 361 | DC /3404 START CARRIAGE U2J03180 0122R 362 | BLANK EQU *-2 BLK CHARS 2-10 U2J03190 364 | *************************************************** U2J03210 365 | * * U2J03220 366 | * THIS SECTION SERVICES THE INTERRUPTS WHICH * U2J03230 367 | * OCCUR ON INTERRUPT LEVEL 01, THAT COME FROM * U2J03240 368 | * THE 1132 PRINTER. * U2J03250 369 | * * U2J03260 370 | *************************************************** U2J03270 0124 6A3F 372 | FC50 STX 2 OUT+1 SAVE XR2 U2J03280 0125 6940 373 | STX 1 OUT+3 SAVE XR1 2-10 U2J03285 0126 0C00 01BAR 374 | XIO L SENSR-1 SENSE WITH RESET 2-12 U2J03290 0128 D0E4 375 | STO DSW HOLD DSW U2J03300 0129 1001 376 | SLA 1 IS IT A SKIP REQUEST U2J03310 012A 4C10 013AR 377 | BSC L FC56,- NO,BR TO CONT CHK U2J03320 012C 1007 378 | SLA 7 YES,GET CARRIAGE CHAN NO. U2J03330 012D 1808 379 | SRA 8 RIGHT JUSTIFY U2J03340 012E E83D 380 | OR SIGNB SET UP DSW FOR COMPARE U2J03350 012F F0F0 381 | EOR SPSK CMP W/COMMAND U2J03360 0130 4820 382 | BSC Z DO THEY MATCH U2J03370 0131 7019 383 | MDX FC60 NO,GO CONT CHK U2J03380 0132 D400 007F 384 | STO L $1132 ZERO SYSTEM 1132 INDR 2-12 U2J03385 0134 D0EB 385 | STO SPSK CLEAR MASK U2J03400 0135 083A 386 | XIO STOPC STOP CARRIAGE U2J03410 0136 74FF 0032 387 | FC54 MDX L 50,-1 DECR ISS CTR U2J03420 0138 1000 388 | NOP MAY SKIP U2J03430 0139 7011 389 | MDX FC60 CONTINUE U2J03440 391 | *************************************************** U2J03444 392 | * * U2J03450 393 | *THIS SECTION SERVICES CARRIAGE RESPONSE REQUESTS * U2J03460 394 | * * U2J03470 395 | *************************************************** U2J03472 013A 1001 397 | FC56 SLA 1 IS IT A SPACE REQUES U2J03480 013B 4810 398 | BSC - IS CARR SPACE DONE U2J03490 013C 700E 399 | MDX FC60 NO U2J03500 013D C0CF 400 | LD DSW YES,GET DSW U2J03510 013E EC00 007F 401 | OR L $1132 OR IN SYSTEM INDICATOR 2-12 U2J03512 0140 4C04 0143R 402 | BSC L *+1,E SKIP IF CHANNEL 12 ONR 2-12 U2J03514 0142 7002 403 | MDX *+2 NO CHANNEL 12 BIT ON 2-12 U2J03516 0143 D400 007F 404 | STO L $1132 SET SYSTEM INDICATOR 2-12 U2J03518 405 | * *FOR CHANNEL 12 FOUND 2-12 U2J03519 0145 C0DA 406 | LD SPSK U2J03540 0146 90DA 407 | S K1 DECR SPACE CNT U2J03550 0147 D0D8 408 | STO SPSK STORE BACK NEW CNT U2J03560 0148 4C08 0136R 409 | BSC L FC54,+ DECR ISS CTR+EXIT IF ZERO, U2J03570 014A 0823 410 | XIO CARSP *ELSE KEEP SPACING U2J03580 411 | * U2J03590 412 | *CONTINUE CHK IF NOT SKIP OR SPACE REQUEST U2J03600 413 | * U2J03610 014B C0C1 414 | FC60 LD DSW PUT DSW IN PASS U2J03620 014C 4C10 0163R 415 | BSC L OUT,- IS 11.2 MS PTR INTPRT BIT=1 U2J03650 014E C06D 416 | LD CTR46 YES,CHK IF DOING 47 IDLES U2J03660 014F 4C20 0169R 417 | BSC L FC63,Z YES,GO DECR CNT AND EXIT U2J03670 0151 406B 418 | BSI CLEAR CLEAR SCAN FIELD 2-10 U2J03674 0152 C0BA 419 | LD DSW NO U2J03680 0153 1004 420 | SLA 4 DID PRESENT SCAN FINISH U2J03690 0154 4C10 0172R 421 | BSC L FC70,- YES,BR U2J03700 0156 C400 00E3R 422 | LD L CTRWD RESTORE PREVIOUS 2-12 U2J03702 0158 8400 00E4R 423 | A L CTRX *CHARACTER COUNT 2-12 U2J03704 015A D400 00E3R 424 | STO L CTRWD *FOR REMAINING CHARS 2-12 U2J03706 015C C05D 425 | LD K46 NO, SET UP FOR IDLES U2J03710 015D D05E 426 | STO CTR46 U2J03720 015E C400 0027 427 | LD L $SCAN+7 SET SCAN COMPLETE 2-12 U2J03740 0160 E8C0 428 | OR K1 *INDICATOR 2-12 U2J03742 0161 D400 0027 429 | STO L $SCAN+7 2-12 U2J03744 0163 6600 0000 430 | OUT LDX L2 *-* RESTORE XR2 U2J03750 0165 6500 0000 431 | LDX L1 *-* RESTORE XR1 2-10 U2J03755 0167 4C80 0004R 432 | BSC I INT1 TO USER VIA ILS SUBR U2J03760 433 | * U2J03770 434 | *IF INCOMPLETE SCAN OCCURRED, DO 47 IDLES TO GET U2J03780 435 | *THE PRINT WHEEL BACK TO TRY SAME CHAR AGAIN. U2J03790 436 | * U2J03800 0169 90B7 437 | FC63 S K1 DECR CTR46 U2J03810 016A D051 438 | STO CTR46 U2J03820 016B 70F7 439 | MDX OUT EXIT VIA ILS 01. U2J03830 440 | * U2J03840 441 | *CONSTANTS AND BUFFER AREA U2J03850 442 | * U2J03860 016C 8000 443 | SIGNB DC /8000 SIGN BIT U2J03870 016E 444 | BSS E U2J03880 016E 8080 445 | CARSP DC /8080 STG FOR CHAN 1 MASK CON U2J03890 016F 3401 446 | DC /3401 CARRIAGE SPACE IOCC U2J03900 0170 0000 447 | STOPC DC *-* CTR TO LIMIT LOOPS-CHAN CHK U2J03910 0171 3402 448 | DC /3402 STOP CARRIAGE IOCC U2J03920 449 | * U2J03930 450 | *BEGIN PRINT MASK SET UP U2J03940 451 | * U2J03950 0172 CC00 00E2R 452 | FC70 LDD L CTR48 ANY UNPRNTED CHARS 2-10 U2J03960 0174 4820 453 | BSC Z BR IF 48 SCANS COMPLETE2-10 U2J03970 0175 18D0 454 | RTE 16 CK IF CHARS ALL PRT 2-10 U2J03980 0176 4C30 0026R 455 | BSC L EMIT,-Z NO,BRCH 2-11 U2J03990 456 | * 2-10 U2J04000 0178 C095 457 | LD CTR16 ARE IDLE CYCLES DONE U2J04010 0179 4C20 0183R 458 | BSC L FC81,Z NO,GO DECR IDLE CNT U2J04020 017B 74FA 010FR 459 | MDX L CTR2,-6 DECR 2-CTR U2J04040 017D 70E5 460 | MDX OUT TO USER IF NOT ZERO YET U2J04050 017E 0839 461 | XIO STOPP IF ZERO,CUT OFF INTRPTS U2J04060 017F 74FF 0032 462 | MDX L 50,-1 DECR LOC 50 U2J04070 0181 70E1 463 | MDX OUT TO USER U2J04080 0182 70E0 464 | MDX OUT TO USER IF SKIP U2J04090 465 | * U2J04100 466 | *TAKE CARE OF 16 IDLES CNT AFTER PRINT COMPLETE U2J04110 467 | * U2J04120 0183 74FD 010ER 468 | FC81 MDX L CTR16,-3 DECR IDLE CNT FOR 1 IDLE U2J04130 0185 70DD 469 | MDX OUT EXIT IF NOT DONE U2J04140 0186 C099 470 | LD SPSK DONE,GET SPACE/SKIP INDR U2J04150 0187 4C20 018FR 471 | BSC L FC91,Z IS POST-PR SPACE/SKIP ASKED U2J04160 0189 C400 00E0R 472 | LD L SENSE NO, GET THE CONTROL WORD U2J04170 018B 100B 473 | SLA 11 ALL ZERO IF SPACE 1 LINE U2J04180 018C 180F 474 | SRA 15 ALL ONES IF SUPPRESS SPACE U2J04190 018D F093 475 | EOR K1 CHANGE 0 TO 1-1 TO 0 2-11 U2J04200 018E D091 476 | STO SPSK PTV--SET SPACE.NEG--INHIBIT U2J04210 477 | * U2J04220 478 | *THIS SECTION SETS UP THE SPACE OR SKIP AFTER PRINT U2J04230 479 | * U2J04240 018F D400 011FR 480 | FC91 STO L AFTIN SET INDR OFF (+ OR -) 2-12 U2J04250 0191 C400 007F 481 | LD L $1132 SYSTEM CHANNEL 12 INDR 212 U2J04265 0193 4C04 01A3R 482 | BSC L STRE4,E IF ODD,CHAN 12 WAS PASSED U2J04270 0195 1801 483 | SRA 1 U2J04280 0196 4C04 01A8R 484 | BSC L STRE3,E IF ODD,CHAN 9 WAS PASSED U2J04290 0198 C400 0120R 485 | FC84 LD L SPSK IF 9/12 NOT FOUND,START2-12 U2J04300 019A 4818 486 | BSC +- AFTER SPACE/SKIP IF PRESENT U2J04310 019B 70C7 487 | MDX OUT TO USER IF NO SPACE/SKIP U2J04320 019C 4C28 01B4R 488 | BSC L FC86,+Z IS A SPACE CALLED FOR U2J04330 019E 08CF 489 | XIO CARSP YES,START THE CARRIAGE U2J04340 019F 7401 0032 490 | UP7 MDX L 50,1 INCR THE ISS CTR U2J04350 01A1 1000 491 | NOP MAY SKIP U2J04360 01A2 70C0 492 | MDX OUT EXIT TO USER U2J04370 494 | *************************************************** U2J04374 495 | * * U2J04376 496 | *A SKIP TO CHANNEL 9 OR CHANNEL 12 IS INDICATED. * U2J04378 497 | * ZERO THE SYSTEM CHANNEL 12 INDICATOR ($1132) * U2J04380 498 | * AND BRANCH TO THE USER'S ERROR ROUTINE. LOAD * U2J04382 499 | * ACCUMULATOR WITH A /0003 FOR A SKIP TO CHAN- * U2J04384 500 | * NEL 9 OR WITH A /0004 FOR A SKIP TO CHANNEL 12* U2J04386 501 | * * U2J04387 502 | *************************************************** U2J04388 01A3 1010 504 | STRE4 SLA 16 ZERO ACCUMULATOR AND 212 U2J04390 01A4 D400 007F 505 | STO L $1132 STORE IN CH 12 INDR 212 U2J04392 01A6 C011 506 | LD STOPP LOAD CONSTANT OF 4 212 U2J04394 01A7 7005 507 | MDX STRE3+5 GO TO USER ERROR RTN 212 U2J04400 01A8 1010 508 | STRE3 SLA 16 ZERO ACCUMULATOR AND 212 U2J04410 01A9 D400 007F 509 | STO L $1132 *STORE IN CH 12 INDR 212 U2J04412 01AB C400 011CR 510 | LD L K3 LOAD CONSTANT OF 3 212 U2J04414 01AD 4480 0000 511 | BSI I *-* GO TO USER ERROR RTN U2J04420 01AF 4C18 0198R 512 | BSC L FC84,+- TAKE NO ACTION IF CLEARED, U2J04430 01B1 C0BC 513 | LD CARSP ELSE SET UP SKIP TO CHAN 1 U2J04440 01B2 D400 0120R 514 | STO L SPSK 2-12 U2J04450 01B4 0C00 0122R 515 | FC86 XIO L STRTC START CARRIAGE 2-12 U2J04460 01B6 70E8 516 | MDX UP7 GO INCR ISS CTR,EXIT U2J04470 517 | * U2J04480 518 | *CONSTANTS AND BUFFER AREA U2J04490 519 | * U2J04500 01B8 520 | BSS E U2J04520 01B8 0004 521 | STOPP DC 4 ERROR CODE FOR CHAN 12 PASS U2J04530 01B9 3440 522 | DC /3440 STOP PRINTER IOCC U2J04540 01BA 002E 523 | K46 DC 46 CTR CON FOR 47 IDLES U2J04550 01BB 3701 524 | SENSR DC /3701 SENSE W/RESET IOCC U2J04560 01BC 0000 525 | CTR46 DC 0 CTR FOR IDLES U2J04570 526 | * U2J04590 527 | *THIS SECTION CLEARS THE PRINT SCAN FIELD (32-39) U2J04600 528 | * U2J04610 01BD 0000 529 | CLEAR DC *-* SAVE RET ADDR U2J04620 01BE 10A0 530 | SLT 32 CLEAR A AND Q REGS U2J04630 01BF 62F8 531 | LDX 2 -8 SET CTR FOR 4 PASSES U2J04640 01C0 DE00 0028 532 | CL2 STD L2 40 CLEAR 2 WDS U2J04650 01C2 7202 533 | MDX 2 2 DECR XR2 BY 2 U2J04660 01C3 70FC 534 | MDX CL2 RET IF NOT ZERO U2J04670 01C4 7401 0027 535 | MDX L $SCAN+7,1 SET SCAN CMPLT INDR 2-12 U2J04675 01C6 4C80 01BDR 536 | BSC I CLEAR RET U2J04680 01C8 537 | END U2J04690 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $1132 007F 96 384 401 404 481 505 509 $PRET 0028 94 228 $SCAN 0020 95 128 154 156 427 429 535 AFTIN 011FR 356 305 340 480 AQ 0008R 60 175 188 BIN1 008DR 206 115 139 155 158 214 266 269 BIN2 008BR 204 135 216 BLANK 0122R 362 263 CARSP 016ER 445 350 410 489 513 CKLPS 000BR 68 142 CL2 01C0R 532 534 CLEAR 01BDR 529 277 418 536 CNTUP 00DCR 279 345 352 CTR16 010ER 331 276 295 457 468 CTR2 010FR 332 459 CTR46 01BCR 525 416 426 438 CTR48 00E2R 286 116 157 159 275 452 CTRWD 00E3R 287 160 163 273 422 424 CTRX 00E4R 288 161 162 423 DSW 010DR 329 375 400 414 419 EMIT 0026R 105 455 EXIT 0084R 193 189 FC10 006CR 172 52 FC13 0092R 214 182 FC14C 00B4R 248 324 FC14X 009AR 224 229 232 FC14Y 00A2R 230 226 FC16 00B6R 249 241 255 FC20 00E7R 295 218 297 FC20A 00EAR 298 300 FC25 00F9R 310 307 FC38 0105R 319 323 FC39 0110R 336 313 316 319 FC44 0113R 339 311 FC50 0124R 372 54 FC54 0136R 387 409 FC56 013AR 397 377 FC58 007FR 190 50 173 174 FC60 014BR 414 383 389 399 FC63 0169R 437 417 FC70 0172R 452 421 FC74A 0030R 113 109 FC75 0036R 117 107 114 FC81 0183R 468 458 FC84 0198R 485 512 FC86 01B4R 515 488 FC91 018FR 480 471 FF 008AR 203 133 264 H6001 000AR 62 85 ILGL2 0019R 80 178 ILLGL 001BR 85 81 172 215 248 250 254 309 INT1 0004R 53 432 K1 0121R 358 246 256 320 336 407 428 437 475 K12 0089R 202 301 310 K13 00E6R 290 235 K3 011CR 346 314 317 510 K32 0090R 209 117 146 K46 01BAR 523 425 K48 0088R 200 274 KNUM 008CR 205 110 NEG60 008ER 207 253 NEGW2 008FR 208 73 121 147 148 252 NEGWD 0044R 130 120 251 257 261 NIND 00E5R 289 219 233 NUM 0091R 210 106 113 236 OUT 0163R 430 111 164 372 373 415 439 460 463 464 469 487 492 PARTM 0014R 74 75 118 153 PRNT1 0000R 50 QTEST 0023R 97 69 72 119 READE 0024R 99 105 SCAN 0045R 131 70 76 258 SCAN1 004DR 137 134 SCANX 0052R 141 138 SENSE 00E0R 284 176 183 224 230 239 298 472 SENSR 01BBR 524 374 SETSH 0058R 150 149 SIGNB 016CR 443 338 380 SPACE 011DR 350 343 SPSK 0120R 357 339 342 381 385 406 408 470 476 485 514 STOPC 0170R 447 302 322 386 STOPP 01B8R 521 461 506 STRE3 01A8R 508 243 484 507 STRE4 01A3R 504 482 STRTC 0122R 360 344 515 STRTP 0086R 198 80 227 278 STXIT 007ER 189 90 281 341 TOTL 00C9R 262 259 271 UP7 019FR 490 516 WHEEL 0007R 58 99 108 123 125 126 132
ibm/ibm1130-lib/dmsr2v12/u2prnt1_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator