ibm:ibm1130-lib:dmsr2v12:u7fslen_lst
U7FSLEN
| Table Of Contents |
|---|
|
- u7fslen.lst
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
ibm/ibm1130-lib/dmsr2v12/u7fslen_lst.txt · Last modified: 2023/08/06 13:34 by Site Administrator