|
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: 1688 (0x698)
Types: TextFile
Names: »MSEXXX.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MSEXXX.S«
MESSAGE <:MSEXXX.S V810309:>
;-----------------------------------------------------------------------
; SUBROUTINES MSEXXX SERIES
; ERROR HANDLING
;
; CALL TO: MON ERROR
; TERMINATE
;
; REGISTERS CALL EXIT
; R0 ERROR CODE DON'T CARE
; R4 LINK DON'T CARE
; R3,R5,R6 - UNCH (IF RETURN)
; R1,R2,R7 DON'T CARE
;
; INPUT: -
; OUTPUT: -
; EXIT TO: MSS100 (RESTART)
;-----------------------------------------------------------------------
MSE100: ; FILE ERROR:
MSE110: ; FILE READIO ERROR:
MSE120: ; FILE WRITEIO ERROR:
;*STUB:
MOV R7 R0 ; POSITION ERROR CODE
JMP MSEE00 ; CALL MON ERR(1)
MSE200: ; MSC ERROR:
;*STUB:
MOVC 1 R0 ; GET ERROR CODE
JMP MSEE00 ; CALL MON ERR(1)
MSEE00: ; CALL MON ERR(1):
MOV R4 R1 ; POSITION LINE NUMBER
ADDC -1 R1 ; CORRECT LOCATION COUNTER
MSEEE0: ; CALL MON ERR:
MON ERROR ; EXIT
MSEE01: ; CALL MON TERMINATE:
MOVC 0 R0 ; COMPLETION CODE=OK
MOV R4 R1 ; POSITION LINE NUMBER
ADDC -1 R1 ; CORRECT LOCATION COUNTER
MON TERMINATE ; EXIT