|
DataMuseum.dkPresents historical artifacts from the history of: Zilog MCZ Floppy Disks |
This is an automatic "excavation" of a thematic subset of
Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2060 (0x80c)
Types: TextFile
Names: »CREA.S«
└─⟦f2a3f19b6⟧ Bits:30005203 8" Zilog MCZ/1 Floppy CR80FD_0030 ( BB LTU TEST BACK UP! BB VD1 821220 )
└─ ⟦this⟧ »CREA.S«
*P 42 ; ;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ; CREATE TABLE DESCRIPTION ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ; ; ********************** ; * NO OF PROCESSES * 00 ; * * 01 ;FIRST PROCESS ********************** ; * STACK START * 02 ; * ADDRESS * 03 ; ********************** ; * PROCESS NAME * 04 ; * * 05 ; ********************** ; * PROCESS DESCRIPTOR * 06 ; * ADDRESS * 07 ; ********************** ;SECOND PROCESS ********************** ; * STACK START * 0AH ; * ADDRESS * 0BH ; ********************** ; * PROCESS NAME * 0CH ; * * 0DH ; ********************** ; EXTERNAL SYSRAM,SUBCREATE EXTERNAL CHA1STA,CHA2STA,CHA3STA,CHA4STA EXTERNAL CH1PROC,CH2PROC,CH3PROC,CH4PROC EXTERNAL COM1REC,COM2REC,COM3REC,COM4REC GLOBAL PRO_CREATE CRE_TABLE DEFW (TABEND-TABSTA)/6 ; TABSTA DEFW 8000H ;18H DEFW CHA1STA DEFW SYSRAM+100H+0*0AH ; DEFW 7FE8H ;18H DEFW CHA2STA DEFW SYSRAM+100H+1*0AH ; DEFW 7FD0H ;18H DEFW CHA3STA DEFW SYSRAM+100H+2*0AH ; DEFW 7FB8H ;18H DEFW CHA4STA DEFW SYSRAM+100H+3*0AH ; DEFW 7FA0H ;18H DEFW CH1PROC DEFW SYSRAM+100H+4*0AH ; DEFW 7F88H ;18H DEFW CH2PROC DEFW SYSRAM+100H+5*0AH ; DEFW 7F70H ;18H DEFW CH3PROC DEFW SYSRAM+100H+6*0AH ; DEFW 7F58H ;18H DEFW CH4PROC DEFW SYSRAM+100H+7*0AH ; DEFW 7F40H ;18H DEFW COM1REC DEFW SYSRAM+100H+8*0AH ; DEFW 7F28H ;18H DEFW COM2REC DEFW SYSRAM+100H+9*0AH ; DEFW 7F10H ;18H DEFW COM3REC DEFW SYSRAM+100H+10*0AH ; DEFW 7EF8H ;18H DEFW COM4REC DEFW SYSRAM+100H+11*0AH ; TABEND 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