|
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: 1316 (0x524)
Types: TextFile
Names: »TABRES.S«
└─⟦a3edd706e⟧ Bits:30005202 8" Zilog MCZ/1 Floppy CR80FD_0028 ( TC 500 SEC. PROTOCOL BACK UP ! (V1) BB A1 820907 NCJ )
└─ ⟦this⟧ »TABRES.S«
└─⟦e12128f26⟧ Bits:30005200 8" Zilog MCZ/1 Floppy CR80FD_0026 ( TC 500 SEC. PROTOCOL BB V1 830407 NCJ )
└─ ⟦this⟧ »TABRES.S«
!*********************************************************************
*
* INIT_CONFIG_TABLE MODULE
*
*********************************************************************!
INIT_CONF_TAB MODULE
TYPE
BUFFER RECORD
[BUFF_HEAD ARRAY[4 WORD]
STAADR ^BYTE
DATA ARRAY[504 BYTE]]
REC_PTR ^BUFFER
CONFIG_TABLE ARRAY [10,4 BYTE]
CONFIG_TAB_PTR ^CONFIG_TABLE
CONF_TABLE ARRAY [10,1 BYTE]
CONF_TAB_PTR ^CONF_TABLE
PARAM_TABLE RECORD
[B ARRAY[20 BYTE]
W WORD
P CONFIG_TAB_PTR
C CONF_TAB_PTR
CL_MESS BYTE]
DATA_PTR ^PARAM_TABLE
PBYTE ^BYTE
CONSTANT
EMPTY := 0
GLOBAL
!ECHO \f
!
!*************************************************************************
* PROCEDURE : TABRES
*
* FUNCTION : THE SPECIFIED CONFIGURATION TABLE IS INITIALIZED
* WITH ZERO`S
*
* INPUTS : PCT : POINTER TO CONFIGURATION TABLE
*
* OUTPUTS : NONE
************************************************************************!
TABRES PROCEDURE (PCT CONFIG_TAB_PTR)
LOCAL
CT_ADR PBYTE
COUNT BYTE
ENTRY
CT_ADR := PBYTE PCT
COUNT := 0
DO
CT_ADR^ := EMPTY
CT_ADR := INC CT_ADR
COUNT += 1
IF COUNT = SIZEOF CONFIG_TABLE THEN EXIT FI
OD
END TABRES
END INIT_CONF_TAB
!ECHO \f
!