ibm:ibm1130-lib:dmsr2v12:u2type0_lst
U2TYPE0
| Table Of Contents |
|---|
- u2type0.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:09 2020 Source File: \u2type0.asm 1 | *************************************************** U2N00010 2 | * * U2N00020 3 | *TITLE- TYPE0 * U2N00030 4 | * * U2N00040 5 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * U2N00050 6 | * * U2N00060 7 | *FUNCTION/OPERATION- * U2N00070 8 | * THIS 1130/18OO SUBROUTINE OPERATES THE PRIME * U2N00080 9 | * KEYBOARD/PRINTER (1816/1053). IT INITIATES * U2N00090 10 | * REQUESTED OPERATIONS AND PROCESSES ANY * U2N00100 11 | * KEYBOARD, PRINTER, OR OPERATOR REQUEST * U2N00110 12 | * INTERRUPTS. IT IGNORES ANY KEYBOARD/PRINTER * U2N00120 13 | * ERRORS. * U2N00130 14 | * * U2N00140 15 | *ENTRY POINTS- * U2N00150 16 | * * TYPE0-CALL ENTRANCE FOR READ, WRITE, OR * U2N00160 17 | * TEST OPERATIONS. * U2N00170 18 | * * U2N00180 19 | * * INT1- ENTRY POINT FOR KEYBOARD, CONSOLE * U2N00190 20 | * PRINTER, OR INTERRUPT REQUEST * U2N00200 21 | * PKEY INTERRUPTS * U2N00210 22 | * * U2N00220 23 | *INPUT- FROM KEYBOARD OR LIBF PARAMETERS * U2N00230 24 | * * U2N00240 25 | *OUTPUT- PRINTED * U2N00250 26 | * * U2N00260 27 | *EXTERNAL SUBROUTINES- * U2N00270 28 | * * HOLL * U2N00280 29 | * *PRTY * U2N00290 30 | * * U2N00300 31 | *EXITS- * U2N00310 32 | * NORMAL- * U2N00320 33 | * * CALL PORTION-EXIT BACK TO USER PROGRAM. * U2N00330 34 | * * INTERRUPT PORTION-BACK TO ILS04 * U2N00340 35 | * * ERROR- * U2N00350 36 | * * CALL PORTION-TO $PRET * U2N00360 37 | * * INTERRUPT PORTION-TO $PST4 * U2N00370 38 | * * U2N00380 39 | *TABLES/WORK AREAS- LIBF TO HOLL TABLE SUBROUTINE * U2N00390 40 | * * U2N00400 41 | *ATTRIBUTES- REUSABLE * U2N00410 42 | * * U2N00420 43 | *NOTES- * U2N00430 44 | * * U2N00440 45 | *************************************************** U2N00450 46 | *** HDNG LIBF TYPE0-V1. U2N00460 47 | LIBR U2N00470 48 | ISS 02 TYPE0 4 U2N00480 0028 49 | $PRET EQU 40 ADDR OF PREOPERATIVE TRAP U2N00490 002C 50 | $IREQ EQU /002C U2N00500 00E6 51 | $I420 EQU /00E6 INTREQ ADDR IN RESMON 2-11 U2N00505 0032 52 | $IOCT EQU 50 IOCS COUNTER U2N00510 0000 6914 53 | TYPE0 STX 1 SAV1+1 LIBF ENTRANCE (+0) U2N00520 0001 6580 0000 54 | LINK LDX I1 0 CLB STORES TV ADDR (+2) U2N00530 0003 7003 55 | MDX TY10 BR TO PROCESS THE CALL U2N00540 0004 0000 56 | INT1 DC 0 INTERRUPT ENTRANCE (+4) U2N00550 0005 4C00 0071R 57 | BSC L TY60 BR TO PROCESS INTERRUPT U2N00560 59 | *************************************************** U2N00570 60 | * LIBF PROCESSING * U2N00580 61 | *************************************************** U2N00590 62 | * THIS PORTION STORES CALLING SEQUENCE INFO * U2N00600 63 | * AND CHECKS THE DEVICE STATUS BEFORE ANY I/O * U2N00610 64 | * OPERATION IS INITIATED. A CALLING ERROR * U2N00620 65 | * CAUSES AN ERROR EXIT TO LOC 41. NOT READY * U2N00630 66 | * 1053 CAUSES ERROR EXIT TO LOC /8D. OTHERWISE* U2N00640 67 | * THE ROUTINE IS SET BUSY AND IOCS CTR INCREMEN* U2N00650 68 | * TED TO INDICATE INTERRUPT(S) PENDING. * U2N00660 69 | *************************************************** U2N00670 70 | * U2N00720 71 | * U2N00730 0007 6A0F 72 | TY10 STX 2 SAV2+1 SAVE XR2 U2N00740 0008 280F 73 | STS SAVST SAVE STATUS U2N00750 0009 D83C 74 | STD SAVAQ SAVE ACC AND EXT U2N00760 000A C100 75 | LD 1 0 GET THE CONTROL PARAM 212 U2N00770 000B 180C 76 | SRA 12 IS FUNCTION TEST U2N00780 000C 4C20 001BR 77 | BSC L TY14,Z * NO U2N00790 000E C034 78 | LD BUSY * YES, IS SUBR BUSY U2N00800 000F 4818 79 | BSC +- IF U2N00810 0010 7101 80 | TY11 MDX 1 +1 * NO, EXIT TO CALL+3 U2N00820 0011 C834 81 | LDD SAVAQ U2N00830 0012 7101 82 | TY12 MDX 1 +1 IF YES, EXIT TO CALL+2 U2N00840 0013 6906 83 | STX 1 EXIT+1 SET UP EXIT U2N00850 0014 6500 0000 84 | SAV1 LDX L1 *-* RESTORE XR1 U2N00860 0016 6600 0000 85 | SAV2 LDX L2 *-* RESTORE XR2 U2N00870 0018 2000 86 | SAVST LDS *-* RESTORE STATUS U2N00880 0019 4C00 0000 87 | EXIT BSC L *-* EXIT U2N00890 001B C027 88 | TY14 LD BUSY IS SUBROUTINE BUSY U2N00900 001C 4C20 001BR 89 | BSC L TY14,Z * YES, WAIT U2N00910 001E C100 90 | LD 1 0 2-11 U2N00927 001F 180C 91 | SRA 12 U2N00930 0020 907A 92 | S D2 IS FUNCTION LEGAL 2-4 U2N00940 0021 4C30 0039R 93 | BSC L TY30,Z- * NO, ERROR U2N00950 0023 8053 94 | TY20 A H7001 *YES, SET UP JUMP TABLE U2N00960 0024 D011 95 | STO TY24 U2N00970 0025 0822 96 | TY22 XIO SENSE-1 IS THE DEVICE READY U2N00980 0026 1005 97 | SLA 5 U2N00990 0027 4C28 003BR 98 | BSC L TY32,Z+ NO,LOOP UNTIL READY U2N01000 0029 1810 99 | SRA 16 READY, CLEAR STORAGE AREAS, U2N01010 002A D06B 100 | STO RSTRT * RESTART INDR U2N01020 002B D066 101 | STO BACK * BACKSPACE INDR U2N01030 002C D06C 102 | STO SLASH * SLASH INDR U2N01040 002D D067 103 | STO RIGHT * SET INDR FOR RIGHT CHAR U2N01050 002E C101 104 | LD 1 1 GET DATA ADDR U2N01060 002F 806A 105 | A D1 AVOID STORED WD CNT 2-4 U2N01070 0030 D05F 106 | STO READ SAVE I/O AREA ADDR U2N01080 0031 D065 107 | STO RSTRT+1 U2N01090 0032 C580 0001 108 | LD I1 1 SAVE WORD COUNT U2N01100 0034 4C08 0039R 109 | BSC L TY30,+ ERROR IF ZERO OR NEGATIVE U2N01110 0036 7000 110 | TY24 MDX TY24+1 INITIATE FUNCTION U2N01120 0037 7014 111 | MDX TY40 * = GET U2N01130 0038 702D 112 | MDX TY56 * = PUT U2N01140 0039 C010 113 | TY30 LD H2001 ERROR HANDLING U2N01150 003A 7003 114 | MDX TY34 * = ILLEGAL CALL U2N01160 003B 4C02 0025R 115 | TY32 BSC L TY22,C * = NOT READY & BUSY U2N01170 003D C00A 116 | TY33 LD H2000 * = NOT READY & NOT BUSY U2N01180 003E 71FF 117 | TY34 MDX 1 -1 U2N01190 003F 6D00 0028 118 | STX L1 $PRET STORE LIBF ADDR U2N01200 0041 6128 119 | LDX 1 $PRET U2N01210 0042 70CF 120 | MDX TY12 U2N01220 0043 0000 121 | BUSY DC 0 SUBR BUSY INDR U2N01230 0044 0000 122 | BUSY1 DC 0 $IREQ SAVED HERE DURING 212 U2N01236 123 | * FIRST NON-TEST OP 212 U2N01237 0046 124 | SAVAQ BSS E 2 SAVE ACC AND EXT U2N01240 0048 2000 125 | H2000 DC /2000 DEVICE NOT READY CODE U2N01245 0049 0F00 126 | SENSE DC /0F00 IOCC TO SENSE DSW U2N01250 004A 2001 127 | H2001 DC /2001 ILLEGAL CALL ERROR U2N01255 004B 0F01 128 | SENS1 DC /0F01 SENSE DSW IOCC (RESET) U2N01270 129 | *************************************************** U2N01280 130 | * TYPE0 FUNCTION INITIATION U2N01290 131 | *************************************************** U2N01300 004C D046 132 | TY40 STO COUNT READ FUNCTION INITIATION U2N01310 004D D04A 133 | STO RSTRT+2 SAVE WD CNT FOR RESTART U2N01320 004E 08F9 134 | XIO SENSE-1 U2N01330 004F 1006 135 | SLA 6 IS KEYBOARD READY U2N01340 0050 4C28 003DR 136 | BSC L TY33,Z+ * NO, ERROR U2N01350 0052 4C00 0126R 137 | BSC L SBRTB SET UP CONVERSION TBL ADDR U2N01360 0054 D0EE 138 | TY42 STO BUSY SET SUBROUTINE BUSY U2N01370 0055 7400 0044R 139 | MDM BUSY1,0 $IREQ SAVED? 212 U2N01371 0057 7005 140 | B TY43 YES, SKIP SAVING 212 U2N01372 0058 68EB 141 | STX BUSY1 SET SAVED INDR 212 U2N01373 0059 C400 002C 142 | LD L $IREQ SAVE INT REQ ADDR 212 U2N01374 005B D400 013CR 143 | STO L TY97 *TEMPORARILY 212 U2N01375 005D 6600 012ER 144 | TY43 LDX L2 IRRTN LOAD TYPE0 INT REQ RTN 212 U2N01376 005F 6E00 002C 145 | STX L2 $IREQ *ADDR AND STORE IN SYS 212 U2N01377 0061 7401 0032 146 | MDX L $IOCT,+1 INCR IOCS CTR U2N01380 0063 1000 147 | NOP AVOID SKIP PROBLEM U2N01390 0064 0827 148 | TY44 XIO INIT-1 RELEASE KEYBOARD U2N01400 0065 70AA 149 | MDX TY11 GO TO EXIT U2N01410 0066 1001 150 | TY56 SLA 1 PUT FUNCTION INITIATION U2N01420 0067 D02B 151 | STO COUNT SAVE WORD COUNT *2 U2N01430 0068 D0DA 152 | STO BUSY SET SUBROUTINE BUSY U2N01440 0069 7401 0032 153 | MDX L $IOCT,+1 INCR IOCS CTR U2N01450 006B 1000 154 | NOP AVOID SKIP PROBLEM U2N01460 006C C480 0090R 155 | LD I READ GET 1ST O/P CHAR U2N01470 006E D01D 156 | STO TEMP1 STORE THECHAR IN TEMP AREA U2N01480 006F 081E 157 | XIO PRINT PRINT ONE CHARACTER U2N01490 0070 709F 158 | MDX TY11 GO TO EXIT U2N01500 160 | *************************************************** U2N01510 161 | * GENERAL INTERRUPT PROCESSING * U2N01520 162 | *************************************************** U2N01530 163 | * THIS PORTION IS ENTERED FROM AN INTERRUPT * U2N01540 164 | * LEVEL SUBROUTINE (04 IN 1130). IT DETERMINES * U2N01550 165 | * THE CAUSE OF THE INTERRUPT. IF THE REQUESTED * U2N01560 166 | * NUMBER OF CHARACTERS HAS BEEN READ AND/OR * U2N01570 167 | * PRINTED, THE ROUTINE IS SET NOT BUSY AND THE * U2N01580 168 | * IOCS COUNTER DECREMENTED TO INDICATE INTERR * U2N01590 169 | * PROCESSING COMPLETED. IF AN OPERATOR REQUEST * U2N01600 170 | * INTERRUPT IS DETECTED, THE SUBROUTINE EXITS, * U2N01610 171 | * VIA THE ADDRESS IN LOCN $IREQ , TO THE USER * U2N01620 172 | * BEFORE RETURNING CONTROL TO THE INTERRUPT * U2N01630 173 | * LEVEL SUBROUTINE. * U2N01640 174 | *************************************************** U2N01650 0071 08D8 175 | TY60 XIO SENS1-1 WHAT CAUSED INTERRUPT U2N01660 0072 D021 176 | STO DSWRD U2N01670 0073 1001 177 | SLA 1 U2N01680 0074 4C28 00BFR 178 | BSC L TY86,Z+ KEYBOARD SERVICE REQUEST U2N01690 0076 4802 179 | BSC C U2N01700 180 | * LOOK UP-ASM CODE FOR NEXT INSTR MUST BE /7001 2-4 U2N01701 0077 7001 181 | H7001 MDX TY62 PRINTER SERVICE REQST 2-4 U2N01710 0078 7011 182 | MDX TY70 IF NOT THESE,CONT CHK U2N01720 0079 C01C 183 | TY62 LD RSTRT WAS RE-ENTRY LAST READ U2N01730 007A 4C20 010AR 184 | BSC L XT14,Z * YES U2N01740 007C C015 185 | LD BACK WAS BACKSPACE LAST READ U2N01750 007D 4C20 00FBR 186 | BSC L XT10,Z * YES U2N01760 007F C0B6 187 | LD TY24 IS THEFUNCTION = PUT U2N01770 0080 4804 188 | BSC E * NO U2N01780 0081 701A 189 | MDX TY80 * YES U2N01790 0082 7400 0093R 190 | MDX L COUNT,0 ANY MORE CHARS TO PRINT U2N01800 0084 7005 191 | MDX TY70 * YES U2N01810 0085 1810 192 | TY68 SRA 16 CLEAR SUBROUTINE BUSY INDR U2N01820 0086 D0BC 193 | STO BUSY U2N01830 0087 74FF 0032 194 | MDX L $IOCT,-1 DECREMENT IOCS COUNTER U2N01840 0089 1000 195 | NOP U2N01850 008A 4C80 0004R 196 | TY70 BSC I INT1 RETURN TO ILS 04 U2N01860 197 | * U2N01900 198 | *CONSTANTS AND BUFFER AREA U2N01910 199 | * U2N01920 008C 200 | TEMP1 BSS E 1 TEMPORARY STORAGE U2N01930 008D 0C00 201 | INIT DC /0C00 IOCC TO READY KEYBOARD O U2N01940 008E 008CR 202 | PRINT DC TEMP1 IOCC TO PRINT 1 CHAR E U2N01950 008F 0900 203 | DC /0900 U2N01960 0090 0000 204 | READ DC 0 IOCC TO READ 1 CHAR E U2N01970 0091 0A00 205 | DC /0A00 O U2N01980 0092 0000 206 | BACK DC 0 BACKSPACE INDR U2N01990 0093 0000 207 | COUNT DC 0 LENGTH OF I/O AREA U2N02000 0094 0000 208 | DSWRD DC 0 DEVICE STATUS WORD U2N02010 0095 0000 209 | RIGHT DC 0 CHAR INDR (0 IF RIGHT) U2N02020 0096 0000 210 | RSTRT DC 0 RE-ENTRY INFO - INDICATOR U2N02030 0097 0000 211 | DC 0 IOAR ADDR U2N02040 0098 0000 212 | DC 0 WORD COUNT U2N02050 0099 0000 213 | SLASH DC 0 SLASH CHAR INDR U2N02060 009A 0001 214 | D1 DC 1 2-4 U2N02061 009B 0002 215 | D2 DC 2 2-4 U2N02062 008D 216 | $PST4 EQU /8D POST-OPERATIVE ERROR TRAP U2N02070 218 | *************************************************** U2N02080 219 | * PRINT FUNCTION INTERRUPT PROCESSING * U2N02090 220 | *************************************************** U2N02100 221 | * DATA IS PRINTED FROM A TEMPORARY REGISTER AS * U2N02110 222 | * THE DATA AREA IS UNPACKED, ONE CHARACTER * U2N02120 223 | * AT A TIME. * U2N02130 224 | *************************************************** U2N02140 009C 74FF 0093R 225 | TY80 MDX L COUNT,-1 ANY MORE CHARS TO PRINT U2N02150 009E 7001 226 | MDX TY81 * YES U2N02160 009F 70E5 227 | MDX TY68 * NO, EXIT U2N02170 00A0 C0F4 228 | TY81 LD RIGHT IS THIS RIGHT CHAR U2N02180 00A1 4C18 00AAR 229 | BSC L TY82,+- * YES,GO TO PRINT U2N02190 00A3 1810 230 | SRA 16 * NO, IS LEFT CHAR U2N02200 00A4 D0F0 231 | STO RIGHT ZERO RIGHT HAND CHAR INDR U2N02210 00A5 7401 0090R 232 | MDX L READ,+1 INCR I/O AREA ADDR U2N02220 00A7 C480 0090R 233 | LD I READ GET NEXT O/P WD U2N02230 00A9 7005 234 | MDX TY84 GO PRINT LEFT CHAR U2N02240 00AA C0EF 235 | TY82 LD D1 IF RIGHT CHAR,SET INDR FOR U2N02250 00AB D0E9 236 | STO RIGHT NEXT CHAR TO BE LEFT CHAR. U2N02260 00AC C480 0090R 237 | LD I READ GET RIGHT CHAR,LEFT JUSTIFY U2N02270 00AE 1008 238 | SLA 8 U2N02280 00AF D0DC 239 | TY84 STO TEMP1 STO CHAR IN O/P BUFFER U2N02290 00B0 0897 240 | TY85 XIO SENSE-1 IS THE DEVICE READY U2N02300 00B1 1005 241 | SLA 5 U2N02310 00B2 4C28 00BAR 242 | BSC L TY85A,Z+ NO, GO TO ERROR TRAP U2N02320 00B4 0893 243 | XIO SENSE-1 DEVICE STILL READY U2N02330 00B5 1005 244 | SLA 5 U2N02340 00B6 4C28 00BAR 245 | BSC L TY85A,Z+ NO, WAS CONTACT BOUNCE U2N02350 00B8 08D5 246 | XIO PRINT PRINT 1 CHARACTER***** U2N02360 00B9 70D0 247 | BTY70 MDX TY70 CHK INTERRUPT REQST 2-4 U2N02370 248 | * U2N02380 249 | *EXIT TO POST-OPERATIVE ERROR TRAP WITH NOT READY U2N02390 250 | *ERROR CODE IN THE ACCUMULATOR. U2N02400 251 | * U2N02410 00BA C400 0048R 252 | TY85A LD L H2000 ERROR CODE INTO ACC U2N02420 00BC 4400 008D 253 | BSI L $PST4 EXIT TO ERROR TRAP U2N02430 00BE 70F1 254 | MDX TY85 TRY AGAIN U2N02440 256 | *************************************************** U2N02450 257 | * KEYBOARD INTERRUPT PROCESSING * U2N02460 258 | *************************************************** U2N02470 259 | * THE INPUT CHARACTER IS READ, ANALYZED, AND * U2N02480 260 | * PROCESSED. IF A GRAPHIC, IT IS PRINTED AND, * U2N02490 261 | * IF THE REQUESTED NO. OF CHARACTERS HAS NOT * U2N02500 262 | * BEEN READ, THE KEYBOARD IS RELEASED FOR THE * U2N02510 263 | * NEXT ENTRY. * U2N02520 264 | *************************************************** U2N02530 00BF 08D0 265 | TY86 XIO READ READ 1 CHAR FROM KEYBOARD U2N02540 00C0 C480 0090R 266 | LD I READ U2N02550 00C2 100D 267 | SLA 13 WHAT IS CHAR JUST READ U2N02560 00C3 4C02 00E2R 268 | BSC L TY93,C * CHAR = END MESSAGE U2N02570 00C5 4C30 00E9R 269 | BSC L TY94,Z- * CHAR = RE-ENTRY U2N02580 00C7 4C20 00F0R 270 | BSC L TY96,Z * CHAR = BACKSPACE U2N02590 00C9 614B 271 | LDX 1 +75 CHAR=HOLLERITH.SET TBL CTR U2N02600 272 | * FOR CONVERSION U2N02610 00CA C480 0090R 273 | TY88 LD I READ U2N02620 00CC F500 0000 274 | TY90 EOR L1 0 CHK W/HOLL TBL ENTRY U2N02630 00CE 4C18 00D2R 275 | BSC L TY92,+- MATCH ,GET PRTY TBL ENTRY U2N02640 00D0 71FF 276 | MDX 1 -1 IF NOT,CHK NEXT TBL ENTRY U2N02650 00D1 70F8 277 | MDX TY88 U2N02660 00D2 C500 0000 278 | TY92 LD L1 0 GET PRTY CHAR U2N02670 00D4 D0B7 279 | STO TEMP1 PUT IN O/P BUFFER U2N02680 00D5 7401 0090R 280 | MDX L READ,+1 GET SET TO READ NEXT CHAR U2N02690 00D7 74FF 0093R 281 | MDX L COUNT,-1 ANY MORE CHARACTERS U2N02700 00D9 08B2 282 | XIO INIT-1 * YES,ENABLE THE KEYBOARD U2N02710 00DA C0B8 283 | LD COUNT IS COUNT ZERO? 212 U2N02720 00DB 4C20 00B0R 284 | BNZ TY85 NO, CONTINUE TO PRINT CH212 U2N02721 00DD C400 013CR 285 | LD L TY97 RESTORE SYSTEM INT REQ 212 U2N02722 00DF D400 002C 286 | STO L $IREQ *ADDR 212 U2N02723 00E1 70CE 287 | B TY85 CONTINUE TO PRINT CHAR 212 U2N02724 289 | *************************************************** U2N02730 290 | * SPECIAL CHARACTER SETUP/PROCESSING * U2N02740 291 | *************************************************** U2N02750 292 | * IF A RE-ENTRY CHARACTER IS READ, TWO SLASHES * U2N02760 293 | * ARE PRINTED, THE CARRIER RESTORED, AND THE * U2N02770 294 | * KEYBOARD RELEASED FOR THE NEXT (FIRST) * U2N02780 295 | * ENTRY. IF A BACKSPACE CHARACTER IS READ, A * U2N02790 296 | * BACKSPACE IS EXECUTED, A SLASH PRINTED, AND * U2N02800 297 | * THE KEYBOAD RELEASED FOR THE NEXT (PREVIOUS) * U2N02810 298 | * ENTRY. * U2N02820 299 | *************************************************** U2N02830 00E2 C033 300 | TY93 LD H4110 END OF FIELD CHAR INPUT U2N02840 00E3 D480 0090R 301 | STO I READ STORE A NEW LINE CHAR U2N02850 00E5 C056 302 | LD TY97 RESTORE SYSTEM INT REQ 212 U2N02854 00E6 D400 002C 303 | STO L $IREQ *ADDRESS 212 U2N02855 00E8 709C 304 | MDX TY68 GO TO EXIT U2N02860 00E9 D0AC 305 | TY94 STO RSTRT U2N02870 00EA C0AC 306 | LD RSTRT+1 CHARACTER = RE-ENTRY U2N02880 00EB D0A4 307 | STO READ U2N02890 00EC C0AB 308 | LD RSTRT+2 RESTORE ADDRESS & COUNT T U2N02900 00ED D0A5 309 | STO COUNT U2N02910 00EE C029 310 | LD HBC00 CHAR = SLASH U2N02920 00EF 70BF 311 | MDX TY84 GO TO PRINT SLASH U2N02930 00F0 D0A1 312 | TY96 STO BACK SET BACKSPACE INDR NON-ZERO U2N02940 00F1 C0A6 313 | LD RSTRT+2 CHECK IF THIS IS 2-4 U2N02941 00F2 90A0 314 | S COUNT FIRST WORD OF BUFFER 2-4 U2N02942 00F3 4C08 00F9R 315 | BSC L FIRST,+ BRANCH IF YES 2-4 U2N02943 00F5 74FF 0090R 316 | MDX L READ,-1 REFERENCE PREVIOUS WORD U2N02950 00F7 7401 0093R 317 | MDX L COUNT,+1 INCR THE WD CNT U2N02960 00F9 C01B 318 | FIRST LD H1100 CHAR = BACKSPACE 2-4 U2N02970 00FA 70B4 319 | MDX TY84 EXECUTE A BACKSPACE U2N02980 00FB C09D 320 | XT10 LD SLASH BKSP INDR SET,IS SLASH INDR U2N02990 00FC 4C20 0102R 321 | BSC L XT12,Z * YES,ENABLE KB AND EXIT U2N03000 00FE C09B 322 | XT11 LD D1 * NO,SET SLASH INDR U2N03010 00FF D099 323 | STO SLASH U2N03020 0100 C017 324 | LD HBC00 CHAR = SLASH U2N03030 0101 70AD 325 | MDX TY84 GO TO PRINT SLASH U2N03040 0102 1810 326 | XT12 SRA 16 CLEAR INDICATORS & U2N03050 0103 D08E 327 | XT13 STO BACK RELEASE THE KEYBOARD U2N03060 0104 D094 328 | STO SLASH U2N03070 0105 D090 329 | STO RSTRT U2N03080 0106 7400 0043R 330 | MDM BUSY,0 IF ABORTED, SKIP ENABLE 212 U2N03085 0108 0883 331 | XIO INIT-1 U2N03090 0109 70AF 332 | MDX BTY70 2-4 U2N03100 010A C08E 333 | XT14 LD SLASH RESTART INDR SET,IS SLASH U2N03110 010B 4C18 00FER 334 | BSC L XT11,+- * NO, SET & PRINT SLASH U2N03120 010D C084 335 | LD BACK * YES,IS BKSP INDR SET U2N03130 010E 4C20 0102R 336 | BSC L XT12,Z CLEAR ALL INDICATORS U2N03140 0110 C089 337 | LD D1 * NO,SET BKSP INDR = 0 U2N03150 0111 D080 338 | STO BACK U2N03160 0112 C004 339 | LD H8100 =CARRIAGE RET (NEW LINE) U2N03170 0113 709B 340 | MDX TY84 GO TO SPACE CARRIAGE U2N03180 341 | * U2N03190 342 | *CONSTANTS AREA U2N03200 343 | * U2N03210 0114 0003 344 | D3 DC +3 U2N03240 0115 1100 345 | H1100 DC /1100 BACKSPACE (CONSOLE PTR) U2N03250 0116 4110 346 | H4110 DC /4110 HOLLERITH NEW LINE CHAR U2N03260 0117 8100 347 | H8100 DC /8100 NEW LINE (CONSOLE PTR) U2N03270 0118 BC00 348 | HBC00 DC /BC00 SLASH (CONSOLE PTR) U2N03280 349 | *************************************************** U2N03290 350 | * SBRTA - OBTAIN ENTRY POINT +3 ADDR * U2N03300 351 | *************************************************** U2N03310 0119 1000 352 | SBRTA NOP SAVE RET ADDR U2N03320 011A 1008 353 | SLA 8 GET JUST TV TBL ADDR U2N03330 011B 1888 354 | SRT 8 DUPLICATE SIGN BIT U2N03340 011C 6B05 355 | STX 3 SBA12+1 U2N03350 011D 8004 356 | A SBA12+1 ADD TV DISPLACEMENT U2N03360 011E 8400 009BR 357 | A L D2 REF 3RD WD TV TBL ENTRY 212 U2N03370 0120 D001 358 | STO SBA12+1 STORE LOC OF SUBR ADDR U2N03380 0121 C400 0000 359 | SBA12 LD L 0 OBTAIN SUBR ADDR U2N03390 0123 80F0 360 | A D3 SKIP FIRST THREE WORDS U2N03400 0124 4C80 0119R 361 | BSC I SBRTA RET TO CALL U2N03410 362 | *************************************************** U2N03420 363 | * SBRTB- STORE CONVERSION TBL ADDRS * U2N03430 364 | *************************************************** U2N03440 0126 C016 365 | SBRTB LD CALL1 GET LIBF HOLL WD U2N03450 0127 40F1 366 | BSI SBRTA GO TO GET HOLL TBL LD ADDR U2N03460 0128 D0A4 367 | STO TY90+1 SETUP ADDR FOR CONVERSIONS U2N03470 0129 C014 368 | LD CALL2 GET LIBF PRTY WD U2N03480 012A 40EE 369 | BSI SBRTA GO TO GET PRTY TBL LD ADDR U2N03490 012B D0A7 370 | STO TY92+1 SETUP ADDR FOR CONVERSIONS U2N03500 012C 4C00 0054R 371 | BSC L TY42 RET TO CALL SERVICE PORTION U2N03510 012E 0000 372 | IRRTN DC *-* ENTEY POINT 2-11 U2N03511 012F C00C 373 | LD TY97 RESTORE INT REQ ADDR 212 U2N03526 0130 D400 002C 374 | STO L $IREQ * 212 U2N03527 0132 1010 375 | SLA 16 SET ABORT INDR FOR 212 U2N03529 0133 D400 0043R 376 | STO L BUSY *KYBD ROUTINE 212 U2N03530 0135 0C00 0090R 377 | XIO L READ RESET KYBD ENABLE 212 U2N03531 0137 74FF 0032 378 | MDM $IOCT,-1 DECR $IOCT 212 U2N03533 0139 1000 379 | NOP IN CASE OF SKIP 212 U2N03535 013A 4480 002C 380 | IROUT BSI I $IREQ ABORT JOB 212 U2N03536 013C 00E6 381 | TY97 DC $I420 212 U2N03539 013D 0859*34C0 382 | CALL1 LIBF HOLL THESE LIBFS NEVER EXECUTED U2N03540 013E 1766*3A00 383 | CALL2 LIBF PRTY USED TO OBTAIN LD ADDR U2N03550 013F 384 | END U2N03560 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced $I420 00E6 51 381 $IOCT 0032 52 146 153 194 378 $IREQ 002C 50 142 145 286 303 374 380 $PRET 0028 49 118 119 $PST4 008D 216 253 BACK 0092R 206 101 185 312 327 335 338 BTY70 00B9R 247 332 BUSY 0043R 121 78 88 138 152 193 330 376 BUSY1 0044R 122 139 141 CALL1 013DR 382 365 CALL2 013ER 383 368 COUNT 0093R 207 132 151 190 225 281 283 309 314 317 D1 009AR 214 105 235 322 337 D2 009BR 215 92 357 D3 0114R 344 360 DSWRD 0094R 208 176 EXIT 0019R 87 83 FIRST 00F9R 318 315 H1100 0115R 345 318 H2000 0048R 125 116 252 H2001 004AR 127 113 H4110 0116R 346 300 H7001 0077R 181 94 H8100 0117R 347 339 HBC00 0118R 348 310 324 INIT 008DR 201 148 282 331 INT1 0004R 56 196 IROUT 013AR 380 IRRTN 012ER 372 144 LINK 0001R 54 PRINT 008ER 202 157 246 READ 0090R 204 106 155 232 233 237 265 266 273 280 301 307 316 377 RIGHT 0095R 209 103 228 231 236 RSTRT 0096R 210 100 107 133 183 305 306 308 313 329 SAV1 0014R 84 53 SAV2 0016R 85 72 SAVAQ 0046R 124 74 81 SAVST 0018R 86 73 SBA12 0121R 359 355 356 358 SBRTA 0119R 352 361 366 369 SBRTB 0126R 365 137 SENS1 004BR 128 175 SENSE 0049R 126 96 134 240 243 SLASH 0099R 213 102 320 323 328 333 TEMP1 008CR 200 156 202 239 279 TY10 0007R 72 55 TY11 0010R 80 149 158 TY12 0012R 82 120 TY14 001BR 88 77 89 TY20 0023R 94 TY22 0025R 96 115 TY24 0036R 110 95 187 TY30 0039R 113 93 109 TY32 003BR 115 98 TY33 003DR 116 136 TY34 003ER 117 114 TY40 004CR 132 111 TY42 0054R 138 371 TY43 005DR 144 140 TY44 0064R 148 TY56 0066R 150 112 TY60 0071R 175 57 TY62 0079R 183 181 TY68 0085R 192 227 304 TY70 008AR 196 182 191 247 TY80 009CR 225 189 TY81 00A0R 228 226 TY82 00AAR 235 229 TY84 00AFR 239 234 311 319 325 340 TY85 00B0R 240 254 284 287 TY85A 00BAR 252 242 245 TY86 00BFR 265 178 TY88 00CAR 273 277 TY90 00CCR 274 367 TY92 00D2R 278 275 370 TY93 00E2R 300 268 TY94 00E9R 305 269 TY96 00F0R 312 270 TY97 013CR 381 143 285 302 373 TYPE0 0000R 53 XT10 00FBR 320 186 XT11 00FER 322 334 XT12 0102R 326 321 336 XT13 0103R 327 XT14 010AR 333 184
ibm/ibm1130-lib/dmsr2v12/u2type0_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator