Blame | Last modification | View Log | Download | RSS feed
Thu Feb 11 16:56:28 2016 Page 12500 A.D. 65816 Macro Assembler #26960 - Version 5.02g-----------------------------------------------------Input Filename : src\F9\xbuf.asmOutput Filename : obj\F9\xbuf.objListing Has Been Relocated2132 .LIST on21332134 F8FF66 .INCLUDE inc\dirp00.inc2135 ;----------------------------------------------------------2136 ; DIRP00.ASM2137 ; PROGETTO: B16012138 ;2139 ; Variabili in Direct Page $002140 ;----------------------------------------------------------21412142 ; sezione COMMON -- questo permette di includere il file in piu' file21432144 .LIST on21452146 DIRP00: .SECTION page0, ref_only, common ;Direct-Page 0021472148 000000 .ABSOLUTE ;; inizia sempre da $002149 000000 .ORG 0x002150 0000002151 000000 0000 JiffyClk .DW ; contatore 10ms 32 bit2152 000002 0000 .DW2153 000004 SysTmr .DS SYSTMRCNT ; system timer 0 (10ms)2154 000008 SysTMF .DS SYSTMRCNT ; flag timer (80 -> start)2155 00000C 00 Bnk0Flag .DB ; <7>: flag test RAM banco 0 ok2156 ; <6>: flag warm reset2157 00000D 00 RTCFlag .DB21582159 00000E atadev .DS 2 ; flag device on ata bus #0 & #12160 ; <7>: device ready2161 ; <6>: compact flash devide (C.F.)2162 ; <5>: device identification ok2163 ; <4>: MBR loaded2164 ; <3>: valid signature in MBR2165 ; <2>: first partition found&active2166 ; <1>:2167 ; <0>: valid partition flag21682169 000010 atasec .DS 8 ; max. user sectors on ata device2170 000018 atambr .DS 8 ; data for first partition found in mbr2171 ; first 3 bytes for start sector of partition2172 ; last byte for partition type21732174 000020 00 fdcdrv .DB ; phisycal drive status (drive #0)2175 ; <7>: disk format established in bit 0&12176 ; <6>: double step seek done2177 ; <5>: trust format bit's (set after ok r/w)Thu Feb 11 16:56:28 2016 Page 22178 ; <4>: write protect bit (if disk in drive)2179 ; <3>: don't care2180 ; <2>: don't care2181 ; <1>: HD disk if set else DD disk2182 ; <0>: CBM format if set else IBM format21832184 000021 00 vdrive .DB ; virtual drive status (ram disk, drive #1)2185 ; <7>: disk format established in bit 0&12186 ; <6>: change disk simulation (after format)2187 ; <5>: don't care2188 ; <4>: write protect bit (under sw control)2189 ; <3>: don't care2190 ; <2>: don't care2191 ; <1>: HD disk if set else DD disk2192 ; <0>: CBM format if set else IBM format21932194 000022 00 fdcctl .DB ; fdc controller status2195 ; <7>: drive is attached2196 ; <6>: drive need recalibration (restore)2197 ; <5>: FDC controller ok2198 ; <4>: motor on2199 ; <3>: dma is active2200 ; <2>: dma chip ok (post routine)2201 ; <1>: clock rate (1=HD,0=DD)2202 ; <0>: disk ready22032204 000023 00 fdctrk .DB ; fd: current seek track2205 000024 00 fdcerr .DB ; fd: last error code2206 000025 00 ataerr .DB ; ata: last error code2207 000026 00 ataxer .DB ; ata: last extended error code22082209 000027 00 CtrlBrk .DB ; flag CTRL+BREAK (NMI)22102211 000028 0000 MemTop .DW ; top memoria RAM2212 00002A 00 .DB ; banco top mem22132214 00002B 00 DflTxtIn .DB ; device di default text input2215 00002C 00 DflTxtOut .DB ; device di default text output22162217 00002D COPPtr LP ; long pointer for COP decoding2218 000030 00 COPIdx .DB ; COP signature/index22192220 ; variabili utilizzate da ACIA2221 000031 00 ACIAFlag .DB22222223 000032 00 ACIArxe_1 .DB ; flag errore 7: errore RX (scarta dato)2224 ; 6: overflow buffer RX2225 ; 5: disconnessione remota2226 ; 2: framing error2227 ; 1: parity error2228 ; 0: overrun error2229 000033 00 ACIArxe_2 .DB22302231 000034 00 ACIAhsk_1 .DB ; handshake 7: handshake attivo2232 ; 6: handshake hardware (RTS,CTS)2233 000035 00 ACIAhsk_2 .DB2234Thu Feb 11 16:56:28 2016 Page 32235 000036 00 ACIAPause_1 .DB ; flag pausa 7: pausa remota (XOFF/RTS=1)2236 ; 6: pausa locale (XON/CTS=1)2237 000037 00 ACIAPause_2 .DB22382239 000038 00 ACIAdsrt_1 .DB ; status transizioni DSR, CTS, DCD2240 ; 7: DSRT, 6: CTST, 5: DCDT2241 000039 00 ACIAdsrt_2 .DB22422243 00003A 00 ACIAdsrl_1 .DB ; status livello linee DSR, CTS, DCD, DTR, RTS2244 ; 7: DSRLVL, 6: CTSLVL, 5: DCDLVL2245 ; 1:DTRLVL, 0:RTSLVL2246 00003B 00 ACIAdsrl_2 .DB22472248 00003C 00 ACIArem_1 .DB ; byte OR registro formato per pausa remota2249 00003D 00 ACIArem_2 .DB22502251 00003E 00 ACIAmsk_1 .DB ; maschera AND per test disconnessione2252 ; $80 per test DSR - $20 per test DCD2253 00003F 00 ACIAmsk_2 .DB22542255 000040 00 ACIAcsr_1 .DB ; control status durante IRQ2256 000041 00 ACIAcsr_2 .DB2257 000042 00 ACIAfr_1 .DB ; copia registro di formato2258 000043 00 ACIAfr_2 .DB2259 000044 00 ACIAOut_1 .DB ; trasmissione XON/XOFF2260 000045 00 ACIAOut_2 .DB22612262 000046 0000 ACIAICnt_1 .DW ; numero bytes in coda RX 12263 000048 0000 ACIAIHead_1 .DW ; puntatore testa buffer RX 12264 00004A 0000 ACIAITail_1 .DW ; puntatore coda buffer RX 12265 00004C 0000 ACIAOCnt_1 .DW ; numero bytes in coda TX 12266 00004E 0000 ACIAOHead_1 .DW ; puntatore testa buffer TX 12267 000050 0000 ACIAOTail_1 .DW ; puntatore coda buffer TX 122682269 000052 0000 ACIAICnt_2 .DW ; numero bytes in coda RX 22270 000054 0000 ACIAIHead_2 .DW ; puntatore testa buffer RX 22271 000056 0000 ACIAITail_2 .DW ; puntatore coda buffer RX 22272 000058 0000 ACIAOCnt_2 .DW ; numero bytes in coda TX 22273 00005A 0000 ACIAOHead_2 .DW ; puntatore testa buffer TX 22274 00005C 0000 ACIAOTail_2 .DW ; puntatore coda buffer TX 222752276 ; bios mem2277 00005E 0000 nsize .DW ; dimensione blocco da allocare2278 ;bsize .DW ; dimensione vera blocco free2279 000060 0000 splitsz .DW ; dimensione blocco splittato2280 000062 0000 bfree .DW ; puntatore blocco free2281 000064 0000 hdrptr .DW ; puntatore header heap22822283 000066 0000 pbrklv .DW ; current break level of current process2284 000068 0000 pbrkmin .DW ; minimum breal level of current process2285 00006A 0000 pbrkmax .DW ; maximum breal level of current process22862287 00006C 00 ACIATmp .DB2288 00006D 00 .DB2289 00006E2290 ; ata/fdc work var's2291 00006E wrktmp .DS $28Thu Feb 11 16:56:28 2016 Page 422922293 ; logical volume's flag2294 ; vol0:phisycal drive, vol1: virtual disk, vol2: ata #0, vol3: ata #12295 000096 volfg1 .DS 4 ; <7>: ready (fdc drive or ata device)2296 ; <6>: valid (fat volume or cbm disk)2297 ; <0>: device #22982299 00009A volfg2 .DS 4 ; <7>: ata device (else fdc disk)2300 ; <6>: fat volume (else cbm disk)2301 ; <1>: fdc only: HD disk if set else DD disk23022303 00009E 0000 xmin .DW2304 0000A0 0000 xrov .DW ; next x-mem buffer free index2305 0000A2 0000 xcnt .DW ; how much x-mem buffer will allocate2306 0000A4 0000 xcls .DW2307 0000A6 0000 xsecd .DW23082309 0000A8 0000 xbfree .DW2310 0000AA 0000 xbfg .DW2311 ;xbmin .DW2312 0000AC 0000 xbtmp .DW2313 ;xbcnt .DW2314 0000AE 0000 xbidx2 .DW23152316 0000B0 00 RTCsec .DB2317 0000B1 00 RTCmin .DB2318 0000B2 00 RTChour .DB2319 0000B3 00 RTCdofw .DB ; day of week2320 0000B4 00 RTCday .DB2321 0000B5 00 RTCmonth .DB2322 0000B6 00 RTCyear .DB2323 0000B7 00 RTCctry .DB ; century23242325 0000B8 0000 CTime .DW2326 0000BA 0000 CDate .DW23272328 0000BC 00 BiosEnt .DB ; flag accesso a bios setup23292330 0000BC .RELATIVE23312332 .ENDS23332357 .LIST on23582359 ;---------------------------------------------------------------------------23602361 000010 CDSSIZ .EQU 16 ; Current Directory Structure Size2362 000020 CDSMAX .EQU 32 ; Max. subdirectory level2363 000008 HCBSIZ .EQU 8 ; Hash Control Block Size2364 000100 HCBMAX .EQU 256 ; Max. number of HCB structs2365 000800 HCBLIM .EQU (HCBSIZ*HCBMAX)2366 000010 DHTSIZ .EQU 16 ; Directory Hash Table Size2367 000100 DHTBLK .EQU DHTSIZ*16 ; 16 entry in one DHT2368 001000 DHTMAX .EQU (DHTSIZ*HCBMAX)23692370 000B40 XBSTART .EQU $0B40 ; first x-mem buffer2371 000FFF XBLST .EQU $0FFF ; last x-mem bufferThu Feb 11 16:56:28 2016 Page 52372 0004C0 XBCNT .EQU XBLST+1-XBSTART ; x-mem buffer's count2373 000980 BS .EQU XBCNT*2 ; word array size23742375 ; segment for store buffer array handler2376 _XBUF: .SECTION ref_only, common, offset XMEMBUF, range $010000 $01FFFF ;XBUF2377 019400 vxcls .DS BS ; cluster/lba low2378 019D80 vxsec .DS BS ; sector/lba high + device2379 .ENDS23802381 ; Segment for store CDS, HCB, RHT struct's2382 _FATS: .SECTION ref_only, common, offset FATSOFS, range FATSST FATSEND ;FAT Struct's2383 01C000 _FATS_START .DS 02384 ; CDS for logical device 02385 01C000 cds_0 .DS 02386 01C000 0000 cds_cls .DW ; first cluster of dir. entry2387 01C002 0000 cds_idx .DW ; index entry on parent cluster2388 01C004 cds_nam .DS 11 ; directory name2389 01C00F 00 cds_fill .DB ; unused byte2390 01C0102391 01C010 .DS (CDSSIZ*(CDSMAX-1))2392 ; CDS for logical device 12393 01C200 cds_1 .DS (CDSSIZ*CDSMAX)2394 ; CDS for logical device 22395 01C400 cds_2 .DS (CDSSIZ*CDSMAX)2396 ; CDS for logical device 32397 01C600 cds_3 .DS (CDSSIZ*CDSMAX)23982399 ; HCB struct.2400 01C800 hcb_0 .DS 0 ; HCB start2401 01C800 0000 hcb_cls .DW ; cluster2402 01C802 00 hcb_dev .DB ; device2403 01C803 00 hcb_sec .DB ; sector of cluster2404 01C804 0000 hcb_prnt .DW ; parent cluster2405 01C806 0000 hcb_dhtp .DW ; pointer to DHT struct's2406 01C808 .DS (HCBSIZ*(HCBMAX-1))24072408 ; Root hash Table for 4 logical devices2409 01D000 rht_hash0 .DS 512*2 ; hard disk (512 entry max.)2410 01D400 rht_hash1 .DS 512*22411 01D800 rht_hash2 .DS 224*2 ; floppy disk (224 entry max.)2412 01D9C0 rht_hash3 .DS 224*224132414 01DB80 _FATS_END .DS 02415 001B80 FATSSIZ .EQU (_FATS_END-_FATS_START)2416 .ENDS24172418 _DHTS: .SECTION ref_only, common, offset DHTSST, range DHTSST DHTSEND ;DHT Struct's2419 040000 dht_0 .DS 02420 040000 0000 dht_hash .DW ; hash of file name2421 040002 0000 dht_cls .DW ; first cluster of file2422 040004 dht_nam .DS 11 ; file name2423 04000F 00 dht_attr .DB ; file attribute2424 040010 .DS (DHTSIZ*(DHTMAX-1))2425 .ENDS24262427 ;---------------------------------------------------------------------------2428 ; DCB struct (Device Control Block) contain var's related to FATThu Feb 11 16:56:28 2016 Page 62429 ;---------------------------------------------------------------------------24302431 F8FF66 STRUCT DCB2432 _DCB .SECTION page0,common,ref_only,offset 0 ;DCB Struct2433 ;.ABSOLUTE2434 ;.ORG 02435 .MNLIST2436 000000 0000 dcb_root .DW ; lba of root dir2437 000002 0000 dcb_fat1 .DW ; lba of fat1 table2438 000004 0000 dcb_fat2 .DW ; lba of fat2 table2439 000006 0000 dcb_cls .DW ; lba of first data cluster2440 000008 0000 dcb_max .DW ; max usable cluster + 12441 00000A 00 dcb_csiz .DB ; cluster size (1,2,4,8,16,32,64)2442 00000B 00 dcb_cshf .DB ; cluster shift (0,1,2,3,4,5,6)2443 00000C 00 dcb_fsiz .DB ; fat table size (if 0 -> 256)2444 00000D 00 dcb_rsiz .DB ; root dir size2445 00000E 0000 dcb_rent .DW ; root dir. max. entry2446 000010 0000 dcb_rbuf .DW ; root dir cache buffer#2447 000012 0000 dcb_fbuf .DW ; fat table cache buffer#2448 000014 0000 dcb_free .DW ; count of free cluster's2449 000016 0000 dcb_nxt .DW ; next free cluster2450 000018 00 dcb_fg1 .DB2451 000019 00 dcb_fg2 .DB2452 00001A 0000 dcb_rhtp .DW ; pointer to RHT hash table2453 00001C 0000 dcb_cdsp .DW ; pointer to CDS struct24542455 ;dcb_cdc .DW ; starting cluster of current directory2456 ;dcb_cdp .DW ; parent cluster of c.d. (where is entry)2457 ;dcb_cds .DB ; sec. of c.d. entry in parent cluster2458 ;dcb_cdx .DB ; index of c.d. entry in parent cluster/sector2459 ;dcb_hroot .DW ; hdt root pointer2460 ;dcb_hcd .DW ; hdt cur dir pointer2461 00001E ESTRUCT DCB2462 00001E DCBSIZE .DS 02463 ;.RELATIVE2464 .ENDS2465 .MNLIST24662467 ;---------------------------------------------------------------------------2468 ; direct page for DCB var's2469 ;---------------------------------------------------------------------------24702471 DPDCB: .SECTION page0, common, ref_only, offset 0 ;DCB D.P.24722473 000000 fdt_0 .DS DCBSIZE2474 00001E fdt_1 .DS DCBSIZE2475 00003C fdt_2 .DS DCBSIZE2476 00005A fdt_3 .DS DCBSIZE24772478 000078 0000 xbmin .DW ; minimum index2479 00007A 0000 xbrov .DW ; next x-mem buffer2480 00007C 0000 xbcnt .DW ; how much x-mem buffer will allocate2481 00007E 0000 xbcls .DW ; buffer cluster2482 000080 0000 xbsec .DW ; buffer sector+device24832484 .ENDS2485Thu Feb 11 16:56:28 2016 Page 72486 ;---------------------------------------------------------------------------2487 ; direct page for FAT var's2488 ;---------------------------------------------------------------------------24892490 DPFAT: .SECTION page0, common, ref_only, offset 0 ;FAT D.P.24912492 000000 0000 fat_root .DW ; lba of root dir2493 000002 0000 fat_fat1 .DW ; lba of fat1 table2494 000004 0000 fat_fat2 .DW ; lba of fat2 table2495 000006 0000 fat_cls .DW ; lba of first data cluster2496 000008 0000 fat_max .DW ; max usable cluster + 12497 00000A 00 fat_csiz .DB ; cluster size (1,2,4,8,16,32,64)2498 00000B 00 fat_cshf .DB ; cluster shift (0,1,2,3,4,5,6)2499 00000C 00 fat_fsiz .DB ; fat table size (if 0 -> 256)2500 00000D 00 fat_rsiz .DB ; root dir size2501 00000E 0000 fat_rbuf .DW ; root dir cache buffer#2502 000010 0000 fat_fbuf .DW ; fat table cache buffer#2503 000012 0000 fat_free .DW ; count of free cluster's2504 000014 0000 fat_nxt .DW ; next free cluster2505 000016 00 fat_fg1 .DB2506 000017 00 fat_fg2 .DB2507 000018 0000 fat_cdc .DW ; starting cluster of current directory2508 00001A 0000 fat_cdp .DW ; parent cluster of c.d. (where is entry)2509 00001C 00 fat_cds .DB ; sec. of c.d. entry in parent cluster2510 00001D 00 fat_cdx .DB ; index of c.d. entry in parent cluster/sector25112512 ;hdtfree .DW ; hdt free list2513 ;hdtp .DW ; cur. HDT pointer2514 ;hdtprev .DW ; prev. HDT pointer2515 ;hdthip .DW ; the more big pointer2516 ;hdthsh .DW ; hash calc2517 ;hdtscl .DW ; cluster to search2518 ;curcls .DW ; current cluster2519 ;parcls .DW ; parent cluster2520 ;filcls .DW ; first file cluster2521 ;dsecent .DB ; directory sec. entry2522 ;didxent .DB ; directory index in sec2523 ;curdev .DB ; current logical device2524 ;hdtflag .DB ; HDT device+fkag25252526 00001E fcbs .DS 32 ; current file control block25272528 00003E 0000 fhash .DW ; hash of file name2529 000040 0000 hcbcls .DW ; cluster to search/store in HCB2530 000042 00 hcbdev .DB ; device to search/store in HCB2531 000043 00 hcbsec .DB ; sector/cls to search/store in HCB2532 000044 0000 hcbprnt .DW ; parent cluster to search/store in HCB2533 000046 0000 hcbrov .DW ; next available HCB2534 000048 0000 hcbp .DW ; search HCB pointer2535 00004A 0000 hcbfp .DW ; HCB of found entry2536 00004C 0000 hcbt1 .DW ; HCB temp2537 00004E 0000 hcbt2 .DW ; HCB temp2538 000050 0000 dhtp .DW ; pointer to DHT struct2539 000052 0000 dhtidx .DW ; index of match DHT2540 000054 0000 dhtcls .DW ; cluster to store in DHT ($FFFF if lfn entry)2541 000056 00 dhtattr .DB ; attribute from matching DHT2542 000057 00 btmp .DB ; tempThu Feb 11 16:56:28 2016 Page 82543 000058 0000 delcls .DW ; deleted/empty entry cluster2544 00005A 00 deldev .DB ; deleted/empty entry device2545 00005B 00 delsec .DB ; deleted/empty entry sector2546 00005C 0000 delidx .DW ; deleted/empty entry index2547 00005E 0000 deldht .DW ; deleted/empty entry DHT25482549 000060 dirp LP25502551 .ENDS255225532554 .LIST on25552556 ;---------------------------------------------------------------------------2557 ; code segment -- bank $F92558 ;---------------------------------------------------------------------------25592560 .CODEF925612562 .LONGA off2563 .LONGI off25642565 ; get a new x-mem buffer2566 ; param's in register's & stack2567 ; in: A=starting sector of cluster2568 ; X=logical device2569 ; Y=number of buffer's to allocate2570 ; SR+3=cluster number (word)2571 ; out: SR+3=buffer # (word)2572 ; use: all2573 F905BB xgetbuf:2574 ;lda hdt_next2575 F905BB 85 A6 sta xsecd ; save lba high2576 F905BD 86 A7 stx xsecd+1 ; save logical device2577 F905BF 84 A2 sty xcnt ; buffer's count#2578 F905C1 64 A3 stz xcnt+12579 F905C3 8B phb ; save data bank2580 F905C4 A9 01 lda #^vxcls2581 F905C6 48 pha2582 F905C7 AB plb ; set data bank to array2583 F905C8 A9 80 lda #$802584 F905CA 04 A7 tsb xsecd+1 ; mark as in use2585 F905CC CPU16CLC2586 F905CC C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2587 .LONGA on2588 .LONGI on2589 .MNLIST2590 F905CE A3 03 lda $03,s2591 F905D0 85 A4 sta xcls ; save cluster#2592 F905D2 A5 A0 lda xrov ; current first available index2593 F905D4 AA tax2594 F905D5 A8 tay2595 F905D6 65 A2 adc xcnt ; next available index2596 F905D8 C9 C0 04 cmp #XBCNT ; over limit?2597 F905DB 90 07 bcc ?10 ; no2598 F905DD A5 9E lda xmin ; start from beginning2599 F905DF AA taxThu Feb 11 16:56:28 2016 Page 92600 F905E0 A8 tay2601 F905E1 18 clc2602 F905E2 65 A2 adc xcnt2603 F905E4 85 A0 ?10: sta xrov ; update next available index2604 F905E6 8A txa2605 F905E7 0A asl a2606 F905E8 AA tax ; array index2607 F905E9 98 tya2608 F905EA 18 clc2609 F905EB 69 40 0B adc #XBSTART2610 F905EE 83 03 sta $03,s ; return buffer#2611 F905F0 80 2D bra xget2612 F905F22613 ; get a new reserved x-mem buffer for root dir & fat's tables2614 ; this routine will be called before to allocate standard buffer's2615 ; param's in register's & stack2616 ; in: A=lba high2617 ; X=logical device2618 ; SR+5=number of buffer's to allocate (word)2619 ; SR+3=lba low (word)2620 ; out: SR+5=buffer # (word)2621 ; use: all2622 F905F2 xrsvbuf:2623 F905F2 85 A6 sta xsecd ; save lba high2624 F905F4 86 A7 stx xsecd+1 ; save logical device2625 F905F6 8B phb ; save data bank2626 F905F7 A9 01 00 lda #^vxcls2627 F905FA 48 pha2628 F905FB AB plb ; set data bank to array2629 F905FC A9 80 00 lda #$802630 F905FF 04 A7 tsb xsecd+1 ; mark as in use2631 F90601 CPU16CLC2632 F90601 C2 31 rep #(PMFLAG.OR.PXFLAG.OR.PCFLAG)2633 .LONGA on2634 .LONGI on2635 .MNLIST2636 F90603 A3 03 lda $03,s2637 F90605 85 A4 sta xcls ; save starting lba2638 F90607 A3 05 lda $05,s2639 F90609 85 A2 sta xcnt2640 F9060B A5 A0 lda xrov ; current first available index2641 F9060D AA tax2642 F9060E A8 tay2643 F9060F 65 A2 adc xcnt ; next available index2644 F90611 85 9E sta xmin ; raise min. available index2645 F90613 85 A0 sta xrov ; update next available index2646 F90615 8A txa2647 F90616 0A asl a2648 F90617 AA tax ; array index2649 F90618 98 tya2650 F90619 18 clc2651 F9061A 69 40 0B adc #XBSTART2652 F9061D 83 05 sta $05,s ; return buffer#2653 F9061F xget:2654 F9061F A5 A4 lda xcls2655 F90621 9D 00 94 sta !vxcls,x ; store starting lba low2656 F90624 A5 A6 lda xsecdThu Feb 11 16:56:28 2016 Page 102657 F90626 9D 80 9D sta !vxsec,x ; store lba high + logical device2658 F90629 A4 A2 ldy xcnt2659 F9062B 88 ?10: dey2660 F9062C F0 14 beq ?302661 F9062E E8 inx2662 F9062F E8 inx2663 F90630 E6 A4 inc xcls2664 F90632 D0 02 bne ?202665 F90634 E6 A6 inc xsecd2666 F90636 A5 A4 ?20: lda xcls2667 F90638 9D 00 94 sta !vxcls,x ; store lba low2668 F9063B A5 A6 lda xsecd2669 F9063D 9D 80 9D sta !vxsec,x ; store lba high + device2670 F90640 80 E9 bra ?102671 F90642 ?30: CPU082672 F90642 E2 30 sep #(PMFLAG.OR.PXFLAG)2673 .LONGA off2674 .LONGI off2675 .MNLIST2676 F90644 60 rts2677Lines Assembled : 2645 Errors : 0