|
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: 3161 (0xc59)
Types: TextFile
Names: »CREA.S«
└─⟦31b8a9b6a⟧ Bits:30005199 8" Zilog MCZ/1 Floppy CR80FD_0025 ( TC 500 SEC. PROTOCOL BB V2 830407 NCJ )
└─ ⟦this⟧ »CREA.S«
└─⟦cf416a62a⟧ Bits:30005201 8" Zilog MCZ/1 Floppy CR80FD_0027 ( TC 500 SEC. PROTOCOL BACK UP! (V2) BB SEC 821119 NCJ )
└─ ⟦this⟧ »CREA.S«
;******************************************************************************
;*
;* PROCESS_CREATION MODULE
;*
;******************************************************************************
;*
;******************************************************************************
;* NAME : TABSTA PROCESS TABLE
;*
;* FUNCTION : THE TABLE CONSISTS OF 20 IDENTICALLY STRUCTURED SUBTABLES,
;* EACH OF THEM DESCRIBING THE CHARACTERISTICS OF THE PROCESS
;* IN QUESTION. THE SUBTABLES ARE STRUCTURED AS SHOWN BELOW :
;*
;* --------------------
;* - STACK START -
;* - ADDRESS -
;* --------------------
;* - PROCESS -
;* - ADDRESS -
;* --------------------
;* - PROCESS DESCRIP- -
;* - TOR ADDRESS -
;* --------------------
;*
;*****************************************************************************
EXTERNAL SYSRAM,SUBCREATE
EXTERNAL CHA1STA,CHA2STA,CHA3STA,CHA4STA
EXTERNAL COM1PRO,N1TIME,COM1REC,C1REC
EXTERNAL COM2PRO,N2TIME,COM2REC,C2REC
EXTERNAL COM3PRO,N3TIME,COM3REC,C3REC
EXTERNAL COM4PRO,N4TIME,COM4REC,C4REC
GLOBAL PRO_CREATE
;ECHO \f
CRE_TABLE
DEFW (TABEND-TABSTA)/6
;
TABSTA
DEFW 8000H ;20H
DEFW CHA1STA
DEFW SYSRAM+100H+0*0AH
;
DEFW 7FE0H ;20H
DEFW CHA2STA
DEFW SYSRAM+100H+1*0AH
;
DEFW 7FC0H ;20H
DEFW CHA3STA
DEFW SYSRAM+100H+2*0AH
;
DEFW 7FA0H ;20H
DEFW CHA4STA
DEFW SYSRAM+100H+3*0AH
;
DEFW 7F80H ;20H
DEFW COM1REC
DEFW SYSRAM+100H+4*0AH
;
DEFW 7F60H ;80H
DEFW C1REC
DEFW SYSRAM+100H+5*0AH
;
DEFW 7EE0H ;80H
DEFW COM1PRO
DEFW SYSRAM+100H+6*0AH
;
DEFW 7E60H ;40H
DEFW N1TIME
DEFW SYSRAM+100H+7*0AH
;
DEFW 7E20H ;20H
DEFW COM2REC
DEFW SYSRAM+100H+8*0AH
;
DEFW 7E00H ;80H
DEFW C2REC
DEFW SYSRAM+100H+9*0AH
;
DEFW 7D80H ;80H
DEFW COM2PRO
DEFW SYSRAM+100H+10*0AH
;
DEFW 7D00H ;40H
DEFW N2TIME
DEFW SYSRAM+100H+11*0AH
;
DEFW 7CC0H ;20H
DEFW COM3REC
DEFW SYSRAM+100H+12*0AH
;
DEFW 7CA0H ;80H
DEFW C3REC
DEFW SYSRAM+100H+13*0AH
;
DEFW 7C20H ;80H
DEFW COM3PRO
DEFW SYSRAM+100H+14*0AH
;
DEFW 7BA0H ;40H
DEFW N3TIME
DEFW SYSRAM+100H+15*0AH
;
DEFW 7B60H ;20H
DEFW COM4REC
DEFW SYSRAM+100H+16*0AH
;
DEFW 7B40H ;80H
DEFW C4REC
DEFW SYSRAM+100H+17*0AH
;
DEFW 7AC0H ;80H
DEFW COM4PRO
DEFW SYSRAM+100H+18*0AH
;
DEFW 7A40H ;40H
DEFW N4TIME
DEFW SYSRAM+100H+19*0AH
;
; END OF STACK = 7A00H
;
TABEND
;ECHO \f
;***************************************************************************
;* PROCEDURE : PRO_CREATE
;*
;* FUNCTION : THE PROCEDURE MAKES THE PROCESS CREATIONS IN THE SYSTEM
;* MEMORY ON THE BASIS OF DATA SPECIFICATION IN TABSTA TABLE
;*
;* INPUTS : NONE
;*
;* OUTPUTS : NONE
;***************************************************************************
PRO_CREATE
LD IY,CRE_TABLE
LD C,(IY+00)
LD B,(IY+01)
INC IY
INC IY
CRE_LOOP
LD A,C
OR B
JP Z,CRE_STOP
LD L,(IY+00)
LD H,(IY+01)
DEC HL
DEC HL
LD E,(IY+02)
LD D,(IY+03)
PUSH BC
LD C,(IY+04)
LD B,(IY+05)
PUSH BC
POP IX
LD C,00H
LD B,00
LD A,01H
PUSH IY
LD IY,SYSRAM
CALL SUBCREATE
POP HL
LD DE,06H
ADD HL,DE
PUSH HL
POP IY
POP BC
DEC BC
JP CRE_LOOP
CRE_STOP
RET
END
;ECHO \f