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