|
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: 1352 (0x548)
Types: TextFile
Names: »DISPLAY.N«
└─⟦ffe699cee⟧ Bits:30005101 8" CR80 Floppy CR80FD_0060 ( VOL: SCC.V NSC Directories: EVR.D OCP.D SCCINIT.D )
└─⟦9c1658a4c⟧
└─ ⟦this⟧ »EVR.D!DISPLAY.N«
VAR
TV_SYS_NAME : FILE_SYSTEM_NAME;
HORN_SYS_NAME : FILE_SYSTEM_NAME;
F_ATTR : FILE_ATTRIBUTES;
TV_FD : INTEGER;
HORN_FD : INTEGER;
INIT
TV_SYS_NAME.PNAME.NAME[0..4] = 'COLOR';
TV_SYS_NAME.PNAME.NAME[0..3] = 'HORN';
TV_SYS_NAME.PNAME.NAME[0..3] = 'INTR';
HORN_SYS_NAME.PNAME.NAME[0..3] = 'INTR';
PROCEDURE FILE_INIT (R6);
VAR
LINK : INTEGER;
BEGIN
R6 => LINK;
ADDRESS(F_ATTR) => R5;
MON(IO, CREATE, ADDRESS(TV_SYS_NAME)=>R0, ADDRESS(F_ATTR)=>R1, R4, R7);
R4 => TV_FD;
MON(IO, CREATE, ADDRESS(HORN_SYS_NAME)=>R0, ADDRESS(F_ATTR)=>R1, R4, R7);
R4 => HORN_FD;
EXIT(LINK);
END;
PROCEDURE NET_DISPLAY( R1; "ADDRESS OF MSG
R2; "BYTE SIZE THE MSG
R3; "FILE ADDRESS
R6) : ERROR_DONE;
VAR
F_ADDR : FILE_ADDRESS;
BLE : BUFFER_LIST_ELEMENT;
LINK : INTEGER;
INIT
BLE.KIND = BMLOCALLOWER;
BLE.LINK = 0;
F_ADDR.FIRST_BYTE.MOST = 0;
F_ADDR.BYTE_COUNT.MOST = 0;
BEGIN
R6 => LINK;
ADDRESS(BLE) => R4;
ADDRESS(F_ADDR) => R5;
R3 => R5@FILE_ADDRESS.FIRST_BYTE.LEAST;
R1 => R4@BUFFER_LIST_ELEMENT.ADDR;
R2 SHIFTLL 1;
R2 => R4@BUFFER_LIST_ELEMENT.BYTE_SIZE;
R2 => R5@FILE_ADDRESS.BYTE_COUNT.LEAST;
SWITCH MON(IO, APPENDBYTES, R5=>R1, R4=>R2, R3=>R4, R7):ERROR_DONE TO
ERR : EXIT(LINK=> R6, ERR);
END; "SWITCH
EXIT(LINK);
END; U