|
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: 13696 (0x3580)
Names: »FDRIVES.ASM«
└─⟦67f37b9ce⟧ Bits:30003503 JET80/W20FT systemdisk
└─ ⟦this⟧ »FDRIVES.ASM«
0x0000…0020 09 54 69 74 6c 65 09 27 46 64 72 69 76 65 73 2e 41 73 6d 27 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ Title 'Fdrives.Asm' ;---------┆ 0x0020…0040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x0040…0060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 20 20 20 20 44 65 66 69 ┆-------------------; ; Defi┆ 0x0060…0080 6e 69 74 69 6f 6e 20 4d 6f 64 75 6c 65 20 66 6f 72 20 74 68 65 20 46 6c 6f 70 70 69 65 73 20 69 ┆nition Module for the Floppies i┆ 0x0080…00a0 6e 20 74 68 65 20 73 79 73 74 65 6d 2e 20 20 20 20 20 20 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆n the system. ; ;---------┆ 0x00a0…00c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x00c0…00e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 4c 61 74 65 73 74 20 75 ┆-------------------; ; Latest u┆ 0x00e0…0100 70 64 61 74 65 3a 20 31 39 38 35 2d 31 31 2d 31 35 2e 20 50 53 57 0d 0a 3b 20 42 69 6f 73 72 65 ┆pdate: 1985-11-15. PSW ; Biosre┆ 0x0100…0120 76 69 73 69 6f 6e 3a 20 46 0d 0a 3b 0d 0a 3b 20 46 6f 72 20 74 68 65 20 52 4d 41 43 20 61 73 73 ┆vision: F ; ; For the RMAC ass┆ 0x0120…0140 65 6d 62 6c 65 72 2e 0d 0a 0d 0a 54 72 75 65 09 09 45 71 75 09 2d 31 0d 0a 46 61 6c 73 65 09 09 ┆embler. True Equ -1 False ┆ 0x0140…0160 45 71 75 09 4e 6f 74 20 54 72 75 65 0d 0a 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆Equ Not True ;---------------┆ 0x0160…0180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x0180…01a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 3b 20 20 20 20 20 20 20 57 ┆--------------------; ; W┆ 0x01a0…01c0 68 61 74 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 ┆hat kind of floppy system do You┆ 0x01c0…01e0 20 77 61 6e 74 20 3f 09 09 20 20 20 20 3b 0d 0a 3b 09 09 09 09 09 09 09 09 20 20 20 20 3b 0d 0a ┆ want ? ; ; ; ┆ 0x01e0…0200 56 65 72 69 66 79 09 09 45 71 75 09 54 72 75 65 09 3b 20 56 65 72 69 66 79 20 61 66 74 65 72 20 ┆Verify Equ True ; Verify after ┆ 0x0200…0220 77 72 69 74 65 2e 09 09 20 20 20 20 3b 0d 0a 3b 09 09 09 09 09 09 09 09 20 20 20 20 3b 0d 0a 4a ┆write. ; ; ; J┆ 0x0220…0240 65 74 38 09 09 45 71 75 09 46 61 6c 73 65 09 3b 20 45 78 74 65 72 6e 61 6c 20 38 22 20 64 72 69 ┆et8 Equ False ; External 8" dri┆ 0x0240…0260 76 65 09 09 20 20 20 20 3b 0d 0a 3b 09 09 09 09 3b 20 49 3a 20 38 22 20 31 78 37 37 78 32 36 78 ┆ve ; ; ; I: 8" 1x77x26x┆ 0x0260…0280 31 32 38 2c 20 20 36 34 20 65 6e 74 2e 20 55 6e 69 74 30 20 3b 0d 0a 3b 09 09 09 09 3b 20 4a 3a ┆128, 64 ent. Unit0 ; ; ; J:┆ 0x0280…02a0 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 6e 69 74 30 20 ┆ 8" 2x77x8x1024, 256 ent. Unit0 ┆ 0x02a0…02c0 3b 0d 0a 3b 09 09 09 09 09 09 09 09 20 20 20 20 3b 0d 0a 52 61 6d 44 69 73 6b 09 09 45 71 75 09 ┆; ; ; RamDisk Equ ┆ 0x02c0…02e0 46 61 6c 73 65 09 3b 20 4d 3a 20 31 32 38 20 4b 42 79 74 65 73 20 52 61 6d 20 44 69 73 6b 09 20 ┆False ; M: 128 KBytes Ram Disk ┆ 0x02e0…0300 20 20 20 3b 0d 0a 3b 09 09 09 09 09 09 09 09 20 20 20 20 3b 0d 0a 3b 20 4d 61 72 6b 20 63 6f 72 ┆ ; ; ; ; Mark cor┆ 0x0300…0320 72 65 63 74 20 66 6c 6f 70 70 79 20 73 79 73 74 65 6d 20 77 69 74 68 20 54 72 75 65 2e 20 4e 6f ┆rect floppy system with True. No┆ 0x0320…0340 74 65 3a 20 4f 6e 6c 79 20 6f 6e 65 20 54 72 75 65 2e 09 20 20 20 20 3b 0d 0a 3b 09 09 09 09 09 ┆te: Only one True. ; ; ┆ 0x0340…0360 09 09 09 20 20 20 20 3b 0d 0a 4d 38 09 09 45 71 75 09 46 61 6c 73 65 09 3b 20 41 3a 20 38 22 20 ┆ ; M8 Equ False ; A: 8" ┆ 0x0360…0380 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 35 36 20 65 6e 74 2e 20 55 6e 69 74 30 20 3b 0d 0a 3b ┆2x77x8x1024, 256 ent. Unit0 ; ;┆ 0x0380…03a0 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 36 20 65 6e 74 ┆ ; B: 8" 2x77x8x1024, 256 ent┆ 0x03a0…03c0 2e 20 55 6e 69 74 31 20 3b 0d 0a 3b 09 09 09 09 3b 20 43 3a 20 38 22 20 31 78 37 37 78 32 36 78 ┆. Unit1 ; ; ; C: 8" 1x77x26x┆ 0x03c0…03e0 31 32 38 2c 20 20 36 34 20 65 6e 74 2e 20 55 6e 69 74 30 20 3b 0d 0a 3b 09 09 09 09 3b 20 44 3a ┆128, 64 ent. Unit0 ; ; ; D:┆ 0x03e0…0400 20 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 6e 69 74 31 20 ┆ 8" 1x77x26x128, 64 ent. Unit1 ┆ 0x0400…0420 3b 0d 0a 3b 09 09 09 09 3b 20 4e 6f 74 65 3a 20 4d 55 53 54 20 4e 4f 54 20 42 45 20 55 53 45 44 ┆; ; ; Note: MUST NOT BE USED┆ 0x0420…0440 20 57 49 54 48 20 4a 65 74 38 3d 54 72 75 65 0d 0a 4d 35 09 09 45 71 75 09 54 72 75 65 09 3b 20 ┆ WITH Jet8=True M5 Equ True ; ┆ 0x0440…0460 41 3a 20 35 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 6e 69 74 ┆A: 5" 2x77x8x1024, 256 ent. Unit┆ 0x0460…0480 30 20 3b 0d 0a 3b 09 09 09 09 3b 20 42 3a 20 35 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 32 ┆0 ; ; ; B: 5" 2x77x8x1024, 2┆ 0x0480…04a0 35 36 20 65 6e 74 2e 20 55 6e 69 74 31 20 3b 0d 0a 3b 09 09 09 09 3b 20 43 3a 20 35 22 20 32 78 ┆56 ent. Unit1 ; ; ; C: 5" 2x┆ 0x04a0…04c0 38 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 2e 20 55 6e 69 74 30 20 3b 0d 0a 3b 09 09 ┆80x5x1024, 128 ent. Unit0 ; ; ┆ 0x04c0…04e0 09 09 3b 20 44 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 ┆ ; D: 5" 2x80x5x1024, 128 ent. ┆ 0x04e0…0500 55 6e 69 74 31 20 3b 0d 0a 4d 35 39 36 44 09 09 45 71 75 09 46 61 6c 73 65 09 3b 20 41 3a 20 35 ┆Unit1 ; M596D Equ False ; A: 5┆ 0x0500…0520 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 6e 69 74 30 20 3b 0d ┆" 2x80x5x1024, 128 ent. Unit0 ; ┆ 0x0520…0540 0a 3b 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 65 ┆ ; ; B: 5" 2x80x5x1024, 128 e┆ 0x0540…0560 6e 74 2e 20 55 6e 69 74 31 20 3b 0d 0a 4d 35 34 38 44 09 09 45 71 75 09 46 61 6c 73 65 09 3b 20 ┆nt. Unit1 ; M548D Equ False ; ┆ 0x0560…0580 41 3a 20 35 22 20 32 78 34 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 6e 74 2e 20 55 6e 69 74 ┆A: 5" 2x40x5x1024, 128 ent. Unit┆ 0x0580…05a0 30 20 3b 0d 0a 3b 09 09 09 09 3b 20 42 3a 20 35 22 20 32 78 34 30 78 35 78 31 30 32 34 2c 20 31 ┆0 ; ; ; B: 5" 2x40x5x1024, 1┆ 0x05a0…05c0 32 38 20 65 6e 74 2e 20 55 6e 69 74 31 20 3b 0d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆28 ent. Unit1 ; ;--------------┆ 0x05c0…05e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x05e0…0600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 0d 0a 09 50 61 67 65 09 36 36 ┆---------------------; Page 66┆ 0x0600…0620 0d 0a 52 61 74 65 30 09 09 45 71 75 09 30 30 30 30 30 30 30 30 62 09 3b 20 33 6d 73 2f 36 6d 73 ┆ Rate0 Equ 00000000b ; 3ms/6ms┆ 0x0620…0640 0d 0a 52 61 74 65 31 09 09 45 71 75 09 30 30 30 30 30 30 30 31 62 09 3b 20 36 6d 73 2f 31 32 6d ┆ Rate1 Equ 00000001b ; 6ms/12m┆ 0x0640…0660 73 0d 0a 52 61 74 65 32 09 09 45 71 75 09 30 30 30 30 30 30 31 30 62 09 3b 20 31 30 6d 73 2f 32 ┆s Rate2 Equ 00000010b ; 10ms/2┆ 0x0660…0680 30 6d 73 0d 0a 52 61 74 65 33 09 09 45 71 75 09 30 30 30 30 30 30 31 31 62 09 3b 20 31 35 6d 73 ┆0ms Rate3 Equ 00000011b ; 15ms┆ 0x0680…06a0 2f 33 30 6d 73 0d 0a 0d 0a 44 6f 75 62 6c 53 09 09 45 71 75 09 2d 31 09 09 3b 20 44 6f 75 62 6c ┆/30ms DoublS Equ -1 ; Doubl┆ 0x06a0…06c0 65 20 73 69 64 65 64 0d 0a 53 69 6e 67 6c 53 09 09 45 71 75 09 30 09 09 3b 20 53 69 6e 67 6c 65 ┆e sided SinglS Equ 0 ; Single┆ 0x06c0…06e0 20 73 69 64 65 64 0d 0a 0d 0a 55 6e 69 74 30 09 09 45 71 75 09 30 30 30 30 30 30 30 30 62 09 3b ┆ sided Unit0 Equ 00000000b ;┆ 0x06e0…0700 20 50 68 79 73 69 63 61 6c 20 55 6e 69 74 20 73 65 6c 65 63 74 20 30 0d 0a 55 6e 69 74 31 09 09 ┆ Physical Unit select 0 Unit1 ┆ 0x0700…0720 45 71 75 09 30 30 30 30 30 30 30 31 62 09 3b 20 50 68 79 73 69 63 61 6c 20 55 6e 69 74 20 73 65 ┆Equ 00000001b ; Physical Unit se┆ 0x0720…0740 6c 65 63 74 20 31 0d 0a 55 6e 69 74 32 09 09 45 71 75 09 30 30 30 30 30 30 31 30 62 09 3b 20 50 ┆lect 1 Unit2 Equ 00000010b ; P┆ 0x0740…0760 68 79 73 69 63 61 6c 20 55 6e 69 74 20 73 65 6c 65 63 74 20 32 0d 0a 55 6e 69 74 33 09 09 45 71 ┆hysical Unit select 2 Unit3 Eq┆ 0x0760…0780 75 09 30 30 30 30 30 30 31 31 62 09 3b 20 50 68 79 73 69 63 61 6c 20 55 6e 69 74 20 73 65 6c 65 ┆u 00000011b ; Physical Unit sele┆ 0x0780…07a0 63 74 20 33 0d 0a 0d 0a 49 6e 63 68 35 09 09 45 71 75 09 30 30 30 30 31 30 30 30 62 09 3b 20 35 ┆ct 3 Inch5 Equ 00001000b ; 5┆ 0x07a0…07c0 22 2d 46 6c 6f 70 70 79 0d 0a 49 6e 63 68 38 09 09 45 71 75 09 31 31 30 31 30 31 30 30 62 09 3b ┆"-Floppy Inch8 Equ 11010100b ;┆ 0x07c0…07e0 20 38 22 2d 46 6c 6f 70 70 79 0d 0a 0d 0a 44 6f 75 62 6c 44 09 09 45 71 75 09 30 30 30 30 30 30 ┆ 8"-Floppy DoublD Equ 000000┆ 0x07e0…0800 30 30 62 09 3b 20 44 6f 75 62 6c 65 20 64 65 6e 73 69 74 79 0d 0a 53 69 6e 67 6c 44 09 09 45 71 ┆00b ; Double density SinglD Eq┆ 0x0800…0820 75 09 30 30 31 30 30 30 30 30 62 09 3b 20 53 69 6e 67 6c 65 20 64 65 6e 73 69 74 79 0d 0a 0d 0a ┆u 00100000b ; Single density ┆ 0x0820…0840 43 6f 6d 6d 09 09 45 71 75 09 30 43 30 68 09 09 3b 20 43 6f 6d 6d 6f 6e 20 61 72 65 61 0d 8a 09 ┆Comm Equ 0C0h ; Common area ┆ 0x0840…0860 09 09 09 09 3b 20 36 34 4b 20 2d 20 32 2a 38 4b 20 3d 20 34 38 4b 20 3d 20 43 30 30 30 68 0d 0a ┆ ; 64K - 2*8K = 48K = C000h ┆ 0x0860…0880 09 49 66 09 4d 38 0d 0a 53 69 67 6e 09 45 71 75 09 27 38 27 0d 0a 09 45 6c 73 65 0d 0a 53 69 67 ┆ If M8 Sign Equ '8' Else Sig┆ 0x0880…08a0 6e 09 45 71 75 09 27 35 27 0d 0a 09 45 6e 64 69 66 0d 0a 09 45 78 74 72 6e 09 46 64 52 65 61 64 ┆n Equ '5' Endif Extrn FdRead┆ 0x08a0…08c0 2c 20 46 64 57 72 69 74 2c 20 46 64 4c 67 69 6e 2c 20 46 64 49 6e 69 74 0d 0a 09 49 66 09 52 61 ┆, FdWrit, FdLgin, FdInit If Ra┆ 0x08c0…08e0 6d 44 69 73 6b 0d 0a 09 45 78 74 72 6e 09 52 61 6d 57 72 69 74 2c 20 52 61 6d 52 65 61 64 2c 20 ┆mDisk Extrn RamWrit, RamRead, ┆ 0x08e0…0900 52 61 6d 4c 67 49 6e 2c 20 52 61 6d 49 6e 69 74 0d 0a 09 45 6e 64 69 66 0d 0a 09 50 75 62 6c 69 ┆RamLgIn, RamInit Endif Publi┆ 0x0900…0920 63 09 40 44 54 62 6c 2c 20 3f 54 69 74 65 6c 0d 0a 09 50 75 62 6c 69 63 09 40 43 6f 6d 6d 6f 2c ┆c @DTbl, ?Titel Public @Commo,┆ 0x0920…0940 20 52 61 6d 42 75 66 66 65 72 0d 0a 0d 0a 09 43 73 65 67 0d 0a 40 44 54 62 6c 3a 09 44 77 09 46 ┆ RamBuffer Cseg @DTbl: Dw F┆ 0x0940…0960 6c 41 2c 46 6c 42 09 09 09 3b 20 41 6c 6c 20 73 79 73 74 65 6d 73 20 68 61 76 65 20 41 3a 20 61 ┆lA,FlB ; All systems have A: a┆ 0x0960…0980 6e 64 20 42 3a 0d 0a 09 49 66 09 4d 38 20 4f 72 20 4d 35 0d 0a 09 44 77 09 46 6c 43 2c 46 6c 44 ┆nd B: If M8 Or M5 Dw FlC,FlD┆ 0x0980…09a0 09 09 09 3b 20 0d 0a 09 45 6c 73 65 0d 0a 09 44 77 09 30 2c 30 09 09 09 3b 0d 0a 09 45 6e 64 69 ┆ ; Else Dw 0,0 ; Endi┆ 0x09a0…09c0 66 0d 0a 09 44 77 09 30 2c 30 2c 30 2c 30 09 09 09 3b 20 45 3a 2c 20 46 3a 2c 20 47 3a 2c 20 48 ┆f Dw 0,0,0,0 ; E:, F:, G:, H┆ 0x09c0…09e0 3a 20 6e 6f 74 20 69 6e 73 74 61 6c 6c 65 64 0d 0a 09 49 66 09 4a 65 74 38 0d 0a 09 44 77 09 46 ┆: not installed If Jet8 Dw F┆ 0x09e0…0a00 6c 49 2c 46 6c 4a 09 09 09 3b 20 4a 65 74 38 20 68 61 73 20 49 3a 20 61 6e 64 20 4a 3a 20 69 6e ┆lI,FlJ ; Jet8 has I: and J: in┆ 0x0a00…0a20 73 74 61 6c 6c 65 64 0d 0a 09 45 6c 73 65 0d 0a 09 44 77 09 30 2c 30 0d 0a 09 45 6e 64 69 66 0d ┆stalled Else Dw 0,0 Endif ┆ 0x0a20…0a40 0a 09 44 77 09 30 2c 30 09 09 09 3b 20 4b 3a 2c 20 4c 3a 20 6e 6f 74 20 69 6e 73 74 61 6c 6c 65 ┆ Dw 0,0 ; K:, L: not installe┆ 0x0a40…0a60 64 2e 0d 0a 09 49 66 09 52 61 6d 44 69 73 6b 0d 0a 09 44 77 09 46 6c 4d 09 09 09 3b 20 4d 3a 20 ┆d. If RamDisk Dw FlM ; M: ┆ 0x0a60…0a80 63 61 6e 20 62 65 20 52 61 6d 20 44 69 73 6b 0d 0a 09 45 6c 73 65 0d 0a 09 44 77 09 30 09 09 09 ┆can be Ram Disk Else Dw 0 ┆ 0x0a80…0aa0 3b 0d 0a 09 45 6e 64 69 66 0d 0a 09 44 77 09 30 2c 30 2c 30 09 09 09 3b 20 4e 3a 2c 20 4f 3a 2c ┆; Endif Dw 0,0,0 ; N:, O:,┆ 0x0aa0…0ac0 20 50 3a 20 6e 6f 74 20 69 6e 73 74 61 6c 6c 65 64 0d 0a 0d 0a 40 43 6f 6d 6d 6f 3a 09 44 62 09 ┆ P: not installed @Commo: Db ┆ 0x0ac0…0ae0 43 6f 6d 6d 09 09 09 3b 0d 0a 09 50 61 67 65 0d 0a 09 44 73 65 67 0d 0a 09 49 66 09 4d 38 20 4f ┆Comm ; Page Dseg If M8 O┆ 0x0ae0…0b00 72 20 4a 65 74 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 34 2c ┆r Jet8 ; Define 8" 2x77x8x1024,┆ 0x0b00…0b20 20 32 35 36 20 65 6e 74 72 69 65 73 2e 20 55 6e 69 74 20 41 3a 2f 4a 3a 0d 0a 0d 0a 09 44 77 09 ┆ 256 entries. Unit A:/J: Dw ┆ 0x0b20…0b40 46 64 57 72 69 74 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 52 65 61 64 09 09 09 3b 3b 0d 0a 09 44 ┆FdWrit ;; Dw FdRead ;; D┆ 0x0b40…0b60 77 09 46 64 4c 67 69 6e 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 49 6e 69 74 09 09 09 3b 3b 0d 0a ┆w FdLgin ;; Dw FdInit ;; ┆ 0x0b60…0b80 09 44 62 09 49 6e 63 68 38 2b 55 6e 69 74 30 2b 44 6f 75 62 6c 44 09 3b 3b 20 24 46 64 58 73 6c ┆ Db Inch8+Unit0+DoublD ;; $FdXsl┆ 0x0b80…0ba0 0d 0a 09 44 62 09 30 09 09 09 3b 3b 20 0d 0a 09 49 66 09 4d 38 0d 0a 46 6c 41 3a 09 44 77 09 30 ┆ Db 0 ;; If M8 FlA: Dw 0┆ 0x0ba0…0bc0 09 09 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 61 62 6c 65 0d 0a 09 45 6c 73 65 0d 0a 46 6c 4a ┆ ;; No trans table Else FlJ┆ 0x0bc0…0be0 3a 09 44 77 09 30 09 09 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 61 62 6c 65 0d 0a 09 45 6e 64 ┆: Dw 0 ;; No trans table End┆ 0x0be0…0c00 69 66 0d 0a 09 44 62 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 09 3b 3b 0d 0a 09 44 ┆if Db 0,0,0,0,0,0,0,0,0 ;; D┆ 0x0c00…0c20 62 09 30 09 09 09 3b 3b 20 4d 65 64 69 61 66 6c 61 67 0d 0a 09 44 77 09 46 38 44 09 09 09 3b 3b ┆b 0 ;; Mediaflag Dw F8D ;;┆ 0x0c20…0c40 20 41 64 64 72 65 73 73 20 74 6f 20 44 50 42 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b ┆ Address to DPB Dw 0FFFEh ;;┆ 0x0c40…0c60 20 43 68 65 63 6b 73 75 6d 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a ┆ Checksum vector set by GENCPM ┆ 0x0c60…0c80 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 41 6c 6c 6f 63 20 76 65 63 74 6f 72 20 73 65 74 ┆ Dw 0FFFEh ;; Alloc vector set┆ 0x0c80…0ca0 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 2c 30 46 46 46 46 68 09 09 3b ┆ by GENCPM Dw 0FFFEh,0FFFFh ;┆ 0x0ca0…0cc0 3b 20 4c 65 74 20 47 45 4e 43 50 4d 20 73 65 74 75 70 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 ┆; Let GENCPM setup Dw 0FFFEh ┆ 0x0cc0…0ce0 09 3b 3b 20 44 69 72 42 63 62 2c 20 44 74 61 42 63 62 2c 20 48 61 73 68 0d 0a 09 44 62 09 30 09 ┆ ;; DirBcb, DtaBcb, Hash Db 0 ┆ 0x0ce0…0d00 09 09 3b 3b 20 48 61 73 68 20 62 61 6e 6b 20 0d 0a 09 45 6e 64 69 66 0d 0a 0d 0a 09 49 66 09 4d ┆ ;; Hash bank Endif If M┆ 0x0d00…0d20 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 34 2c 20 32 35 36 20 ┆8 ; Define 8" 2x77x8x1024, 256 ┆ 0x0d20…0d40 65 6e 74 72 69 65 73 2e 20 55 6e 69 74 20 42 3a 0d 0a 0d 0a 09 44 77 09 46 64 57 72 69 74 09 09 ┆entries. Unit B: Dw FdWrit ┆ 0x0d40…0d60 09 3b 3b 0d 0a 09 44 77 09 46 64 52 65 61 64 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 4c 67 69 6e ┆ ;; Dw FdRead ;; Dw FdLgin┆ 0x0d60…0d80 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 49 6e 69 74 09 09 09 3b 3b 0d 0a 09 44 62 09 49 6e 63 68 ┆ ;; Dw FdInit ;; Db Inch┆ 0x0d80…0da0 38 2b 55 6e 69 74 31 2b 44 6f 75 62 6c 44 09 3b 3b 20 24 46 64 58 73 6c 0d 0a 09 44 62 09 30 09 ┆8+Unit1+DoublD ;; $FdXsl Db 0 ┆ 0x0da0…0dc0 09 09 3b 3b 20 0d 0a 46 6c 42 3a 09 44 77 09 30 09 09 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 ┆ ;; FlB: Dw 0 ;; No trans t┆ 0x0dc0…0de0 61 62 6c 65 20 0d 0a 09 44 62 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 09 3b 3b 0d ┆able Db 0,0,0,0,0,0,0,0,0 ;; ┆ 0x0de0…0e00 0a 09 44 62 09 30 09 09 09 3b 3b 20 4d 65 64 69 61 66 6c 61 67 0d 0a 09 44 77 09 46 38 44 09 09 ┆ Db 0 ;; Mediaflag Dw F8D ┆ 0x0e00…0e20 09 3b 3b 20 41 64 64 72 65 73 73 20 74 6f 20 44 50 42 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 ┆ ;; Address to DPB Dw 0FFFEh ┆ 0x0e20…0e40 09 3b 3b 20 43 68 65 63 6b 73 75 6d 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 ┆ ;; Checksum vector set by GENCP┆ 0x0e40…0e60 4d 0d 8a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 41 6c 6c 6f 63 20 76 65 63 74 6f 72 20 ┆M Dw 0FFFEh ;; Alloc vector ┆ 0x0e60…0e80 73 65 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 2c 30 46 46 46 46 68 ┆set by GENCPM Dw 0FFFEh,0FFFFh┆ 0x0e80…0ea0 09 09 3b 3b 20 4c 65 74 20 47 45 4e 43 50 4d 20 73 65 74 75 70 0d 0a 09 44 77 09 30 46 46 46 45 ┆ ;; Let GENCPM setup Dw 0FFFE┆ 0x0ea0…0ec0 68 09 09 09 3b 3b 20 44 69 72 42 63 62 2c 20 44 74 61 42 63 62 2c 20 48 61 73 68 0d 0a 09 44 62 ┆h ;; DirBcb, DtaBcb, Hash Db┆ 0x0ec0…0ee0 09 30 09 09 09 3b 3b 20 48 61 73 68 20 62 61 6e 6b 0d 0a 0d 0a 09 45 6e 64 69 66 0d 0a 09 49 66 ┆ 0 ;; Hash bank Endif If┆ 0x0ee0…0f00 09 4d 35 0d 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 ┆ M5 ; Define 5.25" 2x77x8x1024,┆ 0x0f00…0f20 20 32 35 36 20 65 6e 74 72 69 65 73 2e 20 55 6e 69 74 20 41 3a 0d 0a 0d 0a 09 44 77 09 46 64 57 ┆ 256 entries. Unit A: Dw FdW┆ 0x0f20…0f40 72 69 74 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 52 65 61 64 09 09 09 3b 3b 0d 0a 09 44 77 09 46 ┆rit ;; Dw FdRead ;; Dw F┆ 0x0f40…0f60 64 4c 67 69 6e 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 49 6e 69 74 09 09 09 3b 3b 0d 0a 09 44 62 ┆dLgin ;; Dw FdInit ;; Db┆ 0x0f60…0f80 09 49 6e 63 68 35 2b 55 6e 69 74 30 2b 44 6f 75 62 6c 44 2b 31 31 30 30 30 30 30 30 62 09 3b 3b ┆ Inch5+Unit0+DoublD+11000000b ;;┆ 0x0f80…0fa0 20 24 46 64 58 73 6c 20 32 20 4d 48 7a 20 38 22 20 4d 6f 64 65 0d 0a 09 44 62 09 30 09 09 09 3b ┆ $FdXsl 2 MHz 8" Mode Db 0 ;┆ 0x0fa0…0fc0 3b 20 0d 0a 46 6c 41 3a 09 44 77 09 30 09 09 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 61 62 6c ┆; FlA: Dw 0 ;; No trans tabl┆ 0x0fc0…0fe0 65 0d 0a 09 44 62 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 09 3b 3b 0d 0a 09 44 62 ┆e Db 0,0,0,0,0,0,0,0,0 ;; Db┆ 0x0fe0…1000 09 30 09 09 09 3b 3b 20 4d 65 64 69 61 66 6c 61 67 0d 0a 09 44 77 09 46 35 4d 61 78 09 09 09 3b ┆ 0 ;; Mediaflag Dw F5Max ;┆ 0x1000…1020 3b 20 41 64 64 72 65 73 73 20 74 6f 20 44 50 42 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b ┆; Address to DPB Dw 0FFFEh ;┆ 0x1020…1040 3b 20 43 68 65 63 6b 73 75 6d 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 4d 0d ┆; Checksum vector set by GENCPM ┆ 0x1040…1060 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 41 6c 6c 6f 63 20 76 65 63 74 6f 72 20 73 65 ┆ Dw 0FFFEh ;; Alloc vector se┆ 0x1060…1080 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 2c 30 46 46 46 46 68 09 09 ┆t by GENCPM Dw 0FFFEh,0FFFFh ┆ 0x1080…10a0 3b 3b 20 4c 65 74 20 47 45 4e 43 50 4d 20 73 65 74 75 70 0d 0a 09 44 77 09 30 46 46 46 45 68 09 ┆;; Let GENCPM setup Dw 0FFFEh ┆ 0x10a0…10c0 09 09 3b 3b 20 44 69 72 42 63 62 2c 20 44 74 61 42 63 62 2c 20 48 61 73 68 0d 0a 09 44 62 09 30 ┆ ;; DirBcb, DtaBcb, Hash Db 0┆ 0x10c0…10e0 09 09 09 3b 3b 20 48 61 73 68 20 62 61 6e 6b 2e 0d 0a 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 35 ┆ ;; Hash bank. ; Define 5┆ 0x10e0…1100 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┆ 0x1100…1120 6e 69 74 20 42 3a 0d 0a 0d 0a 09 44 77 09 46 64 57 72 69 74 09 09 09 3b 3b 0d 0a 09 44 77 09 46 ┆nit B: Dw FdWrit ;; Dw F┆ 0x1120…1140 64 52 65 61 64 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 4c 67 69 6e 09 09 09 3b 3b 0d 0a 09 44 77 ┆dRead ;; Dw FdLgin ;; Dw┆ 0x1140…1160 09 46 64 49 6e 69 74 09 09 09 3b 3b 0d 0a 09 44 62 09 49 6e 63 68 35 2b 55 6e 69 74 31 2b 44 6f ┆ FdInit ;; Db Inch5+Unit1+Do┆ 0x1160…1180 75 62 6c 44 2b 31 31 30 30 30 30 30 30 62 09 3b 3b 20 24 46 64 58 73 6c 20 32 20 4d 48 7a 20 38 ┆ublD+11000000b ;; $FdXsl 2 MHz 8┆ 0x1180…11a0 22 20 4d 6f 64 65 0d 0a 09 44 62 09 30 09 09 09 3b 3b 20 0d 0a 46 6c 42 3a 09 44 77 09 30 09 09 ┆" Mode Db 0 ;; FlB: Dw 0 ┆ 0x11a0…11c0 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 61 62 6c 65 0d 0a 09 44 62 09 30 2c 30 2c 30 2c 30 2c ┆ ;; No trans table Db 0,0,0,0,┆ 0x11c0…11e0 30 2c 30 2c 30 2c 30 2c 30 09 3b 3b 0d 0a 09 44 62 09 30 09 09 09 3b 3b 20 4d 65 64 69 61 66 6c ┆0,0,0,0,0 ;; Db 0 ;; Mediafl┆ 0x11e0…1200 61 67 0d 0a 09 44 77 09 46 35 4d 61 78 09 09 09 3b 3b 20 41 64 64 72 65 73 73 20 74 6f 20 44 50 ┆ag Dw F5Max ;; Address to DP┆ 0x1200…1220 42 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 43 68 65 63 6b 73 75 6d 20 76 65 63 74 ┆B Dw 0FFFEh ;; Checksum vect┆ 0x1220…1240 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b ┆or set by GENCPM Dw 0FFFEh ;┆ 0x1240…1260 3b 20 41 6c 6c 6f 63 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 ┆; Alloc vector set by GENCPM D┆ 0x1260…1280 77 09 30 46 46 46 45 68 2c 30 46 46 46 46 68 09 09 3b 3b 20 4c 65 74 20 47 45 4e 43 50 4d 20 73 ┆w 0FFFEh,0FFFFh ;; Let GENCPM s┆ 0x1280…12a0 65 74 75 70 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 44 69 72 42 63 62 2c 20 44 74 ┆etup Dw 0FFFEh ;; DirBcb, Dt┆ 0x12a0…12c0 61 42 63 62 2c 20 48 61 73 68 0d 0a 09 44 62 09 30 09 09 09 3b 3b 20 48 61 73 68 20 62 61 6e 6b ┆aBcb, Hash Db 0 ;; Hash bank┆ 0x12c0…12e0 2e 0d 0a 0d 0a 09 45 6e 64 69 66 0d 0a 0d 0a 09 49 66 09 4d 35 39 36 44 20 4f 72 20 4d 35 0d 0a ┆. Endif If M596D Or M5 ┆ 0x12e0…1300 0d 0a 3b 20 44 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 ┆ ; Define 5.25" 2x80x5x1024, 12┆ 0x1300…1320 38 20 65 6e 74 72 69 65 73 2e 20 55 6e 69 74 20 41 3a 2f 43 3a 0d 0a 0d 0a 09 44 77 09 46 64 57 ┆8 entries. Unit A:/C: Dw FdW┆ 0x1320…1340 72 69 74 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 52 65 61 64 09 09 09 3b 3b 0d 0a 09 44 77 09 46 ┆rit ;; Dw FdRead ;; Dw F┆ 0x1340…1360 64 4c 67 69 6e 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 49 6e 69 74 09 09 09 3b 3b 0d 0a 09 44 62 ┆dLgin ;; Dw FdInit ;; Db┆ 0x1360…1380 09 49 6e 63 68 35 2b 55 6e 69 74 30 2b 44 6f 75 62 6c 44 09 3b 3b 20 24 46 64 58 73 6c 0d 0a 09 ┆ Inch5+Unit0+DoublD ;; $FdXsl ┆ 0x1380…13a0 44 62 09 30 09 09 09 3b 3b 20 0d 0a 09 49 66 09 4d 35 39 36 44 0d 0a 46 6c 41 3a 09 44 77 09 30 ┆Db 0 ;; If M596D FlA: Dw 0┆ 0x13a0…13c0 09 09 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 61 62 6c 65 0d 0a 09 45 6c 73 65 0d 0a 46 6c 43 ┆ ;; No trans table Else FlC┆ 0x13c0…13e0 3a 09 44 77 09 30 09 09 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 61 62 6c 65 0d 0a 09 45 6e 64 ┆: Dw 0 ;; No trans table End┆ 0x13e0…1400 69 66 0d 0a 09 44 62 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 09 3b 3b 0d 0a 09 44 ┆if Db 0,0,0,0,0,0,0,0,0 ;; D┆ 0x1400…1420 62 09 30 09 09 09 3b 3b 20 4d 65 64 69 61 66 6c 61 67 0d 0a 09 44 77 09 46 35 39 36 44 09 09 09 ┆b 0 ;; Mediaflag Dw F596D ┆ 0x1420…1440 3b 3b 20 41 64 64 72 65 73 73 20 74 6f 20 44 50 42 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 ┆;; Address to DPB Dw 0FFFEh ┆ 0x1440…1460 3b 3b 20 43 68 65 63 6b 73 75 6d 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 4d ┆;; Checksum vector set by GENCPM┆ 0x1460…1480 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 41 6c 6c 6f 63 20 76 65 63 74 6f 72 20 73 ┆ Dw 0FFFEh ;; Alloc vector s┆ 0x1480…14a0 65 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 2c 30 46 46 46 46 68 09 ┆et by GENCPM Dw 0FFFEh,0FFFFh ┆ 0x14a0…14c0 09 3b 3b 20 4c 65 74 20 47 45 4e 43 50 4d 20 73 65 74 75 70 0d 0a 09 44 77 09 30 46 46 46 45 68 ┆ ;; Let GENCPM setup Dw 0FFFEh┆ 0x14c0…14e0 09 09 09 3b 3b 20 44 69 72 42 63 62 2c 20 44 74 61 42 63 62 2c 20 48 61 73 68 0d 0a 09 44 62 09 ┆ ;; DirBcb, DtaBcb, Hash Db ┆ 0x14e0…1500 30 09 09 09 3b 3b 20 48 61 73 68 20 62 61 6e 6b 2e 0d 0a 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 ┆0 ;; Hash bank. ; Define ┆ 0x1500…1520 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 72 69 65 73 2e 20 ┆5.25" 2x80x5x1024, 128 entries. ┆ 0x1520…1540 55 6e 69 74 20 42 3a 2f 44 3a 0d 0a 0d 0a 09 44 77 09 46 64 57 72 69 74 09 09 09 3b 3b 0d 0a 09 ┆Unit B:/D: Dw FdWrit ;; ┆ 0x1540…1560 44 77 09 46 64 52 65 61 64 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 4c 67 69 6e 09 09 09 3b 3b 0d ┆Dw FdRead ;; Dw FdLgin ;; ┆ 0x1560…1580 0a 09 44 77 09 46 64 49 6e 69 74 09 09 09 3b 3b 0d 0a 09 44 62 09 49 6e 63 68 35 2b 55 6e 69 74 ┆ Dw FdInit ;; Db Inch5+Unit┆ 0x1580…15a0 31 2b 44 6f 75 62 6c 44 09 3b 3b 20 24 46 64 58 73 6c 0d 0a 09 44 62 09 30 09 09 09 3b 3b 20 0d ┆1+DoublD ;; $FdXsl Db 0 ;; ┆ 0x15a0…15c0 0a 09 49 66 09 4d 35 39 36 44 0d 0a 46 6c 42 3a 09 44 77 09 30 09 09 09 3b 3b 20 4e 6f 20 74 72 ┆ If M596D FlB: Dw 0 ;; No tr┆ 0x15c0…15e0 61 6e 73 20 74 61 62 6c 65 0d 0a 09 45 6c 73 65 0d 0a 46 6c 44 3a 09 44 77 09 30 09 09 09 3b 3b ┆ans table Else FlD: Dw 0 ;;┆ 0x15e0…1600 20 4e 6f 20 74 72 61 6e 73 20 74 61 62 6c 65 0d 0a 09 45 6e 64 69 66 0d 0a 09 44 62 09 30 2c 30 ┆ No trans table Endif Db 0,0┆ 0x1600…1620 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 09 3b 3b 0d 0a 09 44 62 09 30 09 09 09 3b 3b 20 4d 65 ┆,0,0,0,0,0,0,0 ;; Db 0 ;; Me┆ 0x1620…1640 64 69 61 66 6c 61 67 0d 0a 09 44 77 09 46 35 39 36 44 09 09 09 3b 3b 20 41 64 64 72 65 73 73 20 ┆diaflag Dw F596D ;; Address ┆ 0x1640…1660 74 6f 20 44 50 42 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 43 68 65 63 6b 73 75 6d ┆to DPB Dw 0FFFEh ;; Checksum┆ 0x1660…1680 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 ┆ vector set by GENCPM Dw 0FFFE┆ 0x1680…16a0 68 09 09 09 3b 3b 20 41 6c 6c 6f 63 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 50 ┆h ;; Alloc vector set by GENCP┆ 0x16a0…16c0 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 2c 30 46 46 46 46 68 09 09 3b 3b 20 4c 65 74 20 47 45 4e ┆M Dw 0FFFEh,0FFFFh ;; Let GEN┆ 0x16c0…16e0 43 50 4d 20 73 65 74 75 70 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 44 69 72 42 63 ┆CPM setup Dw 0FFFEh ;; DirBc┆ 0x16e0…1700 62 2c 20 44 74 61 42 63 62 2c 20 48 61 73 68 0d 0a 09 44 62 09 30 09 09 09 3b 3b 20 48 61 73 68 ┆b, DtaBcb, Hash Db 0 ;; Hash┆ 0x1700…1720 20 62 61 6e 6b 2e 0d 0a 0d 0a 09 45 6e 64 69 66 0d 0a 09 49 66 09 4d 35 34 38 44 0d 0a 0d 0a 3b ┆ bank. Endif If M548D ;┆ 0x1720…1740 20 44 65 66 69 6e 65 20 35 2e 32 35 22 20 32 78 34 30 78 35 78 31 30 32 34 2c 20 31 32 38 20 65 ┆ Define 5.25" 2x40x5x1024, 128 e┆ 0x1740…1760 6e 74 72 69 65 73 2e 20 55 6e 69 74 20 41 3a 0d 0a 0d 0a 09 44 77 09 46 64 57 72 69 74 09 09 09 ┆ntries. Unit A: Dw FdWrit ┆ 0x1760…1780 3b 3b 0d 0a 09 44 77 09 46 64 52 65 61 64 09 09 09 3b 3b 0d 0a 09 44 77 09 46 64 4c 67 69 6e 09 ┆;; Dw FdRead ;; Dw FdLgin ┆ 0x1780…17a0 09 09 3b 3b 0d 0a 09 44 77 09 46 64 49 6e 69 74 09 09 09 3b 3b 0d 0a 09 44 62 09 49 6e 63 68 35 ┆ ;; Dw FdInit ;; Db Inch5┆ 0x17a0…17c0 2b 55 6e 69 74 30 2b 44 6f 75 62 6c 44 09 3b 3b 20 24 46 64 58 73 6c 0d 0a 09 44 62 09 30 09 09 ┆+Unit0+DoublD ;; $FdXsl Db 0 ┆ 0x17c0…17e0 09 3b 3b 20 0d 0a 46 6c 41 3a 09 44 77 09 30 09 09 09 3b 3b 20 4e 6f 20 74 72 61 6e 73 20 74 61 ┆ ;; FlA: Dw 0 ;; No trans ta┆ 0x17e0…1800 62 6c 65 20 0d 0a 09 44 62 09 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 09 3b 3b 0d 0a ┆ble Db 0,0,0,0,0,0,0,0,0 ;; ┆ 0x1800…1820 09 44 62 09 30 09 09 09 3b 3b 20 4d 65 64 69 61 66 6c 61 67 0d 0a 09 44 77 09 46 35 34 38 44 09 ┆ Db 0 ;; Mediaflag Dw F548D ┆ 0x1820…1840 09 09 3b 3b 20 41 64 64 72 65 73 73 20 74 6f 20 44 50 42 0d 0a 09 44 77 09 30 46 46 46 45 68 09 ┆ ;; Address to DPB Dw 0FFFEh ┆ 0x1840…1860 09 09 3b 3b 20 43 68 65 63 6b 73 75 6d 20 76 65 63 74 6f 72 20 73 65 74 20 62 79 20 47 45 4e 43 ┆ ;; Checksum vector set by GENC┆ 0x1860…1880 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 09 09 09 3b 3b 20 41 6c 6c 6f 63 20 76 65 63 74 6f 72 ┆PM Dw 0FFFEh ;; Alloc vector┆ 0x1880…18a0 20 73 65 74 20 62 79 20 47 45 4e 43 50 4d 0d 0a 09 44 77 09 30 46 46 46 45 68 2c 30 46 46 46 46 ┆ set by GENCPM Dw 0FFFEh,0FFFF┆ 0x18a0…18c0 68 09 09 3b 3b 20 4c 65 74 20 47 45 4e 43 50 4d 20 73 65 74 75 70 0d 0a 09 44 77 09 30 46 46 46 ┆h ;; Let GENCPM setup Dw 0FFF┆ 0x18c0…18e0 45 68 09 09 09 3b 3b 20 44 69 72 42 63 62 2c 20 44 74 61 42 63 62 2c 20 48 61 73 68 0d 0a 09 44 ┆Eh ;; DirBcb, DtaBcb, Hash D┆ 0x18e0…1900 62 09 30 09 09 09 3b 3b 20 48 61 73 68 20 62 61 6e 6b 0d 0a 0d 0a 0d 0a 3b 20 44 65 66 69 6e 65 ┆b 0 ;; Hash bank ; Define┆ 0x1900…1920 20 35 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 ┆ 5.25" 2x40x5x1024, 128 entries.┆ […truncated at 200 lines…]