ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u6id.asm
ID
2 | *************************************************** U6G00020
3 | * * U6G00030
4 | * STATUS-VERSION 1 * U6G00040
5 | * * U6G00050
6 | * FUNCTION/OPERATION * U6G00060
7 | * *ID IS USED TO CHANGE THE CART ID ON UP TO * U6G00070
8 | * FOUR DISK CARTS. * U6G00080
9 | * *THE NEW IDS ARE SPECIFIED IN A *ID RECORD. * U6G00090
10 | * THIS RECORD IS READ BY THE RDREC SUBROUTINE. * U6G00100
11 | * AFTER CHECKING FOR INVALID DATA THE DATA * U6G00110
12 | * IS TRANSFERRED TO ID. * U6G00120
13 | * *DCOM OF THE MASTER CARTRIDGE IS FETCHED TO * U6G00130
14 | * OBTAIN THE CART ID TABLE (#CIDN). * U6G00140
15 | * *A TEST IS MADE TO DETERMINE IF THE LAST CART * U6G00150
16 | * ID HAS BEEN PROCESSED) IF SO DCOM IS UPDATED * U6G00160
17 | * AND THE SIGN/OFF MESSAGE IS PRINTED. * U6G00170
18 | * *DCOM IS UPDATED BY CALLING THE SYSUP SUBR. * U6G00180
19 | * *THE SIGN/OFF MESSAGE IS PRINTED USING CALPR. * U6G00190
20 | * *AFTER PRINTING THE SIGN/OFF EXIT * U6G00200
21 | * *ALSO BEFORE CHANGING THE IDS THE KEYBOARD * U6G00210
22 | * REQUEST IS LOCKED OUT AND THEN RESTORED * U6G00220
23 | * AFTER THE IDS ARE CHANGED. * U6G00230
24 | *ENTRY POINTS -ID001 ENTRY TO MAINLINE * U6G00240
25 | *INPUT-IDS FROM ALL AVAILABLE DISK DRIVE 1-4. * U6G00250
26 | * DECOM OF SYSTEMS CARTRIDGE. * U6G00260
27 | *OUTPUT-SAME AS INPUT * U6G00270
28 | *EXTERNAL REFERENCES- * U6G00280
29 | * *SUBROUTINES- * U6G00290
30 | * CALPR * U6G00300
31 | * SYSUP * U6G00310
32 | * *DCOM/COMMA- * U6G00320
33 | * DZ000 * U6G00330
34 | * $ACDE * U6G00340
35 | * $DBSY * U6G00350
36 | * $IREQ * U6G00360
37 | * $I410 * U6G00370
38 | *EXIT * U6G00380
39 | * *NORMAL CALL EXIT WHEN JOB COMPLETE * U6G00390
40 | * *ERROR-N/A * U6G00400
41 | *TABLES/WORK AREAS * U6G00410
42 | * * ID900 * U6G00420
43 | * * ID912 * U6G00430
44 | * * ID916 * U6G00440
45 | * * ID920 * U6G00450
46 | * * ID950 * U6G00460
47 | * * ID963 * U6G00470
48 | * * ID930 * U6G00480
49 | * * ID931 * U6G00490
50 | * * ID934 * U6G00500
51 | * * ID946 * U6G00510
52 | * * ID973 * U6G00520
53 | * * ID976 * U6G00530
54 | *ATTRIBUTES- RELOCATABLE * U6G00540
55 | *NOTES-N/A * U6G00550
56 | * * U6G00560
57 | *************************************************** U6G00570
ID- SYSTEM EQUATES
00F2 59 | DZ000 EQU /0F2 DISK ENTRY POINT U6G00590
009F 60 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 U6G00600
00EE 61 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DISK BSY U6G00610
002C 62 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE U6G00620
00D6 63 | $I410 EQU /D6 U6G00630
ID- MAINLINE
65 | * U6G00650
66 | *GET PRINCIPAL INPUT PRINCIPAL PRINT, AND U6G00660
67 | *PRINCIPAL CONVERSION SUBR IOAR HEADERS FROM SLET U6G00670
68 | * U6G00680
69 | * U6G00690
70 | * U6G00700
71 | *************************************************** U6G00710
0000 013CR 72 | ID000 DC ID920 U6G00720
0001 C0FE 73 | ID001 LD ID000 U6G00730
0002 1911*9143 74 | CALL RDREC RD *ID RECORD U6G00740
0004 D0FB 75 | STO ID000 SAVE SUBR ENTRY POINT U6G00750
76 | * U6G00760
77 | *************************************************** U6G00770
78 | * LOCKOUT KEYBOARD REQUEST * U6G00780
79 | *************************************************** U6G00790
80 | * U6G00800
0005 4007 81 | BSI ID200 U6G00810
82 | * U6G00820
83 | *************************************************** U6G00830
84 | * CHANGE ID * U6G00840
85 | *************************************************** U6G00850
86 | * U6G00860
0006 4400 005AR 87 | BSI L ID510 U6G00870
88 | *************************************************** U6G00880
89 | * U6G00890
0008 4400 0049R 90 | BSI L ID400 SIGN-OFF AND UPDATE DCOM U6G00900
000A 4400 0018R 91 | BSI L ID225 RESET KB U6G00910
000C 6038 92 | EXIT U6G00920
ID- KEYBOARD
94 | *************************************************** U6G00940
95 | * KEYBOARD LOCKOUT * U6G00950
96 | *************************************************** U6G00960
97 | * U6G00970
000D 0000 98 | ID200 DC *-* ENTRY/EXIT U6G00980
000E C400 002C 99 | LD L $IREQ SAVE KB INTRPT RTN ENTRY U6G00990
0010 D016 100 | STO ID290 U6G01000
0011 C016 101 | LD ID291 LOAD MASK U6G01010
0012 D400 002C 102 | STO L $IREQ U6G01020
0014 C014 103 | LD ID292 ZERO ENTRY POINT U6G01030
0015 D00B 104 | STO ID250 U6G01040
0016 4C80 000DR 105 | BSC I ID200 RETURN U6G01050
106 | * U6G01060
107 | *************************************************** U6G01070
108 | * RESET KB REQ ENTRY POINT * U6G01080
109 | *************************************************** U6G01090
0018 0000 110 | ID225 DC *-* ENTRY/EXIT U6G01100
0019 C00D 111 | LD ID290 RESET KB U6G01110
001A D400 002C 112 | STO L $IREQ U6G01120
001C C004 113 | LD ID250 U6G01130
001D 4820 114 | BSC Z U6G01140
001E 7005 115 | MDX ID275 U6G01150
001F 4C80 0018R 116 | BSC I ID225 U6G01160
117 | * U6G01170
118 | * U6G01180
119 | * U6G01190
120 | *************************************************** U6G01200
121 | * INTERRUPT * U6G01210
122 | *************************************************** U6G01220
123 | * U6G01230
0021 0000 124 | ID250 DC *-* U6G01240
0022 4C00 00D6 125 | BSC L $I410 TO ILS04 RTN U6G01250
126 | * U6G01260
127 | * U6G01270
0024 4480 002C 128 | ID275 BSI I $IREQ SERVICE INTRPT REQUEST U6G01280
0026 FFFE 129 | DC -2 ERROR CODE U6G01290
130 | * U6G01300
131 | * KEYBOARD CONSTANTS U6G01310
132 | * U6G01320
0027 0000 133 | ID290 DC *-* U6G01330
0028 0021R 134 | ID291 DC ID250 U6G01340
0029 0000 135 | ID292 DC /0000 U6G01350
136 | * U6G01360
ID- ERROR MESSAGE
138 | ************************************************ U6G01380
139 | * SET UP ERROR MESSAGE FOR MISSING CART U6G01390
140 | * AND PRINT THE MESSAGE WITH THE REST OF THE U6G01400
141 | * TABLE. PRINT MESSAGE NOTING JOB TERM. U6G01410
142 | ************************************************** U6G01420
143 | * U6G01430
002A 0000 144 | ID300 DC *-* ENTRY EXIT U6G01440
002B C019 145 | LD ID979 U6G01450
002C D500 0152R 146 | STO L1 ID935 U6G01460
002E C017 147 | LD ID979+1 U6G01470
002F D500 0153R 148 | STO L1 ID935+1 U6G01480
0031 C015 149 | LD ID979+2 U6G01490
0032 D500 0154R 150 | STO L1 ID935+2 U6G01500
0034 C013 151 | LD ID979+3 U6G01510
0035 D500 0155R 152 | STO L1 ID935+3 U6G01520
0037 4400 0049R 153 | BSI L ID400 U6G01530
0039 C400 012AR 154 | LD L ID791 U6G01540
003B D400 011CR 155 | STO L ID790+1 U6G01550
003D D400 011DR 156 | STO L ID790+2 U6G01560
003F 0305*35D9 157 | CALL CALPR U6G01570
0041 011BR 158 | DC ID790 U6G01580
0042 0001 159 | DC 1 U6G01590
0043 4C80 002AR 160 | BSC I ID300 U6G01600
0045 E4D5 E5C1 C9D3 C1C2 161 | ID979 EBC .UNVAILAB. U6G01610
ID- COMPLETION AND SIGN-OFF
163 | *************************************************** U6G01630
164 | * PRINT SIGN-OFF MESSAGE AND UPDATE SYSTEM DCOM * U6G01640
165 | *************************************************** U6G01650
0049 0000 166 | ID400 DC *-* ENTRY/EXIT U6G01660
004A 0305*35D9 167 | CALL CALPR PRINT HEADING U6G01670
004C 0187R 168 | DC ID942 U6G01680
004D 0001 169 | DC 1 U6G01690
004E C400 013DR 170 | LD L ID921 U6G01700
0050 D003 171 | STO ID410 U6G01710
172 | * U6G01720
0051 0305*35D9 173 | CALL CALPR PRINT CART IDS U6G01730
0053 0147R 174 | DC ID933 U6G01740
0054 0000 175 | ID410 DC *-* NO OF PRINT LINES U6G01750
176 | * U6G01760
0055 22A2*2917 177 | CALL SYSUP U6G01770
0057 01CDR 178 | DC ID90I U6G01780
179 | * U6G01790
0058 4C80 0049R 180 | BSC I ID400 RETURN U6G01800
ID- CHECK AND CHANGE ID
182 | *************************************************** U6G01820
183 | * U6G01830
184 | * THE FOLLOWING CHECKS FOR, * U6G01840
185 | * *WAS LAST CARTRIDGE PROCESSED, * U6G01850
186 | * * IS THE DRIVE BE REQUESTED PRESENT * U6G01860
187 | * *FETCH ID FROM CARTRIDGE * U6G01870
188 | * *CHECK ID OF THE CARTRIDGE WITH SYSTEM CARID * U6G01880
189 | * *CHECK FOR END OF THE TABLE * U6G01890
190 | * *IF LAST CARTRIDGE PROC GO TO PRINT TABLE * U6G01900
191 | * *IF CART ID UNEQUAL GO TO ERROR PRINT * U6G01910
192 | * * U6G01920
193 | *************************************************** U6G01930
005A 0000 194 | ID510 DC *-* ENTRY/EXIT U6G01940
005B 4400 0108R 195 | BSI L ID700 RD SYSTEM DCOM U6G01950
005D 6201 196 | LDX 2 1 LOAD TABLE CNT U6G01960
005E 6101 197 | LDX 1 1 LOAD DISK DRIVE CNT U6G01970
005F 74FF 012DR 198 | ID511 MDX L ID971,-1 LAST DRIVE U6G01980
0061 7002 199 | MDX ID512 *NO U6G01990
200 | * U6G02000
0062 4C80 005AR 201 | BSC I ID510 *YES U6G02010
202 | * U6G02020
0064 C500 009F 203 | ID512 LD L1 $ACDE FETCH AREA CODE FROM COMMA U6G02030
0066 4C18 00D1R 204 | BSC L ID515,+- CARTRIDGE PRESENT U6G02040
205 | * U6G02050
0068 C400 012FR 206 | LD L ID973 MODIFY DRIVE NO U6G02060
006A 8400 0130R 207 | A L ID974 U6G02070
006C D400 012FR 208 | STO L ID973 U6G02080
006E 8400 0131R 209 | A L ID975 SETUP DCOM ADDR U6G02090
0070 D400 0195R 210 | STO L ID900+1 U6G02100
0072 CC00 012ER 211 | LDD L ID972 MOVE TO I/O AREA U6G02110
0074 DC00 02DAR 212 | STD L ID950 U6G02120
0076 C069 213 | LD ID722 U6G02130
0077 1890 214 | SRT 16 U6G02140
0078 C065 215 | LD ID720 U6G02150
0079 4400 00F2 216 | BSI L DZ000 U6G02160
007B 7400 00EE 217 | MDX L $DBSY,0 U6G02170
007D 70FD 218 | MDX *-3 U6G02180
007E C400 02DFR 219 | LD L ID950+5 FETCH ID U6G02190
0080 9500 01CDR 220 | S L1 ID90I IF NOT EQUAL SYSTEM DECOM U6G02200
0082 4C20 00D8R 221 | BSC L ID519,Z * ID GO TO ERROR U6G02210
0084 6E00 0132R 222 | STX L2 ID976 STORE XR2 U6G02220
0086 C400 0138R 223 | LD L ID930 END OF TABLE U6G02230
0088 9400 0132R 224 | S L ID976 U6G02240
008A 4C28 00D1R 225 | BSC L ID515,Z+ U6G02250
226 | * U6G02260
008C C400 02DFR 227 | LD L ID950+5 TEST CART ID TO ID U6G02270
008E 9600 013DR 228 | S L2 ID921 *IN TABLE U6G02280
0090 4C20 00D1R 229 | BSC L ID515,Z U6G02290
0092 C600 013ER 230 | LD L2 ID922 CHANGE CART ID U6G02300
0094 D400 02DFR 231 | STO L ID950+5 U6G02310
0096 D500 01CDR 232 | STO L1 ID90I NEW ID TO SYSTEMS DECOM U6G02320
0098 6915 233 | STX 1 ID514+1 U6G02330
0099 6500 0000 234 | ID513 LDX L1 *-* U6G02340
009B C400 0134R 235 | LD L ID978 MOVE 'COMPLETE' TO U6G02350
009D D500 0152R 236 | STO L1 ID935 *FROM-TO TABLE U6G02360
009F C400 0135R 237 | LD L ID978+1 U6G02370
00A1 D500 0153R 238 | STO L1 ID935+1 U6G02380
00A3 C400 0136R 239 | LD L ID978+2 U6G02390
00A5 D500 0154R 240 | STO L1 ID935+2 U6G02400
00A7 C400 0137R 241 | LD L ID978+3 U6G02410
00A9 D500 0155R 242 | STO L1 ID935+3 U6G02420
00AB 7110 243 | MDX 1 16 INCR TABLE CNT U6G02430
00AC 69ED 244 | STX 1 ID513+1 U6G02440
00AD 6500 0000 245 | ID514 LDX L1 *-* U6G02450
00AF 7202 246 | MDX 2 2 INCR TABLE POINTER U6G02460
ID- WRITE NEW ID ON CARTRIDGE
248 | * WRITE NEW ID ON CARTRIDGE U6G02480
249 | * U6G02490
00B0 C02F 250 | LD ID722 U6G02500
00B1 1890 251 | SRT 16 U6G02510
00B2 C02C 252 | LD ID721 U6G02520
00B3 4400 00F2 253 | BSI L DZ000 U6G02530
00B5 7400 00EE 254 | MDX L $DBSY,0 U6G02540
00B7 70FD 255 | MDX *-3 U6G02550
00B8 C400 0195R 256 | LD L ID900+1 SAVE DRIVE NO. U6G02560
00BA D026 257 | STO ID723 U6G02570
00BB 4400 00F4R 258 | BSI L ID650 DCOM TO SYSTEM CART U6G02580
00BD C023 259 | LD ID723 RESTORE DRIVE NO. U6G02590
00BE D400 0195R 260 | STO L ID900+1 U6G02600
00C0 C021 261 | LD ID724 35 TO WD CNT U6G02610
00C1 D400 0194R 262 | STO L ID900 U6G02620
00C3 4400 00FDR 263 | BSI L ID675 READ FIRST 35 WD OF DCOM U6G02630
00C5 C400 012ER 264 | LD L ID972 U6G02640
00C7 D400 0194R 265 | STO L ID900 RESTORE WD CNT TO 320 U6G02650
00C9 4400 00E9R 266 | BSI L ID600 WRITE DCOM TO CHANGED CART U6G02660
00CB C400 0131R 267 | LD L ID975 RESET I/O FOR SYSTEM CART U6G02670
00CD D400 0195R 268 | STO L ID900+1 U6G02680
00CF 4400 0108R 269 | BSI L ID700 READ SYSTEM DCOM U6G02690
270 | * U6G02700
00D1 C400 0021R 271 | ID515 LD L ID250 CHECK KB INTRPT U6G02710
00D3 4820 272 | BSC Z U6G02720
00D4 700E 273 | MDX ID550 U6G02730
00D5 7101 274 | MDX 1 1 INCR DISK DRIVE CNT U6G02740
00D6 4C00 005FR 275 | BSC L ID511 PROCESS NEXT NO U6G02750
276 | * U6G02760
00D8 4400 002AR 277 | ID519 BSI L ID300 U6G02770
00DA 4400 0018R 278 | BSI L ID225 U6G02780
00DC 6038 279 | EXIT ERROR EXIT U6G02790
00DD 0194R 280 | ID719 DC ID900 U6G02800
00DE 7000 281 | ID720 DC /7000 U6G02810
00DF 7001 282 | ID721 DC /7001 U6G02820
00E0 02DAR 283 | ID722 DC ID950 U6G02830
00E1 0000 284 | ID723 DC *-* SAVE DRIVE NO. U6G02840
00E2 0023 285 | ID724 DC 35 WD CNT FOR DCOM READ U6G02850
ID- KEYBOARD INTRPT REQUESTED
287 | *************************************************** U6G02870
288 | * KEYBOARD INTRPT REQUESTED * U6G02880
289 | *************************************************** U6G02890
00E3 4400 0049R 290 | ID550 BSI L ID400 PRINT SIGN-OFF U6G02900
00E5 4400 0018R 291 | BSI L ID225 RESET KB U6G02910
292 | * U6G02920
00E7 4C80 005AR 293 | BSC I ID510 RETURN U6G02930
294 | * U6G02940
295 | *************************************************** U6G02950
296 | * U6G02960
ID- DCOM TO CHANGEED CARTRIDGE
298 | *************************************************** U6G02980
299 | * WRITE NEW DCOM TO CHANGED CARTRIDGE * U6G02990
300 | *************************************************** U6G03000
301 | * U6G03010
00E9 0000 302 | ID600 DC *-* ENTRY/EXIT U6G03020
00EA C0F2 303 | LD ID719 U6G03030
00EB 1890 304 | SRT 16 U6G03040
00EC C0F2 305 | LD ID721 U6G03050
00ED 4400 00F2 306 | BSI L DZ000 U6G03060
00EF 7400 00EE 307 | MDX L $DBSY,0 U6G03070
00F1 70FD 308 | MDX *-3 U6G03080
00F2 4C80 00E9R 309 | BSC I ID600 RETURN U6G03090
310 | *************************************************** U6G03100
ID- DCOM TO SYSTEM CARTRIDGE
312 | *************************************************** U6G03120
313 | * WRITE DCOM TO SYSTEMS CARTRIDGE * U6G03130
314 | *************************************************** U6G03140
315 | * U6G03150
00F4 0000 316 | ID650 DC *-* ENTRY/EXIT U6G03160
00F5 C400 0131R 317 | LD L ID975 DRIVE NO TO SYSTEMS CART U6G03170
00F7 D400 0195R 318 | STO L ID900+1 U6G03180
00F9 4400 00E9R 319 | BSI L ID600 TO DISK WRITE U6G03190
00FB 4C80 00F4R 320 | BSC I ID650 RETURN U6G03200
321 | * U6G03210
00FD 0000 322 | ID675 DC *-* READ DCOM OF CHANGED CART U6G03220
00FE C0DE 323 | LD ID719 U6G03230
00FF 1890 324 | SRT 16 U6G03240
0100 C0DD 325 | LD ID720 U6G03250
0101 4400 00F2 326 | BSI L DZ000 TO DISK ROUTINE U6G03260
0103 7400 00EE 327 | MDX L $DBSY,0 READ COMPLETE U6G03270
0105 70FD 328 | MDX *-3 U6G03280
0106 4C80 00FDR 329 | BSC I ID675 RETURN U6G03290
ID- DISK READ
331 | *************************************************** U6G03310
332 | *READ DCOM FROM SYSTEMS CARTRIDGE * U6G03320
333 | *************************************************** U6G03330
334 | * U6G03340
0108 0000 335 | ID700 DC *-* ENTRY/EXIT U6G03350
0109 C0D3 336 | LD ID719 U6G03360
010A 1890 337 | SRT 16 U6G03370
010B C0D2 338 | LD ID720 U6G03380
010C 4400 00F2 339 | BSI L DZ000 U6G03390
010E 7400 00EE 340 | MDX L $DBSY,0 U6G03400
0110 70FD 341 | MDX *-3 U6G03410
0111 4C80 0108R 342 | BSC I ID700 RETURN U6G03420
343 | *************************************************** U6G03430
344 | * DISK ERROR ROUTINE * U6G03440
345 | *************************************************** U6G03450
346 | * U6G03460
0113 0000 347 | ID750 DC *-* ENTRY/EXIT U6G03470
0114 0305*35D9 348 | CALL CALPR PRINT ERROR MESSAGE U6G03480
0116 011BR 349 | DC ID790 U6G03490
0117 0001 350 | DC 1 U6G03500
0118 6038 351 | EXIT ERROR EXIT U6G03510
352 | * U6G03520
011A 353 | BSS E 1 U6G03530
011B 000F 354 | ID790 DC ID791-ID790 WD CNT U6G03540
011C C4C9 E2D2 40C5 D9D9 355 | EBC .DISK ERROR JOB TERMINATED. U6G03550
D6D9 4040 4040 D1D6 |
C240 E3C5 D9D4 C9D5 |
C1E3 C5C4 |
012A 4040 356 | ID791 DC /4040 U6G03560
357 | * U6G03570
ID- CONSTANT AND WORKING STORAGE
359 | *************************************************** U6G03590
360 | * CONSTANTS AND WORKING STORAGE * U6G03600
361 | *************************************************** U6G03610
012C 362 | ID970 BSS E 1 U6G03620
012D 0005 363 | ID971 DC /0005 DISK COUNTER U6G03630
012E 0140 364 | ID972 DC 320 DISK WD CNT U6G03640
012F 0000 365 | ID973 DC /0000 MODIFIED I/O AREA CODE U6G03650
0130 1000 366 | ID974 DC /1000 I/O CODE MODIFIER U6G03660
0131 0001 367 | ID975 DC /0001 U6G03670
0132 0000 368 | ID976 DC *-* U6G03680
0133 369 | ID977 BSS 1 U6G03690
0134 C3D6 D4D7 D3C5 E3C5 370 | ID978 EBC .COMPLETE. U6G03700
371 | * U6G03710
0138 0008 372 | ID930 DC /0008 CNTER CONSTANT U6G03720
0139 0004 373 | ID931 DC /0004 U6G03730
013A 0040 374 | ID932 DC /0040 BLANK TEST MASK U6G03740
375 | * U6G03750
376 | * U6G03760
013C 377 | BSS E 0 BINARY TABLE U6G03770
013C 0000 378 | ID920 DC *-* SPACER U6G03780
013D 0000 379 | ID921 DC *-* FROM-TO COUNT U6G03790
013E 0000 380 | ID922 DC *-* U6G03800
013F 0000 381 | DC *-* U6G03810
0140 0000 382 | DC *-* U6G03820
0141 0000 383 | DC *-* U6G03830
0142 0000 384 | DC *-* U6G03840
0143 0000 385 | DC *-* U6G03850
0144 0000 386 | DC *-* U6G03860
0145 0000 387 | DC *-* U6G03870
388 | * U6G03880
0146 389 | BSS E 1 U6G03890
0147 000F 390 | ID933 DC ID936-ID933 WD CNT U6G03900
0148 4040 4040 391 | ID934 EBC . . U6G03910
014A 4040 4040 4040 392 | EBC . . U6G03920
014D 4040 4040 393 | EBC . . U6G03930
014F 4040 4040 4040 394 | EBC . . U6G03940
0152 D5D6 E340 C4D6 D5C5 395 | ID935 EBC .NOT DONE. U6G03950
0156 0040 396 | ID936 DC /0040 U6G03960
0157 000F 397 | ID937 DC ID938-ID937 WD CNT U6G03970
0158 4040 4040 398 | EBC . . U6G03980
015A 4040 4040 4040 399 | EBC . . U6G03990
015D 4040 4040 400 | EBC . . U6G04000
015F 4040 4040 4040 401 | EBC . . U6G04010
0162 D5D6 E340 C4D6 D5C5 402 | EBC .NOT DONE. U6G04020
0166 0040 403 | ID938 DC /0040 U6G04030
0167 000F 404 | ID939 DC ID940-ID939 WD CNT U6G04040
0168 4040 4040 405 | EBC . . U6G04050
016A 4040 4040 4040 406 | EBC . . U6G04060
016D 4040 4040 407 | EBC . . U6G04070
016F 4040 4040 4040 408 | EBC . . U6G04080
0172 D5D6 E340 C4D6 D5C5 409 | EBC .NOT DONE. U6G04090
0176 0040 410 | ID940 DC /0040 U6G04100
0177 000F 411 | ID94A DC ID941-ID94A WD CNT U6G04110
0178 4040 4040 412 | EBC . . U6G04120
017A 4040 4040 4040 413 | EBC . . U6G04130
017D 4040 4040 414 | EBC . . U6G04140
017F 4040 4040 4040 415 | EBC . . U6G04150
0182 D5D6 E340 C4D6 D5C5 416 | EBC .NOT DONE. U6G04160
0186 0040 417 | ID941 DC /0040 U6G04170
418 | *************************************************** U6G04180
419 | * HEADING LINE * U6G04190
420 | *************************************************** U6G04200
0187 0008 421 | ID942 DC ID943-ID942 U6G04210
0188 C6D9 D6D4 422 | EBC .FROM. U6G04220
018A 4040 4040 4040 423 | EBC . . U6G04230
018D 40E3 D640 424 | EBC . TO . U6G04240
018F 0040 425 | ID943 DC /0040 U6G04250
0190 0000 426 | ID945 DC *-* TEST CNT FOR NO OF ITEMS U6G04260
427 | * U6G04270
0191 0002 428 | ID998 DC /0002 U6G04280
0192 0000 429 | ID999 DC /0000 ERROR FLAG WORD U6G04290
0194 430 | BSS E 0 U6G04300
0194 0140 431 | ID900 DC /0140 U6G04310
0195 0001 432 | DC /0001 U6G04320
0196 433 | ID902 BSS 320 DISK I/O AREA U6G04330
02D6 0198R 434 | ID927 DC ID902+2 BUFFER ADDRESS U6G04340
02D7 7002 435 | ID928 DC /7002 INPUT FUNCTION CODE U6G04350
02D8 0197R 436 | DC ID902+1 ADDRESS OF INPUT AREA U6G04360
019BR 437 | ID907 EQU ID902+5 FIRST NO OF FROM FIELD U6G04370
019CR 438 | ID908 EQU ID902+6 2ND NO U6G04380
01CDR 439 | ID90I EQU ID902+55 U6G04390
02DA 440 | ID950 BSS E 322 U6G04400
441 | *************************************************** U6G04410
041C 0000 442 | DC *-* U6G04420
041D 443 | END ID001 U6G04430
There were no errors in this assembly
Program transfer address = 0001
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$ACDE 009F 60 203
$DBSY 00EE 61 217 254 307 327 340
$I410 00D6 63 125
$IREQ 002C 62 99 102 112 128
DZ000 00F2 59 216 253 306 326 339
ID000 0000R 72 73 75
ID001 0001R 73 443
ID200 000DR 98 81 105
ID225 0018R 110 91 116 278 291
ID250 0021R 124 104 113 134 271
ID275 0024R 128 115
ID290 0027R 133 100 111
ID291 0028R 134 101
ID292 0029R 135 103
ID300 002AR 144 160 277
ID400 0049R 166 90 153 180 290
ID410 0054R 175 171
ID510 005AR 194 87 201 293
ID511 005FR 198 275
ID512 0064R 203 199
ID513 0099R 234 244
ID514 00ADR 245 233
ID515 00D1R 271 204 225 229
ID519 00D8R 277 221
ID550 00E3R 290 273
ID600 00E9R 302 266 309 319
ID650 00F4R 316 258 320
ID675 00FDR 322 263 329
ID700 0108R 335 195 269 342
ID719 00DDR 280 303 323 336
ID720 00DER 281 215 325 338
ID721 00DFR 282 252 305
ID722 00E0R 283 213 250
ID723 00E1R 284 257 259
ID724 00E2R 285 261
ID750 0113R 347
ID790 011BR 354 155 156 158 349
ID791 012AR 356 154 354
ID900 0194R 431 210 256 260 262 265 268 280 318
ID902 0196R 433 434 436 437 438 439
ID907 019BR 437
ID908 019CR 438
ID90I 01CDR 439 178 220 232
ID920 013CR 378 72
ID921 013DR 379 170 228
ID922 013ER 380 230
ID927 02D6R 434
ID928 02D7R 435
ID930 0138R 372 223
ID931 0139R 373
ID932 013AR 374
ID933 0147R 390 174
ID934 0148R 391
ID935 0152R 395 146 148 150 152 236 238 240 242
ID936 0156R 396 390
ID937 0157R 397
ID938 0166R 403 397
ID939 0167R 404
ID940 0176R 410 404
ID941 0186R 417 411
ID942 0187R 421 168
ID943 018FR 425 421
ID945 0190R 426
ID94A 0177R 411
ID950 02DAR 440 212 219 227 231 283
ID970 012CR 362
ID971 012DR 363 198
ID972 012ER 364 211 264
ID973 012FR 365 206 208
ID974 0130R 366 207
ID975 0131R 367 209 267 317
ID976 0132R 368 222 224
ID977 0133R 369
ID978 0134R 370 235 237 239 241
ID979 0045R 161 145 147 149 151
ID998 0191R 428
ID999 0192R 429