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

⟦3f7777628⟧ TextFile

    Length: 6941 (0x1b1d)
    Types: TextFile
    Names: »STSCAN.SRC«

Derivation

└─⟦755b1f38b⟧ Bits:30005549 8" CR80 Floppy CR80FD_0032 ( TELECINE Source and Abs-files )
└─⟦755b1f38b⟧ Intel_ISIS_II
    └─ ⟦this⟧ »STSCAN.SRC«

TextFile

;***************************************************************************\r
;*                                                                            *\r
;* D O R A     A P P L I C A T I O N     S / W                                *\r
;*                                                                            *\r
;* DEVICE: TELECINE                                                           *\r
;*                                                                            *\r
;* MODULE: STATUS SCANNING PROCESS                                            *\r
;*                                                                            *\r
;******************************************************************************\r
\r
LINK	DEFL	0\r
PORT1	DEFL	20H\r
PORT2	DEFL	2AH\r
PORT3	DEFL	2CH\r
PORT4	DEFL	21H\r
PORT5	DEFL	22H\r
PORT6	DEFL	28H\r
PORT7	DEFL	13H\r
INSPTIM	DEFL	1\r
SCANTIM	DEFL	2\r
INSPNR	DEFL	5\r
PROJNR	DEFL	6\r
MTCHNR	DEFL	7\r
SCANNR	DEFL	8\r
STATNR	DEFL	9\r
CVAL	DEFL	25\r
DLAY01	DEFL	25\r
DLAY02	DEFL	10\r
DACGAIN	DEFL	00H\r
DACGMMA	DEFL	06H\r
DACLIFT	DEFL	0CH\r
\r
	NLIST	S\r
SETOBIT	MACRO	#PORTADDRESS,#ACTION,#VALUE\r
				;SETOBIT IS USED TO SET OR RESET\r
				;BITS ONE A OUTPUT PORT SPECIFIED\r
				;BY THE PARAMETERS:\r
				;VAL: SPECIFIED THE BIT WHICH HAS \r
				;     TO BE SET OR RESET (0-0FFH).\r
				;ACTION: TELL THE ROUTINE WHICH\r
				;        ACTION IT HAS TO PERFORME\r
				;        SET OR RESET\r
				;PORTADDRESS: SPECIFIED THE ADDRESS\r
				;	      WHERE THE ACTION HAS TO \r
				;	      BE PERFORMED.\r
	IF	'#ACTION'.EQ.'S'\r
	LD	C,#PORTADDRESS\r
	LD	B,#VALUE	;\r
	CALL	SETBIT		;\r
	ENDIF\r
	IF	'#ACTION'.EQ.'R'\r
	LD	C,#PORTADDRESS\r
	LD	A,#VALUE\r
	CALL	RESBIT		;\r
	ENDIF\r
	ENDM\r
\r
	\r
PASSIVATE	MACRO	#ID,#NO\r
					;DESRIP: THE MODULE PASSIVATES\r
					;	SPECIFIED PROCES.\r
					;	IF LINK IS SET AND ACTIV\r
					;	SPECIAL PROCESS IS PASSIVATED\r
					;	THE LINK-ELEMENT IS \r
					;	DECREMENTED\r
					;DESTR:	REG F,H,L\r
	IF	'#ID'.EQ.'S'\r
	LD	HL,SYSRAM+200H+#NO*10H+5\r
					;IMPLEMENT ADD OF STATUS-BIT\r
	IF	LINK.EQ.1\r
	BIT	7,(HL)			;\r
	JR	Z,O#$YM		;IF PROCESS WAS NOT PASSIVE THEN\r
	LD	HL,SYSRAM+0FBH	;BEGIN\r
	DEC	(HL)			;DEC LINK-ELEMENT\r
	LD	HL,SYSRAM+200H+#NO*10H+5\r
					;END\r
O#$YM:	ENDIF\r
	ENDIF\r
	IF	'#ID'.EQ.'N'\r
	LD	HL,SYSRAM+200H+S*10H+#NO*20H+5\r
					;IMPLEMENT ADD OF STATUS-BIT\r
	ENDIF\r
	RES	7,(HL)			;PASSIVATE\r
	ENDM\r
