|
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: 27264 (0x6a80)
Names: »WDRIVES.ASM«
└─⟦a844860b7⟧ Bits:30002858 CP/M Plus (tm) Version 3.0 for JET80
└─ ⟦this⟧ »WDRIVES.ASM«
└─⟦c10cc8855⟧ Bits:30002859 CP/M Plus med Hit & Dit filoverførsel for JET80
└─ ⟦this⟧ »WDRIVES.ASM«
0x0000…0020 09 54 49 54 4c 45 20 27 57 44 52 49 56 45 53 2e 41 53 4d 20 20 54 41 42 4c 45 53 20 46 4f 52 20 ┆ TITLE 'WDRIVES.ASM TABLES FOR ┆ 0x0020…0040 44 49 53 4b 45 54 54 45 20 41 4e 44 20 57 49 4e 43 48 45 53 54 45 52 27 0d 0a 3b 2a 2a 2a 2a 2a ┆DISKETTE AND WINCHESTER' ;*****┆ 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 2a 20 20 20 ┆************************* ;* ┆ 0x0080…00a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x00a0…00c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 20 ┆ * ;* ┆ 0x00c0…00e0 20 20 20 20 20 20 4d 4f 44 55 4c 45 20 46 4f 52 20 44 45 46 49 4e 49 4e 47 20 54 48 45 20 46 4c ┆ MODULE FOR DEFINING THE FL┆ 0x00e0…0100 4f 50 50 59 2d 20 41 4e 44 20 57 49 4e 43 48 45 52 2d 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a 20 ┆OPPY- AND WINCHER- * ;* ┆ 0x0100…0120 20 20 20 20 20 20 20 55 4e 49 54 53 20 49 4e 20 54 48 45 20 53 59 53 54 45 4d 2e 20 20 20 20 20 ┆ UNITS IN THE SYSTEM. ┆ 0x0120…0140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b 2a ┆ * ;*┆ 0x0140…0160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆ 0x0160…0180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0d 0a 3b ┆ * ;┆ 0x0180…01a0 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 ┆********************************┆ 0x01a0…01c0 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 0a ┆****************************** ┆ 0x01c0…01e0 0d 0a 3b 20 4c 41 54 45 53 54 20 43 48 41 4e 47 45 3a 20 31 39 38 35 2d 30 31 2d 32 31 2e 20 20 ┆ ; LATEST CHANGE: 1985-01-21. ┆ 0x01e0…0200 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┆ 0x0200…0220 48 45 20 52 4d 41 43 20 41 53 53 45 4d 42 4c 45 52 0d 0a 0d 0a 54 52 55 45 09 45 51 55 09 30 46 ┆HE RMAC ASSEMBLER TRUE EQU 0F┆ 0x0220…0240 46 48 0d 0a 46 41 4c 53 45 09 45 51 55 09 30 0d 0a 09 50 41 47 45 20 09 36 30 0d 0a 3b 2a 2a 2a ┆FH FALSE EQU 0 PAGE 60 ;***┆ 0x0240…0260 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 ┆********************************┆ 0x0260…0280 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 ┆******************************* ┆ 0x0280…02a0 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 57 68 61 74 20 6b 69 6e 64 20 6f 66 20 66 6c 6f 70 70 ┆ ; What kind of flopp┆ 0x02a0…02c0 79 20 64 6f 20 59 6f 75 20 77 61 6e 74 20 3f 0d 0a 0d 0a 56 45 52 49 46 59 09 45 51 55 09 54 52 ┆y do You want ? VERIFY EQU TR┆ 0x02c0…02e0 55 45 09 09 3b 20 56 65 72 69 66 79 20 61 66 74 65 72 20 77 72 69 74 65 2e 0d 0a 0d 0a 4d 38 09 ┆UE ; Verify after write. M8 ┆ 0x02e0…0300 45 51 55 09 46 41 4c 53 45 09 09 3b 20 41 3a 20 38 22 20 32 78 37 37 78 38 78 31 30 32 34 2c 20 ┆EQU FALSE ; A: 8" 2x77x8x1024, ┆ 0x0300…0320 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 20 31 78 37 37 ┆256 ent. UNIT0 ; D: 8" 1x77┆ 0x0320…0340 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 09 45 51 55 09 ┆x26x128, 64 ent. UNIT0 M5 EQU ┆ 0x0340…0360 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 34 2c 20 32 35 36 20 ┆FALSE ; A: 5" 2x77x8x1024, 256 ┆ 0x0360…0380 65 6e 74 2e 20 55 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 ┆ent. UNIT0 ; D: 8" 1x77x26x┆ 0x0380…03a0 31 32 38 2c 20 20 36 34 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 4d 49 4e 39 36 09 45 51 55 09 54 ┆128, 64 ent. UNIT0 MIN96 EQU T┆ 0x03a0…03c0 52 55 45 09 09 3b 20 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 ┆RUE ; A: 5" 2x80x5x1024, 128 en┆ 0x03c0…03e0 74 2e 20 55 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 ┆t. UNIT0 ; D: 8" 1x77x26x12┆ 0x03e0…0400 38 2c 20 20 36 34 20 65 6e 74 2e 20 55 4e 49 54 30 0d 0a 3b 20 4d 41 52 4b 20 43 4f 52 52 45 43 ┆8, 64 ent. UNIT0 ; MARK CORREC┆ 0x0400…0420 54 20 46 4c 4f 50 50 50 59 20 54 59 50 45 20 57 49 54 48 20 54 52 55 45 2e 20 4e 4f 54 45 20 4f ┆T FLOPPPY TYPE WITH TRUE. NOTE O┆ 0x0420…0440 4e 4c 59 20 4f 4e 45 20 54 52 55 45 2e 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆NLY ONE TRUE. ;****************┆ 0x0440…0460 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 ┆********************************┆ 0x0460…0480 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆****************** ;*********┆ 0x0480…04a0 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 ┆********************************┆ 0x04a0…04c0 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 0a 3b 20 20 20 20 ┆************************* ; ┆ 0x04c0…04e0 20 20 20 20 20 20 20 20 57 68 61 74 20 6b 69 6e 64 20 6f 66 20 77 69 6e 63 68 65 73 74 65 72 20 ┆ What kind of winchester ┆ 0x04e0…0500 64 6f 20 59 6f 75 20 77 61 6e 74 20 3f 0d 0a 3b 20 4e 6f 74 65 3a 20 41 6c 6c 20 64 72 69 76 65 ┆do You want ? ; Note: All drive┆ 0x0500…0520 73 20 68 61 76 65 20 74 68 65 20 69 6e 6e 65 72 6d 6f 73 74 20 63 79 6c 69 6e 64 65 72 20 72 65 ┆s have the innermost cylinder re┆ 0x0520…0540 73 65 72 76 65 64 20 66 6f 72 0d 0a 3b 20 20 20 20 20 20 20 70 61 72 6b 69 6e 67 20 7a 6f 6e 65 ┆served for ; parking zone┆ 0x0540…0560 2e 0d 0a 0d 0a 52 4f 31 30 34 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 52 6f 64 69 6d 65 20 31 ┆. RO104 EQU FALSE ; Rodime 1┆ 0x0560…0580 30 34 20 20 20 20 20 20 35 31 32 2d 31 30 32 34 20 65 6e 74 2e 2f 20 32 4b 20 62 6c 6f 63 6b 20 ┆04 512-1024 ent./ 2K block ┆ 0x0580…05a0 73 69 7a 65 0d 0a 52 4f 32 30 31 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 52 6f 64 69 6d 65 20 ┆size RO201 EQU FALSE ; Rodime ┆ 0x05a0…05c0 32 30 31 20 20 20 20 20 20 35 31 32 2d 31 30 32 34 20 65 6e 74 2e 2f 20 32 4b 20 62 6c 6f 63 6b ┆201 512-1024 ent./ 2K block┆ 0x05c0…05e0 20 73 69 7a 65 0d 0a 52 4f 32 30 34 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 52 6f 64 69 6d 65 ┆ size RO204 EQU FALSE ; Rodime┆ 0x05e0…0600 20 32 30 34 20 20 20 20 20 20 31 30 32 34 20 65 6e 74 2e 2f 20 32 4b 20 62 6c 6f 63 6b 20 73 69 ┆ 204 1024 ent./ 2K block si┆ 0x0600…0620 7a 65 0d 0a 52 4f 32 30 34 45 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 52 6f 64 69 6d 65 20 32 ┆ze RO204E EQU FALSE ; Rodime 2┆ 0x0620…0640 30 34 20 45 20 20 20 20 32 30 34 38 20 65 6e 74 2e 2f 20 34 4b 20 62 6c 6f 63 6b 20 73 69 7a 65 ┆04 E 2048 ent./ 4K block size┆ 0x0640…0660 0d 0a 52 4f 33 35 32 09 45 51 55 09 54 52 55 45 09 09 3b 20 52 6f 64 69 6d 65 20 33 35 32 20 20 ┆ RO352 EQU TRUE ; Rodime 352 ┆ 0x0660…0680 20 20 20 20 35 31 32 2d 31 30 32 34 20 65 6e 74 2e 2f 20 32 4b 20 62 6c 6f 63 6b 20 73 69 7a 65 ┆ 512-1024 ent./ 2K block size┆ 0x0680…06a0 0d 0a 58 54 31 30 36 35 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 4d 61 78 74 6f 72 20 58 54 2d ┆ XT1065 EQU FALSE ; Maxtor XT-┆ 0x06a0…06c0 31 30 36 35 20 20 32 30 34 38 20 65 6e 74 2e 2f 20 34 4b 20 62 6c 6f 63 6b 20 73 69 7a 65 0d 0a ┆1065 2048 ent./ 4K block size ┆ 0x06c0…06e0 58 54 31 30 38 35 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 4d 61 78 74 6f 72 20 58 54 2d 31 30 ┆XT1085 EQU FALSE ; Maxtor XT-10┆ 0x06e0…0700 38 35 20 20 32 30 34 38 20 65 6e 74 2e 2f 20 34 4b 20 62 6c 6f 63 6b 20 73 69 7a 65 0d 0a 43 44 ┆85 2048 ent./ 4K block size CD┆ 0x0700…0720 43 33 36 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 43 44 43 20 39 34 31 35 2d 33 36 20 20 20 20 ┆C36 EQU FALSE ; CDC 9415-36 ┆ 0x0720…0740 20 32 30 34 38 20 65 6e 74 2e 2f 20 34 4b 20 62 6c 6f 63 6b 20 73 69 7a 65 0d 0a 43 44 43 38 36 ┆ 2048 ent./ 4K block size CDC86┆ 0x0740…0760 09 45 51 55 09 46 41 4c 53 45 09 09 3b 20 43 44 43 20 39 34 31 35 2d 38 36 20 20 20 20 20 32 30 ┆ EQU FALSE ; CDC 9415-86 20┆ 0x0760…0780 34 38 20 65 6e 74 2e 2f 20 34 4b 20 62 6c 6f 63 6b 20 73 69 7a 65 0d 0a 0d 0a 3b 20 20 20 20 20 ┆48 ent./ 4K block size ; ┆ 0x0780…07a0 20 20 20 20 20 20 20 41 6e 64 20 68 6f 77 20 6d 61 6e 79 20 3f 20 4f 6e 65 20 6f 72 20 74 77 6f ┆ And how many ? One or two┆ 0x07a0…07c0 20 3f 0d 0a 0d 0a 54 57 4f 57 49 4e 53 09 45 51 55 09 46 41 4c 53 45 0d 0a 0d 0a 3b 2a 2a 2a 2a ┆ ? TWOWINS EQU FALSE ;****┆ 0x07c0…07e0 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 ┆********************************┆ 0x07e0…0800 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 0a ┆****************************** ┆ 0x0800…0820 3b 20 44 69 73 6b 64 72 69 76 65 20 73 69 7a 65 20 61 6e 64 20 6e 75 6d 62 65 72 20 6f 66 20 64 ┆; Diskdrive size and number of d┆ 0x0820…0840 69 72 65 63 74 6f 72 79 20 65 6e 74 72 69 65 73 2e 0d 0a 0d 0a 45 35 31 32 09 45 51 55 09 54 52 ┆irectory entries. E512 EQU TR┆ 0x0840…0860 55 45 09 09 3b 20 20 35 31 32 20 45 4e 54 52 49 45 53 0d 0a 45 31 30 32 34 09 45 51 55 09 46 41 ┆UE ; 512 ENTRIES E1024 EQU FA┆ 0x0860…0880 4c 53 45 09 09 3b 20 31 30 32 34 20 45 4e 54 52 49 45 53 0d 0a 52 45 44 55 43 45 09 45 51 55 09 ┆LSE ; 1024 ENTRIES REDUCE EQU ┆ 0x0880…08a0 34 34 09 09 3b 20 23 20 6f 66 20 6b 42 79 74 65 73 20 74 6f 20 72 65 64 75 63 65 20 66 72 6f 6d ┆44 ; # of kBytes to reduce from┆ 0x08a0…08c0 20 73 65 63 6f 6e 64 0d 0a 09 09 09 09 3b 20 77 69 6e 63 68 65 73 74 65 72 20 75 6e 69 74 2e 0d ┆ second ; winchester unit. ┆ 0x08c0…08e0 0a 3b 4e 4f 54 45 2e 20 54 68 65 20 73 69 7a 65 20 6f 66 20 74 68 69 73 20 72 65 64 75 63 65 20 ┆ ;NOTE. The size of this reduce ┆ 0x08e0…0900 66 61 63 74 6f 72 20 69 73 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 68 6f 77 20 6d 61 6e 79 20 ┆factor is depending on how many ┆ 0x0900…0920 62 61 64 0d 0a 3b 20 20 20 20 20 20 74 72 61 63 6b 73 20 74 68 65 20 66 6f 72 6d 61 74 74 65 72 ┆bad ; tracks the formatter┆ 0x0920…0940 20 75 74 69 6c 69 74 79 20 68 61 73 20 66 6f 75 6e 64 20 6f 6e 20 74 68 65 20 64 69 73 6b 2e 0d ┆ utility has found on the disk. ┆ 0x0940…0960 0a 3b 20 20 20 20 20 20 49 66 20 74 68 65 20 66 6f 72 6d 61 74 74 65 72 20 74 65 6c 6c 73 20 59 ┆ ; If the formatter tells Y┆ 0x0960…0980 6f 75 20 74 68 61 74 20 69 74 20 68 61 73 20 72 65 64 75 63 65 64 20 6d 6f 72 65 20 6b 42 79 74 ┆ou that it has reduced more kByt┆ 0x0980…09a0 65 73 0d 0a 3b 20 20 20 20 20 20 74 68 61 6e 20 74 68 69 73 20 66 61 63 74 6f 72 2c 20 59 6f 75 ┆es ; than this factor, You┆ 0x09a0…09c0 20 6d 75 73 74 20 63 68 61 6e 67 65 20 74 68 69 73 20 66 61 63 74 6f 72 20 69 6d 6d 65 64 69 61 ┆ must change this factor immedia┆ 0x09c0…09e0 74 6c 79 0d 0a 3b 20 20 20 20 20 20 61 6e 64 20 67 65 6e 65 72 61 74 65 20 61 20 6e 65 77 20 6f ┆tly ; and generate a new o┆ 0x09e0…0a00 70 65 72 61 74 69 6e 67 20 73 79 73 74 65 6d 20 62 65 66 6f 72 65 20 63 6f 70 79 69 6e 67 20 61 ┆perating system before copying a┆ 0x0a00…0a20 6e 79 20 66 69 6c 65 73 0d 0a 3b 20 20 20 20 20 20 74 6f 20 74 68 65 20 77 69 6e 63 68 65 73 74 ┆ny files ; to the winchest┆ 0x0a20…0a40 65 72 2e 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 2a 2a ┆er. ;**************************┆ 0x0a40…0a60 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 ┆********************************┆ 0x0a60…0a80 2a 2a 2a 2a 2a 2a 2a 0d 0a 0d 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆******* ;********************┆ 0x0a80…0aa0 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 ┆********************************┆ 0x0aa0…0ac0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 3b 20 43 6f 6e 73 75 6c 74 20 74 68 65 20 58 45 ┆************** ; Consult the XE┆ 0x0ac0…0ae0 42 45 43 2d 6d 61 6e 75 61 6c 20 66 6f 72 20 74 68 65 20 74 77 6f 20 66 6f 6c 6c 6f 77 69 6e 67 ┆BEC-manual for the two following┆ 0x0ae0…0b00 20 63 6f 6e 73 74 61 6e 74 73 3a 0d 0a 3b 20 58 45 42 45 43 20 31 34 31 30 41 20 43 6f 6e 74 72 ┆ constants: ; XEBEC 1410A Contr┆ 0x0b00…0b20 6f 6c 6c 65 72 3a 0d 0a 3b 09 31 78 78 78 78 78 78 78 09 3b 20 4e 6f 20 72 65 74 72 79 0d 0a 3b ┆oller: ; 1xxxxxxx ; No retry ;┆ 0x0b20…0b40 09 30 78 78 78 78 78 78 78 09 3b 20 52 65 74 72 79 20 34 20 74 69 6d 65 73 0d 0a 3b 09 78 31 78 ┆ 0xxxxxxx ; Retry 4 times ; x1x┆ 0x0b40…0b60 78 78 78 78 78 09 3b 20 4e 6f 20 72 65 74 72 79 20 61 20 72 65 61 64 20 6f 66 20 73 65 63 74 6f ┆xxxxx ; No retry a read of secto┆ 0x0b60…0b80 72 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 0d 0a 09 09 09 3b 20 61 20 64 61 74 61 20 65 72 72 ┆r that contains ; a data err┆ 0x0b80…0ba0 6f 72 20 62 65 66 6f 72 65 20 65 72 72 6f 72 20 63 6f 72 72 65 63 74 69 6f 6e 2e 0d 0a 3b 09 78 ┆or before error correction. ; x┆ 0x0ba0…0bc0 30 78 78 78 78 78 78 09 3b 20 52 65 72 65 61 64 20 62 65 66 6f 72 65 20 65 72 72 6f 72 20 63 6f ┆0xxxxxx ; Reread before error co┆ 0x0bc0…0be0 72 72 65 63 74 69 6f 6e 0d 0a 3b 09 78 78 78 31 78 78 78 78 09 3b 20 44 69 73 6b 20 68 61 73 20 ┆rrection ; xxx1xxxx ; Disk has ┆ 0x0be0…0c00 73 65 72 76 6f 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0d 0a 3b 09 78 78 78 30 78 78 78 78 09 3b ┆servo information. ; xxx0xxxx ;┆ 0x0c00…0c20 20 4e 6f 20 73 65 72 76 6f 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 0d 0a 3b 09 78 78 78 78 30 30 ┆ No servo information. ; xxxx00┆ 0x0c20…0c40 30 30 09 3b 20 33 20 6d 73 65 63 20 73 74 65 70 20 72 61 74 65 0d 0a 3b 09 78 78 78 78 30 30 30 ┆00 ; 3 msec step rate ; xxxx000┆ 0x0c40…0c60 31 09 3b 20 72 65 73 65 72 76 65 64 20 28 66 6f 72 20 73 65 72 76 6f 29 0d 0a 3b 09 78 78 78 78 ┆1 ; reserved (for servo) ; xxxx┆ 0x0c60…0c80 30 30 31 30 09 3b 20 20 20 20 20 2d 22 2d 0d 0a 3b 09 78 78 78 78 30 30 31 31 09 3b 20 20 20 20 ┆0010 ; -"- ; xxxx0011 ; ┆ 0x0c80…0ca0 20 2d 22 2d 0d 0a 3b 09 78 78 78 78 30 31 30 30 09 3b 20 32 30 30 20 75 73 65 63 20 62 75 66 66 ┆ -"- ; xxxx0100 ; 200 usec buff┆ 0x0ca0…0cc0 65 72 65 64 20 73 74 65 70 0d 0a 3b 09 78 78 78 78 30 31 30 31 09 3b 20 20 37 30 20 75 73 65 63 ┆ered step ; xxxx0101 ; 70 usec┆ 0x0cc0…0ce0 20 62 75 66 66 65 72 65 64 20 73 74 65 70 0d 0a 3b 09 78 78 78 78 30 31 31 30 09 3b 20 20 33 30 ┆ buffered step ; xxxx0110 ; 30┆ 0x0ce0…0d00 20 75 73 65 63 20 62 75 66 66 65 72 65 64 20 73 74 65 70 0d 0a 3b 09 78 78 78 78 30 31 31 31 09 ┆ usec buffered step ; xxxx0111 ┆ 0x0d00…0d20 3b 20 20 31 35 20 75 73 65 63 20 62 75 66 66 65 72 65 64 20 73 74 65 70 0d 0a 0d 0a 09 49 46 09 ┆; 15 usec buffered step IF ┆ 0x0d20…0d40 52 4f 31 30 34 0d 0a 4c 45 41 56 09 45 51 55 09 37 09 09 3b 20 49 4e 54 45 52 4c 45 41 56 20 46 ┆RO104 LEAV EQU 7 ; INTERLEAV F┆ 0x0d40…0d60 41 43 54 4f 52 20 75 73 65 64 20 61 74 20 66 6f 72 6d 61 74 74 69 6e 67 2e 0d 0a 52 45 53 54 45 ┆ACTOR used at formatting. RESTE┆ 0x0d60…0d80 50 09 45 51 55 09 30 30 30 30 30 31 30 30 42 09 3b 20 52 45 54 52 59 20 26 20 42 55 46 46 20 53 ┆P EQU 00000100B ; RETRY & BUFF S┆ 0x0d80…0da0 54 45 50 20 4f 50 54 49 4f 4e 2e 0d 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 52 4f 32 30 31 0d 0a ┆TEP OPTION. ENDIF IF RO201 ┆ 0x0da0…0dc0 4c 45 41 56 09 45 51 55 09 37 09 09 3b 20 49 4e 54 45 52 4c 45 41 56 20 46 41 43 54 4f 52 20 75 ┆LEAV EQU 7 ; INTERLEAV FACTOR u┆ 0x0dc0…0de0 73 65 64 20 61 74 20 66 6f 72 6d 61 74 74 69 6e 67 2e 0d 0a 52 45 53 54 45 50 09 45 51 55 09 30 ┆sed at formatting. RESTEP EQU 0┆ 0x0de0…0e00 30 30 30 30 31 30 30 42 09 3b 20 52 45 54 52 59 20 26 20 42 55 46 46 20 53 54 45 50 20 4f 50 54 ┆0000100B ; RETRY & BUFF STEP OPT┆ 0x0e00…0e20 49 4f 4e 2e 0d 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 52 4f 32 30 34 0d 0a 4c 45 41 56 09 45 51 ┆ION. ENDIF IF RO204 LEAV EQ┆ 0x0e20…0e40 55 09 37 09 09 3b 20 49 4e 54 45 52 4c 45 41 56 20 46 41 43 54 4f 52 20 75 73 65 64 20 61 74 20 ┆U 7 ; INTERLEAV FACTOR used at ┆ 0x0e40…0e60 66 6f 72 6d 61 74 74 69 6e 67 2e 0d 0a 52 45 53 54 45 50 09 45 51 55 09 30 30 30 30 30 31 30 30 ┆formatting. RESTEP EQU 00000100┆ 0x0e60…0e80 42 09 3b 20 52 45 54 52 59 20 26 20 42 55 46 46 20 53 54 45 50 20 4f 50 54 49 4f 4e 2e 0d 0a 09 ┆B ; RETRY & BUFF STEP OPTION. ┆ 0x0e80…0ea0 45 4e 44 49 46 0d 0a 09 49 46 09 52 4f 32 30 34 45 0d 0a 4c 45 41 56 09 45 51 55 09 37 09 09 3b ┆ENDIF IF RO204E LEAV EQU 7 ;┆ 0x0ea0…0ec0 20 49 4e 54 45 52 4c 45 41 56 20 46 41 43 54 4f 52 20 75 73 65 64 20 61 74 20 66 6f 72 6d 61 74 ┆ INTERLEAV FACTOR used at format┆ 0x0ec0…0ee0 74 69 6e 67 2e 0d 0a 52 45 53 54 45 50 09 45 51 55 09 30 30 30 30 30 31 30 30 42 09 3b 20 52 45 ┆ting. RESTEP EQU 00000100B ; RE┆ 0x0ee0…0f00 54 52 59 20 26 20 42 55 46 46 20 53 54 45 50 20 4f 50 54 49 4f 4e 2e 0d 0a 09 45 4e 44 49 46 0d ┆TRY & BUFF STEP OPTION. ENDIF ┆ 0x0f00…0f20 0a 09 49 46 09 52 4f 33 35 32 0d 0a 4c 45 41 56 09 45 51 55 09 37 09 09 3b 20 49 4e 54 45 52 4c ┆ IF RO352 LEAV EQU 7 ; INTERL┆ 0x0f20…0f40 45 41 56 20 46 41 43 54 4f 52 20 75 73 65 64 20 61 74 20 66 6f 72 6d 61 74 74 69 6e 67 2e 0d 0a ┆EAV FACTOR used at formatting. ┆ 0x0f40…0f60 52 45 53 54 45 50 09 45 51 55 09 30 30 30 30 30 31 30 30 42 09 3b 20 52 45 54 52 59 20 26 20 42 ┆RESTEP EQU 00000100B ; RETRY & B┆ 0x0f60…0f80 55 46 46 20 53 54 45 50 20 4f 50 54 49 4f 4e 2e 0d 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 58 54 ┆UFF STEP OPTION. ENDIF IF XT┆ 0x0f80…0fa0 31 30 36 35 0d 0a 4c 45 41 56 09 45 51 55 09 37 09 09 3b 20 49 4e 54 45 52 4c 45 41 56 20 46 41 ┆1065 LEAV EQU 7 ; INTERLEAV FA┆ 0x0fa0…0fc0 43 54 4f 52 20 75 73 65 64 20 61 74 20 66 6f 72 6d 61 74 74 69 6e 67 2e 0d 0a 52 45 53 54 45 50 ┆CTOR used at formatting. RESTEP┆ 0x0fc0…0fe0 09 45 51 55 09 30 30 30 31 30 31 31 31 42 09 3b 20 52 45 54 52 59 20 26 20 42 55 46 46 20 53 54 ┆ EQU 00010111B ; RETRY & BUFF ST┆ 0x0fe0…1000 45 50 20 4f 50 54 49 4f 4e 2e 0d 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 58 54 31 30 38 35 0d 0a ┆EP OPTION. ENDIF IF XT1085 ┆ 0x1000…1020 4c 45 41 56 09 45 51 55 09 37 09 09 3b 20 49 4e 54 45 52 4c 45 41 56 20 46 41 43 54 4f 52 20 75 ┆LEAV EQU 7 ; INTERLEAV FACTOR u┆ 0x1020…1040 73 65 64 20 61 74 20 66 6f 72 6d 61 74 74 69 6e 67 2e 0d 0a 52 45 53 54 45 50 09 45 51 55 09 30 ┆sed at formatting. RESTEP EQU 0┆ 0x1040…1060 30 30 31 30 31 31 31 42 09 3b 20 52 45 54 52 59 20 26 20 42 55 46 46 20 53 54 45 50 20 4f 50 54 ┆0010111B ; RETRY & BUFF STEP OPT┆ 0x1060…1080 49 4f 4e 2e 0d 0a 09 45 4e 44 49 46 0d 0a 09 49 46 09 43 44 43 33 36 0d 0a 4c 45 41 56 09 45 51 ┆ION. ENDIF IF CDC36 LEAV EQ┆ 0x1080…10a0 55 09 37 09 09 3b 20 49 4e 54 45 52 4c 45 41 56 20 46 41 43 54 4f 52 20 75 73 65 64 20 61 74 20 ┆U 7 ; INTERLEAV FACTOR used at ┆ 0x10a0…10c0 66 6f 72 6d 61 74 74 69 6e 67 2e 0d 0a 52 45 53 54 45 50 09 45 51 55 09 30 30 30 31 30 31 31 31 ┆formatting. RESTEP EQU 00010111┆ 0x10c0…10e0 42 09 3b 20 52 45 54 52 59 20 26 20 42 55 46 46 20 53 54 45 50 20 4f 50 54 49 4f 4e 2e 0d 0a 09 ┆B ; RETRY & BUFF STEP OPTION. ┆ 0x10e0…1100 45 4e 44 49 46 0d 0a 09 49 46 09 43 44 43 38 36 0d 0a 4c 45 41 56 09 45 51 55 09 37 09 09 3b 20 ┆ENDIF IF CDC86 LEAV EQU 7 ; ┆ 0x1100…1120 49 4e 54 45 52 4c 45 41 56 20 46 41 43 54 4f 52 20 75 73 65 64 20 61 74 20 66 6f 72 6d 61 74 74 ┆INTERLEAV FACTOR used at formatt┆ 0x1120…1140 69 6e 67 2e 0d 0a 52 45 53 54 45 50 09 45 51 55 09 30 30 30 31 30 31 31 31 42 09 3b 20 52 45 54 ┆ing. RESTEP EQU 00010111B ; RET┆ 0x1140…1160 52 59 20 26 20 42 55 46 46 20 53 54 45 50 20 4f 50 54 49 4f 4e 2e 0d 0a 09 45 4e 44 49 46 0d 0a ┆RY & BUFF STEP OPTION. ENDIF ┆ 0x1160…1180 0d 0a 09 50 41 47 45 0d 0a 3b 20 43 4f 4e 53 54 41 4e 54 53 3a 0d 0a 52 41 54 45 30 09 45 51 55 ┆ PAGE ; CONSTANTS: RATE0 EQU┆ 0x1180…11a0 09 30 30 30 30 30 30 30 30 42 09 3b 20 46 6c 6f 70 70 79 20 73 74 65 70 20 72 61 74 65 20 33 6d ┆ 00000000B ; Floppy step rate 3m┆ 0x11a0…11c0 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 46 6c 6f ┆s/6ms RATE1 EQU 00000001B ; Flo┆ 0x11c0…11e0 70 70 79 20 73 74 65 70 20 72 61 74 65 20 36 6d 73 2f 31 32 6d 73 0d 0a 52 41 54 45 32 09 45 51 ┆ppy step rate 6ms/12ms RATE2 EQ┆ 0x11e0…1200 55 09 30 30 30 30 30 30 31 30 42 09 3b 20 46 6c 6f 70 70 79 20 73 74 65 70 20 72 61 74 65 20 31 ┆U 00000010B ; Floppy step rate 1┆ 0x1200…1220 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 20 ┆0ms/20ms RATE3 EQU 00000011B ; ┆ 0x1220…1240 46 6c 6f 70 70 79 20 73 74 65 70 20 72 61 74 65 20 31 35 6d 73 2f 33 30 6d 73 0d 0a 0d 0a 55 4e ┆Floppy step rate 15ms/30ms UN┆ 0x1240…1260 49 54 30 09 45 51 55 09 30 30 30 30 30 30 30 30 42 09 3b 20 46 6c 6f 70 70 79 20 70 68 79 73 2e ┆IT0 EQU 00000000B ; Floppy phys.┆ 0x1260…1280 20 75 6e 69 74 20 30 0d 0a 55 4e 49 54 31 09 45 51 55 09 30 30 30 30 30 30 30 31 42 09 3b 20 46 ┆ unit 0 UNIT1 EQU 00000001B ; F┆ 0x1280…12a0 6c 6f 70 70 79 20 70 68 79 73 2e 20 75 6e 69 74 20 31 0d 0a 55 4e 49 54 32 09 45 51 55 09 30 30 ┆loppy phys. unit 1 UNIT2 EQU 00┆ 0x12a0…12c0 30 30 30 30 31 30 42 09 3b 20 46 6c 6f 70 70 79 20 70 68 79 73 2e 20 75 6e 69 74 20 32 0d 0a 55 ┆000010B ; Floppy phys. unit 2 U┆ 0x12c0…12e0 4e 49 54 33 09 45 51 55 09 30 30 30 30 30 30 31 31 42 09 3b 20 46 6c 6f 70 70 79 20 70 68 79 73 ┆NIT3 EQU 00000011B ; Floppy phys┆ 0x12e0…1300 2e 20 75 6e 69 74 20 33 0d 0a 57 55 4e 49 54 30 09 45 51 55 09 30 30 30 30 30 30 30 30 42 09 3b ┆. unit 3 WUNIT0 EQU 00000000B ;┆ 0x1300…1320 20 57 69 6e 63 68 65 73 74 65 72 20 70 68 79 73 2e 20 75 6e 69 74 20 30 0d 0a 57 55 4e 49 54 31 ┆ Winchester phys. unit 0 WUNIT1┆ 0x1320…1340 09 45 51 55 09 30 30 31 30 30 30 30 30 42 09 3b 20 57 69 6e 63 68 65 73 74 65 72 20 70 68 79 73 ┆ EQU 00100000B ; Winchester phys┆ 0x1340…1360 2e 20 75 6e 69 74 20 31 0d 0a 0d 0a 49 4e 43 48 35 09 45 51 55 09 30 30 30 30 31 30 30 30 42 09 ┆. unit 1 INCH5 EQU 00001000B ┆ 0x1360…1380 3b 20 35 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 ┆; 5"-FLOPPY INCH8 EQU 11010100B┆ 0x1380…13a0 09 3b 20 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 ┆ ; 8"-FLOPPY DOUBLD EQU 00000┆ 0x13a0…13c0 30 30 30 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 ┆000B ; DOUBLE DENSITY SINGLD EQ┆ 0x13c0…13e0 55 09 30 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 ┆U 00100000B ; SINGLE DENSITY ┆ 0x13e0…1400 43 4f 4d 4d 09 45 51 55 09 30 42 43 48 09 09 3b 20 43 4f 4d 4d 4f 4e 20 50 41 47 45 20 49 4e 20 ┆COMM EQU 0BCH ; COMMON PAGE IN ┆ 0x1400…1420 53 59 53 54 45 4d 0d 0a 0d 0a 09 49 46 09 45 35 31 32 0d 0a 45 4e 54 09 45 51 55 09 35 31 32 0d ┆SYSTEM IF E512 ENT EQU 512 ┆ 0x1420…1440 0a 41 4c 31 09 45 51 55 09 30 0d 0a 09 45 4c 53 45 0d 0a 45 4e 54 09 45 51 55 09 31 30 32 34 0d ┆ AL1 EQU 0 ELSE ENT EQU 1024 ┆ 0x1440…1460 0a 41 4c 31 09 45 51 55 09 30 46 46 48 0d 0a 09 45 4e 44 49 46 0d 0a 0d 0a 09 49 46 09 4d 38 0d ┆ AL1 EQU 0FFH ENDIF IF M8 ┆ 0x1460…1480 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 51 55 09 27 ┆ SIGN EQU '8' ELSE SIGN EQU '┆ 0x1480…14a0 35 27 0d 0a 09 45 4e 44 49 46 0d 0a 09 50 41 47 45 0d 0a 09 45 58 54 52 4e 09 46 44 52 45 41 44 ┆5' ENDIF PAGE EXTRN FDREAD┆ 0x14a0…14c0 2c 46 44 57 52 49 54 2c 46 44 4c 47 49 4e 2c 46 44 49 4e 49 54 0d 0a 09 45 58 54 52 4e 09 57 52 ┆,FDWRIT,FDLGIN,FDINIT EXTRN WR┆ 0x14c0…14e0 45 41 44 2c 57 57 52 49 54 2c 57 49 4e 49 54 2c 57 49 4e 49 54 44 2c 57 4c 47 49 4e 0d 0a 09 50 ┆EAD,WWRIT,WINIT,WINITD,WLGIN P┆ 0x14e0…1500 55 42 4c 49 43 09 40 44 54 42 4c 2c 3f 54 49 54 45 4c 0d 0a 09 50 55 42 4c 49 43 09 40 43 4f 4d ┆UBLIC @DTBL,?TITEL PUBLIC @COM┆ 0x1500…1520 4d 4f 0d 0a 09 43 53 45 47 0d 0a 40 44 54 42 4c 3a 09 44 57 09 46 4c 41 2c 57 49 4e 41 2c 57 49 ┆MO CSEG @DTBL: DW FLA,WINA,WI┆ 0x1520…1540 4e 42 2c 46 4c 44 09 3b 20 54 68 69 73 20 6f 72 64 65 72 20 6d 75 73 74 20 6e 6f 74 20 62 65 20 ┆NB,FLD ; This order must not be ┆ 0x1540…1560 63 68 61 6e 67 65 64 2e 0d 0a 09 09 09 09 09 3b 20 43 68 65 63 6b 20 62 6f 6f 74 2d 72 6f 75 74 ┆changed. ; Check boot-rout┆ 0x1560…1580 69 6e 65 20 69 6e 0d 0a 09 09 09 09 09 3b 20 42 49 4f 53 4b 52 4e 4c 2e 5a 38 30 0d 0a 09 49 46 ┆ine in ; BIOSKRNL.Z80 IF┆ 0x1580…15a0 09 54 57 4f 57 49 4e 53 0d 0a 09 44 57 09 57 49 4e 43 2c 57 49 4e 44 0d 0a 09 53 49 47 4e 30 09 ┆ TWOWINS DW WINC,WIND SIGN0 ┆ 0x15a0…15c0 45 51 55 09 27 32 27 0d 0a 09 45 4c 53 45 0d 0a 09 44 57 09 30 2c 30 0d 0a 09 53 49 47 4e 30 09 ┆EQU '2' ELSE DW 0,0 SIGN0 ┆ 0x15c0…15e0 45 51 55 09 27 31 27 0d 0a 09 45 4e 44 49 46 0d 0a 0d 0a 09 44 57 09 30 2c 30 09 09 0d 0a 09 44 ┆EQU '1' ENDIF DW 0,0 D┆ 0x15e0…1600 57 09 30 2c 30 2c 30 2c 30 0d 8a 09 44 57 09 30 2c 30 2c 30 2c 30 0d 0a 40 43 4f 4d 4d 4f 3a 09 ┆W 0,0,0,0 DW 0,0,0,0 @COMMO: ┆ 0x1600…1620 44 42 09 43 4f 4d 4d 0d 0a 09 50 41 47 45 0d 0a 09 44 53 45 47 0d 0a 0d 0a 3b 20 44 65 66 69 6e ┆DB COMM PAGE DSEG ; Defin┆ 0x1620…1640 65 20 57 49 4e 43 48 45 53 54 45 52 20 55 4e 49 54 20 30 2e 0d 0a 0d 0a 09 44 57 09 57 57 52 49 ┆e WINCHESTER UNIT 0. DW WWRI┆ 0x1640…1660 54 0d 0a 09 44 57 09 57 52 45 41 44 0d 0a 09 44 57 09 57 4c 47 49 4e 0d 0a 09 44 57 09 57 49 4e ┆T DW WREAD DW WLGIN DW WIN┆ 0x1660…1680 49 54 0d 0a 09 44 42 09 57 55 4e 49 54 30 09 09 3b 20 50 48 59 53 49 43 41 4c 20 55 4e 49 54 20 ┆IT DB WUNIT0 ; PHYSICAL UNIT ┆ 0x1680…16a0 46 4f 52 20 58 45 42 45 43 2e 0d 8a 09 44 42 09 30 0d 0a 57 49 4e 41 3a 09 44 57 09 30 09 09 3b ┆FOR XEBEC. DB 0 WINA: DW 0 ;┆ 0x16a0…16c0 20 4e 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 ┆ NO TRANS TABLE DB 0,0,0,0,0,0┆ 0x16c0…16e0 2c 30 2c 30 2c 30 0d 0a 09 44 42 09 30 09 09 3b 20 4d 45 44 49 41 46 4c 41 47 47 0d 0a 09 44 57 ┆,0,0,0 DB 0 ; MEDIAFLAGG DW┆ 0x16e0…1700 09 57 49 4e 30 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 09 09 ┆ WIN0 ; ADDRESS TO DPB DW 0 ┆ 0x1700…1720 3b 20 4e 4f 20 43 48 45 43 4b 53 55 4d 20 56 45 43 54 4f 52 0d 0a 09 44 57 09 30 46 46 46 45 48 ┆; NO CHECKSUM VECTOR DW 0FFFEH┆ 0x1720…1740 09 09 3b 20 41 4c 4c 4f 43 20 56 45 43 54 4f 52 20 47 45 4e 2e 20 42 59 20 47 45 4e 43 50 4d 0d ┆ ; ALLOC VECTOR GEN. BY GENCPM ┆ 0x1740…1760 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 ┆ 0x1760…1780 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┆ 0x1780…17a0 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. ┆ 0x17a0…17c0 0a 0d 0a 3b 20 44 65 66 69 6e 65 20 57 49 4e 43 48 45 53 54 45 52 20 55 4e 49 54 20 31 2e 0d 0a ┆ ; Define WINCHESTER UNIT 1. ┆ 0x17c0…17e0 0d 0a 09 44 57 09 57 57 52 49 54 0d 0a 09 44 57 09 57 52 45 41 44 0d 0a 09 44 57 09 57 4c 47 49 ┆ DW WWRIT DW WREAD DW WLGI┆ 0x17e0…1800 4e 0d 0a 09 44 57 09 57 49 4e 49 54 44 0d 0a 09 44 42 09 57 55 4e 49 54 30 09 09 3b 20 50 48 59 ┆N DW WINITD DB WUNIT0 ; PHY┆ 0x1800…1820 53 49 43 41 4c 20 55 4e 49 54 20 46 4f 52 20 58 45 42 45 43 2e 0d 0a 09 44 42 09 30 0d 0a 57 49 ┆SICAL UNIT FOR XEBEC. DB 0 WI┆ 0x1820…1840 4e 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 0d 0a 09 44 42 09 ┆NB: DW 0 ; NO TRANS TABLE DB ┆ 0x1840…1860 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 49 ┆0,0,0,0,0,0,0,0,0 DB 0 ; MEDI┆ 0x1860…1880 41 46 4c 41 47 47 0d 0a 09 44 57 09 57 49 4e 31 09 09 3b 20 41 44 44 52 45 53 53 20 54 4f 20 44 ┆AFLAGG DW WIN1 ; ADDRESS TO D┆ 0x1880…18a0 50 42 0d 0a 09 44 57 09 30 09 09 3b 20 4e 4f 20 43 48 45 43 4b 53 55 4d 20 56 45 43 54 4f 52 0d ┆PB DW 0 ; NO CHECKSUM VECTOR ┆ 0x18a0…18c0 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 45 4e 2e ┆ DW 0FFFEH ; ALLOC VECTOR GEN.┆ 0x18c0…18e0 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 3b 20 ┆ BY GENCPM DW 0FFFEH,0FFFEH ; ┆ 0x18e0…1900 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 20 44 ┆LET GENCPM CALC DW 0FFFEH ; D┆ 0x1900…1920 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 48 41 ┆IRBCB, DTABCB, HASH DB 0 ; HA┆ […truncated at 200 lines…]