|
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: 1296 (0x510)
Types: TextFile
Names: »MS2030.S«, »~ORPHAN_0x0036«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0036«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS2030.S«
MESSAGE <:MS2030.S V810303:>
;-----------------------------------------------------------------------
; SUBROUTINE MS2030
; WRITE NEXT ANO.
;
; REGISTERS CALL EXIT
; R0 ANO -
; R4 LINK DEST
; R6 REF(IOCB) REF(IOCB)
; R1,R2,R7 - DEST
; R3,R5 - UNCH
;
; INPUT: IOCB DATA
; OUTPUT: IOCB DATA
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS2030: ; WRITE NEXT ANO:
MOV R4 RL2000 ; SAVE RETURN LINK
MOV IOBNX. X6 R4 ; GET BUFFER INDEX
SRL R4 1 ; CALCULATE WORD INDEX
ADD IOBUF. X6 R4 ; CALCULATE WORD ADDRESS
MOV R0 X4 ; WRITE ANO IN BUFFER
INC IOBNX .X6 ; INCREMENT BUFFER INDEX
INC IOBNX. X6 ; TWICE SINCE 2 BYTES WRITTEN
MOV IOBLT. X6 R1 ; GET BLOCK LENGTH
MOD IOBNX. X6 ; IF BLOCK FULL
IEQ R1 0 ;
JMPI S4 MI1010 ; THEN WRITE BLOCK
JMPI RL2000 ; RETURN