|
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 - metrics - download
Length: 4527 (0x11af)
Types: TextFile
Names: »DISTAB.SRC«
└─⟦b678e5579⟧ Bits:30005502 8" CR80 Floppy CR80FD_0031 ( TELECINE BACKUP )
└─⟦b678e5579⟧ Intel_ISIS_II
└─⟦this⟧ »DISTAB.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: DISTRIBUTION TABLE *\r
;* *\r
;******************************************************************************\r
\r
PUBLIC TABL1,TABL2,NUMMES\r
EXTRN PQH6,PQH7,PQH9,ROUT1,ROUT2,ROUT3,ROUT5,ROUT6\r
EXTRN CASE01,CASE02,CASE03,CASE04,CASE05,CASE06,CASE07,CASE08\r
EXTRN CASE09,CASE10,CASE11,CASE12,CASE13,CASE14,CASE15,CASE16\r
EXTRN CASE17,CASE18,CASE19,CASE20,CASE21,CASE22,CASE23,CASE24\r
EXTRN CASE25,CASE26,CASE27,CASE28,CASE29,CASE30,CASE31,CASE32\r
EXTRN CASE33,CASE34,CASE35,CASE36,CASE37,CASE38,CASE39,CASE40\r
\r
NUMMES EQU 42\r
\r
CSEG\r
;*****************************************************************************\r
; MESSAGE CODE LIST :\r
\r
TABL1 DB 80H ;ESTABLISH DELEGATION\r
DB 84H ;DELETE DELEGATION\r
DB 0E0H ;SEND TOTAL STATUS\r
DB 0E4H ;SEND DELEGATION STATUS\r
DB 0E5H ;SET CR80 CHANNEL\r
DB 0F2H ;SEND ERROR CONDITION\r
DB 24H ;PLAY\r
DB 34H ;REVERSE\r
DB 2CH ;FORWIND\r
DB 2DH ;REWIND\r
DB 28H ;STOP\r
DB 32H ;INCH FORWARD\r
DB 33H ;INCH REVERSE\r
DB 30H ;COUNT RESET\r
DB 31H ;COUNT RESET OFF\r
DB 40H ;TEST MODE\r
DB 41H ;NORMAL MODE\r
DB 42H ;MONOCHROME MODE\r
DB 43H ;COLOR MODE\r
DB 44H ;SET AUTO\r
DB 45H ;RESET AUTO\r
DB 46H ;SET AGC\r
DB 47H ;RESET AGC\r
DB 53H ;GATE BLAST ON\r
DB 54H ;GATE BLAST OFF\r
DB 55H ;FRAME UP\r
DB 56H ;FRAME DOWN\r
DB 57H ;FRAME U/D STOP\r
DB 4DH ;VAC.BYPASS MODE\r
DB 4EH ;VAC.IN MODE\r
DB 4FH ;VAC.OUT MODE\r
DB 50H ;VAC.AMPLIFIER ADJUST\r
DB 51H ;MASK IN + MASK TYPE\r
DB 52H ;MASK OUT\r
DB 48H ;AUTOCOLOR BYPASS MODE\r
DB 49H ;AUTOCOLOR IN MODE\r
DB 4AH ;AUTOCOLOR OUT MODE\r
DB 4BH ;AUTOCOLOR BLACK\r
DB 4CH ;AUTOCOLOR COLOR\r
DB 58H ;GAIN ADJUST\r
DB 59H ;GAMMA ADJUST\r
DB 5AH ;LIFT ADJUST\r
\r
;******************************************************************************\r
; PROCESS NO./ROUTINE ADDRESS LIST :\r
\r
DW ROUT3\r
DW ROUT5\r
DW 9\r
DW ROUT6\r
DW ROUT2\r
DW ROUT1\r
DW 06\r
DW 06\r
DW 06\r
DW 06\r
DW 06\r
DW 06\r
DW 06\r
DW 06\r
DW 06\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
DW 07\r
\r
;******************************************************************************\r
; PROCESS Q-HEAD ADDRESS LIST :\r
\r
DW 0\r
DW 0\r
DW PQH9\r
DW 0\r
DW 0\r
DW 0\r
DW PQH6\r
DW PQH6\r
DW PQH6\r
DW PQH6\r
DW PQH6\r
DW PQH6\r
DW PQH6\r
DW PQH6\r
DW PQH6\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
DW PQH7\r
\r
;******************************************************************************\r
; PROCESS ROUTINE LIST :\r
\r
DW ESTDEL\r
DW DELDEL\r
DW 0\r
DW 0\r
DW 0\r
DW 0\r
DW CASE03\r
DW CASE04\r
DW CASE05\r
DW CASE06\r
DW CASE07\r
DW CASE08\r
DW CASE09\r
DW CASE10\r
DW CASE11\r
DW CASE14\r
DW CASE15\r
DW CASE16\r
DW CASE17\r
DW CASE18\r
DW CASE19\r
DW CASE20\r
DW CASE21\r
DW CASE22\r
DW CASE23\r
DW CASE24\r
DW CASE25\r
DW CASE26\r
DW CASE27\r
DW CASE28\r
DW CASE29\r
DW CASE30\r
DW CASE31\r
DW CASE32\r
DW CASE33\r
DW CASE34\r
DW CASE35\r
DW CASE36\r
DW CASE37\r
DW CASE38\r
DW CASE39\r
TABL2 DW CASE40\r
\r
ESTDEL: LD A,(IX+10)\r
BIT 5,A\r
JP Z,CASE01 ;RCP(PROJ) DELEGATION ESTABLISHED\r
JP CASE12 ;RCP(MATCH) DELEGATION ESTABLISHED\r
DELDEL: LD A,(IX+10)\r
BIT 5,A\r
JP Z,CASE02 ;RCP(PROJ) DELEGATION DELETED\r
JP CASE13 ;RCP(MATCH) DELEGATION DELETED\r
END\r