DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦caad3a732⟧ TextFile

    Length: 1722 (0x6ba)
    Types: TextFile
    Names: »CHAN.MOD.S«

Derivation

└─⟦31b8a9b6a⟧ Bits:30005199 8" Zilog MCZ/1 Floppy CR80FD_0025 ( TC 500 SEC. PROTOCOL BB V2 830407 NCJ )
    └─ ⟦this⟧ »CHAN.MOD.S« 
└─⟦cf416a62a⟧ Bits:30005201 8" Zilog MCZ/1 Floppy CR80FD_0027 ( TC 500 SEC. PROTOCOL BACK UP! (V2) BB SEC 821119 NCJ )
    └─ ⟦this⟧ »CHAN.MOD.S«

TextFile

;;***************************************************************************
;;*
;;*		    CHANNEL  MODULE
;;*
;;****************************************************************************
;CHANNEL MODULE
*INCLUDE PLZ.MACROS
; 
;EXTERNAL
;	CHA1TAB,CHA2TAB,CHA3TAB,CHA4TAB
;	NTIME1,NTIME2,NTIME3,NTIME4
; 
;GLOBAL
	EXTERNAL NTIME4,NTIME3,NTIME2,NTIME1,CHA4TAB,CHA3TAB,CHA2TAB,CHA1TAB
;;ECHO \f


;;***************************************************************************
;;*		    TIMPRE  PROCEDURE
;;***************************************************************************
;	TIMPRE PROCEDURE
	GLOBAL TIMPRE
;	ENTRY
TIMPRE:
		PLZVAR
		PLZIN CHNO,VALUE
		ENT 0
		DI
		GETWORD H L,VALUE
		GETBYTE A,CHNO
;		IF A
;		CASE 1 THEN
	CP 1
	JR Z,BC01
	JP EC01
BC01:
			LD	(NTIME1),HL
;		CASE 2 THEN
	JP FI00
EC01:
	CP 2
	JR Z,BC02
	JP EC02
BC02:
			LD	(NTIME2),HL
;		CASE 3 THEN
	JP FI00
EC02:
	CP 3
	JR Z,BC03
	JP EC03
BC03:
			LD	(NTIME3),HL
;		CASE 4 THEN
	JP FI00
EC03:
	CP 4
	JR Z,BC04
	JP EC04
BC04:
			LD	(NTIME4),HL
;		FI
EC04:
FI00:
		RTN	2
;	END TIMPRE
	RET
; 
;;****************************************************************************
;;*		    IYSEL  PROCEDURE
;;****************************************************************************
;	IYSEL PROCEDURE
	GLOBAL IYSEL
;	ENTRY
IYSEL:
; 
		PLZVAR
		PLZIN CH_NO
		ENT 0
		GETBYTE	A,CH_NO
;		IF	A
;		CASE 1 THEN
	CP 1
	JR Z,BC06
	JP EC06
BC06:
			LD	IY,CHA1TAB
;		CASE 2 THEN
	JP FI05
EC06:
	CP 2
	JR Z,BC07
	JP EC07
BC07:
			LD	IY,CHA2TAB
;		CASE 3 THEN
	JP FI05
EC07:
	CP 3
	JR Z,BC08
	JP EC08
BC08:
			LD 	IY,CHA3TAB
;		CASE 4 THEN
	JP FI05
EC08:
	CP 4
	JR Z,BC09
	JP EC09
BC09:
			LD	IY,CHA4TAB
;		FI
EC09:
FI05:
		RTN 1
;	END IYSEL
	RET
; 
;END CHANNEL
	END
«eof»