ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:10 2020
Source File: \u7fslen.asm
FSLEN- FETCH PHASE IDS FROM SLET
2 | ENT FSLEN U7B00020
3 | ENT FSYSU U7B00030
4 | *************************************************** U7B00040
5 | *STATUS - VERSION 2, MODIFICATION LEVEL 12 * U7B00050
6 | * * U7B00060
7 | * FUNCTION/OPERATION- * U7B00070
8 | * THIS SUBROUTINE READ SLET ON THE SYSTEMS CART* U7B00080
9 | * SEARCHING FOR A REQUESTED PHASE ID ENTRY. * U7B00090
10 | * THE WORD CNT AND SECTOR ADDRESS OF THE ENTRY * U7B00100
11 | * IS RETURNED TO THE CALLING RTN IN THE ACCUM * U7B00110
12 | * AND EXT. IF THE PHASE ID IS NOT IN SLET * U7B00120
13 | * THE ACCUM IS SET TO ZERO BEFORE RETURNING TO * U7B00130
14 | * THE CALLING RTN. * U7B00140
15 | * * U7B00150
16 | * * U7B00160
17 | * FSYSU PART OF THE SUBR FETCHS THE REQUESTED * U7B00170
18 | * SUBROUTINE IN TO MEMORY. THE WORD COUNT AND * U7B00180
19 | * SYSTEM SUBR IN TO MEMORY. THE WORD COUNT AND * U7B00190
20 | * SECTOR ADDRESS IS LOADED INTO THE ACC AND EXT* U7B00200
21 | * REGISTER PRIOR TO THE CALL. THE USER ENTRY * U7B00210
22 | * POINT IS RETURNED IN THE A REGISTER. * U7B00220
23 | * * U7B00230
24 | * ENTRY POINTS- * U7B00240
25 | * FSLEN- * U7B00250
26 | * CALLING SEQUENCE IS * U7B00260
27 | * CALL FSLEN * U7B00270
28 | * DC A * U7B00280
29 | * WHERE A IS THE PHASE ID BEING REQUESTED * U7B00290
30 | * FSYSU- * U7B00300
31 | * CALLING SEQUENCE IS * U7B00310
32 | * CALL FSYSU * U7B00320
33 | * * U7B00330
34 | * INPUT-SLET OF THE SYSTEMS CARTRIDGE * U7B00340
35 | * *FSYSU-USER ENTRY * U7B00350
36 | * * SUBROUTINE FROM SYSTEM CARTRIDGE * U7B00360
37 | * * U7B00370
38 | * OUTPUT-N/A * U7B00380
39 | * * U7B00390
40 | * EXTERNAL REFERENCES- * U7B00400
41 | * SUBROUTINES- * U7B00410
42 | * DZ000 DISK READ U7B00420
43 | * * U7B00430
44 | * EXITS- * U7B00440
45 | * NORMAL-FS090 * U7B00450
46 | * FY250 * U7B00460
47 | * * U7B00470
48 | * TABLES/WORK AREAS * U7B00480
49 | * *FS900 * U7B00490
50 | * *FS901 * U7B00500
51 | * *FS902 * U7B00510
52 | * *FS990 * U7B00520
53 | * * U7B00530
54 | * ATTRIBUTES-NATURALLY RELOCATABLE * U7B00540
55 | * * U7B00550
56 | * NOTES -N/A * U7B00560
57 | * * U7B00570
58 | * * U7B00580
59 | *************************************************** U7B00590
008D 60 | $PST4 EQU /8D ADDR POSTOP ERROR TRAP LEVEL 4 U7B00600
000C 61 | LVL4 EQU /000C LEVEL 4 INT.BRANCH ADR.2-11 U7B00605
00D3 62 | $I405 EQU /D3 U7B00610
00D4 63 | $IBT4 EQU $I405+1 ADDR OF IBT FOR LEVEL 4 U7B00620
00EE 64 | $DBSY EQU /EE DISK BUSY INDR( NON-ZERO=DK BUSY U7B00630
00F2 65 | DZ000 EQU /0F2 DISKZ ENTRY POINT U7B00640
FSLEN-FETCH PHASE IDS FROM SLET
67 | * U7B00660
0000 0000 68 | FS000 DC *-* PHASE ID STORAGE U7B00670
0001 0000 69 | FSLEN DC *-* ENTRY U7B00680
0002 6938 70 | STX 1 FS088+1 SAVE XR1 U7B00690
0003 6A39 71 | STX 2 FS089+1 SAVE XR2 U7B00700
0004 C85F 72 | LDD FS798 U7B00710
0005 D872 73 | STD FS990 U7B00720
0006 C0FA 74 | LD FSLEN SETUP ID U7B00730
0007 D001 75 | STO *+1 U7B00740
0008 C400 0000 76 | LD L *-* FETCH PHASE IF HDR U7B00750
000A D0F5 77 | STO FS000 U7B00760
000B C05A 78 | LD FS800 FETCH SECTOR ADDRESS U7B00770
000C D06C 79 | STO FS991 U7B00780
000D C05E 80 | LD FS807 CLEAR FOUND FLAG U7B00790
000E D065 81 | STO FS900 U7B00800
000F C0F1 82 | LD FSLEN FETCH RETURN ADDRESS U7B00810
0010 805F 83 | A FS812 ADD ONE U7B00820
0011 D02D 84 | STO FS090+1 STORE IN RETURN U7B00830
85 | * U7B00840
86 | * U7B00850
87 | * U7B00860
0012 6804 88 | STX 0 FS010+1 COMPUTE DISK READ ADDRESS U7B00870
0013 C003 89 | FS005 LD FS010+1 U7B00880
0014 8053 90 | A FS803 U7B00890
0015 D001 91 | STO FS010+1 U7B00900
0016 4400 0000 92 | FS010 BSI L *-* TO DISK READ U7B00910
93 | * U7B00920
0018 6804 94 | STX 0 FS020+1 COMPUTE SEARCH RTN ENTRY U7B00930
0019 C003 95 | FS015 LD FS020+1 U7B00940
001A 804E 96 | A FS804 U7B00950
001B D001 97 | STO FS020+1 U7B00960
001C 4400 0000 98 | FS020 BSI L *-* TO SEARCH U7B00970
99 | * U7B00980
100 | *************************************************** U7B00990
101 | * TEST FOUND FLAG TO SEE IF REQUESTED ID FOUND * U7B01000
102 | *************************************************** U7B01010
103 | * U7B01020
001E C055 104 | LD FS900 FETCH FLAG U7B01030
001F 4804 105 | BSC E ODD IF FOUND U7B01040
0020 7017 106 | MDX FS080 PROCESS SECOND SECTOR U7B01050
107 | * U7B01060
108 | * U7B01070
0021 C057 109 | FS023 LD FS991 INCR SECTOR ADDRESS U7B01080
0022 8044 110 | A FS801 U7B01090
0023 D055 111 | STO FS991 U7B01100
0024 9051 112 | S FS902 SECTOR 5 FOUND 212 U7B01102
0025 4830 113 | BSC Z- NOT YET 212 U7B01104
0026 7013 114 | MDX FS088 YES, FOUND AND SEARCHED 212 U7B01106
0027 6804 115 | STX 0 FS030+1 COMPUTE DISK READ ENTRY U7B01110
0028 C003 116 | FS024 LD FS030+1 U7B01120
0029 8044 117 | A FS810 U7B01130
002A D001 118 | STO FS030+1 U7B01140
002B 4400 0000 119 | FS030 BSI L *-* READ SLET U7B01150
120 | * U7B01160
002D 6804 121 | STX 0 FS040+1 COMPUTE SEARCH ENTRY U7B01170
002E C003 122 | FS035 LD FS040+1 U7B01180
002F 803F 123 | A FS811 U7B01190
0030 D001 124 | STO FS040+1 U7B01200
0031 4400 0000 125 | FS040 BSI L *-* SEARCH SLET FOR ID U7B01210
126 | * U7B01220
0033 C040 127 | LD FS900 LD FOUND FLAG U7B01230
0034 4804 128 | BSC E SKIP IF NOT FOUND U7B01240
0035 7002 129 | MDX FS080 TO LD ACCUM WITH HDRS. U7B01250
0036 C035 130 | LD FS807 ZERO ACCUM U7B01260
0037 70E9 131 | MDX FS023 212 U7B01270
0038 7202 132 | FS080 MDX 2 2 INCR TO WD CNT & SCTR ADDR U7B01280
0039 CA00 133 | LDD 2 FETCH WD CNT AND SCTR ADDR U7B01290
003A 6500 0000 134 | FS088 LDX L1 *-* RESTORE XR1 U7B01300
003C 6600 0000 135 | FS089 LDX L2 *-* RESTORE XR2 U7B01310
003E 4C00 0000 136 | FS090 BSC L *-* RETURN U7B01320
137 | * U7B01330
138 | *************************************************** U7B01340
139 | * DISK READ * U7B01350
140 | *************************************************** U7B01360
0040 0000 141 | FS100 DC *-* ENTRY-EXIT U7B01370
0041 C02F 142 | LD FS813 FETCH I/O ADDRESS U7B01380
0042 1890 143 | SRT 16 U7B01390
0043 C02E 144 | LD FS814 FETCH READ FUNCTION CODE U7B01400
0044 4400 00F2 145 | BSI L DZ000 TO DISK READ U7B01410
0046 7400 00EE 146 | FS101 MDX L $DBSY,0 U7B01420
0048 70FD 147 | MDX FS101 READ NOT COMPLETE U7B01430
148 | * U7B01440
0049 6804 149 | STX 0 FS125+1 COMPUTE ENTRY/EXIT U7B01450
004A C003 150 | FS105 LD FS125+1 U7B01460
004B 9021 151 | S FS808 U7B01470
004C D001 152 | STO FS125+1 U7B01480
004D 4C80 0000 153 | FS125 BSC I *-* RETURN U7B01490
154 | * U7B01500
155 | *************************************************** U7B01510
156 | * SEARCH SLET FOR THE REQUESTED PHASE ID HDR * U7B01520
157 | *************************************************** U7B01530
158 | * U7B01540
004F 0000 159 | FS200 DC *-* ENTRY/EXIT U7B01550
0050 6150 160 | LDX 1 80 U7B01560
0051 6600 007AR 161 | LDX L2 FS991+1 U7B01570
0053 C0AC 162 | FS202 LD FS000 LD REQUESTED ID U7B01580
0054 9200 163 | S 2 0 SUB ID OF SLET U7B01590
0055 4820 164 | BSC Z BE IF FOUND IN SLET U7B01600
0056 7001 165 | MDX FS203 U7B01610
166 | * U7B01620
0057 7009 167 | MDX FS215 SET-UP FOR RETURN U7B01630
0058 7204 168 | FS203 MDX 2 4 U7B01640
0059 71FF 169 | MDX 1 -1 SKIP IF 80 PROCESSED U7B01650
005A 70F8 170 | MDX FS202 U7B01660
005B 6804 171 | FS204 STX 0 FS210+1 COMPUTE ENTRY/EXIT U7B01670
005C C003 172 | FS205 LD FS210+1 U7B01680
005D 900C 173 | S FS805 U7B01690
005E D001 174 | STO FS210+1 U7B01700
005F 4C80 0000 175 | FS210 BSC I *-* RETURN U7B01710
176 | * U7B01720
0061 C009 177 | FS215 LD FS806 SET FOUND FLAG U7B01730
0062 D011 178 | STO FS900 U7B01740
0063 70F7 179 | MDX FS204 RETURN U7B01750
180 | * U7B01760
181 | *************************************************** U7B01770
182 | * CONSTANTS * U7B01780
183 | *************************************************** U7B01790
0064 184 | BSS E 0 U7B01800
0064 0140 185 | FS798 DC 320 U7B01810
0065 0000 186 | FS799 DC *-* U7B01820
0066 0003 187 | FS800 DC /0003 SECTOR ADDRESS U7B01830
0067 0001 188 | FS801 DC /0001 INCR SECTOR ADD. U7B01840
0068 002D 189 | FS803 DC FS100-FS005 ADDRESS OF DISK READ U7B01850
0069 0036 190 | FS804 DC FS200-FS015 ADDRESS OF SEARCH U7B01860
006A 000D 191 | FS805 DC FS205-FS200 U7B01870
006B 0001 192 | FS806 DC /0001 USED WHEN ID FOUND U7B01880
006C 0000 193 | FS807 DC /0000 ZERO U7B01890
006D 000A 194 | FS808 DC FS105-FS100 U7B01900
006E 0018 195 | FS810 DC FS100-FS024 U7B01910
006F 0021 196 | FS811 DC FS200-FS035 U7B01920
0070 0001 197 | FS812 DC 1 ONE U7B01930
0071 0078R 198 | FS813 DC FS990 I/O ADDRESS U7B01940
0072 7000 199 | FS814 DC /7000 READ DISK FUNCTION CODE U7B01950
200 | * U7B01960
0073 00C4 201 | $I400 DC /00C4 ADDR OF LEVEL 4 INT.RTN2-11 U7B01970
0074 202 | BSS E 0 U7B01980
0074 0000 203 | FS900 DC *-* EQUALS 1 WHEN IDS MATCH U7B01990
0075 0000 204 | FS901 DC *-* SAVE XR 1 U7B02000
0076 0005 205 | FS902 DC /0005 U7B02010
206 | *************************************************** U7B02020
207 | * INPUT AREAS * U7B02030
208 | *************************************************** U7B02040
0078 209 | BSS E 0 U7B02050
0078 0140 210 | FS990 DC 320 U7B02060
0079 0000 211 | FS991 DC *-* U7B02070
007A 212 | BSS 372 2-5 U7B02080
01EE 0000 213 | DC *-* U7B02090
214 | * * U7B02100
215 | * * U7B02110
216 | *************************************************** U7B02120
217 | * U7B02130
0078R 218 | FY950 EQU FS990 U7B02140
0079R 219 | FY951 EQU FS991 U7B02150
0008 220 | FYY08 EQU 8 U7B02160
0009 221 | FYY09 EQU 9 U7B02170
FETCH SYSTEM SUBROUTINE-FSYSU
223 | *************************************************** U7B02190
224 | * U7B02200
01EF 0000 225 | FSYSU DC *-* ENTRY-EXIT U7B02210
01F0 DC00 0078R 226 | STD L FY950 U7B02220
01F2 C017 227 | LD FY800 FETCH I/P ADDRESS U7B02230
01F3 1890 228 | SRT 16 U7B02240
01F4 C016 229 | LD FY801 FETCH FUNCTION CODE U7B02250
01F5 4400 00F2 230 | BSI L DZ000 GO TO DISK READ U7B02260
01F7 7400 00EE 231 | FY010 MDX L $DBSY,0 SKIP IF READ COMPLETE U7B02270
01F9 70FD 232 | MDX FY010 U7B02280
01FA C01D 233 | LD FY806 FETCH ADDRESS OF IBT U7B02290
01FB D400 00D4 234 | STO L $IBT4 U7B02300
01FD C019 235 | LD FY805 FETCH COLUMN INTRPT ENTRY U7B02310
01FE D400 0008 236 | STO L FYY08 U7B02320
0200 C012 237 | LD FY804 U7B02330
0201 D400 0009 238 | STO L FYY09 U7B02340
0203 C400 0073R 239 | LD L $I400 LOAD ADR. LEVEL4 RTN. 2-11 U7B02345
0205 D400 000C 240 | STO L LVL4 STORE IN INT TRANS.VECT2-11 U7B02347
0207 C004 241 | LD FY802 U7B02350
0208 4C80 01EFR 242 | FY250 BSC I FSYSU RETURN U7B02360
FSYSU CONSTANTS
244 | *************************************************** U7B02380
245 | * U7B02390
020A 246 | BSS E 0 U7B02400
020A 0078R 247 | FY800 DC FY950 U7B02410
020B 7000 248 | FY801 DC /7000 U7B02420
020C 007BR 249 | FY802 DC FY950+3 USER ENTRY POINT U7B02430
250 | * U7B02440
251 | * IBT U7B02450
252 | * U7B02460
020D 008D 253 | FY803 DC $PST4 U7B02470
020E 008D 254 | DC $PST4 RESERVED U7B02480
020F 008D 255 | DC $PST4 RESERVED U7B02490
0210 008D 256 | DC $PST4 RESERVED U7B02500
0211 007ER 257 | DC FY951+5 1231 U7B02510
0212 007ER 258 | DC FY951+5 1403 U7B02520
0213 007ER 259 | FY804 DC FY951+5 2501 U7B02530
0214 007ER 260 | DC FY951+5 1442 U7B02540
0215 007ER 261 | DC FY951+5 KB/CP U7B02550
0216 007ER 262 | DC FY951+5 1134/1055 U7B02560
0217 0081R 263 | FY805 DC FY951+8 COLUMN INTERRUPT ENTRY U7B02570
0218 020DR 264 | FY806 DC FY803 ADDRESS OF IBT U7B02580
0219 0000 265 | DC *-* U7B02590
021A 266 | END U7B02600
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
$DBSY 00EE 64 146 231
$I400 0073R 201 239
$I405 00D3 62 63
$IBT4 00D4 63 234
$PST4 008D 60 253 254 255 256
DZ000 00F2 65 145 230
FS000 0000R 68 77 162
FS005 0013R 89 189
FS010 0016R 92 88 89 91
FS015 0019R 95 190
FS020 001CR 98 94 95 97
FS023 0021R 109 131
FS024 0028R 116 195
FS030 002BR 119 115 116 118
FS035 002ER 122 196
FS040 0031R 125 121 122 124
FS080 0038R 132 106 129
FS088 003AR 134 70 114
FS089 003CR 135 71
FS090 003ER 136 84
FS100 0040R 141 189 194 195
FS101 0046R 146 147
FS105 004AR 150 194
FS125 004DR 153 149 150 152
FS200 004FR 159 190 191 196
FS202 0053R 162 170
FS203 0058R 168 165
FS204 005BR 171 179
FS205 005CR 172 191
FS210 005FR 175 171 172 174
FS215 0061R 177 167
FS798 0064R 185 72
FS799 0065R 186
FS800 0066R 187 78
FS801 0067R 188 110
FS803 0068R 189 90
FS804 0069R 190 96
FS805 006AR 191 173
FS806 006BR 192 177
FS807 006CR 193 80 130
FS808 006DR 194 151
FS810 006ER 195 117
FS811 006FR 196 123
FS812 0070R 197 83
FS813 0071R 198 142
FS814 0072R 199 144
FS900 0074R 203 81 104 127 178
FS901 0075R 204
FS902 0076R 205 112
FS990 0078R 210 73 198 218
FS991 0079R 211 79 109 111 161 219
FSLEN 0001R 69 74 82
FSYSU 01EFR 225 242
FY010 01F7R 231 232
FY250 0208R 242
FY800 020AR 247 227
FY801 020BR 248 229
FY802 020CR 249 241
FY803 020DR 253 264
FY804 0213R 259 237
FY805 0217R 263 235
FY806 0218R 264 233
FY950 0078R 218 226 247 249
FY951 0079R 219 257 258 259 260 261 262 263
FYY08 0008 220 236
FYY09 0009 221 238
LVL4 000C 61 240