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

⟦1a53543db⟧ TextFile

    Length: 1276 (0x4fc)
    Types: TextFile
    Names: »MS3600.S«

Derivation

└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
    └─⟦f918199fd⟧ 
        └─ ⟦this⟧ »MS2.D!MS3600.S«

TextFile

MESSAGE <:MS3600.S V810325:>
;-----------------------------------------------------------------------
; SUBROUTINE MS3600
; TEST LINE VRS 'BT'
;
; REGISTERS          CALL               EXIT
; R0,R1              -                  DEST
; R4                 LINK               -
; R6                 REF(IOCB)          REF(IOCB)
; R2,R3,R5,R7                           NOT USED
;
; INPUT:   IOBUF.IOCB
; OUTPUT:  -
; EXIT TO: LINK+0 (NOT 'BT')
;          LINK+1 ('BT')
;-----------------------------------------------------------------------
MS3600:                             ; TEST LINE VRS 'BT':
        MOV          R4  RL3000     ;   SAVE RETURN LINK
        MOV   IOBUF. X6         R4  ;   GET IOBUF ADDR
        MOVL  0.     X4         R01 ;   GET 4 FOREMOST BYTES
AUX=    STCHAR<0+3<8                ;   <ST><BC> CONSTANT
        ADDC  -AUX              R0  ;   COMPARE TWO FIRST BYTES
AUX=    <:BT:>                      ;   'BT' CONSTANT
        ADDC  -AUX              R1  ;   COMPARE TWO FOLLOWING BYTES
        MOV   RL3000            R4  ;   RESTORE RETURN LINK
        IEQP         R0  0          ;   IF DOUBLE MATCH
        IEQ          R1  0          ;
        JMP              1.     X4  ;   THEN EXIT(1)
        JMP              0.     X4  ;   ELSE EXIT(0)