|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1408 (0x580)
Types: TextFile
Names: »TFDGEN«
└─⟦33aa57013⟧ Bits:30005069 8" CR80 Floppy CR80FD_0007 ( NAMES NICS-TARE CP PJ DEC 3, 80 )
└─⟦0441cdddc⟧
└─ ⟦this⟧ »TFDGEN«
NOLIST
;-----------------------------------------------------------------------
;
; PROJECT: NICS-TARE/CP
;
; MODULE IDENTIFICATION: NIC/490
; DISK IDENTIFICATION: CR/D/0485
;
; DBS NAME: OLTO TEST FILE DECLARATION GENERATOR (TFDGEN)
; DBS VERSION: 0300
;
; MERGE FILES: -
; MODULE FILES: TFDGEN
;
; REFERENCES: NIC/100/PSP/0002,NIC/400/PSP/0008
;
; DATE: 780528
; AUTHOR: JSL
;
;-----------------------------------------------------------------------
; TFD ASSEMBLY:
OTFRCL=OTFRCL-1 ; RECORD SIZE ADJUSTMENT
; TFD WORD1
IF OTFTYP NE QUEFIL ; IF NOT QUEUE TYPE TFD
THEN ; THEN GENERATE TFD (SHORT RCL)
OTFTYP<TFDFTS AN TFDFTM OR %; TF TYPE
OTFPAG<TFDFPS AN TFDFPM OR %; TF MEMORY PAGE
OTFRCL<TFDRLS AN TFDRLM OR %; TF RECORD LENGTH
OTFRCN<TFDRNS ; TF RECORD NUMBER
ELSE ; ELSE GENERATE TFD (LONG RCL)
OTFTYP<TFDFTS AN TFDFTM OR %; TF TYPE
OTFRCL<TFDRLS AN (TFDRLM %; TF RECORD LENGTH
+TFDFPM) ;
FI ;
;
OTFST ; TFD WORD2, TF START ADDRESS
OTFNM1 ; TFD WORD3, TF NAME
OTFNM2 ; TFD WORD4, TF NAME
;
; RESET TFD PARAMETERS TO DEFAULT:
;
OTFRCN= 1 ;
OTFRCL= 21 ;
OTFPAG= 0 ;
OTFTYP= RELFIL ;
OTFST= 0 ;
OTFNM1= <:PD:> ;
OTFNM2= <: :> ;
;
;-----------------------------------------------------------------------
;
; END OF TFD DEFINITION
;
;-----------------------------------------------------------------------
LIST
«eof»