|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 13312 (0x3400)
Types: TextFile
Names: »FDRIVES.Z8B«
└─⟦8181fe295⟧ Bits:30005924 PolyPascal-80 V3.10 arbejdsdiskette 2
└─ ⟦this⟧ »FDRIVES.Z8B«
└─⟦ee7c759f6⟧ Bits:30005973 System backup med COMPAS-80 V3.01, dBase II og WordStar
└─ ⟦this⟧ »FDRIVES.Z8B«
TITLE 'FDRIVES.Z8B TABELLER FØR DISKETTE' ;********************************************************** ;* * ;* MODUL FØR DEFINITION AV DE I SYSTEMET IN- * ;* GÅENDE FLEXSKIVEENHETERNA. * ;* * ;********************************************************** ; SENATE UPPDATERING 1984-12-16. PSW .Z80 TRUE EQU 0FFH FALSE EQU 0 VERIFY EQU TRUE ; Verify after write. M8 EQU FALSE ; A: 8" 2x77x8x1024, 256 ent. UNIT0 ; B: 8" 2x77x8x1024, 256 ent. UNIT1 ; C: 5" 2x80x5x1024, 128 ent. UNIT0 ; D: 8" 1x77x26x128, 64 ent. UNIT1 M596D EQU TRUE ; A: 5" 2x80x5x1024, 128 ent. UNIT0 ; B: 5" 2x80x5x1024, 128 ent. UNIT1 ; C: 5" 2x80x10x512, 128 ent. UNIT0 ; D: 5" 2x80x10x512, 128 ent. UNIT1 M548D EQU FALSE ; A: 5" 2x40x5x1024, 128 ent. UNIT0 ; B: 5" 2x40x5x1024, 128 ent. UNIT1 ; C: 5" 1x40x5x1024, 64 ent. UNIT1 ; D: 8" 1x77x26x128, 64 ent. UNIT0 M548S EQU FALSE ; A: 5" 1x40x5x1024, 64 ent. UNIT0 ; B: 5" 1x40x5x1024, 64 ent. UNIT1 ; C: 8" 2x77x8x1024, 256 ent. UNIT0 ; D: 8" 1x77x26x128, 64 ent. UNIT0 RATE0 EQU 00000000B ; 3ms/6ms RATE1 EQU 00000001B ; 6ms/12ms RATE2 EQU 00000010B ; 10ms/20ms RATE3 EQU 00000011B ; 15ms/30ms DOUBLS EQU 0FFH ; DOUBLE SIDED SINGLS EQU 0 ; SINGLE SIDED UNIT0 EQU 00000000B ; FYSISK ENHET 0 UNIT1 EQU 00000001B ; FYSISK ENHET 1 UNIT2 EQU 00000010B ; FYSISK ENHET 2 UNIT3 EQU 00000011B ; FYSISK ENHET 3 INCH5 EQU 00001000B ; 5"-FLOPPY INCH8 EQU 11010100B ; 8"-FLOPPY DOUBLD EQU 00000000B ; DOUBLE DENSITY SINGLD EQU 00100000B ; SINGLE DENSITY ▶8a◀ IF M8 SIGN EQU '8' ELSE SIGN EQU '5' ENDIF EXTRN FDREAD,FDWRIT,FDLGIN,FDINIT ENTRY @DTBL,?TITEL CSEG @DTBL: DEFW FLA,FLB,FLC,FLD DEFW 0,0,0,0 DEFW 0,0,0,0 DEFW 0,0,0,0 PAGE DSEG IF M8 ; DEFINIERA 8" 2x77x8x1024, 256 entries. UNIT A: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH8+UNIT0+DOUBLD ; $FDXSL DEFB 0 ; FLA: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F8D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ; DEFINIERA 8" 2x77x8x1024, 256 entries. UNIT B: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH8+UNIT1+DOUBLD ; $FDXSL DEFB 0 ; FLB: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F8D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM▶8a◀ DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL PAGE ; DEFINIERA 5.25" 2x80x5x1024, 128 entries. UNIT C: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT0+DOUBLD ; $FDXSL DEFB 0 ; FLC: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F596D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ; DEFINIERA 8" 1x77x26x128, 64 entries (IBM). UNIT D: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH8+UNIT1+SINGLD ; $FDXSL DEFB 0 ; FLD: DEFW TRANS ; TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F8S ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ENDIF PAGE IF M596D ; DEFINIERA 5.25" 2x80x5x1024, 128 entries. UNIT A: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT▶8a◀ DEFB INCH5+UNIT0+DOUBLD ; $FDXSL DEFB 0 ; FLA: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F596D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ; DEFINIERA 5.25" 2x80x5x1024, 128 entries. UNIT B: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT1+DOUBLD ; $FDXSL DEFB 0 ; FLB: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F596D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL PAGE ; DEFINIERA 5" 2x80x10x512,128 entries (MPS). UNIT C:▶8a◀ DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT1+DOUBLD ; $FDXSL DEFB 0 ; FLC: DEFW TRANS ; TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F548S ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ; DEFINIERA 5" 1x80x10x512,128 entries (MPS). UNIT D:▶8a◀ DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT1+DOUBLD ; $FDXSL DEFB 0 ; FLD: DEFW TRANS ; TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F548D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ENDIF PAGE IF M548D ; DEFINIERA 5.25" 2x40x5x1024, 128 entries. UNIT A: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT0+DOUBLD ; $FDXSL DEFB 0 ; FLA: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F548D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ; DEFINIERA 5.25" 2x40x5x1024, 128 entries. UNIT B: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT1+DOUBLD ; $FDXSL DEFB 0 ; FLB: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA▶8a◀ DEFW F548D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL PAGE ; DEFINIERA 5.25" 1x40x5x1024, 64 entries. UNIT C: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT1+DOUBLD ; $FDXSL DEFB 0 ; FLC: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F548S ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ; DEFINIERA 8" 1x77x26x128, 64 entries (IBM). UNIT D: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH8+UNIT0+SINGLD ; $FDXSL DEFB 0 ; FLD: DEFW TRANS ; TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F8S ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ENDIF PAGE IF M548S ; DEFINIERA 5.25" 1x40x5x1024, 64 entries. UNIT A: DEFW FDWRIT▶8a◀ DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT0+DOUBLD ; $FDXSL DEFB 0 ; FLA: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F548S ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ; DEFINIERA 5.25" 1x40x5x1024, 64 entries. UNIT B: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH5+UNIT1+DOUBLD ; $FDXSL DEFB 0 ; FLB: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F548S ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL PAGE ; DEFINIERA 8" 2x77x8x1024, 256 entries. UNIT C: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH8+UNIT0+DOUBLD ; $FDXSL DEFB 0 ; FLC: DEFW 0 ; INGEN TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F8D ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL▶8a◀ ; DEFINIERA 8" 1x77x26x128, 64 entries (IBM). UNIT D: DEFW FDWRIT DEFW FDREAD DEFW FDLGIN DEFW FDINIT DEFB INCH8+UNIT0+SINGLD ; $FDXSL DEFB 0 ; FLD: DEFW TRANS ; TRANSTABELL DEFB 0,0,0,0,0,0,0,0,0 DEFB 0 ; MEDIAFLAGGA DEFW F8S ; ADRESS T. DPB DEFW 0FFFEH ; CHECKSUM VECTOR SÆTTS AV GENCPM DEFW 0FFFEH ; ALLOC VECTOR SÆTTS AV GENCPM DEFW 0FFFEH,0FFFEH ; LÅT GENCPM SETUP DEFW 0FFFEH ; DIRBCB, DTABCB, HASH DEFB 0 ; HASH BANK ÆR NOLL ENDIF PAGE CSEG ; DPB FØR 8" 2x77x8x1024, 256 entries. F8D: DEFW 64 ; 64 ST. 128-BYTESSEC./SPÅR DEFB 4,0FH ; BLOCK SKIFT OCH MASK DEFB 0 ; EXTENT MASK DEFW 607 ; MAX BLOCKNUMMER DEFW 256-1 ; 256 DIR. ENTRIES DEFB 0F0H,0 ; ALLOC VECTOR TILL DIR DEFW 256/4 ; CHECKSUMMA STORLEK DEFW 2 ; OFFSETSPÅR DEFB 0 ; FYS. SEKTORSTORLEK DEFB 0 ; FYS.SECTOR SKIFT-MASK DEFB 0FFH ; DD DEFB 0FFH ; DS DEFB 8 ; CPM/FYS DEFB RATE0 DEFB INCH8+DOUBLD ; BOOTSELECT DEFB 22 ; RTO DEFB 19 ; WTO DEFB 0 ; EEC DEFB 0 ; FORMATTYP DEFB VERIFY ; VERIFY AFTER WRITE ; DPB før 8" 1x77x25x128, 64 entries. (IBM) F8S: DEFW 26 ; 26 ST. 128-BYTESSEC./SPÅR DEFB 3,7 ; BLOCK SKIFT OCH MASK DEFB 0 ; EXTENT MASK DEFW 242 ; MAX BLOCKNUMMER▶8a◀ DEFW 64-1 ; 64 DIR. ENTRIES DEFB 0C0H,0 ; ALLOC VECTOR TILL DIR DEFW 64/4 ; CHECKSUMMA STORLEK DEFW 2 ; OFFSETSPÅR DEFB 0 ; FYS. SEKTORSTORLEK DEFB 0 ; FYS.SECTOR SKIFT-MASK DEFB 0 ; SD DEFB 0 ; SS DEFB 1 ; CPM/FYS DEFB RATE0 DEFB INCH8+SINGLD ; BOOTSELECT DEFB 22 ; RTO DEFB 19 ; WTO DEFB 0 ; EEC DEFB 0 ; FORMATTYP DEFB VERIFY ; VERIFY AFTER WRITE PAGE ; DPB før 5.25" 2x80x5x1024, 128 entries. F596D: DEFW 40 ; 40 ST. 128-BYTESSEC./SPÅR DEFB 4,0FH ; BLOCK SKIFT OCH MASK DEFB 0 ; EXTENT MASK DEFW 394 ; MAX BLOCKNUMMER DEFW 128-1 ; 128 DIR. ENTRIES DEFB 0C0H,0 ; ALLOC VECTOR TILL DIR DEFW 128/4 ; CHECKSUMMA STORLEK DEFW 2 ; OFFSETSPÅR DEFB 0 ; FYS. SEKTORSTORLEK DEFB 0 ; FYS.SECTOR SKIFT-MASK DEFB 0FFH ; DD DEFB 0FFH ; DS DEFB 8 ; CPM/FYS DEFB RATE0 DEFB INCH5+DOUBLD ; BOOTSELECT DEFB 22 ; RTO DEFB 19 ; WTO DEFB 0 ; EEC DEFB 0 ; FORMATTYP DEFB VERIFY ; VERIFY AFTER WRITE ; DPB før 5.25" 1x80x10x512, 128 entries. ; MPS SYSTEM. F548D: DEFW 40 ; 40 ST. 128-BYTESSEC./SPÅR DEFB 4,0FH ; BLOCK SKIFT OCH MASK DEFB 1 ; EXTENT MASK DEFW 194 ; MAX BLOCKNUMMER DEFW 128-1 ; 128 DIR. ENTRIES DEFB 0C0H,0 ; ALLOC VECTOR TILL DIR DEFW 128/4 ; CHECKSUMMA STORLEK DEFW 2 ; OFFSETSPÅR DEFB 0 ; FYS. SEKTORSTORLEK DEFB 0 ; FYS.SECTOR SKIFT-MASK▶8a◀ DEFB 0FFH ; DD DEFB 000H ; SS DEFB 4 ; CPM/FYS DEFB RATE0 DEFB INCH5+DOUBLD ; BOOTSELECT DEFB 22 ; RTO DEFB 19 ; WTO DEFB 0 ; EEC DEFB 0 ; FORMATTYP DEFB VERIFY ; VERIFY AFTER WRITE PAGE ; DPB før 5.25" 2x80x10x512, 128 entries. ; MPS SYSTEM. F548S: DEFW 40 ; 40 ST. 128-BYTESSEC./SPÅR DEFB 5,1FH ; BLOCK SKIFT OCH MASK DEFB 3 ; EXTENT MASK DEFW 196 ; MAX BLOCKNUMMER DEFW 128-1 ; 128 DIR. ENTRIES DEFB 080H,0 ; ALLOC VECTOR TILL DIR DEFW 128/4 ; CHECKSUMMA STORLEK DEFW 2 ; OFFSETSPÅR DEFB 0 ; FYS. SEKTORSTORLEK DEFB 0 ; FYS.SECTOR SKIFT-MASK▶8a◀ DEFB 0FFH ; DD DEFB 0FFH ; SS DEFB 4 ; CPM/FYS DEFB RATE0 DEFB INCH5+DOUBLD ; BOOTSELECT DEFB 22 ; RTO DEFB 19 ; WTO DEFB 0 ; EEC DEFB 0 ; FORMATTYP DEFB VERIFY ; VERIFY AFTER WRITE PAGE ; DPB før 5.25" 1x40x5x1024, 64 entries. ?TITEL: DEFB '80. ' DEFB SIGN,'"-floppy-version. ' IF M8 DEFB '2x1.2 MBytes.' ENDIF IF M596D DEFB '2x800 KBytes.' ENDIF IF M548D DEFB '2x400 KBytes.' ENDIF IF M548S DEFB '2x200 KBytes.' ENDIF DEFB 13,10,0 ; SKEW TABEL TIL MPS SKEW 4. TRANS: DEFB 1,2,3,4,13,14,15,16▶8a◀ DEFB 25,26,27,28,37,38,39,40 DEFB 9,10,11,12,21,22,23,24 DEFB 33,34,35,36,5,6,7,8 DEFB 17,18,19,20,29,30,31,32,33 END «eof»