|
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: 4152 (0x1038)
Types: TextFile
Names: »TEST_TDX.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »TEST_TDX.S«
«ff»
"----------------------------------------------------------------------
PROJECT: TDX TEST SYSTEM
MODULE NAME: TEST_TDX
MODULE ID NMB: CSS714
MODULE VERSION: 0101
MODULE TYPE: X
MODULE FILES: TEST_TDX.S
MERGE FILES:
@**USERS.D*TLM.D*PASLIB.D*FILE_VARS.S
@**USERS.D*TLM.D*PASLIB.D*PREFIX.S
@**USERS.D*TLM.D*PASLIB.D*FILE_CONNECTION.S
@**USERS.D*TLM.D*PASLIB.D*BREAKED.S
@**USERS.D*TLM.D*PASLIB.D*TERMINAL_IO.S
CONST.S, TYPE.S, VAR.S, INITIALIZE.S, SEMANTICS.S,
INTERPRET.S, IN_BYTE.S, NEXT_TABLE_WORD.S, HELP.S,
DRIVERDEFINE.S, CREATE.S, APPEND.S, READ.S
DISMANTLE.S, TERMINATE.S, ASSIGN., DEASSIGN.S,
INITAPPEND.S, INITREAD.S, PROCCALL.S, CONSOLE_IN.S,
CONSOLE_OUT.S, PATTERNDEFINE.S, DUMP.S, DELAY.S,
REPEAT.S, ENDREPEAT.S, PROCRETURN.S,
INTERPRET_FWD.S, GENERATE_DATA.S, CHECK_DATA.S
CHECK_TRANSFER.S, CHECK_INIT_OPS.S
CANCEL.S, LIST.S
@**GENS.D*PARSE.D*CONSTS.S
@**GENS.D*PARSE.D*TYPES.S
@**GENS.D*PARSE.D*VARS.S
@**USERS.D*TLM.D*PARSE.D*PROCS.S
SPECIFICATIONS: CSS/714/USM/0066
AUTHOR/DATE: TLM/810312
DELIVERABLE: YES
SOURCE LANGUAGE: CR80 PASCAL
COMPILE COMPUTER: CR80
TARGET COMPUTER: CR80
OPER. SYSTEM: AMOS
«ff»
-----------------------------------------------------------------------
CHANGE RECORD:
VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
------- ----------- ---------------------
0102 TLM/810421 Implementation of CANCEL, LIST OPERATIONS.
Improvement of DUMP.
----------------------------------------------------------------------"
«ff»
$@**USERS.D*TLM.D*PASLIB.D*PREFIX.S
%STACK = 16000
%PROCESSNAME = TDXTST
%PROGRAMNAME = TDXTST
%VERSION = 0101
%FDS = 40
%STREAMS = 6
%IOCBS = 60
%MESSAGES = 80
%TLES = 120
"%FASTCODE"
$@**USERS.D*TLM.D*TEST_TDX.D*CONST.S
$@**USERS.D*TLM.D*TEST_TDX.D*TYPE.S
VAR
$@**USERS.D*TLM.D*PASLIB.D*FILE_VARS.S
$@**USERS.D*TLM.D*TEST_TDX.D*VAR.S
$@**USERS.D*TLM.D*PASLIB.D*TERMINAL_IO.S
$@**USERS.D*TLM.D*PASLIB.D*FILE_CONNECTION.S
$@**USERS.D*TLM.D*PASLIB.D*BREAKED.S
$@**USERS.D*TLM.D*TEST_TDX.D*INITIALIZE.S
$@**USERS.D*TLM.D*TEST_TDX.D*HELP.S
$@**USERS.D*TLM.D*TEST_TDX.D*CHECK_TRANSFER.S
$@**USERS.D*TLM.D*TEST_TDX.D*GENERATE_DATA.S
$@**USERS.D*TLM.D*TEST_TDX.D*CHECK_DATA.S
$@**USERS.D*TLM.D*TEST_TDX.D*CHECK_INIT_OPS.S
$@**USERS.D*TLM.D*TEST_TDX.D*INTERPRET_FWD.S
$@**USERS.D*TLM.D*TEST_TDX.D*DRIVERDEFINE.S
$@**USERS.D*TLM.D*TEST_TDX.D*CREATE.S
$@**USERS.D*TLM.D*TEST_TDX.D*APPEND.S
$@**USERS.D*TLM.D*TEST_TDX.D*READ.S
$@**USERS.D*TLM.D*TEST_TDX.D*DISMANTLE.S
$@**USERS.D*TLM.D*TEST_TDX.D*TERMINATE.S
$@**USERS.D*TLM.D*TEST_TDX.D*ASSIGN.S
$@**USERS.D*TLM.D*TEST_TDX.D*DEASSIGN.S
$@**USERS.D*TLM.D*TEST_TDX.D*INITAPPEND.S
$@**USERS.D*TLM.D*TEST_TDX.D*INITREAD.S
$@**USERS.D*TLM.D*TEST_TDX.D*PROCCALL.S
$@**USERS.D*TLM.D*TEST_TDX.D*CONSOLE_IN.S
$@**USERS.D*TLM.D*TEST_TDX.D*CONSOLE_OUT.S
$@**USERS.D*TLM.D*TEST_TDX.D*PATTERNDEFINE.S
$@**USERS.D*TLM.D*TEST_TDX.D*DUMP.S
$@**USERS.D*TLM.D*TEST_TDX.D*DELAY.S
$@**USERS.D*TLM.D*TEST_TDX.D*REPEAT.S
$@**USERS.D*TLM.D*TEST_TDX.D*ENDREPEAT.S
$@**USERS.D*TLM.D*TEST_TDX.D*PROCRETURN.S
$@**USERS.D*TLM.D*TEST_TDX.D*CANCEL.S
$@**USERS.D*TLM.D*TEST_TDX.D*LIST.S
$@**USERS.D*TLM.D*TEST_TDX.D*WAITINIT.S
$@**USERS.D*TLM.D*TEST_TDX.D*INTERPRET.S
$@**USERS.D*TLM.D*TEST_TDX.D*SEMANTICS.S
$@**USERS.D*TLM.D*TEST_TDX.D*IN_BYTE.S
$@**USERS.D*TLM.D*TEST_TDX.D*NEXT_TABLE_WORD.S
%NOLIST
$@**USERS.D*TLM.D*PARSE.D*PROCS.S
%LIST
«ff»
BEGIN
INITIALIZE;
CONNECT_PARAMETERS;
INIT_PARSE;
WRITETEXT('TDX TEST SYSTEM VERSION 0102 810501.(:0:)');
WRITENL;
PARSE;
END.