|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12032 (0x2f00)
Names: »FDRIVES.ASM«
└─⟦7303e23ba⟧ Bits:30003507 JET80 System diskette
└─ ⟦this⟧ »FDRIVES.ASM«
└─⟦a844860b7⟧ Bits:30002858 CP/M Plus (tm) Version 3.0 for JET80
└─ ⟦this⟧ »FDRIVES.ASM«
└─⟦c10cc8855⟧ Bits:30002859 CP/M Plus med Hit & Dit filoverførsel for JET80
└─ ⟦this⟧ »FDRIVES.ASM«
0x0000…0020 09 54 49 54 4c 45 20 27 46 44 52 49 56 45 53 2e 41 53 4d 20 20 20 20 20 54 41 42 4c 45 53 20 46 ┆ TITLE 'FDRIVES.ASM TABLES F┆ 0x0020…0040 4f 52 20 44 49 53 4b 45 54 54 45 53 27 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆OR DISKETTES' ;****************┆ 0x0040…0060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0060…0080 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 20 44 45 46 49 4e 49 54 49 4f 4e 20 4d 4f 44 55 ┆********* ;* DEFINITION MODU┆ 0x0080…00a0 4c 45 20 46 4f 52 20 54 48 45 20 46 4c 4f 50 50 49 45 53 20 49 4e 20 54 48 45 20 53 59 53 54 45 ┆LE FOR THE FLOPPIES IN THE SYSTE┆ 0x00a0…00c0 4d 20 20 20 2a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆M * ;************************┆ 0x00c0…00e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x00e0…0100 2a 0d 0a 3b 20 4c 41 54 45 53 54 20 43 48 41 4e 47 45 3a 20 31 39 38 34 2d 30 36 2d 31 33 2e 20 ┆* ; LATEST CHANGE: 1984-06-13. ┆ 0x0100…0120 20 50 53 57 0d 0a 3b 20 42 49 4f 53 52 45 56 49 53 49 4f 4e 20 44 2e 0d 0a 3b 20 46 4f 52 20 54 ┆ PSW ; BIOSREVISION D. ; FOR T┆ 0x0120…0140 48 45 20 52 4d 41 43 20 41 53 53 45 4d 42 4c 45 52 0d 0a 54 52 55 45 09 45 51 55 09 30 46 46 48 ┆HE RMAC ASSEMBLER TRUE EQU 0FFH┆ 0x0140…0160 0d 0a 46 41 4c 53 45 09 45 51 55 09 30 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ FALSE EQU 0 ;****************┆ 0x0160…0180 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0180…01a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 20 20 20 20 20 20 57 68 61 74 ┆****************** ; What┆ 0x01a0…01c0 20 6b 69 6e 64 20 6f 66 20 66 6c 6f 70 70 79 20 73 79 73 74 65 6d 20 64 6f 20 59 6f 75 20 77 61 ┆ kind of floppy system do You wa┆ 0x01c0…01e0 6e 74 20 3f 0d 0a 0d 0a 56 45 52 49 46 59 09 45 51 55 09 54 52 55 45 09 09 3b 20 56 65 72 69 66 ┆nt ? VERIFY EQU TRUE ; Verif┆ 0x01e0…0200 79 20 61 66 74 65 72 20 77 72 69 74 65 2e 0d 0a 0d 0a 4d 38 09 45 51 55 09 46 41 4c 53 45 09 09 ┆y after write. M8 EQU FALSE ┆ 0x0200…0220 3b 20 41 3a 20 38 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 4e ┆; A: 8" 2x77x8x1024, 256 ent. UN┆ 0x0220…0240 49 54 30 0d 0a 09 09 09 09 3b 20 42 3a 20 38 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 ┆IT0 ; B: 8" 2x77x8x1024, 25┆ 0x0240…0260 36 20 65 6e 74 2e 20 55 4e 49 54 31 0d 0a 09 09 09 09 3b 20 43 3a 20 35 22 20 32 78 38 30 78 35 ┆6 ent. UNIT1 ; C: 5" 2x80x5┆ 0x0260…0280 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 09 09 09 09 3b 20 44 3a 20 ┆x1024, 128 ent. UNIT0 ; D: ┆ 0x0280…02a0 38 22 20 31 78 37 37 78 32 36 78 31 32 38 2c 20 20 36 34 20 65 6e 74 2e 20 55 4e 49 54 31 0d 0a ┆8" 1x77x26x128, 64 ent. UNIT1 ┆ 0x02a0…02c0 4d 35 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 41 3a 20 35 22 20 32 78 37 37 78 38 78 31 30 32 ┆M5 EQU FALSE ; A: 5" 2x77x8x102┆ 0x02c0…02e0 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 09 09 09 09 3b 20 42 3a 20 35 22 20 32 ┆4, 256 ent. UNIT0 ; B: 5" 2┆ 0x02e0…0300 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 4e 49 54 31 0d 0a 09 09 09 09 ┆x77x8x1024, 256 ent. UNIT1 ┆ 0x0300…0320 3b 20 43 3a 20 38 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 4e ┆; C: 8" 2x77x8x1024, 256 ent. UN┆ 0x0320…0340 49 54 30 0d 0a 09 09 09 09 3b 20 44 3a 20 38 22 20 31 78 37 37 78 32 36 78 31 32 38 2c 20 20 36 ┆IT0 ; D: 8" 1x77x26x128, 6┆ 0x0340…0360 34 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 4d 35 39 36 44 09 45 51 55 09 54 52 55 45 09 09 3b 20 ┆4 ent. UNIT0 M596D EQU TRUE ; ┆ 0x0360…0380 41 3a 20 35 22 20 32 78 38 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 2e 20 55 4e 49 54 ┆A: 5" 2x80x5x1024, 128 ent. UNIT┆ 0x0380…03a0 30 0d 0a 09 09 09 09 3b 20 42 3a 20 35 22 20 32 78 38 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 ┆0 ; B: 5" 2x80x5x1024, 128 ┆ 0x03a0…03c0 65 6e 74 2e 20 55 4e 49 54 31 0d 0a 09 09 09 09 3b 20 43 3a 20 38 22 20 32 78 37 37 78 38 78 31 ┆ent. UNIT1 ; C: 8" 2x77x8x1┆ 0x03c0…03e0 30 32 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 09 09 09 09 3b 20 44 3a 20 38 22 ┆024, 256 ent. UNIT0 ; D: 8"┆ 0x03e0…0400 20 31 78 37 37 78 32 36 78 31 32 38 2c 20 20 36 34 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 4d 35 ┆ 1x77x26x128, 64 ent. UNIT0 M5┆ 0x0400…0420 34 38 44 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 41 3a 20 35 22 20 32 78 34 30 78 35 78 31 30 ┆48D EQU FALSE ; A: 5" 2x40x5x10┆ 0x0420…0440 32 34 2c 20 31 32 38 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 09 09 09 09 3b 20 42 3a 20 35 22 20 ┆24, 128 ent. UNIT0 ; B: 5" ┆ 0x0440…0460 32 78 34 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 2e 20 55 4e 49 54 31 0d 0a 09 09 09 ┆2x40x5x1024, 128 ent. UNIT1 ┆ 0x0460…0480 09 3b 20 43 3a 20 38 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 ┆ ; C: 8" 2x77x8x1024, 256 ent. U┆ 0x0480…04a0 4e 49 54 30 0d 0a 09 09 09 09 3b 20 44 3a 20 38 22 20 31 78 37 37 78 32 36 78 31 32 38 2c 20 20 ┆NIT0 ; D: 8" 1x77x26x128, ┆ 0x04a0…04c0 36 34 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 4d 35 34 38 53 09 45 51 55 09 46 41 4c 53 45 09 09 ┆64 ent. UNIT0 M548S EQU FALSE ┆ 0x04c0…04e0 3b 20 41 3a 20 35 22 20 31 78 34 30 78 35 78 31 30 32 34 2c 20 20 36 34 20 65 6e 74 2e 20 55 4e ┆; A: 5" 1x40x5x1024, 64 ent. UN┆ 0x04e0…0500 49 54 30 0d 0a 09 09 09 09 3b 20 42 3a 20 35 22 20 31 78 34 30 78 35 78 31 30 32 34 2c 20 20 36 ┆IT0 ; B: 5" 1x40x5x1024, 6┆ 0x0500…0520 34 20 65 6e 74 2e 20 55 4e 49 54 31 0d 0a 09 09 09 09 3b 20 43 3a 20 38 22 20 32 78 37 37 78 38 ┆4 ent. UNIT1 ; C: 8" 2x77x8┆ 0x0520…0540 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 09 09 09 09 3b 20 44 3a 20 ┆x1024, 256 ent. UNIT0 ; D: ┆ 0x0540…0560 38 22 20 31 78 37 37 78 32 36 78 31 32 38 2c 20 20 36 34 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a ┆8" 1x77x26x128, 64 ent. UNIT0 ┆ 0x0560…0580 3b 20 4d 41 52 4b 20 43 4f 52 52 45 43 54 20 46 4c 4f 50 50 59 20 53 59 53 54 45 4d 20 57 49 54 ┆; MARK CORRECT FLOPPY SYSTEM WIT┆ 0x0580…05a0 48 20 54 52 55 45 2e 20 4e 4f 54 45 20 4f 4e 4c 59 20 4f 4e 45 20 54 55 45 2e 0d 0a 3b 2a 2a 2a ┆H TRUE. NOTE ONLY ONE TUE. ;***┆ 0x05a0…05c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x05c0…05e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d ┆******************************* ┆ 0x05e0…0600 0a 09 50 41 47 45 09 34 32 0d 0a 52 41 54 45 30 09 45 51 55 09 30 30 30 30 30 30 30 30 42 09 3b ┆ PAGE 42 RATE0 EQU 00000000B ;┆ 0x0600…0620 20 33 6d 73 2f 36 6d 73 0d 0a 52 41 54 45 31 09 45 51 55 09 30 30 30 30 30 30 30 31 42 09 3b 20 ┆ 3ms/6ms RATE1 EQU 00000001B ; ┆ 0x0620…0640 36 6d 73 2f 31 32 6d 73 0d 0a 52 41 54 45 32 09 45 51 55 09 30 30 30 30 30 30 31 30 42 09 3b 20 ┆6ms/12ms RATE2 EQU 00000010B ; ┆ 0x0640…0660 31 30 6d 73 2f 32 30 6d 73 0d 0a 52 41 54 45 33 09 45 51 55 09 30 30 30 30 30 30 31 31 42 09 3b ┆10ms/20ms RATE3 EQU 00000011B ;┆ 0x0660…0680 20 31 35 6d 73 2f 33 30 6d 73 0d 0a 0d 0a 44 4f 55 42 4c 53 09 45 51 55 09 30 46 46 48 09 09 3b ┆ 15ms/30ms DOUBLS EQU 0FFH ;┆ 0x0680…06a0 20 44 4f 55 42 4c 45 20 53 49 44 45 44 0d 0a 53 49 4e 47 4c 53 09 45 51 55 09 30 09 09 3b 20 53 ┆ DOUBLE SIDED SINGLS EQU 0 ; S┆ 0x06a0…06c0 49 4e 47 4c 45 20 53 49 44 45 44 0d 0a 0d 0a 55 4e 49 54 30 09 45 51 55 09 30 30 30 30 30 30 30 ┆INGLE SIDED UNIT0 EQU 0000000┆ 0x06c0…06e0 30 42 09 3b 20 50 48 59 53 49 43 41 4c 20 55 4e 49 54 20 53 45 4c 45 43 54 20 30 0d 0a 55 4e 49 ┆0B ; PHYSICAL UNIT SELECT 0 UNI┆ 0x06e0…0700 54 31 09 45 51 55 09 30 30 30 30 30 30 30 31 42 09 3b 20 50 48 59 53 49 43 41 4c 20 55 4e 49 54 ┆T1 EQU 00000001B ; PHYSICAL UNIT┆ 0x0700…0720 20 53 45 4c 45 43 54 20 31 0d 0a 55 4e 49 54 32 09 45 51 55 09 30 30 30 30 30 30 31 30 42 09 3b ┆ SELECT 1 UNIT2 EQU 00000010B ;┆ 0x0720…0740 20 50 48 59 53 49 43 41 4c 20 55 4e 49 54 20 53 45 4c 45 43 54 20 32 0d 0a 55 4e 49 54 33 09 45 ┆ PHYSICAL UNIT SELECT 2 UNIT3 E┆ 0x0740…0760 51 55 09 30 30 30 30 30 30 31 31 42 09 3b 20 50 48 59 53 49 43 41 4c 20 55 4e 49 54 20 53 45 4c ┆QU 00000011B ; PHYSICAL UNIT SEL┆ 0x0760…0780 45 43 54 20 33 0d 0a 0d 0a 49 4e 43 48 35 09 45 51 55 09 30 30 30 30 31 30 30 30 42 09 3b 20 35 ┆ECT 3 INCH5 EQU 00001000B ; 5┆ 0x0780…07a0 22 2d 46 4c 4f 50 50 59 0d 0a 49 4e 43 48 38 09 45 51 55 09 31 31 30 31 30 31 30 30 42 09 3b 20 ┆"-FLOPPY INCH8 EQU 11010100B ; ┆ 0x07a0…07c0 38 22 2d 46 4c 4f 50 50 59 0d 0a 0d 0a 44 4f 55 42 4c 44 09 45 51 55 09 30 30 30 30 30 30 30 30 ┆8"-FLOPPY DOUBLD EQU 00000000┆ 0x07c0…07e0 42 09 3b 20 44 4f 55 42 4c 45 20 44 45 4e 53 49 54 59 0d 0a 53 49 4e 47 4c 44 09 45 51 55 09 30 ┆B ; DOUBLE DENSITY SINGLD EQU 0┆ 0x07e0…0800 30 31 30 30 30 30 30 42 09 3b 20 53 49 4e 47 4c 45 20 44 45 4e 53 49 54 59 0d 0a 0d 0a 43 4f 4d ┆0100000B ; SINGLE DENSITY COM┆ 0x0800…0820 4d 09 45 51 55 09 30 43 30 48 09 09 3b 20 43 4f 4d 4d 4f 4e 20 41 52 45 41 0d 8a 0d 0a 09 49 46 ┆M EQU 0C0H ; COMMON AREA IF┆ 0x0820…0840 09 4d 38 0d 0a 53 49 47 4e 09 45 51 55 09 27 38 27 0d 0a 09 45 4c 53 45 0d 0a 53 49 47 4e 09 45 ┆ M8 SIGN EQU '8' ELSE SIGN E┆ 0x0840…0860 51 55 09 27 35 27 0d 0a 09 45 4e 44 49 46 0d 0a 09 45 58 54 52 4e 09 46 44 52 45 41 44 2c 46 44 ┆QU '5' ENDIF EXTRN FDREAD,FD┆ 0x0860…0880 57 52 49 54 2c 46 44 4c 47 49 4e 2c 46 44 49 4e 49 54 0d 0a 09 50 55 42 4c 49 43 09 40 44 54 42 ┆WRIT,FDLGIN,FDINIT PUBLIC @DTB┆ 0x0880…08a0 4c 2c 3f 54 49 54 45 4c 0d 0a 09 50 55 42 4c 49 43 09 40 43 4f 4d 4d 4f 0d 0a 09 43 53 45 47 0d ┆L,?TITEL PUBLIC @COMMO CSEG ┆ 0x08a0…08c0 0a 40 44 54 42 4c 3a 09 44 57 09 46 4c 41 2c 46 4c 42 2c 46 4c 43 2c 46 4c 44 0d 0a 09 44 57 09 ┆ @DTBL: DW FLA,FLB,FLC,FLD DW ┆ 0x08c0…08e0 30 2c 30 2c 30 2c 30 0d 0a 09 44 57 09 30 2c 30 2c 30 2c 30 0d 0a 09 44 57 09 30 2c 30 2c 30 2c ┆0,0,0,0 DW 0,0,0,0 DW 0,0,0,┆ 0x08e0…0900 30 0d 0a 40 43 4f 4d 4d 4f 3a 09 44 42 09 43 4f 4d 4d 0d 0a 09 50 41 47 45 0d 0a 09 44 53 45 47 ┆0 @COMMO: DB COMM PAGE DSEG┆ 0x0900…0920 0d 0a 09 49 46 09 4d 38 0d 0a 3b 20 44 65 66 69 6e 65 20 38 22 20 32 78 37 37 78 38 78 31 30 32 ┆ IF M8 ; Define 8" 2x77x8x102┆ 0x0920…0940 34 2c 20 32 35 36 20 65 6e 74 72 69 65 73 2e 20 55 4e 49 54 20 41 3a 0d 0a 0d 0a 09 44 57 09 46 ┆4, 256 entries. UNIT A: DW F┆ 0x0940…0960 44 57 52 49 54 0d 0a 09 44 57 09 46 44 52 45 41 44 0d 0a 09 44 57 09 46 44 4c 47 49 4e 0d 0a 09 ┆DWRIT DW FDREAD DW FDLGIN ┆ 0x0960…0980 44 57 09 46 44 49 4e 49 54 0d 0a 09 44 42 09 49 4e 43 48 38 2b 55 4e 49 54 30 2b 44 4f 55 42 4c ┆DW FDINIT DB INCH8+UNIT0+DOUBL┆ 0x0980…09a0 44 0d 0a 09 09 09 09 3b 20 24 46 44 58 53 4c 0d 0a 09 44 42 09 30 09 09 3b 20 0d 0a 46 4c 41 3a ┆D ; $FDXSL DB 0 ; FLA:┆ 0x09a0…09c0 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 41 4e 53 20 54 41 42 4c 45 0d 0a 09 44 42 09 30 2c 30 ┆ DW 0 ; NO TRANS TABLE DB 0,0┆ 0x09c0…09e0 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a 09 44 42 09 30 09 09 3b 20 4d 45 44 49 41 46 4c ┆,0,0,0,0,0,0,0 DB 0 ; MEDIAFL┆ 0x09e0…0a00 41 47 0d 0a 09 44 57 09 46 38 44 09 09 3b 20 41 44 44 52 45 53 53 20 54 2e 20 44 50 42 0d 0a 09 ┆AG DW F8D ; ADDRESS T. DPB ┆ 0x0a00…0a20 44 57 09 30 46 46 46 45 48 09 09 3b 20 43 48 45 43 4b 53 55 4d 20 56 45 43 54 4f 52 20 53 45 54 ┆DW 0FFFEH ; CHECKSUM VECTOR SET┆ 0x0a20…0a40 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 41 4c 4c 4f 43 20 ┆ BY GENCPM DW 0FFFEH ; ALLOC ┆ 0x0a40…0a60 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 ┆VECTOR SET BY GENCPM DW 0FFFEH┆ 0x0a60…0a80 2c 30 46 46 46 45 48 09 3b 20 4c 45 54 20 47 45 4e 43 50 4d 20 53 45 54 55 50 0d 0a 09 44 57 09 ┆,0FFFEH ; LET GENCPM SETUP DW ┆ 0x0a80…0aa0 30 46 46 46 45 48 09 09 3b 20 44 49 52 42 43 42 2c 20 44 54 41 42 43 42 2c 20 48 41 53 48 0d 0a ┆0FFFEH ; DIRBCB, DTABCB, HASH ┆ 0x0aa0…0ac0 09 44 42 09 30 09 09 3b 20 48 41 53 48 20 42 41 4e 4b 20 0d 0a 0d 0a 0d 0a 3b 20 44 65 66 69 6e ┆ DB 0 ; HASH BANK ; Defin┆ 0x0ac0…0ae0 65 20 38 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 72 69 65 73 2e 20 55 ┆e 8" 2x77x8x1024, 256 entries. U┆ 0x0ae0…0b00 4e 49 54 20 42 3a 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 54 0d 0a 09 44 57 09 46 44 52 45 41 44 ┆NIT B: DW FDWRIT DW FDREAD┆ 0x0b00…0b20 0d 0a 09 44 57 09 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 44 49 4e 49 54 0d 0a 09 44 42 09 49 4e ┆ DW FDLGIN DW FDINIT DB IN┆ 0x0b20…0b40 43 48 38 2b 55 4e 49 54 31 2b 44 4f 55 42 4c 44 0d 0a 09 09 09 09 3b 20 24 46 44 58 53 4c 0d 0a ┆CH8+UNIT1+DOUBLD ; $FDXSL ┆ 0x0b40…0b60 09 44 42 09 30 09 09 3b 20 0d 0a 46 4c 42 3a 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 41 4e 53 ┆ DB 0 ; FLB: DW 0 ; NO TRANS┆ 0x0b60…0b80 20 54 41 42 4c 45 20 0d 0a 09 44 42 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a ┆ TABLE DB 0,0,0,0,0,0,0,0,0 ┆ 0x0b80…0ba0 09 44 42 09 30 09 09 3b 20 4d 45 44 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 38 44 09 09 3b 20 41 ┆ DB 0 ; MEDIAFLAG DW F8D ; A┆ 0x0ba0…0bc0 44 44 52 45 53 53 20 54 2e 20 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 43 48 45 ┆DDRESS T. DPB DW 0FFFEH ; CHE┆ 0x0bc0…0be0 43 4b 53 55 4d 20 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 47 45 4e 43 50 4d 0d 8a 09 44 57 09 ┆CKSUM VECTOR SET BY GENCPM DW ┆ 0x0be0…0c00 30 46 46 46 45 48 09 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 47 45 ┆0FFFEH ; ALLOC VECTOR SET BY GE┆ 0x0c00…0c20 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 3b 20 4c 45 54 20 47 45 ┆NCPM DW 0FFFEH,0FFFEH ; LET GE┆ 0x0c20…0c40 4e 43 50 4d 20 53 45 54 55 50 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 44 49 52 42 43 42 ┆NCPM SETUP DW 0FFFEH ; DIRBCB┆ 0x0c40…0c60 2c 20 44 54 41 42 43 42 2c 20 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 48 41 53 48 20 42 41 ┆, DTABCB, HASH DB 0 ; HASH BA┆ 0x0c60…0c80 4e 4b 0d 0a 0d 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 4d 35 0d 0a 3b 20 44 65 66 69 6e 65 20 35 ┆NK ENDIF IF M5 ; Define 5┆ 0x0c80…0ca0 2e 32 35 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 72 69 65 73 2e 20 55 ┆.25" 2x77x8x1024, 256 entries. U┆ 0x0ca0…0cc0 4e 49 54 20 41 3a 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 54 0d 0a 09 44 57 09 46 44 52 45 41 44 ┆NIT A: DW FDWRIT DW FDREAD┆ 0x0cc0…0ce0 0d 0a 09 44 57 09 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 44 49 4e 49 54 0d 0a 09 44 42 09 49 4e ┆ DW FDLGIN DW FDINIT DB IN┆ 0x0ce0…0d00 43 48 35 2b 55 4e 49 54 30 2b 44 4f 55 42 4c 44 2b 31 31 30 30 30 30 30 30 42 0d 0a 09 09 09 09 ┆CH5+UNIT0+DOUBLD+11000000B ┆ 0x0d00…0d20 3b 20 24 46 44 58 53 4c 20 32 20 4d 48 7a 20 38 22 20 4d 6f 64 65 0d 0a 09 44 42 09 30 09 09 3b ┆; $FDXSL 2 MHz 8" Mode DB 0 ;┆ 0x0d20…0d40 20 0d 0a 46 4c 41 3a 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 41 4e 53 20 54 41 42 4c 45 0d 0a ┆ FLA: DW 0 ; NO TRANS TABLE ┆ 0x0d40…0d60 09 44 42 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a 09 44 42 09 30 09 09 3b 20 ┆ DB 0,0,0,0,0,0,0,0,0 DB 0 ; ┆ 0x0d60…0d80 4d 45 44 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 35 4d 41 58 09 09 3b 20 41 44 44 52 45 53 53 20 ┆MEDIAFLAG DW F5MAX ; ADDRESS ┆ 0x0d80…0da0 54 4f 20 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 43 48 45 43 4b 53 55 4d 20 56 ┆TO DPB DW 0FFFEH ; CHECKSUM V┆ 0x0da0…0dc0 45 43 54 4f 52 20 47 45 4e 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 09 ┆ECTOR GEN BY GENCPM DW 0FFFEH ┆ 0x0dc0…0de0 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 47 45 4e 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 ┆ ; ALLOC VECTOR GEN BY GENCPM ┆ 0x0de0…0e00 44 57 09 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 3b 20 4c 45 54 20 47 45 4e 43 50 4d 20 43 41 ┆DW 0FFFEH,0FFFEH ; LET GENCPM CA┆ 0x0e00…0e20 4c 43 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 44 49 52 42 43 42 2c 20 44 54 41 42 43 42 ┆LC DW 0FFFEH ; DIRBCB, DTABCB┆ 0x0e20…0e40 2c 20 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 48 41 53 48 20 42 41 4e 4b 2e 0d 0a 0d 0a 0d ┆, HASH DB 0 ; HASH BANK. ┆ 0x0e40…0e60 0a 3b 20 44 65 66 69 6e 65 20 35 2e 32 35 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 ┆ ; Define 5.25" 2x77x8x1024, 256┆ 0x0e60…0e80 20 65 6e 74 72 69 65 73 2e 20 55 4e 49 54 20 42 3a 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 54 0d ┆ entries. UNIT B: DW FDWRIT ┆ 0x0e80…0ea0 0a 09 44 57 09 46 44 52 45 41 44 0d 0a 09 44 57 09 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 44 49 ┆ DW FDREAD DW FDLGIN DW FDI┆ 0x0ea0…0ec0 4e 49 54 0d 0a 09 44 42 09 49 4e 43 48 35 2b 55 4e 49 54 31 2b 44 4f 55 42 4c 44 2b 31 31 30 30 ┆NIT DB INCH5+UNIT1+DOUBLD+1100┆ 0x0ec0…0ee0 30 30 30 30 42 0d 0a 09 09 09 09 3b 20 24 46 44 58 53 4c 20 32 20 4d 48 7a 20 38 22 20 4d 6f 64 ┆0000B ; $FDXSL 2 MHz 8" Mod┆ 0x0ee0…0f00 65 0d 0a 09 44 42 09 30 09 09 3b 20 0d 0a 46 4c 42 3a 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 ┆e DB 0 ; FLB: DW 0 ; NO TR┆ 0x0f00…0f20 41 4e 53 20 54 41 42 4c 45 0d 0a 09 44 42 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 ┆ANS TABLE DB 0,0,0,0,0,0,0,0,0┆ 0x0f20…0f40 0d 0a 09 44 42 09 30 09 09 3b 20 4d 45 44 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 35 4d 41 58 09 ┆ DB 0 ; MEDIAFLAG DW F5MAX ┆ 0x0f40…0f60 09 3b 20 41 44 44 52 45 53 53 20 54 4f 20 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b ┆ ; ADDRESS TO DPB DW 0FFFEH ;┆ 0x0f60…0f80 20 43 48 45 43 4b 53 55 4d 20 56 45 43 54 4f 52 20 47 45 4e 20 42 59 20 47 45 4e 43 50 4d 0d 0a ┆ CHECKSUM VECTOR GEN BY GENCPM ┆ 0x0f80…0fa0 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 47 45 4e 20 42 ┆ DW 0FFFEH ; ALLOC VECTOR GEN B┆ 0x0fa0…0fc0 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 3b 20 4c 45 ┆Y GENCPM DW 0FFFEH,0FFFEH ; LE┆ 0x0fc0…0fe0 54 20 47 45 4e 43 50 4d 20 43 41 4c 43 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 44 49 52 ┆T GENCPM CALC DW 0FFFEH ; DIR┆ 0x0fe0…1000 42 43 42 2c 20 44 54 41 42 43 42 2c 20 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 48 41 53 48 ┆BCB, DTABCB, HASH DB 0 ; HASH┆ 0x1000…1020 20 42 41 4e 4b 2e 0d 0a 0d 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 4d 35 39 36 44 0d 0a 3b 20 44 ┆ BANK. ENDIF IF M596D ; D┆ 0x1020…1040 65 66 69 6e 65 20 35 2e 32 35 22 20 32 78 38 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 ┆efine 5.25" 2x80x5x1024, 128 ent┆ 0x1040…1060 72 69 65 73 2e 20 55 4e 49 54 20 41 3a 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 54 0d 0a 09 44 57 ┆ries. UNIT A: DW FDWRIT DW┆ 0x1060…1080 09 46 44 52 45 41 44 0d 0a 09 44 57 09 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 44 49 4e 49 54 0d ┆ FDREAD DW FDLGIN DW FDINIT ┆ 0x1080…10a0 0a 09 44 42 09 49 4e 43 48 35 2b 55 4e 49 54 30 2b 44 4f 55 42 4c 44 0d 0a 09 09 09 09 3b 20 24 ┆ DB INCH5+UNIT0+DOUBLD ; $┆ 0x10a0…10c0 46 44 58 53 4c 0d 0a 09 44 42 09 30 09 09 3b 20 0d 0a 46 4c 41 3a 09 44 57 09 30 09 09 3b 20 4e ┆FDXSL DB 0 ; FLA: DW 0 ; N┆ 0x10c0…10e0 4f 20 54 52 41 4e 53 20 54 41 42 4c 45 0d 0a 09 44 42 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 ┆O TRANS TABLE DB 0,0,0,0,0,0,0┆ 0x10e0…1100 2c 30 2c 30 0d 0a 09 44 42 09 30 09 09 3b 20 4d 45 44 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 35 ┆,0,0 DB 0 ; MEDIAFLAG DW F5┆ 0x1100…1120 39 36 44 09 09 3b 20 41 44 44 52 45 53 53 20 54 4f 20 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 ┆96D ; ADDRESS TO DPB DW 0FFFE┆ 0x1120…1140 48 09 09 3b 20 43 48 45 43 4b 53 55 4d 20 56 45 43 54 4f 52 20 47 45 4e 20 42 59 20 47 45 4e 43 ┆H ; CHECKSUM VECTOR GEN BY GENC┆ 0x1140…1160 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 47 ┆PM DW 0FFFEH ; ALLOC VECTOR G┆ 0x1160…1180 45 4e 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 ┆EN BY GENCPM DW 0FFFEH,0FFFEH ┆ 0x1180…11a0 3b 20 4c 45 54 20 47 45 4e 43 50 4d 20 43 41 4c 43 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b ┆; LET GENCPM CALC DW 0FFFEH ;┆ 0x11a0…11c0 20 44 49 52 42 43 42 2c 20 44 54 41 42 43 42 2c 20 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 ┆ DIRBCB, DTABCB, HASH DB 0 ; ┆ 0x11c0…11e0 48 41 53 48 20 42 41 4e 4b 2e 0d 0a 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 35 2e 32 35 22 20 32 ┆HASH BANK. ; Define 5.25" 2┆ 0x11e0…1200 78 38 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 72 69 65 73 2e 20 55 4e 49 54 20 42 3a ┆x80x5x1024, 128 entries. UNIT B:┆ 0x1200…1220 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 54 0d 0a 09 44 57 09 46 44 52 45 41 44 0d 0a 09 44 57 09 ┆ DW FDWRIT DW FDREAD DW ┆ 0x1220…1240 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 44 49 4e 49 54 0d 0a 09 44 42 09 49 4e 43 48 35 2b 55 4e ┆FDLGIN DW FDINIT DB INCH5+UN┆ 0x1240…1260 49 54 31 2b 44 4f 55 42 4c 44 0d 0a 09 09 09 09 3b 20 24 46 44 58 53 4c 0d 0a 09 44 42 09 30 09 ┆IT1+DOUBLD ; $FDXSL DB 0 ┆ 0x1260…1280 09 3b 20 0d 0a 46 4c 42 3a 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 41 4e 53 20 54 41 42 4c 45 ┆ ; FLB: DW 0 ; NO TRANS TABLE┆ 0x1280…12a0 0d 0a 09 44 42 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a 09 44 42 09 30 09 09 ┆ DB 0,0,0,0,0,0,0,0,0 DB 0 ┆ 0x12a0…12c0 3b 20 4d 45 44 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 35 39 36 44 09 09 3b 20 41 44 44 52 45 53 ┆; MEDIAFLAG DW F596D ; ADDRES┆ 0x12c0…12e0 53 20 54 4f 20 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 43 48 45 43 4b 53 55 4d ┆S TO DPB DW 0FFFEH ; CHECKSUM┆ 0x12e0…1300 20 56 45 43 54 4f 52 20 47 45 4e 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 ┆ VECTOR GEN BY GENCPM DW 0FFFE┆ 0x1300…1320 48 09 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 47 45 4e 20 42 59 20 47 45 4e 43 50 4d 0d ┆H ; ALLOC VECTOR GEN BY GENCPM ┆ 0x1320…1340 0a 09 44 57 09 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 3b 20 4c 45 54 20 47 45 4e 43 50 4d 20 ┆ DW 0FFFEH,0FFFEH ; LET GENCPM ┆ 0x1340…1360 43 41 4c 43 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 44 49 52 42 43 42 2c 20 44 54 41 42 ┆CALC DW 0FFFEH ; DIRBCB, DTAB┆ 0x1360…1380 43 42 2c 20 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 48 41 53 48 20 42 41 4e 4b 2e 0d 0a 0d ┆CB, HASH DB 0 ; HASH BANK. ┆ 0x1380…13a0 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 4d 35 34 38 44 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 35 ┆ ENDIF IF M548D ; Define 5┆ 0x13a0…13c0 2e 32 35 22 20 32 78 34 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 72 69 65 73 2e 20 55 ┆.25" 2x40x5x1024, 128 entries. U┆ 0x13c0…13e0 4e 49 54 20 41 3a 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 54 0d 0a 09 44 57 09 46 44 52 45 41 44 ┆NIT A: DW FDWRIT DW FDREAD┆ 0x13e0…1400 0d 0a 09 44 57 09 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 44 49 4e 49 54 0d 0a 09 44 42 09 49 4e ┆ DW FDLGIN DW FDINIT DB IN┆ 0x1400…1420 43 48 35 2b 55 4e 49 54 30 2b 44 4f 55 42 4c 44 0d 0a 09 09 09 09 3b 20 24 46 44 58 53 4c 0d 0a ┆CH5+UNIT0+DOUBLD ; $FDXSL ┆ 0x1420…1440 09 44 42 09 30 09 09 3b 20 0d 0a 46 4c 41 3a 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 41 4e 53 ┆ DB 0 ; FLA: DW 0 ; NO TRANS┆ 0x1440…1460 20 54 41 42 4c 45 20 0d 0a 09 44 42 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a ┆ TABLE DB 0,0,0,0,0,0,0,0,0 ┆ 0x1460…1480 09 44 42 09 30 09 09 3b 20 4d 45 44 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 35 34 38 44 09 09 3b ┆ DB 0 ; MEDIAFLAG DW F548D ;┆ 0x1480…14a0 20 41 44 44 52 45 53 53 20 54 2e 20 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 43 ┆ ADDRESS T. DPB DW 0FFFEH ; C┆ 0x14a0…14c0 48 45 43 4b 53 55 4d 20 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 ┆HECKSUM VECTOR SET BY GENCPM D┆ 0x14c0…14e0 57 09 30 46 46 46 45 48 09 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 ┆W 0FFFEH ; ALLOC VECTOR SET BY ┆ 0x14e0…1500 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 3b 20 4c 45 54 20 ┆GENCPM DW 0FFFEH,0FFFEH ; LET ┆ 0x1500…1520 47 45 4e 43 50 4d 20 53 45 54 55 50 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 44 49 52 42 ┆GENCPM SETUP DW 0FFFEH ; DIRB┆ 0x1520…1540 43 42 2c 20 44 54 41 42 43 42 2c 20 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 48 41 53 48 20 ┆CB, DTABCB, HASH DB 0 ; HASH ┆ 0x1540…1560 42 41 4e 4b 0d 0a 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 35 2e 32 35 22 20 32 78 34 30 78 35 78 ┆BANK ; Define 5.25" 2x40x5x┆ 0x1560…1580 31 30 32 34 2c 20 31 32 38 20 65 6e 74 72 69 65 73 2e 20 55 4e 49 54 20 42 3a 0d 0a 0d 0a 09 44 ┆1024, 128 entries. UNIT B: D┆ 0x1580…15a0 57 09 46 44 57 52 49 54 0d 0a 09 44 57 09 46 44 52 45 41 44 0d 0a 09 44 57 09 46 44 4c 47 49 4e ┆W FDWRIT DW FDREAD DW FDLGIN┆ 0x15a0…15c0 0d 0a 09 44 57 09 46 44 49 4e 49 54 0d 0a 09 44 42 09 49 4e 43 48 35 2b 55 4e 49 54 31 2b 44 4f ┆ DW FDINIT DB INCH5+UNIT1+DO┆ 0x15c0…15e0 55 42 4c 44 0d 0a 09 09 09 09 3b 20 24 46 44 58 53 4c 0d 0a 09 44 42 09 30 09 09 3b 20 0d 0a 46 ┆UBLD ; $FDXSL DB 0 ; F┆ 0x15e0…1600 4c 42 3a 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 41 4e 53 20 54 41 42 4c 45 20 0d 0a 09 44 42 ┆LB: DW 0 ; NO TRANS TABLE DB┆ 0x1600…1620 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a 09 44 42 09 30 09 09 3b 20 4d 45 44 ┆ 0,0,0,0,0,0,0,0,0 DB 0 ; MED┆ 0x1620…1640 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 35 34 38 44 09 09 3b 20 41 44 44 52 45 53 53 20 54 2e 20 ┆IAFLAG DW F548D ; ADDRESS T. ┆ 0x1640…1660 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 43 48 45 43 4b 53 55 4d 20 56 45 43 54 ┆DPB DW 0FFFEH ; CHECKSUM VECT┆ 0x1660…1680 4f 52 20 53 45 54 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 ┆OR SET BY GENCPM DW 0FFFEH ; ┆ 0x1680…16a0 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 ┆ALLOC VECTOR SET BY GENCPM DW ┆ 0x16a0…16c0 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 3b 20 4c 45 54 20 47 45 4e 43 50 4d 20 53 45 54 55 50 ┆0FFFEH,0FFFEH ; LET GENCPM SETUP┆ 0x16c0…16e0 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 44 49 52 42 43 42 2c 20 44 54 41 42 43 42 2c 20 ┆ DW 0FFFEH ; DIRBCB, DTABCB, ┆ 0x16e0…1700 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 48 41 53 48 20 42 41 4e 4b 0d 0a 0d 0a 09 45 4e 44 ┆HASH DB 0 ; HASH BANK END┆ 0x1700…1720 49 46 0d 0a 09 49 46 09 4d 35 34 38 53 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 35 2e 32 35 22 20 ┆IF IF M548S ; Define 5.25" ┆ 0x1720…1740 31 78 34 30 78 35 78 31 30 32 34 2c 20 36 34 20 65 6e 74 72 69 65 73 2e 20 55 4e 49 54 20 41 3a ┆1x40x5x1024, 64 entries. UNIT A:┆ 0x1740…1760 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 54 0d 8a 09 44 57 09 46 44 52 45 41 44 0d 0a 09 44 57 09 ┆ DW FDWRIT DW FDREAD DW ┆ 0x1760…1780 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 44 49 4e 49 54 0d 0a 09 44 42 09 49 4e 43 48 35 2b 55 4e ┆FDLGIN DW FDINIT DB INCH5+UN┆ 0x1780…17a0 49 54 30 2b 44 4f 55 42 4c 44 0d 0a 09 09 09 09 3b 20 24 46 44 58 53 4c 0d 0a 09 44 42 09 30 09 ┆IT0+DOUBLD ; $FDXSL DB 0 ┆ 0x17a0…17c0 09 3b 20 0d 0a 46 4c 41 3a 09 44 57 09 30 09 09 3b 20 4e 4f 20 54 52 41 4e 53 20 54 41 42 4c 45 ┆ ; FLA: DW 0 ; NO TRANS TABLE┆ 0x17c0…17e0 20 0d 0a 09 44 42 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 0d 0a 09 44 42 09 30 09 ┆ DB 0,0,0,0,0,0,0,0,0 DB 0 ┆ 0x17e0…1800 09 3b 20 4d 45 44 49 41 46 4c 41 47 0d 0a 09 44 57 09 46 35 34 38 53 09 09 3b 20 41 44 44 52 45 ┆ ; MEDIAFLAG DW F548S ; ADDRE┆ 0x1800…1820 53 53 20 54 2e 20 44 50 42 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 43 48 45 43 4b 53 55 ┆SS T. DPB DW 0FFFEH ; CHECKSU┆ 0x1820…1840 4d 20 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 47 45 4e 43 50 4d 0d 0a 09 44 57 09 30 46 46 46 ┆M VECTOR SET BY GENCPM DW 0FFF┆ 0x1840…1860 45 48 09 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 53 45 54 20 42 59 20 47 45 4e 43 50 4d ┆EH ; ALLOC VECTOR SET BY GENCPM┆ 0x1860…1880 0d 0a 09 44 57 09 30 46 46 46 45 48 2c 30 46 46 46 45 48 09 3b 20 4c 45 54 20 47 45 4e 43 50 4d ┆ DW 0FFFEH,0FFFEH ; LET GENCPM┆ 0x1880…18a0 20 53 45 54 55 50 0d 0a 09 44 57 09 30 46 46 46 45 48 09 09 3b 20 44 49 52 42 43 42 2c 20 44 54 ┆ SETUP DW 0FFFEH ; DIRBCB, DT┆ 0x18a0…18c0 41 42 43 42 2c 20 48 41 53 48 0d 0a 09 44 42 09 30 09 09 3b 20 48 41 53 48 20 42 41 4e 4b 0d 0a ┆ABCB, HASH DB 0 ; HASH BANK ┆ 0x18c0…18e0 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 35 2e 32 35 22 20 31 78 34 30 78 35 78 31 30 32 34 2c 20 ┆ ; Define 5.25" 1x40x5x1024, ┆ 0x18e0…1900 36 34 20 65 6e 74 72 69 65 73 2e 20 55 4e 49 54 20 42 3a 0d 0a 0d 0a 09 44 57 09 46 44 57 52 49 ┆64 entries. UNIT B: DW FDWRI┆ 0x1900…1920 54 0d 8a 09 44 57 09 46 44 52 45 41 44 0d 0a 09 44 57 09 46 44 4c 47 49 4e 0d 0a 09 44 57 09 46 ┆T DW FDREAD DW FDLGIN DW F┆ […truncated at 200 lines…]