|
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: 1860 (0x744)
Types: TextFile
Names: »MS2010.S«, »~ORPHAN_0x0034«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x0034«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS2010.S«
MESSAGE <:MS2010.S V810325:>
;-----------------------------------------------------------------------
; SUBROUTINE MS2010
; WRITE NEXT CHARACTER.
;
; REGISTERS CALL EXIT
; R0 CHAR -
; 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)
;-----------------------------------------------------------------------
MS2010: ; WRITE NEXT CHARACTER:
MOV R4 RL2000 ; SAVE RETURN LINK
MOV IOBNX. X6 R4 ; GET BUFFER INDEX
MOD IOBUF. X6 ; PROVIDE BUFFER ADDRESS
MOVB R0 X4 ; WRITE CHAR IN BUFFER
INC IOBNX .X6 ; INCREMENT BUFFER INDEX
; TEST FOR BUFFER FULL:
MOV IOTYP. X6 R1 ; GET FILE TYPE
SBN R1 IOBFIX ; IF FIKS RECORDS
JMP MS2014 ; THEN BEGIN
IEQ R0 LFCHAR ; IF 'LF'
JMP MS2012 ; THEN WRITE FIKS RECORD
MOD BLKSIZ ;
IEQ R4 -2 ; IF BUFFER PHYS FULL LESS ONE
MS2012: ; (WRITE ENTRY)
JMPI S4 MI1030 ; THEN WRITE FIKS RECORD
JMPI RL2000 ; RETURN
MS2014: ; END FIKS ELSE BEGIN NICS
MOD BLKSIZ ;
IEQ R4 -1 ; IF BUFFER PHYS FULL
JMPI S4 MI1010 ; THEN WRITE BLOCK
JMPI RL2000 ; RETURN
; END R