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

⟦b48608249⟧ TextFile

    Length: 1000 (0x3e8)
    Types: TextFile
    Names: »MS3100.S«, »~ORPHAN_0x003c«

Derivation

└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
    └─⟦185cc4db7⟧ 
        └─ ⟦this⟧ »~ORPHAN_0x003c« 
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
    └─⟦f918199fd⟧ 
        └─ ⟦this⟧ »MS2.D!MS3100.S«

TextFile

MESSAGE <:MS3100.S V810214:>
;-----------------------------------------------------------------------
; SUBROUTINE MS3100
; LONG DIVISION (32 BITS DIVIDED BY 16 BITS)
;
; REGISTERS          CALL               EXIT
; R01                NOMINATOR          QUOTIENT
; R2                 -                  REMAINDER
; R3                 DENOMINATOR        DENOMINATOR
; R4                 LINK               -
; R5,R6,R7                              NOT USED
;
; INPUT:   -
; OUTPUT:  -
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS3100:                             ; LONG DIVISION:
        MOVC  0                 R2  ;   PREPARE MOST SIGNIFICANT DIV
        DIV          R3         R12 ;   R2=REM, R1=Q
        XCH          R1         R2  ;   R2=Q1, R01=LEAST SIGNIF. NOM.
        DIV          R3         R01 ;   R0=Q0, R1=REMAINDER
        XCH          R1         R2  ;   R01=QUOTIENT, R2=REMAINDER
        JMP              0.     X4  ;   RETURN X