|
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: 1189 (0x4a5)
Types: TextFile
Names: »CHAN.MOD.ASM«
└─⟦31b8a9b6a⟧ Bits:30005199 8" Zilog MCZ/1 Floppy CR80FD_0025 ( TC 500 SEC. PROTOCOL BB V2 830407 NCJ )
└─ ⟦this⟧ »CHAN.MOD.ASM«
└─⟦cf416a62a⟧ Bits:30005201 8" Zilog MCZ/1 Floppy CR80FD_0027 ( TC 500 SEC. PROTOCOL BACK UP! (V2) BB SEC 821119 NCJ )
└─ ⟦this⟧ »CHAN.MOD.ASM«
;*************************************************************************** ;* ;* CHANNEL MODULE ;* ;**************************************************************************** CHANNEL MODULE *INCLUDE PLZ.MACROS EXTERNAL CHA1TAB,CHA2TAB,CHA3TAB,CHA4TAB NTIME1,NTIME2,NTIME3,NTIME4 GLOBAL ;ECHO \f ;*************************************************************************** ;* TIMPRE PROCEDURE ;*************************************************************************** TIMPRE PROCEDURE ENTRY PLZVAR PLZIN CHNO,VALUE ENT 0 DI GETWORD H L,VALUE GETBYTE A,CHNO IF A CASE 1 THEN LD (NTIME1),HL CASE 2 THEN LD (NTIME2),HL CASE 3 THEN LD (NTIME3),HL CASE 4 THEN LD (NTIME4),HL FI RTN 2 END TIMPRE ;**************************************************************************** ;* IYSEL PROCEDURE ;**************************************************************************** IYSEL PROCEDURE ENTRY PLZVAR PLZIN CH_NO ENT 0 GETBYTE A,CH_NO IF A CASE 1 THEN LD IY,CHA1TAB CASE 2 THEN LD IY,CHA2TAB CASE 3 THEN LD IY,CHA3TAB CASE 4 THEN LD IY,CHA4TAB FI RTN 1 END IYSEL END CHANNEL ;ECHO \f