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