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