|
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: 1122 (0x462)
Types: TextFile
Names: »MS8XXX.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS8XXX.S«
MESSAGE <:MS8XXX.S V810309:>
;-----------------------------------------------------------------------
; SUBROUTINE MS8000 - CALL INTERCEPT
;
; REGISTERS CALL EXIT
; R2 ERROR CODE DON'T CARE
; R4 LINK DON'T CARE
; R3,R5,R6 - UNCH (IF RETURN)
; R0,R1,R7 - DON'T CARE
;
; INPUT: IOLINE.OBJIO
; OUTPUT: ERCODE,ERLINE
; EXIT TO: LINK+0 (IF RETURN)
;-----------------------------------------------------------------------
MS8000: ; INTERCEPT:
MOV R2 ERCODE ; SAVE ERROR CODE
MODC OBJIO ; PROVIDE OUTPUT FILE DESCRIPTOR
MOV IOLINE R2 ; GET LINE NUMBER
MOV R2 ERLINE ; SAVE
;*STUB FOR REMAINDER:
MOV ERCODE R0 ; GET ERROR CODE
SETS R0 14 ; INDICATE 'INTERCEPT' ERROR
MOV R2 R1 ; POSITION LINE NUMBER
JMPI MIEEE0 ; CALL MON ERR -