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