ACTIVATE	MACRO	#ID,#NO\r
					;DESRIP: THE MODULE ACTIVATES\r
					;	SPECIFIED PROCES.\r
					;	IF LINK IS SET AND PASSIV\r
					;	SPECIAL PROCESS IS ACTIVATED\r
					;	THE LINK-ELEMENT IS \r
					;	INCREMENTED\r
					;DESTR:	REG F,H,L\r
	IF	'#ID'.EQ.'S'\r
	LD	HL,SYSRAM+200H+#NO*10H+5\r
					;IMPLEMENT ADD OF STATUS-BIT\r
	IF	LINK.EQ.1\r
	BIT	7,(HL)			;\r
	JR	NZ,O#$YM		;IF PROCESS WAS NOT ACTIVE THEN\r
	LD	HL,SYSRAM+0FBH	;BEGIN\r
	INC	(HL)			;INC LINK-ELEMENT\r
	LD	HL,SYSRAM+200H+#NO*10H+5\r
					;END\r
O#$YM:	ENDIF\r
	ENDIF\r
	IF	'#ID'.EQ.'N'\r
	LD	HL,SYSRAM+200H+S*10H+#NO*20H+5\r
					;IMPLEMENT ADD OF STATUS-BIT\r
	ENDIF\r
	SET	7,(HL)			;ACTIVATE\r
	ENDM\r
