ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u6adrws.asm
ADRWS-MAINLINE
2 | *************************************************** U6A00020
3 | *STATUS-VERSION 2, MODIFICATION 0 * U6A00030
4 | * * U6A00040
5 | *FUNCTION/OPERATION- * U6A00050
6 | * * WRITES SECTOR ADDRESSES ON EACH WORKING * U6A00060
7 | * STORAGE SECTOR. * U6A00070
8 | * * PUTS KNOWN DATA IN WORKING STORAGE. * U6A00080
9 | * * U6A00090
10 | *ENTRY POINTS- * U6A00100
11 | * WA000-EXECUTION OF ADRWS BEGINS HERE AS A * U6A00110
12 | * RESULT OF A CALL LINK FROM DUP. * U6A00120
13 | * * U6A00130
14 | *INPUT- * U6A00140
15 | * * DRIVE CODE OF WORKING STORAGE TO BE * U6A00150
16 | * ALTERED IS CONTAINED IN #TODR (DCOM OF * U6A00160
17 | * MASTER CARTRIDGE). * U6A00170
18 | * * STARTING SECTOR ADDRESS OF WORKING STORAGE * U6A00180
19 | * TO BE ALTERED IS CONTAINED IN THE $FPAD * U6A00190
20 | * QUINTUPLE IN COMMA. * U6A00200
21 | * * U6A00210
22 | *OUTPUT- * U6A00220
23 | * * SECTOR ADDRESS IS WRITTEN ON EACH SECTOR * U6A00230
24 | * OF WORKING STORAGE. * U6A00240
25 | * * THE SECTOR ADDRESS (INCLUDING LOGICAL * U6A00250
26 | * DRIVE NO.) IS RECORDED IN THE FIRST * U6A00260
27 | * 240 DATA WORDS OF EACH SECTOR. THE * U6A00270
28 | * REMAINING EIGHTY DATA WORDS CONTAIN ZEROS. * U6A00280
29 | * * U6A00290
30 | *EXTERNAL REFERENCES- * U6A00300
31 | * SUBROUTINES- * U6A00310
32 | * * DISKN * U6A00320
33 | * * FSLEN * U6A00330
34 | * * FSYSU * U6A00340
35 | * * SYSTEM PRINTER DEVICE SUBROUTINE * U6A00350
36 | * COMMA/DCOM * U6A00360
37 | * * $CTSW * U6A00370
38 | * * $FPAD * U6A00380
39 | * * #CIDN * U6A00390
40 | * * #DCSW * U6A00400
41 | * * #TODR * U6A00410
42 | * * U6A00420
43 | *EXITS- * U6A00430
44 | * NORMAL- * U6A00440
45 | * * CALL EXIT TO RETURN TO SUPERVISOR * U6A00450
46 | * CONTROL IF ADRWS WAS NOT ENTERED * U6A00460
47 | * AS A CALL LINK FROM DUP. * U6A00470
48 | * * MOVE A DUP MONITOR CONTROL RECORD TO * U6A00480
49 | * THE SUPERVISOR CONTROL RECORD BUFFER * U6A00490
50 | * AND SET $CTSW NEGATIVE BEFORE CALL EXIT * U6A00500
51 | * IF ADRWS WAS ENTERED FROM DUP. * U6A00510
52 | * ERROR-N/A * U6A00520
53 | * * U6A00530
54 | *TABLES/WORK AREAS- * U6A00540
55 | * * DCAR2 IS A 60 WORD DISK BUFFER INTO WHICH * U6A00550
56 | * THE FIRST 60 WORDS OF DCOM FROM THE MASTER * U6A00560
57 | * CARTRIDGE ARE READ. * U6A00570
58 | * * IOAR1 IS A 4 SECTOR BUFFER USED TO WRITE * U6A00580
59 | * THE WORKING STORAGE SECTORS ON THE DRIVE * U6A00590
60 | * TO BE ALTERED. * U6A00600
61 | * * MESAG IS A 20 WORD PRINT BUFFER WHICH * U6A00610
62 | * CONTAINS THE ADRWS TERMINATION MESSAGE. * U6A00620
63 | * * SRBUF IS THE 80 WORD SUPERVISOR BUFFER * U6A00630
64 | * TO WHICH A DUP MONITOR CONTROL RECORD IS * U6A00640
65 | * MOVED BEFORE RETURNING TO DUP BY MEANS * U6A00650
66 | * OF A CALL EXIT. * U6A00660
67 | * * U6A00670
68 | *ATTRIBUTES-N/A * U6A00680
69 | * * U6A00690
70 | *NOTES- * U6A00700
71 | * * ADRWS MAY BE EXECUTED BY THE USER BY A * U6A00710
72 | * CALL LINK, OR A // XEQ ADRWS AS LONG AS * U6A00720
73 | * THE DRIVE CODE OF THE DRIVE TO BE ALTERED * U6A00730
74 | * IS CONTAINED IN #TODR OF DCOM ON THE * U6A00740
75 | * MASTER CARTRIDGE (#TODR MUST BE 0000-0004). * U6A00750
76 | * NOTE HOWEVER, THAT ADRWS REQUIRES DISKN. * U6A00760
77 | * * A TERMINATION MESSAGE IS PRINTED BY ADRWS * U6A00770
78 | * WHICH IS- * U6A00780
79 | * * U6A00790
80 | * CART ID XXXX DB ADDR XXXX DB CNT XXXX * U6A00800
81 | *************************************************** U6A00810
ADRWS-MAINLINE
0085 83 | $PST2 EQU /85 U6A00830
0085 84 | DKERR EQU $PST2 U6A00840
85 | * U6A00850
86 | * READ THE DCOM SECTOR FROM DISK U6A00860
87 | * U6A00870
0000 0426*2495 88 | WA000 LIBF DISKN BRANCH TO EXECUTE DISKN U6A00880
0001 1000 89 | DC /1000 READ FUNCTION U6A00890
0002 00F4R 90 | DC DCAR2 ADDRESS OF IOAR HEADER U6A00900
0003 0085 91 | DC DKERR ADDRESS OF ERROR ROUTINE U6A00910
0004 0426*2495 92 | LIBF DISKN BRANCH TO EXECUTE DISKN U6A00920
0005 0000 93 | DC /0000 TEST FUNCTION U6A00930
0006 00F4R 94 | DC DCAR2 ADDRESS OF IOAR HEADER U6A00940
0007 70FC 95 | MDX *-4 LOOP IF READ NOT COMPLETE U6A00950
96 | * U6A00960
97 | * INITIALIZE PROGRAM U6A00970
98 | * U6A00980
0008 6600 0147R 99 | LDX L2 X LOAD VECTOR POINTER U6A00990
100 | * U6A01000
101 | * FIND SECTOR ADDRESS BEFORE WORKING STORAGE U6A01010
102 | * U6A01020
000A C2C1 103 | LD 2 #TODR-X U6A01030
000B 4C30 000FR 104 | BSC L WA050,-Z BRANCH IF 'TO' DRIVE 1-4 U6A01040
000D 6100 105 | LDX 1 0 XR1 = 0 FOR DRIVE 0 U6A01050
000E 7002 106 | MDX WA060 BRANCH AROUND LDX INST U6A01060
000F 6580 0108R 107 | WA050 LDX I1 #TODR XR1 = DRIVE CODE, 1-4 U6A01070
0011 C500 0095 108 | WA060 LD L1 $FPAD 'TO' DR FILE PROTECT ADDR U6A01080
0013 9284 109 | S 2 H0001-X DECREMENT ADDRESS BY 1 U6A01090
0014 D400 0133R 110 | STO L IOAR1+1 STORE WS - 1 ADDRESS U6A01100
0016 6D00 0132R 111 | STX L1 IOAR1 STORE DRIVE CODE U6A01110
0018 C400 0132R 112 | LD L IOAR1 DRIVE CODE (000D) U6A01120
001A 1008 113 | SLA 8 (0D00) U6A01130
001B E287 114 | AND 2 H0F00-X U6A01140
001C D00B 115 | STO WA065 U6A01150
001D D019 116 | STO WA088 U6A01160
001E D045 117 | STO WA170 INITIALIZE TEST FUNCTIONS U6A01170
001F 6500 0140 118 | LDX L1 320 LOAD 1 SECTOR WORD COUNT U6A01180
0021 6D00 0132R 119 | STX L1 IOAR1 PLACE WORD COUNT U6A01190
120 | * U6A01200
121 | * READ THE SECTOR BEFORE THE FIRST SECTOR OF U6A01210
122 | * WORKING STORAGE U6A01220
123 | * U6A01230
0023 0426*2495 124 | LIBF DISKN BRANCH TO EXECUTE DISKN U6A01240
0024 1000 125 | DC /1000 READ FUNCTION U6A01250
0025 0132R 126 | DC IOAR1 ADDRESS OF IOAR HEADER U6A01260
0026 0085 127 | DC DKERR ADDRESS OF ERROR ROUTINE U6A01270
0027 0426*2495 128 | LIBF DISKN BRANCH TO EXECUTE DISKN U6A01280
0028 0000 129 | WA065 DC /0000 TEST FUNCTION U6A01290
0029 0132R 130 | DC IOAR1 ADDRESS OF IOAR HEADER U6A01300
002A 70FC 131 | MDX *-4 BRANCH IF NOT DONE U6A01310
ADRWS-MAINLINE
133 | * U6A01330
134 | * INCREMENT SECTOR NUMBER TO FIRST ONE OF U6A01340
135 | * WORKING STORAGE U6A01350
136 | * U6A01360
002B 7401 0133R 137 | MDX L IOAR1+1,1 ADD 1 TO SECTOR NUMBER U6A01370
138 | * U6A01380
139 | * ARE WE AT THE BEGINNING OF A SECTOR U6A01390
140 | * U6A01400
002D C400 0133R 141 | WA080 LD L IOAR1+1 LOAD SECTOR NUMBER U6A01410
002F 100D 142 | SLA 13 SAVE SECTOR NUMBER ON TRACK U6A01420
0030 4C20 003AR 143 | BSC L WA090,Z BRANCH IF NOT NEW CYLINDER U6A01430
144 | * U6A01440
145 | * SEEK ONE CYLINDER TOWARDS THE CENTER OF THE U6A01450
146 | * DISK U6A01460
147 | * U6A01470
0032 0426*2495 148 | WA085 LIBF DISKN BRANCH TO EXECUTE DISKN U6A01480
0033 5010 149 | DC /5010 SEEK 1 CYLINDER FUNCTION U6A01490
0034 0132R 150 | DC IOAR1 ADDRESS OF IOAR HEADER U6A01500
0035 0085 151 | DC DKERR ADDRESS OF ERROR ROUTINE U6A01510
0036 0426*2495 152 | LIBF DISKN BRANCH TO EXECUTE DISKN U6A01520
0037 0000 153 | WA088 DC /0000 TEST FUNCTION U6A01530
0038 0132R 154 | DC IOAR1 ADDRESS OF IOAR HEADER U6A01540
0039 70FC 155 | MDX *-4 BRANCH IF NOT DONE U6A01550
156 | * U6A01560
157 | * CALCULATE THE PARAMETERS NEEDED TO FORMAT THE U6A01570
158 | * AREA TO BE WRITTEN U6A01580
159 | * U6A01590
003A 1010 160 | WA090 SLA 16 CLEAR ACCUMULATOR U6A01600
003B 9400 0133R 161 | S L IOAR1+1 U6A01610
003D E280 162 | AND 2 H0003-X SAVE NUMBER OF SECTORS U6A01620
003E 4818 163 | BSC +- SKIP IF NOT ZERO U6A01630
003F C281 164 | LD 2 H0004-X SET HALF TRACK U6A01640
0040 D2AC 165 | STO 2 NOSC1-X SAVE NUMBER OF SECTORS U6A01650
166 | * U6A01660
0041 A282 167 | M 2 H0140-X CALCULATE WORD COUNT U6A01670
0042 18D0 168 | RTE 16 U6A01680
0043 D400 0132R 169 | STO L IOAR1 STORE WORD COUNT U6A01690
170 | * U6A01700
171 | * CLEAR THE AREA TO ZERO U6A01710
172 | * U6A01720
0045 6580 0132R 173 | LDX I1 IOAR1 LOAD WORD COUNT U6A01730
0047 1010 174 | SLA 16 CLEAR ACCUMULATOR U6A01740
0048 D500 0133R 175 | STO L1 IOAR1+1 STORE A ZERO U6A01750
004A 71FF 176 | MDX 1 -1 DECREMENT WORD COUNT U6A01760
004B 70FC 177 | MDX *-4 BRANCH IF WORD COUNT NOT 0 U6A01770
178 | * U6A01780
179 | * FORMAT THE AREA TO BE WRITTEN ON THE DISK U6A01790
180 | * U6A01800
004C C400 0133R 181 | LD L IOAR1+1 U6A01810
004E D2AB 182 | STO 2 SCNN1-X SAVE NUMBER FOR SECTOR U6A01820
004F C283 183 | LD 2 SVAD1-X U6A01830
0050 D007 184 | STO WA150+1 INITIALIZE STORE ADDRESS U6A01840
0051 C006 185 | WA120 LD WA150+1 U6A01850
0052 8282 186 | A 2 H0140-X U6A01860
0053 D004 187 | STO WA150+1 INCREMENT STORE ADDRESS U6A01870
0054 C2AB 188 | LD 2 SCNN1-X U6A01880
0055 6500 00F0 189 | LDX L1 240 LOAD ENTRIES PER SECTOR U6A01890
0057 D500 0000 190 | WA150 STO L1 *-* STORE AN ENTRY U6A01900
0059 71FF 191 | MDX 1 -1 DECREMENT NUMBER OF ENTRIES U6A01910
005A 70FC 192 | MDX *-4 BRANCH IF NOT ZERO U6A01920
005B 8284 193 | A 2 H0001-X INCREMENT STORE VALUE U6A01930
005C D2AB 194 | STO 2 SCNN1-X SAVE OLD SECTOR NUMBER U6A01940
005D 74FF 00F3R 195 | MDX L NOSC1,-1 DECREMENT NUMBER OF SECTORS U6A01950
005F 70F1 196 | MDX WA120 BRANCH IF NOT ZERO U6A01960
197 | * U6A01970
198 | * WRITE OUT THE AREA ON THE DISK U6A01980
199 | * U6A01990
0060 0426*2495 200 | LIBF DISKN BRANCH TO EXECUTE DISKN U6A02000
0061 4000 201 | DC /4000 WRITE IMMEDIATE U6A02010
0062 0132R 202 | DC IOAR1 ADDRESS OF IOAR HEADER U6A02020
0063 0426*2495 203 | LIBF DISKN BRANCH TO EXECUTE DISKN U6A02030
0064 0000 204 | WA170 DC /0000 TEST FUNCTION U6A02040
0065 0132R 205 | DC IOAR1 ADDRESS OF IOAR HEADER U6A02050
0066 70FC 206 | MDX *-4 BRANCH IF NOT DONE U6A02060
207 | * U6A02070
208 | * TEST FOR LAST SECTOR U6A02080
209 | * U6A02090
0067 C400 0133R 210 | LD L IOAR1+1 U6A02100
0069 E286 211 | AND 2 H0FFF-X MASK OUT DRIVE CODE U6A02110
006A 928B 212 | S 2 ENADR-X U6A02120
006B 8281 213 | A 2 H0004-X U6A02130
006C 4C18 0075R 214 | BSC L WA200,+- BRANCH IF SECTORS WRITTEN U6A02140
215 | * U6A02150
216 | * INCREMENT SECTOR TO NEXT CYLINDER U6A02160
217 | * U6A02170
006E C400 0133R 218 | LD L IOAR1+1 LOAD SECTOR NUMBER U6A02180
0070 8281 219 | A 2 H0004-X INCREMENT TO NEXT HALF U6A02190
0071 E285 220 | AND 2 HFFFC-X REMOVE ODD SECTORS U6A02200
0072 D400 0133R 221 | STO L IOAR1+1 STORE NEW SECTOR ADDRESS U6A02210
0074 70B8 222 | MDX WA080 BRANCH TO CONTINUE U6A02220
223 | * U6A02230
224 | * FORMAT THE EXITING MESSAGE U6A02240
225 | * U6A02250
0075 C2C1 226 | WA200 LD 2 #TODR-X U6A02260
0076 4C30 007AR 227 | BSC L WA205,-Z BR IF 'TO' DR SPECIFIED U6A02270
228 | * * U6A02280
229 | * USE DRIVE ZERO AS DEFAULT CONDITION * U6A02290
230 | * * U6A02300
0078 6100 231 | LDX 1 0 DRIVE CODE = ZERO U6A02310
0079 7002 232 | MDX WA210 BRANCH AROUND LDX INST U6A02320
233 | * * U6A02330
007A 6580 0108R 234 | WA205 LDX I1 #TODR XR1 = DRIVE CODE U6A02340
007C C500 012DR 235 | WA210 LD L1 #CIDN LOAD CARTRIDGE ID U6A02350
007E 4032 236 | BSI BINEB FORMAT CART ID NUMBER U6A02360
007F D862 237 | STD MESAG+5 PLACE CART ID U6A02370
0080 C500 0095 238 | LD L1 $FPAD LOAD FILE PROTECT ADDRESS U6A02380
0082 1004 239 | SLA 4 CONVERT TO DB U6A02390
0083 402D 240 | BSI BINEB FORMAT DB ADDRESS U6A02400
0084 D064 241 | STO MESAG+12 PLACE DB ADDRESS U6A02410
0085 18D0 242 | RTE 16 U6A02420
0086 D063 243 | STO MESAG+13 U6A02430
0087 C28B 244 | LD 2 ENADR-X U6A02440
0088 9500 0095 245 | S L1 $FPAD CALCULATE NUMBER OF SECTORS U6A02450
008A 1004 246 | SLA 4 CONVERT TO DB U6A02460
008B 4025 247 | BSI BINEB FORMAT DB COUNT U6A02470
008C D863 248 | STD MESAG+19 PLACE DB COUNT U6A02480
249 | * U6A02490
250 | * FETCH THE PRINT ROUTINE AND PRINT THE EXITING U6A02500
251 | * MESSAGE U6A02510
252 | * U6A02520
008D 0689*3155 253 | CALL FSLEN LINK TO SEARCH SLET U6A02530
008F 0099 254 | DC RTPRT SYSTEM PRINTER SUBR SLET ID U6A02540
0090 068A*88A4 255 | CALL FSYSU LINK TO LOAD PRINT ROUTINE U6A02550
0092 D004 256 | STO GOTOP+1 SAVE ENTRY ADDRESS U6A02560
0093 6600 0147R 257 | LDX L2 X LOAD VECTOR POINTER U6A02570
0095 CA93 258 | LDD 2 AANDQ-X LOAD FUNCTION AND ADDRESS U6A02580
0096 4400 0000 259 | GOTOP BSI L *-* LINK TO PRINT MESSAGE U6A02590
0098 7400 0036 260 | MDX L $PBSY,0 CHECK PRINTER BUSY U6A02600
009A 70FD 261 | MDX *-3 BRANCH IF YES U6A02610
262 | * U6A02620
263 | * CHECK TO SEE IF RETURN IS TO DUP OR SUP U6A02630
264 | * U6A02640
009B C2C7 265 | LD 2 #DCSW-X U6A02650
009C 4C18 0038 266 | BSC L $EXIT,+- RETURN TO SUPERVISOR U6A02660
267 | * U6A02670
268 | * SIMULATE A // DUP CONTROL RECORD U6A02680
269 | * U6A02690
009E 61FF 270 | LDX 1 -1 U6A02700
009F 6D00 000F 271 | STX L1 $CTSW SET TRAPPED SWITCH U6A02710
00A1 6150 272 | LDX 1 80 LOAD WORD COUNT U6A02720
00A2 1010 273 | SLA 16 U6A02730
00A3 D500 0FB0 274 | STO L1 SRBUF STORE ZERO IN BUFFER U6A02740
00A5 71FF 275 | MDX 1 -1 DECREMENT WORD COUNT U6A02750
00A6 70FC 276 | MDX *-4 BRANCH TO CONT U6A02760
00A7 CA8D 277 | LDD 2 SLHDP-X U6A02770
00A8 DC00 0FB0 278 | STD L SRBUF PLACE // D U6A02780
00AA CA8F 279 | LDD 2 SLHDP+2-X U6A02790
00AB DC00 0FB2 280 | STD L SRBUF+2 PLACE UP U6A02800
00AD CA91 281 | LDD 2 SLHDP+4-X U6A02810
00AE DC00 0FB4 282 | STD L SRBUF+4 U6A02820
00B0 6038 283 | LDX 0 $EXIT RETURN TO SUP U6A02830
ADRWS-CONVERT BINARY TO EBCDIC
285 | * U6A02850
286 | * BINARY TO EBCDIC U6A02860
287 | * U6A02870
00B1 0000 288 | BINEB DC *-* ENTRY POINT U6A02880
00B2 6911 289 | STX 1 RXR1+1 SAVE XR1 U6A02890
00B3 18DC 290 | RTE 32-4 (BCD0/000A) U6A02900
00B4 1804 291 | SRA 4 (0BCD/000A) U6A02910
00B5 18D4 292 | RTE 32-12 (D000/A0BC) U6A02920
00B6 1804 293 | SRA 4 (0D00/A0BC) U6A02930
00B7 18C4 294 | RTE 4 (C0D0/0A0B) U6A02940
00B8 1804 295 | SRA 4 (0C0D/0A0B) U6A02950
00B9 18D0 296 | RTE 16 (0A0B/0C0D) U6A02960
297 | * U6A02970
298 | * CONVERT TO EBCDIC U6A02980
299 | * U6A02990
00BA 6104 300 | LDX 1 4 SET XR1 U6A03000
00BB E286 301 | NEXT1 AND 2 H0FFF-X MASK TO REMOVE BITS 0-3 U6A03010
00BC 9288 302 | S 2 H0A00-X CHECK RANGE U6A03020
00BD 4810 303 | BSC - SKIP IF 0 THROUGH 9 U6A03030
00BE 8289 304 | A 2 HC700-X MAKE CHARACTER A THROUGH F U6A03040
00BF 828A 305 | A 2 HFA00-X ADD IN TEST PLUS 0 U6A03050
00C0 18D8 306 | RTE 32-8 MOVE TO NEXT CHARACTER U6A03060
00C1 71FF 307 | MDX 1 -1 SKIP IF COMPLETED U6A03070
00C2 70F8 308 | MDX NEXT1 BRANCH TO CONVERT NEXT ONE U6A03080
00C3 6500 0000 309 | RXR1 LDX L1 *-* RESTORE XR1 U6A03090
00C5 4C80 00B1R 310 | BSC I BINEB RETURN U6A03100
ADRWS-CONSTANTS,DCOM AND EQUATES
312 | * U6A03120
313 | * CONSTANTS U6A03130
314 | * U6A03140
0147R 315 | X EQU *+128 VECTOR POINTER U6A03150
00C7 0003 316 | H0003 DC /0003 SECTOR NO. MASK (0-3) U6A03160
00C8 0004 317 | H0004 DC /0004 TRACK NO. 1, SCTR 0 OF CYL U6A03170
00C9 0140 318 | H0140 DC /0140 WORDS PER SECTOR U6A03180
00CA FFF3R 319 | SVAD1 DC IOAR1-319 ADDR CON TO INITLZ WA150+1 U6A03190
00CB 0001 320 | H0001 DC /0001 CONSTANT VALUE OF 1 U6A03200
00CC FFFC 321 | HFFFC DC /FFFC MASK TO REMOVE ODD SCTR NO. U6A03210
00CD 0FFF 322 | H0FFF DC /0FFF MASK TO REMOVE BITS 0-3 U6A03220
00CE 0F00 323 | H0F00 DC /0F00 MASK TO LEAVE BITS 4-7 ONLY U6A03230
00CF 0A00 324 | H0A00 DC /0A00 EBCDIC RANGE CHECK U6A03240
00D0 C700 325 | HC700 DC /C700 FORCE CHAR TO EBCDIC A-F U6A03250
00D1 FA00 326 | HFA00 DC /FA00 EBCDIC HEX CHAR GENERATION U6A03260
00D2 0640 327 | ENADR DC 1600 UPPER SCTR ADDRESS LIMIT U6A03270
00D4 328 | BSS E 0 MAKE LOCATION EVEN U6A03280
00D4 0061 329 | SLHDP DC ./ EBCDIC SLASH U6A03290
00D5 0061 330 | DC ./ EBCDIC SLASH U6A03300
00D6 0040 331 | DC . EBCDIC BLANK U6A03310
00D7 00C4 332 | DC .D EBCDIC D U6A03320
00D8 00E4 333 | DC .U EBCDIC U U6A03330
00D9 00D7 334 | DC .P EBCDIC P U6A03340
00DA 335 | BSS E 0 MAKE LOCATION EVEN U6A03350
00DA 7001 336 | AANDQ DC /7001 FUNCTION PRINT A LINE U6A03360
00DB 00DDR 337 | DC MESAG EXIT MESSAGE ADDRESS U6A03370
338 | * U6A03380
339 | * EXIT MESSAGE U6A03390
340 | * U6A03400
00DC 341 | BSS E 1 MAKE NEXT LOCATION ODD U6A03410
00DD 0014 342 | MESAG DC PRINX-* WORD COUNT U6A03420
00DE C3C1 D9E3 40C9 C440 343 | EBC .CART ID XXXX DB ADDR XXXX DB CN. U6A03430
E7E7 E7E7 4040 C4C2 |
40C1 C4C4 D940 E7E7 |
E7E7 4040 40C4 C240 |
C3D5 |
00EF E340 E7E7 E7E7 344 | EBC .T XXXX. U6A03440
00F2R 345 | PRINX EQU * U6A03450
346 | * U6A03460
347 | * WORKING STORAGE U6A03470
348 | * U6A03480
00F2 0000 349 | SCNN1 DC *-* SECTOR NUMBER U6A03490
00F3 0000 350 | NOSC1 DC *-* NUMBER OF SECTORS U6A03500
351 | * U6A03510
352 | * DCOM SECTOR IS PLACED HERE U6A03520
353 | * U6A03530
00F4 003C 354 | DCAR2 DC DCOME-*-1 WORD COUNT U6A03540
00F5 0001 355 | DC @DCOM SECTOR ADDRESS U6A03550
00F6 356 | BSS 18 DCOM WORDS 0-17 U6A03560
0108 357 | #TODR BSS 1 DR CODE OF 'TO' DRIVE U6A03570
0109 358 | BSS 5 DCOM WORDS 19-23 U6A03580
010E 359 | #DCSW BSS 1 RETURN TO DUP SWITCH U6A03590
010F 360 | BSS 30 DCOM WORDS 25-54 U6A03600
012D 361 | #CIDN BSS 5 CART ID TABLE U6A03610
0132R 362 | DCOME EQU * U6A03620
363 | * U6A03630
364 | * COMMON EQUATES U6A03640
365 | * U6A03650
0FB0 366 | SRBUF EQU /FB0 SUP CONTROL RECORD BUFFER U6A03660
000F 367 | $CTSW EQU /F CONTROL RECORD TRAP SW U6A03670
0001 368 | @DCOM EQU 1 DCOM SECTOR ADDRESS U6A03680
0099 369 | RTPRT EQU /99 SYSTEM PRINT SUBR SLET NO. U6A03690
007A 370 | $WSDR EQU /7A WORKING STORAGE DRIVE U6A03700
0095 371 | $FPAD EQU /95 FILE PROTECT ADDR TABLE U6A03710
0036 372 | $PBSY EQU /36 PRINCIPAL PRINTER BUSY U6A03720
0038 373 | $EXIT EQU /38 ADDRESS OF CALL EXIT U6A03730
374 | * U6A03740
375 | * I/O AREA FOR DISK FUNCTIONS U6A03750
376 | * U6A03760
0132 377 | IOAR1 BSS 2+4*320 4 SECTOR BUFFER U6A03770
0634 378 | END WA000 U6A03780
There were no errors in this assembly
Program transfer address = 0000
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
#CIDN 012DR 361 235
#DCSW 010ER 359 265
#TODR 0108R 357 103 107 226 234
$CTSW 000F 367 271
$EXIT 0038 373 266 283
$FPAD 0095 371 108 238 245
$PBSY 0036 372 260
$PST2 0085 83 84
$WSDR 007A 370
'DCOM 0001 368 355
AANDQ 00DAR 336 258
BINEB 00B1R 288 236 240 247 310
DCAR2 00F4R 354 90 94
DCOME 0132R 362 354
DKERR 0085 84 91 127 151
ENADR 00D2R 327 212 244
GOTOP 0096R 259 256
H0001 00CBR 320 109 193
H0003 00C7R 316 162
H0004 00C8R 317 164 213 219
H0140 00C9R 318 167 186
H0A00 00CFR 324 302
H0F00 00CER 323 114
H0FFF 00CDR 322 211 301
HC700 00D0R 325 304
HFA00 00D1R 326 305
HFFFC 00CCR 321 220
IOAR1 0132R 377 110 111 112 119 126 130 137 141 150 154 161 169
173 175 181 202 205 210 218 221 319
MESAG 00DDR 342 237 241 243 248 337
NEXT1 00BBR 301 308
NOSC1 00F3R 350 165 195
PRINX 00F2R 345 342
RTPRT 0099 369 254
RXR1 00C3R 309 289
SCNN1 00F2R 349 182 188 194
SLHDP 00D4R 329 277 279 281
SRBUF 0FB0 366 274 278 280 282
SVAD1 00CAR 319 183
WA000 0000R 88 378
WA050 000FR 107 104
WA060 0011R 108 106
WA065 0028R 129 115
WA080 002DR 141 222
WA085 0032R 148
WA088 0037R 153 116
WA090 003AR 160 143
WA120 0051R 185 196
WA150 0057R 190 184 185 187
WA170 0064R 204 117
WA200 0075R 226 214
WA205 007AR 234 227
WA210 007CR 235 232
X 0147R 315 99 103 109 114 162 164 165 167 182 183 186 188
193 194 211 212 213 219 220 226 244 257 258 265
277 279 281 301 302 304 305