|
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: 5880 (0x16f8)
Types: TextFile
Names: »TEST.SRC«
└─⟦755b1f38b⟧ Bits:30005549 8" CR80 Floppy CR80FD_0032 ( TELECINE Source and Abs-files )
└─⟦755b1f38b⟧ Intel_ISIS_II
└─ ⟦this⟧ »TEST.SRC«
;******************************************************************************\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: SUBROUTINE & RAM MEMORY MODULE *\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 CCBSTA,COUNT,INFLAG,BLKFLG,TESTBT,IOVALU\r
PUBLIC PRSAVE,MFSAVE,STCHAN,TCCSTA,IOREAD,SETBIT,RESBIT\r
PUBLIC OUTPUT,OUTBIT,PQH6,PQH7,PQH9\r
EXTRN SYSRAM,ESTABR\r
\r
CSEG\r
\r
OUTPUT: OUT (PORT1),A ;SET THE TC IN DESIRED MODE OF OPERATION\r
LD HL,OUTBIT\r
SET 0,(HL) ;SET OUTBIT\r
PASSIVATE S,INSPNR\r
LESTAB INSPTIM\r
RET\r
\r
SETBIT\r
IN A,(C) ;READ STATUS OF OUTPUT PORT\r
OR B ;SET ACTUAL BIT(SPECIFIED BY THE PARAMETERS AT SETOBIT)\r
OUT (C),A ;WRITE NEW VALUE TO OUTPUT PORT\r
RET ;\r
\r
RESBIT\r
CPL ;ONE'S COMPLEMENT OF REGISTER A(VALUE)\r
LD B,A ;\r
IN A,(C) ;READ STATUS OF OUTPUT PORT\r
AND B ;RESET SPECIFIED BIT\r
OUT (C),A ;WRITE NEW VALUE TO OUTPUT PORT\r
RET\r
\r
\r
IOREAD: LD HL,IOADDR\r
ADD HL,BC\r
LD D,B\r
LD E,C\r
LD C,(HL) ; (C):= PORTNUMBER\r
IN A,(C) ; (A) = X(N)\r
\r
BIT 0,E\r
JP NZ,I0\r
CP 0FEH\r
JP Z,I0X ;IF PORT2 AND TC NOT IN PLAY MODE\r
SET 0,A ;THEN REMOVE PLAY INDICATION\r
JP I0 ;ELSE\r
I0X: LD B,A ;BEGIN\r
IN A,(PORT3) ;\r
CPL ;\r
AND 0F0H ;\r
SUB 0F0H ;\r
LD A,B ;\r
JP Z,I0 ; IF TC NOT READY\r
SET 0,A ; THEN REMOVE PLAY INDICATION\r
;END\r
I0: LD HL,IOVALU\r
SLA E\r
ADD HL,DE\r
LD C,(HL) ; (C) = X(N-1)\r
LD (HL),A ; X(N-1) = X(N)\r
INC HL\r
CP C\r
JP NZ,I1 ; IF X(N) = X(N-1) THEN\r
; BEGIN\r
LD (HL),C ; X(STAT) = X(N)\r
RET ; END\r
; ELSE\r
I1: ; BEGIN\r
LD C,(HL) ; (C) = X(STAT)\r
RET ; END\r
\r
IOADDR DB PORT2\r
DB PORT3\r
\r
\r
DSEG\r
\r
STCHAN DS 1\r
TCCSTA DS 1\r
CCBSTA DS 1\r
OUTBIT DS 1\r
COUNT DS 1\r
INFLAG DS 1\r
BLKFLG DS 1\r
TESTBT DS 1\r
PRSAVE DS 2\r
MFSAVE DS 2\r
IOVALU DS 2\r
DS 2\r
\r
PQH6 DS 10H\r
PQH7 DS 10H\r
PQH9 DS 10H\r
END\r