ibm:ibm1130-lib:dmsr2v12:u6copy_lst
U6COPY
| Table Of Contents |
|---|
|
- u6copy.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020 Source File: \u6copy.asm COPY- DISKCOPY, PROLOGUE 2 | *************************************************** U6B00030 3 | * * U6B00040 4 | * STATUS - VERSION 2, MODIFICATION LEVEL 11 * U6B00050 5 | * * U6B00060 6 | * FUNCTION/OPERATION- * U6B00070 7 | * COPY COPIES THE CONTENTS OF 1 OR 2 DISK * U6B00080 8 | * CARTRIDGE(S) ON TO FROM 1 TO 4 DISK CARTRIDGE* U6B00090 9 | * (S). THIS IS SPECIFIED BY USING THE *ID * U6B00100 10 | * RECORD. THE CARTRIDGE SPECIFIED IN THE FROM * U6B00110 11 | * FIELD OF THE *ID RECORD IS COPY TO THE DISK * U6B00120 12 | * CARTRIDGE SPECIFIED IN THE TO FIELD OF THE * U6B00130 13 | * *ID RECORD. THESE FIELDS CONTAIN THE * U6B00140 14 | * CARTRIDGE ID NUMBERS. * U6B00150 15 | * * U6B00160 16 | * THE *ID RECORD IS READ ON THE PRINCIPAL INPUT* U6B00170 17 | * DEVICE BY THE SUBROUTINE RDREC. RDREC ALSO * U6B00180 18 | * CHECKS FOR THE NUMBER OF FROM-TO FIELDS * U6B00190 19 | * CHECKS FOR VALID NUMBERS AND CONVERTS THESE * U6B00200 20 | * NUMBER TO BINARY AND PACKED EBCDIC. THESE * U6B00210 21 | * CONVERTED NUMBERS ARE STORED IN TABLES. THE * U6B00220 22 | * BINARY TABLE IS USED TO FIND THE SPECIFIED * U6B00230 23 | * CARTRIDGES IN THE SYSTEM. THE PACKED EBCDIC * U6B00240 24 | * TABLE IS USED FOR PRINTING OUTPUT. * U6B00250 25 | * * U6B00260 26 | * THE DCOM OF THE SYSTEM CARTRIDGE IS READ * U6B00270 27 | * AND ALTERED TO REFLECT THE CHANGES MADE BY * U6B00280 28 | * COPY. RESIDENT MONITOR IS ALSO ALTERED. * U6B00290 29 | * COPY CHECKS THE ID OF EACH CARTRIDGE. * U6B00300 30 | * * U6B00310 31 | * FOR THE DEFECTIVE CYLINDER ADDRS AND ID. * U6B00320 32 | * THAT IS ALL REFERENCE IN DCOM AND RESIDENT * U6B00330 33 | * MONITOR ARE DELETED. * U6B00340 34 | * * U6B00350 35 | * THE KEYBOARD IS LOCKED DURING THE COPING OF * U6B00360 36 | * A CARTRIDGE. IT IS RESTORED AND TEST AFTER * U6B00370 37 | * EACH COPY PROCEDURE. * U6B00380 38 | * * U6B00390 39 | * ENTRY POINTS- * U6B00400 40 | * CY010-BEGINNING OF PROGRAM. * U6B00410 41 | * INPUT- * U6B00420 42 | * * *ID RECORD * U6B00430 43 | * * ALL DISK CARTRIDGE SPECIFIED IN *ID RECORD * U6B00440 44 | * OUTPUT * U6B00450 45 | * * SIGN-OFF MESSAGE * U6B00460 46 | * * ALL TO CARTRIDGES SPECIFIED IN *ID RECORD * U6B00470 47 | * * U6B00480 48 | * * U6B00490 49 | * EXTERNAL REFERENCES- * U6B00500 50 | * *RDREC * U6B00510 51 | * *DZ000 * U6B00520 52 | * *$DBSY * U6B00530 53 | * *#CIDN * U6B00540 54 | * *$IREQ * U6B00550 55 | * *$DCYL * U6B00560 56 | * *$I410 * U6B00570 57 | * *DISKN * U6B00580 58 | * EXITS * U6B00590 59 | * *NORMAL- CALL EXIT WHEN JOB COMPLETE * U6B00600 60 | * TABLES/WORK AREA- * U6B00610 61 | * *CY900-CY912 BINARY TABLE * U6B00620 62 | * *CY916 * U6B00630 63 | * *CY917 * U6B00640 64 | * *CY918 * U6B00650 65 | * *CY919 * U6B00660 66 | * *CY920 * U6B00670 67 | * *CY924 * U6B00680 68 | * *CY925 * U6B00690 69 | * *CY930-CY938- PRINT TABLE * U6B00700 70 | * *CY980 I/O * U6B00710 71 | * *CY990 I/O * U6B00720 72 | * ATTRIBUTES-RELOCATABLE * U6B00730 73 | * NOTES-PROGRAM REVISED IN MOD 2 * U6B00740 74 | *************************************************** U6B00750 COPY- SYSTEM EQUATES 0005 76 | $CIBA EQU /5 ADDR OF CIB ON MASTER CARTRIDGE U6B00770 0006 77 | $CH12 EQU /6 CHANNEL 12 INDR,NON-ZERO=CHAN 12 U6B00780 0007 78 | $COMN EQU /7 WORD COUNT OF COMMON U6B00790 000E 79 | $CORE EQU /E CORE SIZE,/1000=4K,/2000=8K,ETC) U6B00800 000F 80 | $CTSW EQU /F MCR SW,NON-ZERO=// RECD TRAPPED U6B00810 0010 81 | $DADR EQU /10 SCTR ADDR OF PROG TO BE FETCHED U6B00820 0011 82 | $DABL EQU /11 IOCC FOR SCA RESET (ODD ADDR) U6B00830 0012 83 | $DREQ EQU /12 INDR FOR REQUESTED V. DISK I/O U6B00840 0013 84 | $IBSY EQU /13 PRINC I/O BUSY INDR,NON-ZERO=BSY U6B00850 0014 85 | $HASH EQU /14 WORK AREA FOR MONITOR PROGRAMS U6B00860 0014 86 | $LKNM EQU $HASH SYSTEM WORK AREA U6B00870 0016 87 | $RMSW EQU $HASH+2 EXIT-LINK-DUMP SWITCH -1,0,+1 U6B00880 0017 88 | $CXR1 EQU $HASH+3 CONTENTS OF XR1 ($DUMP ENTRY) U6B00890 0018 89 | $CLSW EQU $HASH+4 CIL SW,-1=FETCH DISK I/O ONLY U6B00900 0019 90 | $DMPF EQU $HASH+5 DUMP FORMAT ($DUMP ENTRY) U6B00910 001A 91 | $ACEX EQU $HASH+6 ACC,EXT ($DUMP ENTRY) U6B00920 0028 92 | $PRET EQU /28 ADDR PREOPERATIVE ERROR TRAP U6B00930 002C 93 | $IREQ EQU /2C ADDR OF INT REQUEST SUBROUTINE U6B00940 002D 94 | $ULET EQU /2D ADDR OF LET, LOGICAL DRIVE 0 U6B00950 0032 95 | $IOCT EQU /32 IOCS CTR,0=NO I/O IN PROGRESS U6B00960 0033 96 | $LAST EQU /33 LAST CD INDR,NON-ZERO=LAST CARD U6B00970 0034 97 | $NDUP EQU /34 INHIBIT DUP SW,NON-ZERO=NO DUP U6B00980 0035 98 | $NXEQ EQU /35 INHIBIT EXEC SW,NON-ZERO=NO EXEQ U6B00990 0036 99 | $PBSY EQU /36 PRINC PTR BUSY INDR,NON-ZERO=BSY U6B01000 0037 100 | $PGCT EQU /37 PAGE NO. FOR PAGE HEADINGS U6B01010 0038 101 | $EXIT EQU /38 ADDR CALL EXIT ENTRY POINT U6B01020 0039 102 | $LINK EQU /39 ADDR CALL LINK ENTRY POINT U6B01030 003C 103 | $S900 EQU /3C U6B01040 003E 104 | $S910 EQU /3E U6B01050 003F 105 | $DUMP EQU /3F ADDR CALL DUMP ENTRY POINT U6B01060 004D 106 | $S000 EQU /4D U6B01070 004E 107 | $S100 EQU /4E U6B01080 0059 108 | $S150 EQU /59 U6B01090 005A 109 | $CILA EQU $S150+1 ADDR OF END OF DK I/O - 3 U6B01100 0076 110 | $DZ1N EQU /76 DISKZ/1/N INDICATOR (-1,0,+1) U6B01110 0077 111 | $DCDE EQU /77 DRIVE CODE FOR CORE LOAD BLDR U6B01120 0078 112 | $PHSE EQU /78 NO. OF PHASE CURRENTLY IN CORE U6B01130 0079 113 | $UFIO EQU /79 ARM POSITION IN UNFORMATTED AREA U6B01140 007A 114 | $WSDR EQU /7A WORKING STORAGE DRIVE CODE U6B01150 007B 115 | $WRD1 EQU /7B LOAD ADDR FOR CURR USER CORE LD U6B01160 007C 116 | $KCSW EQU /7C INHIBIT INPUT/PRINT OVERLAP SW U6B01170 007D 117 | $UFDR EQU /7D UNFORMATTED I/O DRIVE CODE U6B01180 007E 118 | $CPTR EQU /7E CHANNEL 12 INDICATOR FOR CP U6B01190 007F 119 | $1132 EQU /7F CHANNEL 12 INDICATOR FOR 1132 U6B01200 0080 120 | $1403 EQU /80 CHANNEL 12 INDICATOR FOR 1403 U6B01210 0081 121 | $PST1 EQU /81 ADDR POSTOP ERROR TRAP,LEVEL 1 U6B01220 0085 122 | $PST2 EQU /85 ADDR POSTOP ERROR TRAP,LEVEL 2 U6B01230 0089 123 | $PST3 EQU /89 ADDR POSTOP ERROR TRAP,LEVEL 3 U6B01240 008D 124 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP,LEVEL 4 U6B01250 0091 125 | $STOP EQU /91 ADDR PROGRAM STOP KEY TRAP U6B01260 0095 126 | $FPAD EQU /95 FILE PROTECT ADDR (ADJ),LOG DR 0 U6B01270 009A 127 | $CYLN EQU /9A ARM POSITION FOR LOGICAL DRIVE 0 U6B01280 009F 128 | $ACDE EQU /9F AREA CODE FOR LOGICAL DRIVE 0 U6B01290 00A4 129 | $DCYL EQU /A4 1ST DEF CYL ADDR, LOGICAL DR 0 U6B01300 00B3 130 | $I200 EQU /B3 ENTRY POINT TO ILS FOR LEVEL 2 U6B01310 00B8 131 | $I205 EQU /B8 U6B01320 00B9 132 | $IBT2 EQU $I205+1 ADDR OF IBT FOR LEVEL 2 U6B01330 00BA 133 | $I210 EQU /BA U6B01340 00C2 134 | $I290 EQU /C2 U6B01350 00C4 135 | $I400 EQU /C4 ENTRY POINT TO ILS FOR LEVEL 4 U6B01360 00CF 136 | $I403 EQU /CF U6B01370 00D3 137 | $I405 EQU /D3 U6B01380 00D4 138 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 U6B01390 00D6 139 | $I410 EQU /D6 U6B01400 00DE 140 | $I415 EQU /DE U6B01410 00E8 141 | $I490 EQU /E8 U6B01420 00E9 142 | $I491 EQU /E9 U6B01430 00EA 143 | $I492 EQU /EA U6B01440 00EC 144 | $I494 EQU /EC U6B01450 00ED 145 | $I495 EQU /ED U6B01460 00EE 146 | $DBSY EQU /EE DISK BUSY INDR,NON-ZERO=DK BUSY U6B01470 00EF 147 | $SNLT EQU $DBSY+1 SENSE LIGHT INDICATOR U6B01480 01CB 148 | $BYSW EQU /1CB BYPASS SW,NOP IF FETCHING SOCAL U6B01490 00F2 149 | DZ000 EQU /0F2 DISKZ ENTRY POINT U6B01500 00F0 150 | $PAUS EQU DZ000-2 PAUSE INTERRUPT INDICATOR U6B01510 00F1 151 | $RWCZ EQU DZ000-1 READ/WRITE SWITCH (CARDZ) U6B01520 01E0 152 | $ZEND EQU /1E0 ADDR 1+LAST WORD OF DISKZ U6B01530 0258 153 | $1END EQU 600 ADDR 1+LAST WORD OF DISK1 U6B01540 0370 154 | $NEND EQU /370 ADDR OF END OF DISKN + 1 U6B01550 0004 155 | #NAME EQU 4 NAME OF PROGRAM U6B01560 0006 156 | #DBCT EQU 6 DISK BLOCK COUNT OF PROGRAM U6B01570 0007 157 | #WSSW EQU 7 WS SW,NON-ZERO=DSF PROG IN WS U6B01580 0008 158 | #SYSC EQU 8 SYS/NON-SYS CARTRIDGE INDR U6B01590 0009 159 | #JBSW EQU 9 JOB SW,NON-ZERO='T' MODE U6B01600 000A 160 | #CBSW EQU 10 CLB SW,NON-ZERO=STORECI U6B01610 000B 161 | #LCNT EQU 11 NO. OF LOCALS U6B01620 000C 162 | #MPSW EQU 12 MAP SW,NON-ZERO=CORE MAP DESIRED U6B01630 000D 163 | #MDF1 EQU 13 NO. DUP CONTROL RECDS (MODIF) U6B01640 000E 164 | #MDF2 EQU 14 ADDR OF MODIF BUFFER U6B01650 000F 165 | #NCNT EQU 15 NO. OF NOCALS U6B01660 0010 166 | #ENTY EQU 16 RELATIVE ENTRY ADDR OF PROGRAM U6B01670 0012 167 | #TODR EQU 18 'TO' WORKING STORAGE DR CODE U6B01680 0013 168 | #FRDR EQU 19 'FROM' WORKING STORAGE DR CODE U6B01690 0014 169 | #FHOL EQU 20 ADDR LARGEST HOLE IN FIXED AREA U6B01700 0015 170 | #FSZE EQU 21 BLK CNT LARGEST HOLE IN FXA U6B01710 0016 171 | #UHOL EQU 22 ADDR LARGEST HOLE IN USER AREA U6B01720 0017 172 | #USZE EQU 23 BLK CNT LARGEST HOLE IN UA U6B01730 0018 173 | #DCSW EQU 24 DUP CALL SW. NON-ZERO=DUP CALL U6B01740 0023 174 | #ANDU EQU 35 1+BLK ADDR END UA (ADJ),LOG DR 0 U6B01750 0028 175 | #BNDU EQU 40 1+BLK ADDR END UA (BASE)LOG DR 0 U6B01760 002D 176 | #FPAD EQU 45 FILE PROTECT ADDR (BASE)LOG DR 0 U6B01770 0032 177 | #PCID EQU 50 CARTRIDGE ID, PHYSICAL DR 0 U6B01780 0037 178 | #CIDN EQU 55 CARTRIDGE ID FOR LOGICAL DRIVE 0 U6B01790 003C 179 | #CIBA EQU 60 ADDR OF CIB FOR LOGICAL DRIVE 0 U6B01800 0041 180 | #SCRA EQU 65 SCRA, LOGICAL DR 0 U6B01810 0046 181 | #FMAT EQU 70 FORMAT OF PROG IN WS,LOG DRIVE 0 U6B01820 004B 182 | #FLET EQU 75 ADDR OF FLET, LOGICAL DRIVE 0 U6B01830 0050 183 | #ULET EQU 80 ADDR OF LET, LOGICAL DRIVE 0 U6B01840 0055 184 | #WSCT EQU 85 BLK CNT OF PROG IN WS,LOG DR 0 U6B01850 005A 185 | #CSHN EQU 90 SCTR CNT CUSHION, LOGICAL DR 0 U6B01860 0000 186 | #IDAD EQU 0 SCTR WITH CART ID,DEF CYL ADDR U6B01870 0001 187 | #DCOM EQU 1 SCTR CONTAINING DCOM U6B01880 0002 188 | #RIAD EQU 2 SCTR CONTAINING RESIDENT IMAGE U6B01890 0003 189 | #SLET EQU 3 SCTR CONTAINING SLET U6B01900 0005 190 | #STRT EQU 5 SCTR CONTAINING COLD START PROG U6B01910 0006 191 | #RTBL EQU 6 SCTR CONTAINING RELOAD TABLE U6B01920 0007 192 | #HDNG EQU 7 SCTR CONTAINING PAGE HEADING U6B01930 DISK COPY- MAINLINE 194 | *************************************************** U6B01950 195 | * USE RDREC SUBROUTINE TO READ *ID RECORD AND * U6B01960 196 | * SETUP FROM-TO TABLES. * U6B01970 197 | *************************************************** U6B01980 198 | * U6B01990 0000 0172R 199 | CY000 DC CY924 TABLE ADDRESS U6B02000 0001 C0FE 200 | CY010 LD CY000 U6B02010 0002 1911*9143 201 | CALL RDREC U6B02020 0004 D0FB 202 | STO CY000 STORE SYSTEM SUBR ENT POINT U6B02030 0005 6600 0147R 203 | LDX L2 C U6B02040 0007 6500 0147R 204 | LDX L1 C U6B02050 0009 C22C 205 | LD 2 CY925-C FETCH FROM-TO COUNT U6B02060 000A 8202 206 | A 2 CY801-C U6B02070 000B D225 207 | STO 2 CY916-C U6B02080 000C C22D 208 | CY020 LD 2 CY926-C FETCH NO. U6B02090 000D D115 209 | STO 1 CY900-C STORE IN TABLE U6B02100 000E 4830 210 | BSC -Z SKIP IF INVALID U6B02110 000F 7002 211 | MDX CY025 U6B02120 0010 C007 212 | LD CY850 SET ERROR FLAG U6B02130 0011 D116 213 | STO 1 CY901-C U6B02140 0012 7102 214 | CY025 MDX 1 2 U6B02150 0013 7201 215 | MDX 2 1 U6B02160 0014 74FF 0019R 216 | MDX L CY851,-1 LAST FROM-TO FIELD U6B02170 0016 70F5 217 | MDX CY020 NEXT NO. U6B02180 218 | * U6B02190 0017 7002 219 | MDX CY100 ALL NOS. STORED U6B02200 220 | * U6B02210 0018 0001 221 | CY850 DC 1 ERROR CODE U6B02220 0019 0008 222 | CY851 DC 8 ENT COUNTER U6B02230 223 | * U6B02240 224 | *************************************************** U6B02250 225 | * FETCH DCOM * U6B02260 226 | *************************************************** U6B02270 227 | * U6B02280 001A 6600 0147R 228 | CY100 LDX L2 C U6B02290 001C C209 229 | LD 2 CY812-C FETCH I/O ADDRESS U6B02300 001D 1890 230 | SRT 16 U6B02310 001E C20A 231 | LD 2 CY813-C FETCH FUNCTION CODE U6B02320 001F 4400 00F2 232 | BSI L DZ000 READ DCOM U6B02330 0021 7400 00EE 233 | CY105 MDX L $DBSY,0 SKIP IF READ COMPLETED U6B02340 0023 70FD 234 | MDX CY105 U6B02350 0024 4400 06E0R 235 | BSI L CY600 TO SAVE CIDN ENTRIES U6B02360 236 | * U6B02370 0026 6600 0147R 237 | LDX L2 C U6B02380 0028 74FF 016CR 238 | CY304 MDX L CY916,-1 LAST CART COPIED TEST U6B02390 002A 7009 239 | MDX CY305 U6B02400 002B 4400 00FCR 240 | BSI L CY350 U6B02405 002D 7400 0036 241 | CY303 MDX L $PBSY,0 TEST IF PRINTER BUSY 2-8 U6B02410 002F 70FD 242 | MDX CY303 IF BUSY TEST AGAIN 2-8 U6B02411 0030 22A2*2917 243 | CALL SYSUP UPDATE DCOM 2-6 U6B02412 0032 06FCR 244 | DC KCIDN 2-6 U6B02414 0033 6038 245 | EXIT U6B02420 246 | * U6B02430 0034 6105 247 | CY305 LDX 1 +5 U6B02440 0035 C216 248 | LD 2 CY901-C FETCH ID ERROR WD U6B02450 0036 9400 0149R 249 | S L CY801 VALID ID U6B02460 0038 4818 250 | BSC +- U6B02470 0039 7010 251 | MDX CY308 INVALID ID U6B02480 252 | * U6B02490 003A C218 253 | LD 2 CY903-C FETCH TO ID ERROR WD U6B02500 003B 9400 0149R 254 | S L CY801 U6B02510 003D 4818 255 | BSC +- U6B02520 003E 7024 256 | MDX CY309 INVALID TO ID U6B02530 257 | * U6B02540 003F C215 258 | CY307 LD 2 CY900-C CART AVAILABLE TEST U6B02550 0040 9500 06F5R 259 | S L1 SCIDN-1 U6B02560 0042 4C18 004BR 260 | BSC L CY310,+- CART IS AVAILABLE U6B02570 0044 71FF 261 | MDX 1 -1 U6B02580 0045 70F9 262 | MDX CY307 CHECK NEXT DRIVE U6B02590 263 | * U6B02600 0046 C400 014AR 264 | LD L CY802 SET NOT AVAIL FLAG U6B02610 0048 D216 265 | STO 2 CY901-C *IN ERROR WORD U6B02620 0049 7204 266 | MDX 2 4 U6B02630 004A 70DD 267 | CY308 MDX CY304 U6B02640 268 | *************************************************** U6B02650 269 | * COMPUTE LOGICAL DRIVE NO. FOR FROM CARTRIDGE * U6B02660 270 | *************************************************** U6B02670 004B 6D00 016DR 271 | CY310 STX L1 CY917 U6B02680 004D C400 016DR 272 | LD L CY917 U6B02690 004F 9400 0149R 273 | S L CY801 U6B02700 0051 100C 274 | SLA 12 U6B02710 0052 EC00 0148R 275 | OR L CY800 U6B02720 0054 D400 016ER 276 | STO L CY918 U6B02730 0056 6105 277 | LDX 1 +5 U6B02740 0057 D216 278 | STO 2 CY901-C U6B02750 0058 7202 279 | MDX 2 +2 INCR TO TO FIELD U6B02760 280 | *************************************************** U6B02770 281 | * CHECK FOR AVAILABLE TO CARTRIDGE * U6B02780 282 | *************************************************** U6B02790 0059 C215 283 | CY311 LD 2 CY900-C U6B02800 005A 9500 06F5R 284 | S L1 SCIDN-1 U6B02810 005C 4C18 0065R 285 | BSC L CY312,+- CART IS AVAILABLE U6B02820 005E 71FF 286 | MDX 1 -1 U6B02830 005F 70F9 287 | MDX CY311 CHECK NEXT DRIVE U6B02840 288 | * U6B02850 0060 C400 014AR 289 | LD L CY802 CART. NOT AVAILABLE U6B02860 0062 D216 290 | STO 2 CY901-C FLAG NOT AVAILABLE U6B02870 0063 7202 291 | CY309 MDX 2 2 U6B02880 0064 70C3 292 | MDX CY304 TEST NEXT ENTRY U6B02890 293 | * U6B02900 294 | *************************************************** U6B02910 295 | * COMPUTE LOGICAL DRIVE NO. FOR TO CARTRIDGE * U6B02920 296 | *************************************************** U6B02930 297 | * U6B02940 0065 6D00 016DR 298 | CY312 STX L1 CY917 U6B02950 0067 C215 299 | LD 2 CY900-C SAVE TO ID U6B02960 0068 D400 01C2R 300 | STO L CY971 U6B02970 006A C400 016DR 301 | LD L CY917 U6B02980 006C 9400 0149R 302 | S L CY801 SUB 1 U6B02990 006E 100C 303 | SLA 12 U6B03000 006F D400 016FR 304 | STO L CY919 U6B03010 0071 D216 305 | STO 2 CY901-C U6B03020 306 | * U6B03030 307 | *************************************************** U6B03040 308 | * SETUP FOR COPY PROCESSING U6B03050 309 | *************************************************** U6B03060 0072 C400 002C 310 | LD L $IREQ SAVE KB ENTRY POINT U6B03070 0074 D400 01C1R 311 | STO L CY953 U6B03080 0076 C400 01C0R 312 | LD L CY952 SET KB INTERRUPT U6B03090 0078 D400 002C 313 | STO L $IREQ U6B03100 007A C400 0148R 314 | LD L CY800 ZERO ENTRY POINT U6B03110 007C D400 013FR 315 | STO L CY500 U6B03120 316 | * 2-3 U6B03122 007E C400 016FR 317 | LD L CY919 FETCH SCTR ADDR OF 'TO' 2-3 U6B03124 0080 1890 318 | SRT 16 *CART AND SHIFT TO EXT 2-3 U6B03126 0081 C400 014DR 319 | LD L CY809 FETCH ONE SECTORWD COUNT2-3 U6B03130 0083 DC00 01C4R 320 | STD L CY990 STORE TO I/O AREA 2-3 U6B03134 0085 4400 06C7R 321 | BSI L CY400 BR TO FETCH 'TO' ID SECT2-3 U6B03136 0087 C400 01CDR 322 | LD L CY990+9 FETCH STATUS WORD (WD 7)2-3 U6B03138 0089 8400 014AR 323 | A L CY802 TEST FOR AND BR IF NOT 2-3 U6B03140 008B 4420 0703R 324 | BSI L CY700,Z *A FRESHLY INITIALIZCART2-3 U6B03142 325 | * 2-3 U6B03144 008D C400 0702R 326 | LD L CY680 SET I/O BUFFER WD COUNT 2-3 U6B03146 008F D400 01C4R 327 | STO L CY990 *TO ONE CYLINDER 2-3 U6B03148 0091 C400 016ER 328 | LD L CY918 U6B03150 0093 D400 01C5R 329 | STO L CY991 U6B03160 0095 4400 06C7R 330 | BSI L CY400 TO DISK READ U6B03170 0097 693B 331 | STX 1 CY322+1 SAVE XR 1 U6B03180 332 | * 2-3 U6B03185 333 | * FIND THE DEFECTIVE CYLINDER ADDRESSES OF 'TO' U6B03190 334 | * CARTRIDGE IN THE RESIDENT MONITOR U6B03200 335 | * U6B03210 0098 C400 016FR 336 | LD L CY919 DRIVE NO. U6B03220 009A 180C 337 | SRA 12 U6B03230 009B A400 014BR 338 | M L CY803 MUL BY 3 U6B03240 009D 1090 339 | SLT 16 U6B03250 009E D001 340 | STO CY320+1 U6B03260 009F 6500 0000 341 | CY320 LDX L1 *-* U6B03270 00A1 C500 00A5 342 | LD L1 $DCYL+1 DEFECTIVE CYL ADDR U6B03280 00A3 1890 343 | SRT 16 *TO I/O AREA U6B03290 00A4 C500 00A4 344 | LD L1 $DCYL U6B03300 00A6 DC00 01C6R 345 | STD L CY991+1 U6B03310 00A8 C400 01CDR 346 | LD L CY991+8 2-3 U6B03311 00AA 9400 014AR 347 | S L CY802 2-4 U6B03312 00AC 4C28 00B2R 348 | BSC L CY318,Z+ BR IF SOURCE NON-SYST 2-4 U6B03313 00AE CC00 01C6R 349 | LDD L CY991+1 2-3 U6B03314 00B0 DC00 04E4R 350 | STD L CY990+640+160 DEF CYL SET UP IN RES U6B03320 00B2 C500 00A6 351 | CY318 LD L1 $DCYL+2 U6B03330 00B4 D400 01C8R 352 | STO L CY991+3 U6B03340 00B6 C400 01CDR 353 | LD L CY991+8 2-3 U6B03341 00B8 9400 014AR 354 | S L CY802 2-4 U6B03342 00BA 4C28 00C0R 355 | BSC L CY319,Z+ BR IF SOURCE NON-SYST 2-4 U6B03343 00BC C400 01C8R 356 | LD L CY991+3 2-3 U6B03344 00BE D400 04E6R 357 | STO L CY990+640+162 DEF CYL SET UP IN RES U6B03350 358 | *************************************************** U6B03360 359 | * STORE THE 'TO' CART ID IN THE CORRECT FIELD OF * U6B03370 360 | * DCOM U6B03380 361 | * U6B03390 00C0 61FB 362 | CY319 LDX 1 -5 2-4 U6B03400 00C1 C500 0342R 363 | CY321 LD L1 LCIDN+5 SEARCH CIDN FOR ID 2-4 U6B03410 00C3 9400 01C9R 364 | S L CY991+4 U6B03420 00C5 4C18 00CCR 365 | BSC L CY329,+- BR WHEN FOUND U6B03430 00C7 1010 366 | SLA 16 2-4 U6B03434 00C8 D500 0342R 367 | STO L1 LCIDN+5 2-4 U6B03436 00CA 7101 368 | MDX 1 1 2-4 U6B03440 00CB 70F5 369 | MDX CY321 U6B03450 370 | * U6B03460 00CC C400 01C2R 371 | CY329 LD L CY971 U6B03470 00CE D400 01C9R 372 | STO L CY991+4 U6B03480 00D0 D500 0342R 373 | STO L1 LCIDN+5 2-4 U6B03490 374 | * U6B03500 375 | * U6B03510 00D2 6500 0000 376 | CY322 LDX L1 *-* RESET XR U6B03520 00D4 C400 016FR 377 | LD L CY919 FETCH OUTPUT CART NO. U6B03530 00D6 D400 01C5R 378 | STO L CY991 U6B03540 00D8 4400 06D5R 379 | BSI L CY450 DISK WRITE U6B03550 380 | * U6B03560 00DA C400 014ER 381 | LD L CY810 RESET DISK READ-WRITE CNT U6B03570 00DC D400 0170R 382 | STO L CY920 U6B03580 00DE C400 016ER 383 | CY325 LD L CY918 INCR SECTOR ADDRESS U6B03590 00E0 806B 384 | A CY804 U6B03600 00E1 D400 016ER 385 | STO L CY918 U6B03610 00E3 D400 01C5R 386 | STO L CY991 U6B03620 00E5 4400 06C7R 387 | BSI L CY400 READ FROM CART. U6B03630 388 | * U6B03640 00E7 C400 016FR 389 | LD L CY919 INCR OUTPUT SECTOR ADD U6B03650 00E9 8062 390 | A CY804 U6B03660 00EA D400 016FR 391 | STO L CY919 U6B03670 00EC D400 01C5R 392 | STO L CY991 U6B03680 00EE 4400 06D5R 393 | BSI L CY450 WRITE DISK U6B03690 394 | * U6B03700 00F0 74FF 0170R 395 | MDX L CY920,-1 DECR READ-WRITE CNT SKP 0 U6B03710 00F2 70EB 396 | MDX CY325 READ NEXT CYL. U6B03720 00F3 C400 01C1R 397 | LD L CY953 RESTORE KB INTERRUPT U6B03730 00F5 D400 002C 398 | STO L $IREQ U6B03740 00F7 C047 399 | LD CY500 U6B03750 00F8 4820 400 | BSC Z SKIP IF NO KB INTRPT U6B03760 00F9 7048 401 | MDX CY501 SERVICE INTRPT U6B03770 402 | * U6B03780 00FA 4C00 0063R 403 | BSC L CY309 PROC NEXT 'FROM-TO'FIELD2-3 U6B03790 COPY- PRINT SUBROUTINE 405 | *************************************************** U6B03810 406 | * PRINT TABLE AND ERROR MESSAGES * U6B03820 407 | *************************************************** U6B03830 408 | * U6B03840 00FC 0000 409 | CY350 DC *-* U6B03850 00FD 6500 0147R 410 | LDX L1 C U6B03860 00FF 6600 0172R 411 | LDX L2 CY LD XR2 FOR PRINT TABLE U6B03870 0101 C201 412 | LD 2 CY925-CY U6B03880 0102 D400 016CR 413 | STO L CY916 U6B03890 0104 C116 414 | CY355 LD 1 CY901-C FETCH ERROR WORD U6B03900 0105 E918 415 | OR 1 CY903-C TO LABEL ERROR WORD U6B03910 0106 4804 416 | BSC E U6B03920 0107 700C 417 | MDX CY360 NUMBER ERROR U6B03930 418 | * U6B03940 0108 1801 419 | SRA 1 U6B03950 0109 4804 420 | BSC E U6B03960 010A 7012 421 | MDX CY365 CART NOT PRESENT U6B03970 422 | * U6B03980 010B C046 423 | LD CY814 FETCH COMPETE MESSAGE U6B03990 010C D216 424 | STO 2 CY940-CY CO U6B04000 010D C045 425 | LD CY814+1 U6B04010 010E D217 426 | STO 2 CY941-CY MP U6B04020 010F C044 427 | LD CY814+2 U6B04030 0110 D218 428 | STO 2 CY942-CY LE U6B04040 0111 C043 429 | LD CY814+3 U6B04050 0112 D219 430 | STO 2 CY943-CY TE U6B04060 0113 7011 431 | MDX CY370 TO PRINT U6B04070 432 | * U6B04080 0114 C045 433 | CY360 LD CY822 NO U6B04090 0115 D216 434 | STO 2 CY940-CY U6B04100 0116 C044 435 | LD CY822+1 . U6B04110 0117 D217 436 | STO 2 CY941-CY U6B04120 0118 C043 437 | LD CY822+2 ER U6B04130 0119 D218 438 | STO 2 CY942-CY U6B04140 011A C042 439 | LD CY822+3 R U6B04150 011B D219 440 | STO 2 CY943-CY U6B04160 011C 7008 441 | MDX CY370 TO PRINT U6B04170 442 | * U6B04180 443 | *************************************************** U6B04190 444 | * MOVE 'NOT PRES' TO PRINT FOR UNAVAILABLE CARTS. * U6B04200 445 | *************************************************** U6B04210 446 | * U6B04220 011D C038 447 | CY365 LD CY818 NO U6B04230 011E D216 448 | STO 2 CY940-CY U6B04240 011F C037 449 | LD CY818+1 T U6B04250 0120 D217 450 | STO 2 CY941-CY U6B04260 0121 C036 451 | LD CY818+2 PR U6B04270 0122 D218 452 | STO 2 CY942-CY U6B04280 0123 C035 453 | LD CY818+3 ES U6B04290 0124 D219 454 | STO 2 CY943-CY U6B04300 0125 4400 012ER 455 | CY370 BSI L CY380 TO PRINT U6B04310 0127 7104 456 | MDX 1 4 U6B04320 0128 7210 457 | MDX 2 16 U6B04330 0129 74FF 016CR 458 | MDX L CY916,-1 SKIP IF LAST LINE PRINTED U6B04340 012B 70D8 459 | MDX CY355 U6B04350 460 | * U6B04360 012C 4C80 00FCR 461 | BSC I CY350 U6B04370 462 | * U6B04380 463 | *************************************************** U6B04390 464 | * PRINT A LIN OF SIGN OFF MESSAGE * U6B04400 465 | *************************************************** U6B04410 012E 0000 466 | CY380 DC *-* ENTRY U6B04420 012F C400 01BER 467 | LD L CY950 FETCH I/O ADDRESS U6B04430 0131 1890 468 | SRT 16 U6B04440 0132 C400 01BFR 469 | LD L CY951 FETCH FUNCTION CODE U6B04450 0134 4480 0000R 470 | BSI I CY000 TO SYSTEM PRINT SUBR. U6B04460 0136 C400 01BER 471 | LD L CY950 INCR LINE CNT U6B04470 0138 8400 017DR 472 | A L CY931 U6B04480 013A 800E 473 | A CY801 U6B04490 013B D400 01BER 474 | STO L CY950 U6B04500 013D 4C80 012ER 475 | BSC I CY380 U6B04510 476 | * U6B04520 013F 0000 477 | CY500 DC *-* KB ENTRY U6B04530 0140 4C00 00D6 478 | BSC L $I410 TO ISL04 RTN U6B04540 479 | * U6B04550 0142 4400 00FCR 480 | CY501 BSI L CY350 U6B04560 0144 4480 002C 481 | BSI I $IREQ SERVICE INTRPT REQUEST U6B04570 0146 FFFE 482 | DC -2 ERROR CODE U6B04580 483 | * U6B04590 COPY- CONSTANTS 485 | *************************************************** U6B04610 486 | * CONSTANTS * U6B04620 487 | *************************************************** U6B04630 0147 0000 488 | C DC *-* DUMMY BUMPER U6B04640 0148 489 | BSS E 0 U6B04650 0148 0000 490 | CY800 DC 0 ZERO U6B04660 0149 0001 491 | CY801 DC 1 TEST CODE-INVALID ID U6B04670 014A 0002 492 | CY802 DC 2 ERROR CODE ID NOT AVAIL U6B04680 014B 0003 493 | CY803 DC 3 U6B04690 014C 0004 494 | CY804 DC 4 U6B04700 014D 0140 495 | CY809 DC 320 SECTOR WORD COUNT 2-3 U6B04705 014E 018F 496 | CY810 DC 399 DISK WRITE CNT U6B04710 014F 0000 497 | CY811 DC U6B04720 0150 01C4R 498 | CY812 DC CY990 I/O AREA ADDR U6B04730 0151 7000 499 | CY813 DC /7000 U6B04740 0152 C3D6 D4D7 D3C5 E3C5 500 | CY814 EBC .COMPLETE. U6B04750 0156 D5D6 E340 D7D9 C5E2 501 | CY818 EBC .NOT PRES. U6B04760 015A D5D6 502 | CY822 EBC .NO. ERR . U6B04770 COPY- WORKING STORAGE 504 | *************************************************** U6B04790 505 | * WORKING STORAGE * U6B04800 506 | *************************************************** U6B04810 015C 507 | BSS E 0 U6B04820 508 | * FROM-TO TABLE IN BINARY-4 WORDS FOR EACH FIELD U6B04830 015C 0000 509 | CY900 DC *-* FROM FIELD OF 1ST ENTRY U6B04840 015D 0000 510 | CY901 DC *-* ERROR-INDR OR LOGICAL DR-NO U6B04850 015E 0000 511 | CY902 DC *-* TO FIELD OF 1ST ENTRY U6B04860 015F 0000 512 | CY903 DC *-* ERROR-INDR OF LOGICAL DR-NO U6B04870 0160 0000 513 | CY904 DC *-* SECOND FROM-TO ENTRY U6B04880 0161 0000 514 | DC *-* U6B04890 0162 0000 515 | DC *-* U6B04900 0163 0000 516 | DC *-* U6B04910 0164 0000 517 | CY908 DC *-* THIRD FROM-TO ENTRY U6B04920 0165 0000 518 | DC *-* U6B04930 0166 0000 519 | DC *-* U6B04940 0167 0000 520 | DC *-* U6B04950 0168 0000 521 | CY912 DC *-* FOURTH FROM TO ENTRY U6B04960 0169 0000 522 | DC *-* U6B04970 016A 0000 523 | DC *-* U6B04980 016B 0000 524 | DC *-* U6B04990 016C 0000 525 | CY916 DC *-* NO OF FROM-TO ITEMS U6B05000 016D 0000 526 | CY917 DC *-* SAVE XR1 FOR DETM DRIVE NO. U6B05010 016E 0000 527 | CY918 DC *-* INPUT DRIVE CODE STORAGE U6B05020 016F 0000 528 | CY919 DC *-* OUTPUT DRIVE CODE U6B05030 0170 0000 529 | CY920 DC *-* DISK READ-WRITE CNT U6B05040 0172 530 | BSS E 0 U6B05050 0172 0000 531 | CY924 DC *-* SPACER U6B05060 0173 0000 532 | CY925 DC *-* FROM-TO COUNT U6B05070 0174 0000 533 | CY926 DC *-* U6B05080 0175 0000 534 | DC *-* U6B05090 0176 0000 535 | DC *-* U6B05100 0177 0000 536 | DC *-* U6B05110 0178 0000 537 | DC *-* U6B05120 0179 0000 538 | DC *-* U6B05130 017A 0000 539 | DC *-* U6B05140 017B 0000 540 | DC *-* U6B05150 541 | *************************************************** U6B05160 542 | * FROM-TO TABLE FOR RDREC ROUTINE * U6B05170 543 | *************************************************** U6B05180 544 | * U6B05190 017C 545 | CY930 BSS E 1 U6B05200 017D 000F 546 | CY931 DC CY932-CY931 WD CNT U6B05210 017E 4040 4040 547 | EBC . . U6B05220 0180 4040 4040 4040 548 | EBC . . U6B05230 0183 4040 4040 549 | EBC . . U6B05240 0185 4040 4040 4040 550 | EBC . . U6B05250 0188 D5D6 E340 C4D6 D5C5 551 | EBC .NOT DONE. U6B05260 018C 4040 552 | CY932 EBC . . U6B05270 018D 000F 553 | CY933 DC CY934-CY933 WD CNT U6B05280 018E 4040 4040 554 | EBC . . U6B05290 0190 4040 4040 4040 555 | EBC . . U6B05300 0193 4040 4040 556 | EBC . . U6B05310 0195 4040 4040 4040 557 | EBC . . U6B05320 0198 D5D6 E340 C4D6 D5C5 558 | EBC .NOT DONE. U6B05330 019C 4040 559 | CY934 EBC . . U6B05340 019D 000F 560 | CY935 DC CY936-CY935 WD CNT U6B05350 019E 4040 4040 561 | EBC . . U6B05360 01A0 4040 4040 4040 562 | EBC . . U6B05370 01A3 4040 4040 563 | EBC . . U6B05380 01A5 4040 4040 4040 564 | EBC . . U6B05390 01A8 D5D6 E340 C4D6 D5C5 565 | EBC .NOT DONE. U6B05400 01AC 4040 566 | CY936 EBC . . U6B05410 01AD 000F 567 | CY937 DC CY938-CY937 WD CNT U6B05420 01AE 4040 4040 568 | EBC . . U6B05430 01B0 4040 4040 4040 569 | EBC . . U6B05440 01B3 4040 4040 570 | EBC . . U6B05450 01B5 4040 4040 4040 571 | EBC . . U6B05460 01B8 D5D6 E340 C4D6 D5C5 572 | EBC .NOT DONE. U6B05470 01BC 4040 573 | CY938 EBC . . U6B05480 01BD 0000 574 | CY949 DC *-* INDIRECT ADDRESS-BR NO. U6B05490 01BE 017DR 575 | CY950 DC CY931 U6B05500 576 | * U6B05510 01BF 7001 577 | CY951 DC /7001 PRINT FUNCTION CODE U6B05520 01C0 013FR 578 | CY952 DC CY500 KB SURPRESS ROUTINE U6B05530 01C1 0000 579 | CY953 DC *-* KB ENTRY U6B05540 580 | * U6B05550 0172R 581 | CY EQU CY924 U6B05560 0188R 582 | CY940 EQU CY932-4 U6B05570 0189R 583 | CY941 EQU CY932-3 U6B05580 018AR 584 | CY942 EQU CY932-2 U6B05590 018BR 585 | CY943 EQU CY932-1 U6B05600 01C2 0000 586 | CY971 DC *-* U6B05610 587 | * INPUT-OUTPUT AREAS U6B05620 588 | * U6B05630 01C4 589 | BSS E 0 U6B05640 01C4 0140 590 | CY990 DC 320 U6B05650 01C5 0001 591 | CY991 DC /0001 U6B05660 01C6 592 | BSS 1280 U6B05670 06C6 0000 593 | DC *-* U6B05680 01FDR 594 | DCIDN EQU CY990+57 U6B05690 033DR 595 | LCIDN EQU DCIDN+320 U6B05700 COPY- DISK SUBROUTINES 597 | *************************************************** U6B05720 598 | * DISK READ * U6B05730 599 | *************************************************** U6B05740 06C7 0000 600 | CY400 DC *-* ENTRY/EXIT U6B05750 06C8 C009 601 | LD CY490 U6B05760 06C9 18D0 602 | RTE 16 U6B05770 06CA C008 603 | LD CY491 U6B05780 06CB 4400 00F2 604 | BSI L DZ000 U6B05790 06CD 7400 00EE 605 | CY401 MDX L $DBSY,0 U6B05800 06CF 70FD 606 | MDX CY401 U6B05810 06D0 4C80 06C7R 607 | BSC I CY400 U6B05820 608 | * U6B05830 06D2 609 | BSS E 0 U6B05840 06D2 01C4R 610 | CY490 DC CY990 U6B05850 06D3 7000 611 | CY491 DC /7000 U6B05860 06D4 7001 612 | CY492 DC /7001 U6B05870 613 | * U6B05880 614 | *************************************************** U6B05890 615 | * DISK WRITE * U6B05900 616 | *************************************************** U6B05910 617 | * U6B05920 06D5 0000 618 | CY450 DC *-* ENTRY/EXIT U6B05930 06D6 C0FB 619 | LD CY490 U6B05940 06D7 18D0 620 | RTE 16 U6B05950 06D8 C0FB 621 | LD CY492 U6B05960 06D9 4400 00F2 622 | BSI L DZ000 U6B05970 06DB 7400 00EE 623 | CY451 MDX L $DBSY,0 U6B05980 06DD 70FD 624 | MDX CY451 U6B05990 06DE 4C80 06D5R 625 | BSC I CY450 U6B06000 626 | * U6B06010 COPY 628 | * SAVE CIDN TABLE OF DCOM U6B06030 06E0 0000 629 | CY600 DC *-* ENTRY/EXIT U6B06040 06E1 C400 01FER 630 | LD L DCIDN+1 ID CART 1 U6B06050 06E3 1890 631 | SRT 16 U6B06060 06E4 C400 01FDR 632 | LD L DCIDN 0 U6B06070 06E6 D80F 633 | STD SCIDN U6B06080 06E7 D814 634 | STD KCIDN 2-6 U6B06082 06E8 C400 0200R 635 | LD L DCIDN+3 3 U6B06090 06EA 1890 636 | SRT 16 U6B06100 06EB C400 01FFR 637 | LD L DCIDN+2 2 U6B06110 06ED D80A 638 | STD SCIDN+2 U6B06120 06EE D80F 639 | STD KCIDN+2 2-6 U6B06122 06EF C400 0201R 640 | LD L DCIDN+4 4 U6B06130 06F1 D008 641 | STO SCIDN+4 U6B06140 06F2 D00D 642 | STO KCIDN+4 2-6 U6B06142 06F3 4C80 06E0R 643 | BSC I CY600 RETURN U6B06170 644 | * U6B06180 06F6 645 | SCIDN BSS E 6 TABLE FOR SAVE CIDN OF DCOM U6B06190 06FC 646 | KCIDN BSS E 6 TABLE FOR SYSUP 2-6 U6B06192 647 | * U6B06200 0702 0500 648 | CY680 DC 1280 CYLINDER WD CNT U6B06210 649 | * U6B06220 650 | ***********************************************2-3* U6B06230 651 | * PRINT 'XXXX NOT FRESHLY INITIALIZED ' MESSAGE 2-6 U6B06240 652 | ***********************************************2-3* U6B06250 653 | * 2-3 U6B06260 0703 0000 654 | CY700 DC 0 ENTRY/RETURN ADDRESS 2-3 U6B06270 0704 691D 655 | STX 1 CY730+1 SAVE XR1 2-3 U6B06280 0705 6A1E 656 | STX 2 CY740+1 SAVE XR2 2-3 U6B06290 0706 6500 015ER 657 | LDX L1 CY902 XR1 PTS TO BINARY 'TO'ID2-3 U6B06300 0708 6600 0183R 658 | LDX L2 CY931+6 XR2 PTS TO EBCDIC 'TO'ID2-3 U6B06310 070A C400 01C2R 659 | CY710 LD L CY971 FETCH CURRENT 'TO' ID 2-3 U6B06320 070C 9100 660 | S 1 0 TEST FOR AND BRANCH IF 2-3 U6B06330 070D 4C18 0712R 661 | BSC L CY720,+- *MATCH FOUND IN BIN TBL 2-3 U6B06340 070F 7104 662 | MDX 1 4 INCR BINARY POINTER 2-3 U6B06350 0710 7210 663 | MDX 2 16 INCR EBCDIC POINTER 2-3 U6B06360 0711 70F8 664 | MDX CY710 BRANCH TO TEST AGAIN 2-3 U6B06370 665 | * 2-3 U6B06380 0712 C201 666 | CY720 LD 2 1 FETCH LAST HALF OF EBCID2-3 U6B06390 0713 1890 667 | SRT 16 SHIFT TO EXT 2-3 U6B06400 0714 C200 668 | LD 2 0 FETCH FIRST HALF OFEBCID2-3 U6B06410 0715 D814 669 | STD CY974 STORE TO PRINT AREA 2-3 U6B06420 0716 C011 670 | LD CY972 FETCH ADDR OF I/O AREA 2-3 U6B06430 0717 1890 671 | SRT 16 SHIFT TO EXT 2-3 U6B06440 0718 C400 01BFR 672 | LD L CY951 FETCH PRINT FUNCT CODE 2-3 U6B06450 071A 4480 0000R 673 | BSI I CY000 BRANCH TO PRINT MESSAGE 2-3 U6B06460 071C 7400 0036 674 | CY725 MDX L $PBSY,0 SKIP NEXT IF PRINT COMPL2-3 U6B06464 071E 70FD 675 | MDX CY725 BR TO TEST PRINT COMPLET2-3 U6B06466 071F 4400 0028 676 | BSI L $PRET BRANCH TO WAIT,MAYRETURN2-3 U6B06470 0721 6500 0000 677 | CY730 LDX L1 *-* RESTORE XR1 2-3 U6B06480 0723 6600 0000 678 | CY740 LDX L2 *-* RESTORE XR2 2-3 U6B06490 0725 4C80 0703R 679 | BSC I CY700 RETURN 2-3 U6B06500 680 | * 2-3 U6B06510 681 | * CONSTANTS AND WORK AREAS 2-3 U6B06520 682 | * 2-3 U6B06530 0728 683 | BSS E 0 FORCE NEXT LOC TO BEEVEN2-3 U6B06540 0728 0729R 684 | CY972 DC CY973 ADDRESS OF PRINT I/O ARE2-3 U6B06550 0729 000E 685 | CY973 DC CY975-* WD CNT OF PRINT I/O ARE2-3 U6B06560 072A E7E7 E7E7 40D5 D6E3 686 | CY974 EBC .XXXX NOT FRESHLY INITIALIZED. 2-6 U6B06570 40C6 D9C5 E2C8 D3E8 | 40C9 D5C9 E3C9 C1D3 | C9E9 C5C4 | 0738 687 | CY975 BSS 0 2-3 U6B06580 688 | * 2-3 U6B06590 689 | * 2-3 U6B06600 0738 690 | BSS 50 PATCH AREA 2-3 U6B06610 691 | * 2-O U6B06620 692 | * 2-3 U6B06630 076A 693 | END CY010 COPY ENTRY POINT 2-3 U6B06640 There were no errors in this assembly Program transfer address = 0001 === CROSS REFERENCES ========================================================== Name Val Defd Referenced #ANDU 0023 174 #BNDU 0028 175 #CBSW 000A 160 #CIBA 003C 179 #CIDN 0037 178 #CSHN 005A 185 #DBCT 0006 156 #DCOM 0001 187 #DCSW 0018 173 #ENTY 0010 166 #FHOL 0014 169 #FLET 004B 182 #FMAT 0046 181 #FPAD 002D 176 #FRDR 0013 168 #FSZE 0015 170 #HDNG 0007 192 #IDAD 0000 186 #JBSW 0009 159 #LCNT 000B 161 #MDF1 000D 163 #MDF2 000E 164 #MPSW 000C 162 #NAME 0004 155 #NCNT 000F 165 #PCID 0032 177 #RIAD 0002 188 #RTBL 0006 191 #SCRA 0041 180 #SLET 0003 189 #STRT 0005 190 #SYSC 0008 158 #TODR 0012 167 #UHOL 0016 171 #ULET 0050 183 #USZE 0017 172 #WSCT 0055 184 #WSSW 0007 157 $1132 007F 119 $1403 0080 120 $1END 0258 153 $ACDE 009F 128 $ACEX 001A 91 $BYSW 01CB 148 $CH12 0006 77 $CIBA 0005 76 $CILA 005A 109 $CLSW 0018 89 $COMN 0007 78 $CORE 000E 79 $CPTR 007E 118 $CTSW 000F 80 $CXR1 0017 88 $CYLN 009A 127 $DABL 0011 82 $DADR 0010 81 $DBSY 00EE 146 147 233 605 623 $DCDE 0077 111 $DCYL 00A4 129 342 344 351 $DMPF 0019 90 $DREQ 0012 83 $DUMP 003F 105 $DZ1N 0076 110 $EXIT 0038 101 $FPAD 0095 126 $HASH 0014 85 86 87 88 89 90 91 $I200 00B3 130 $I205 00B8 131 132 $I210 00BA 133 $I290 00C2 134 $I400 00C4 135 $I403 00CF 136 $I405 00D3 137 138 $I410 00D6 139 478 $I415 00DE 140 $I490 00E8 141 $I491 00E9 142 $I492 00EA 143 $I494 00EC 144 $I495 00ED 145 $IBSY 0013 84 $IBT2 00B9 132 $IBT4 00D4 138 $IOCT 0032 95 $IREQ 002C 93 310 313 398 481 $KCSW 007C 116 $LAST 0033 96 $LINK 0039 102 $LKNM 0014 86 $NDUP 0034 97 $NEND 0370 154 $NXEQ 0035 98 $PAUS 00F0 150 $PBSY 0036 99 241 674 $PGCT 0037 100 $PHSE 0078 112 $PRET 0028 92 676 $PST1 0081 121 $PST2 0085 122 $PST3 0089 123 $PST4 008D 124 $RMSW 0016 87 $RWCZ 00F1 151 $S000 004D 106 $S100 004E 107 $S150 0059 108 109 $S900 003C 103 $S910 003E 104 $SNLT 00EF 147 $STOP 0091 125 $UFDR 007D 117 $UFIO 0079 113 $ULET 002D 94 $WRD1 007B 115 $WSDR 007A 114 $ZEND 01E0 152 C 0147R 488 203 204 205 206 207 208 209 213 228 229 231 237 248 253 258 265 278 283 290 299 305 410 414 415 CY 0172R 581 411 412 424 426 428 430 434 436 438 440 448 450 452 454 CY000 0000R 199 200 202 470 673 CY010 0001R 200 693 CY020 000CR 208 217 CY025 0012R 214 211 CY100 001AR 228 219 CY105 0021R 233 234 CY303 002DR 241 242 CY304 0028R 238 267 292 CY305 0034R 247 239 CY307 003FR 258 262 CY308 004AR 267 251 CY309 0063R 291 256 403 CY310 004BR 271 260 CY311 0059R 283 287 CY312 0065R 298 285 CY318 00B2R 351 348 CY319 00C0R 362 355 CY320 009FR 341 340 CY321 00C1R 363 369 CY322 00D2R 376 331 CY325 00DER 383 396 CY329 00CCR 371 365 CY350 00FCR 409 240 461 480 CY355 0104R 414 459 CY360 0114R 433 417 CY365 011DR 447 421 CY370 0125R 455 431 441 CY380 012ER 466 455 475 CY400 06C7R 600 321 330 387 607 CY401 06CDR 605 606 CY450 06D5R 618 379 393 625 CY451 06DBR 623 624 CY490 06D2R 610 601 619 CY491 06D3R 611 603 CY492 06D4R 612 621 CY500 013FR 477 315 399 578 CY501 0142R 480 401 CY600 06E0R 629 235 643 CY680 0702R 648 326 CY700 0703R 654 324 679 CY710 070AR 659 664 CY720 0712R 666 661 CY725 071CR 674 675 CY730 0721R 677 655 CY740 0723R 678 656 CY800 0148R 490 275 314 CY801 0149R 491 206 249 254 273 302 473 CY802 014AR 492 264 289 323 347 354 CY803 014BR 493 338 CY804 014CR 494 384 390 CY809 014DR 495 319 CY810 014ER 496 381 CY811 014FR 497 CY812 0150R 498 229 CY813 0151R 499 231 CY814 0152R 500 423 425 427 429 CY818 0156R 501 447 449 451 453 CY822 015AR 502 433 435 437 439 CY850 0018R 221 212 CY851 0019R 222 216 CY900 015CR 509 209 258 283 299 CY901 015DR 510 213 248 265 278 290 305 414 CY902 015ER 511 657 CY903 015FR 512 253 415 CY904 0160R 513 CY908 0164R 517 CY912 0168R 521 CY916 016CR 525 207 238 413 458 CY917 016DR 526 271 272 298 301 CY918 016ER 527 276 328 383 385 CY919 016FR 528 304 317 336 377 389 391 CY920 0170R 529 382 395 CY924 0172R 531 199 581 CY925 0173R 532 205 412 CY926 0174R 533 208 CY930 017CR 545 CY931 017DR 546 472 575 658 CY932 018CR 552 546 582 583 584 585 CY933 018DR 553 CY934 019CR 559 553 CY935 019DR 560 CY936 01ACR 566 560 CY937 01ADR 567 CY938 01BCR 573 567 CY940 0188R 582 424 434 448 CY941 0189R 583 426 436 450 CY942 018AR 584 428 438 452 CY943 018BR 585 430 440 454 CY949 01BDR 574 CY950 01BER 575 467 471 474 CY951 01BFR 577 469 672 CY952 01C0R 578 312 CY953 01C1R 579 311 397 CY971 01C2R 586 300 371 659 CY972 0728R 684 670 CY973 0729R 685 684 CY974 072AR 686 669 CY975 0738R 687 685 CY990 01C4R 590 320 322 327 350 357 498 594 610 CY991 01C5R 591 329 345 346 349 352 353 356 364 372 378 386 392 DCIDN 01FDR 594 595 630 632 635 637 640 DZ000 00F2 149 150 151 232 604 622 KCIDN 06FCR 646 244 634 639 642 LCIDN 033DR 595 363 367 373 SCIDN 06F6R 645 259 284 633 638 641
ibm/ibm1130-lib/dmsr2v12/u6copy_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator