|
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: 6302 (0x189e)
Types: TextFile
Names: »STSCAN.SRC«
└─⟦8347abc8e⟧ Bits:30005501 8" CR80 Floppy CR80FD_0033 ( ATR Source and Abs-files )
└─⟦8347abc8e⟧ Intel_ISIS_II
└─ ⟦this⟧ »STSCAN.SRC«
;******************************************************************************\r
;* *\r
;* D O R A A P P L I C A T I O N S / W *\r
;* *\r
;* DEVICE: ATR *\r
;* *\r
;* MODULE: STATUS SCANNING PROCESS *\r
;* *\r
;******************************************************************************\r
\r
LINK DEFL 0\r
SCANNR DEFL 5\r
DCODNR DEFL 6\r
SEARNR DEFL 7\r
SYNCNR DEFL 8\r
LOCKNR DEFL 9\r
TIMGNR DEFL 10\r
INSPNR DEFL 11\r
STATNR DEFL 12\r
READNR DEFL 13\r
SEARTIM DEFL 1\r
SYNCTIM DEFL 2\r
LOCKTIM DEFL 3\r
INSPTIM DEFL 4\r
SCANTIM DEFL 5\r
PORT1 DEFL 30H\r
PORT2 DEFL 32H\r
PORT3 DEFL 34H\r
PORT4 DEFL 31H\r
DAC DEFL 20H\r
\r
NLIST S\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
RESTART 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,#NO\r
LD HL,DELAY+#PRNUM\r
LD (HL),#NO\r
ENDM\r
\r
\r
LIST S\r
CSEG\r
\r
PUBLIC STSCAN,STAC05\r
EXTRN IOREAD,FLAG1,TCCSTA,CCBSTA,ECOND2,SCOMMON,SYSRAM,IOVALU\r
EXTRN DELAY,ESTABR\r
\r
STSCAN: LD SP,STAC05\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,4\r
START: LESTAB SCANTIM\r
PASSIVATE S,SCANNR\r
CALL SCOMMON\r
EI\r
\r
;-------------------------------------------------------------------------\r
LD BC,0000H\r
CALL IOREAD ;SCAN PORT2 AND GET TAPE CONT.CODE INFORMATION\r
LD HL,TCCSTA\r
LD B,(HL) ;SAVE OLD VALUE OF TAPE CONT.CODE BYTE\r
LD A,C\r
CPL\r
AND 9FH\r
LD C,A\r
LD A,(FLAG1)\r
AND 20H\r
ADD A,C\r
LD (TCCSTA),A ;UPDATE TAPE CONT.CODE BYTE IN STATUS TABLE\r
SUB B\r
JR Z,CPORT ;IF ANY CHANGES IN TAPE CONTROL CODE THEN DO\r
;BEGIN\r
LD HL,FLAG1 ;\r
SET 0,(HL) ; SET STATUS CHANGE-FLAG\r
ACTIVATE S,STATNR ; ACTIVATE STATUS TRANSMITTING PROCESS\r
;END\r
\r
;-----------------------------------------------------------------------------\r
CPORT: LD BC,0001H\r
CALL IOREAD ;SCAN PORT3 AND GET CONDITION CODE INFORMATION\r
LD HL,CCBSTA\r
LD B,(HL) ;SAVE OLD VALUE OF CONDITION CODE BYTE\r
LD A,C\r
CPL\r
RLA\r
RLA\r
RLCA\r
AND 03H\r
LD C,A\r
LD A,(FLAG1)\r
AND 04H\r
ADD A,C\r
LD (CCBSTA),A ;UPDATE CONDITION CODE BYTE IN STATUS TABLE\r
BIT 1,A\r
JR Z,NREADY ;IF VOLTAGE IS PRESENT THEN DO\r
;BEGIN\r
LD HL,ECOND2 ;\r
RES 0,(HL) ; RESET READY ERROR-BIT\r
JR CCTEST ;END ELSE\r
;BEGIN\r
NREADY: LD HL,ECOND2 \r
SET 0,(HL) ; SET READY ERROR-BIT\r
;END\r
CCTEST: SUB B\r
JR Z,PROEND ;IF ANY CHANGES IN CONDITION CODE THEN DO\r
;BEGIN\r
LD HL,FLAG1 ;\r
SET 0,(HL) ; SET STATUS CHANGE-FLAG\r
ACTIVATE S,STATNR ; ACTIVATE STATUS TRANSMITTING PROCESS\r
;END\r
\r
PROEND: JR START\r
\r
DSEG\r
DS 32\r
STAC05:\r
END\r