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 - metrics - download

⟦0ed113030⟧ TextFile

    Length: 1426 (0x592)
    Types: TextFile
    Names: »COMON2.S«

Derivation

└─⟦1dc3ed39a⟧ Bits:30005066 8" CR80 Floppy CR80FD_0003 ( Id. O.K Vol. FLOPPY VOL: NSS )
    └─⟦02b6ff5ea⟧ 
        └─⟦this⟧ »TDXDR.851216.D!COMON2.S«

TextFile

;=======================================================================
;
;       COROUTINE MONITOR,  PART 2 OF 4
;
;       DATA LAYOUT
;
;=======================================================================
CURRC:        INITCH                ;   ADDRESS OF ACTIVE COROUTINE

READYQ:       RDYFST                ;   ADDRESS OF READY QUEUE
ANSWQ:        ANSFST                ;   ADDRESS OF ANSWER QUEUE
MESSC:        0                     ;   COROUTINE WAITING FOR MESSAGE
TINTRC:       0                     ;   COROUTINE WAITING FOR TIMER
                                    ;   OR INTERRUPT
                                    ;   (REF TO INIT CHAIN AT STARTUP)
MSBREF:       MSBUF                 ;   REF TO RECEIVED MESSAGE

RDYFST:       LOC                   ;   EMPTY READY QUEUE
RDYLST:       LOC-1                 ;
ANSFST:       LOC                   ;   EMPTY ANSWER QUEUE
ANSLST:       LOC-1                 ;
MSBUF:        0, REPEAT 4           ;   BUFFER FOR RECEIVING MESSAGES

IF TPON THEN

TPSGCH: INXFIL,  TPSMOP
TPEXIT: INXFIL,  TPCORU
TPWTTI: INXFIL,  TPCORU
TPWTMS: INXFIL,  TPCORU
TPWANS: INXFIL,  TPCORU

TPSM:   RELFIL OR BINDAT OR 2<RCLGTS OR 1
TPSMP:  0
        <:SEM :>
TPCOR:  RELFIL OR BINDAT OR (CORUSIZE-1)<RCLGTS OR 1
        DCORU:       0
        <:CORU:>
TPOP:   RELFIL OR BINDAT OR 6<RCLGTS OR 1
        DOP:         0
        <:OP  :>

TPSMOP: 2,  TPSM,  TPOP
TPCORU: 1,  TPCOR

FI «a5»