|
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: 2090 (0x82a)
Types: TextFile
Names: »MS5500.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS5500.S«
MESSAGE <:MS5500.S V810326:>
;-----------------------------------------------------------------------
; SUBROUTINE MS5500
; PROCESS STATE-EVENT TABLES
;
; REGISTERS CALL EXIT
; R0,R1,R2,R6,R7 - DEST
; R4 LINK -
; R3,R5 NOT USED
;
; INPUT: SOURCE FILE, START STATE AND GROUP
; OUTPUT: APRECE,ASECUR,TEMP FILE (ANO'S)
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS5500: ; PROCESS STATE-EVENT TABLES:
MOV R4 RL5000 ; SAVE RETURN LINK
MS5502: ; PROCESS FIRST(NEXT)CHARACTER:
MOVC SRCIO R6 ; GET SOURCE FILE
JMPI S4 MI2000 ; READ CHARACTER
MOV IOTYP. X6 R1 ; GET SOURCE TYPE
IEQ R0 LFCHAR ; IF 'LF' IN
SBN R1 IOBFIX ; FIKS RECORDS
JMP MS5508 ; THEN BEGIN FIKS EOLF
MOVC CRCHAR R0 ; SLIP A 'CR' IN BETWEEN
; TO CONSTRUCT AN EOLF:
JMPI S4 MI2100 ; LOOKUP CHARACTER CLASS
JMPI S4 MI2110 ; UPDATE STATE AND BRANCH
JMP & MS5504 ; EXIT0 - OK
JMPI RL5000 ;R EXIT1 (END OF HEADER) - RETURN
MS5504: ;
MOVC LFCHAR R0 ; GET 'LF' AGAIN AND PROCESS IT
MS5508: ; END FIKS EOLF
JMPI S4 MI2100 ; GET CHARACTER CLASS
JMPI S4 MI2110 ; LOOKUP STATE AND BRANCH
JMP & MS5502 ; EXIT0 - LOOPBACK TILL DONE
JMPI RL5000 ;R EXIT1 - (END OF HEADER) RETURN
MS550C: ; INTERCEPT:
MOVC ERCSEC R2 ; CAUSE CODE: UNDEFINED SECURITY
JMPI S4 MI8000 ; CALL INTERCEPT
JMPI RL5000 ;R UNEXPECTED RETURN FROM INTERCEPT