CREATE	MACRO	#ID,#NO,#NAME,#PRIO\r
				;DESCRIP: THE MODULE CREATES SPECIFIED\r
				;	PROCESS IE LOADS STARTADDRESS\r
				;	(#NAME) IN PROCESS-DESCRIPTION\r
				;	BYTE 6,7. IF NORMAL PROCESS IS\r
				;	ENCOUNTERED PRIORITY IS LOADED\r
				;	TO BYTE 5 IN PROCESS-DESCRIPTION\r
				;	AND THE PROCESS IS ENQUEUED IN\r
				;	APPROPRIATE PRIO-QUEUE.\r
				;	FINALLY THE SPECIFIED PROCESS\r
				;	IS ACTIVATED\r
				;DESTR:	IF NORMAL PROCESS\r
				;	REG. A,F,B,C,D,E,H,L\r
				;	IF SPECIAL PROCESS\r
				;	REG. F,H,L\r
	LD	HL,#NAME	;\r
	IF	'#ID'.EQ.'S'\r
	LD	(SYSRAM+200H+#NO*10H+6),HL\r
				;STARTADD TO PROCESS-DESCRIP\r
	ENDIF\r
	IF	'#ID'.EQ.'N'\r
	LD	(SYSRAM+200H+S*10H+#NO*20H+6),HL\r
				;STARTADD TO PROCESS-DESCRIP\r
	LD	HL,SYSRAM+200H+S*10H+#NO*20H+5\r
	LD	(HL),#PRIO			;PRIORTY TO PROCESS\r
	LD	HL,SYSRAM+#PRIO*8		;ADDRESS OF PRIO-QUEUE\r
	LD	DE,SYSRAM+200H+S*10H+#NO*20H	;ADDRESS OF PROCESS-DESCRIP\r
	CALL	SUBENQ\r
	ENDIF\r
	ACTIVATE	#ID,#NO			;ACTIVATE PROCESS\r
	ENDM\r
\r
\r
LESTAB	MACRO	#PRNUM\r
	LD	BC,#PRNUM\r
	CALL	ESTABR\r
	ENDM\r
\r
LSUSPN	MACRO	#PRNUM\r
	LD	BC,#PRNUM\r
	CALL	SUSPND\r
	ENDM\r
\r
GESTAM	MACRO\r
	LD	HL,ONOFF\r
	LD	(HL),0FFH\r
	ENDM\r
\r
GSUSPM	MACRO\r
	LD	HL,ONOFF\r
	LD	(HL),0\r
        ENDM\r
\r
UPDATM	MACRO	#PRNUM,#VALUE\r
	LD	HL,DELAY+#PRNUM\r
	LD	(HL),#VALUE\r
	ENDM\r
\r
	LIST	S\r
	PUBLIC STSCAN,STAC08\r
	EXTRN  IOREAD,ECOND2,STCHAN,TCCSTA,CCBSTA,SCOMMON\r
	EXTRN  DELAY,ESTABR,IOVALU,SYSRAM,OUTPUT\r
\r
	CSEG\r
\r
STSCAN:	LD	SP,STAC08	;INITIALIZE STACKPOINTER\r
	LD	IX,IOVALU\r
	LD	(IX),0EFH\r
	LD	(IX+1),0EFH\r
	LD	(IX+2),0FFH\r
	LD	(IX+3),0FFH\r
	CALL	SCOMMON\r
	EI\r
\r
	UPDATM	SCANTIM,DLAY02\r
START:	LESTAB	SCANTIM\r
	PASSIVATE S,SCANNR\r
	CALL	SCOMMON\r
	EI\r
\r
;------------------------------------------------------------------------------\r
	LD	BC,0000H\r
\r
	CALL	IOREAD		;SCAN PORT2 AND GET TAPE CONTROL CODE INFORMATION\r
	LD	A,C\r
	CPL\r
	LD	HL,TCCSTA\r
	CP	(HL)\r
\r
	JP	Z,CPORT		;IF ANY CHANGES IN TAPE CONTROL CODE THEN DO\r
				;BEGIN\r
	LD	(HL),A		;  UPDATE TAPE CONTROL CODE BYTE IN STATUS TABLE				;\r
	LD	HL,STCHAN	;\r
	SET	1,(HL)		;  SET TAPE CONTROL CODE-FLAG\r
				;END\r
\r
;------------------------------------------------------------------------------\r
CPORT:	LD	BC,0001H\r
\r
	CALL	IOREAD		;SCAN PORT3 AND GET CONDITION CODE INFORMATION\r
\r
	LD	HL,CCBSTA\r
	LD	B,(HL)		;SAVE OLD VALUE OF COND.CODE BYTE\r
	LD	A,C\r
	CPL\r
	LD	(HL),A		;UPDATE CONDITION CODE BYTE IN STATUS TABLE\r
\r
	AND	0F0H		;MASK OUT 4 LSB OF COND.C.BYTE\r
	SUB	0F0H		\r
	JP	NZ,NREADY	;IF ALL VOLTAGES ARE PRESENT THEN DO\r
				;BEGIN\r
	SET	1,(HL)		;  SET B1 IN CONDITION CODE BYTE\r
	LD	HL,ECOND2\r
	RES	0,(HL)		;  RESET READY ERROR-BIT\r
	JP	CCTEST		;END ELSE\r
				;BEGIN\r
NREADY:	RES	1,(HL)		;  RESET B1 IN CONDITION CODE BYTE\r
	LD	HL,ECOND2\r
	SET	0,(HL)		;  SET READY ERROR-BIT\r
				;END\r
\r
;------------------------------------------------------------------------------\r
CCTEST:	LD	A,(CCBSTA)	;GET NEW VALUE OF COND.CODE BYTE\r
	AND	0FH		;MASK OUT 4 MSB OF NEW BYTE\r
	LD	D,A\r
	LD	A,B		;GET OLD VALUE OF COND.CODE BYTE\r
	AND	0FH		;MASK OUT 4 MSB OF OLD BYTE\r
	SUB	D		\r
	JP	Z,OVRALL	;IF ANY CHANGES IN CONDITION CODE THEN DO\r
	LD	HL,STCHAN	;BEGIN\r
	SET	2,(HL)		;  SET CONDITION CODE-FLAG\r
	LD	A,(CCBSTA)	;  GET NEW VALUE OF COND.C.BYTE\r
	AND	03H		;  MASK OUT 6 MSB OF NEW BYTE\r
	LD	D,A\r
	LD	A,B		;  GET OLD VALUE OF COND.C.BYTE\r
	AND	03H		;  MASK OUT 6 MSB OF OLD BYTE\r
	SUB	D		\r
	JP	Z,OVRALL	;  IF ANY CHANGES IN READY/ON AIR THEN DO\r
				;  BEGIN\r
	SET	3,(HL)		;    SET READY/ON AIR-FLAG\r
				;  END\r
				;END\r
\r
;-----------------------------------------------------------------------------\r
OVRALL:	LD	HL,STCHAN\r
	LD	A,(HL)		;GET FLAG-BYTE\r
	AND	1EH		;MASK OUT IRRELEVANT BITS\r
	SUB	00H		\r
	JP	Z,PROEND	;IF ANY OF THE 3 CHANGE FLAGS AND \r
				;PANEL STATUS REQUEST-FLAG ARE SET THEN\r
				;BEGIN\r
	SET	0,(HL)		;  SET STATUS CHANGE-FLAG\r
	ACTIVATE S,STATNR	;  ACTIVATE STATUS PROCESS\r
	JP	PROEND   	;END\r
\r
;------------------------------------------------------------------------------\r
PROEND:	JP	START\r
\r
	DSEG\r
	DS	32\r
STAC08:\r
	END\r