|
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: 2390 (0x956)
Types: TextFile
Names: »MS3000.S«, »~ORPHAN_0x003e«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x003e«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS3000.S«
MESSAGE <:MS3000.S V810224:>
;-----------------------------------------------------------------------
; SUBROUTINE MS300B(P)
; WRITE BASE(PROG)REL DATA STRING
;
; REGISTERS CALL EXIT
; R0,R1,R2 - DEST
; R4 LINK DEST
; R5 INPUT REF DEST
; R6 REF(IOCB) REF(IOCB)
; R3,R7 NOT USED
;
; INPUT: BYTES FROM INPUT REF
; OUTPUT: BYTES TO IOCB
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS300B: ; WRITE BASEREL DATA STRING:
MOV R4 RL3000 ; SAVE RETURN LINK
MS3002: ; WRITE STRING:
MOV X5 R0 ; GET FIRST(NEXT) WORD
XTR R0 8 ; ISOLATE 1ST BYTE
IEQ R0 0 ; IF ZERO
JMPI RL3000 ;R THEN RETURN
JMPI S4 MI2010 ; WRITE BYTE
MOV X5 R0 ; GET SAME WORD
ADDC 1 R5 ; STEP POINTER TO NEXT
SWP R0 ;
XTR R0 8 ; ISOLATE 2ND BYTE
IEQ R0 0 ; IF ZERO
JMPI RL3000 ;R THEN RETURN
JMPI S4 MI2010 ; WRITE BYTE
JMP MS3002 ; LOOPBACK TILL DONE
;-----------------------------------------------------------------------
MS300P: ; WRITE PROGREL DATA STRING:
MOV R4 RL3000 ; SAVE RETURN LINK
MS3004: ; WRITE STRING:
MVP X5 R0 ; GET FIRST(NEXT) WORD
XTR R0 8 ; ISOLATE 1ST BYTE
IEQ R0 0 ; IF ZERO
JMPI RL3000 ;R THEN RETURN
JMPI S4 MI2010 ; WRITE BYTE
MVP X5 R0 ; GET SAME WORD
ADDC 1 R5 ; STEP POINTER TO NEXT
SWP R0 ;
XTR R0 8 ; ISOLATE 2ND BYTE
IEQ R0 0 ; IF ZERO
JMPI RL3000 ;R THEN RETURN
JMPI S4 MI2010 ; WRITE BYTE
JMP MS3004 ; LOOPBACK TILL DONE