|
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: 2762 (0xaca)
Types: TextFile
Names: »MSAPB1.S«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »MS1.D!MSAPB1.S«
MESSAGE <:MSAPB1.S V810214:>
;-----------------------------------------------------------------------
; ACTION PROCEDURES B SERIES
; THESE SERIES ARE USED IN CONJUNCTION WITH SET GROUP 2
;
; AB10: INTERCEPT - UNKNOWM RI
; AB11: STORE 1ST CHAR OF RI TYPE RDF<CHARS>
; AB12: STORE 2ND CHAR OF RI TYPE RDF<CHARS>
; AB15: LOOKUP RI TO ANO, RI TYPE RDF<CHAR1>
; AB16: LOOKUP RI TO ANO, RI TYPE RDF<CHAR1><CHAR2>
; AB18: SET CURRENT FORMAT LINE TO 2
; AB19: SET CURRENT FORMAT LINE TO 3
; AB20: IF CHAR <> F THEN STATE <= SB2
; AB21: IF CHAR <> E THEN STATE <= SB2
; AB22: IF CHAR <> N THEN (STATE <= SB2 & AB25)
; AB23: IF CHAR <> Y THEN (STATE <= SB2 & AB25)
; AB25: IF CURRENT FORMAT LINE IS 3 THEN STATE <= SB22
; AB26: IF CURRENT FORMAT LINE IS 3 THEN STATE <= SB25
; AB27: IF CURRENT FORMAT LINE IS 3 THEN STATE <= SB26
; AB30: CHANGE TO GROUP 3 PROCESING
;-----------------------------------------------------------------------
APB10: ; ACTION PROCEDURE B10:
MOVC ERCRI R2 ; GET ERROR CODE
JMP S6 AS000 ; CALL INTERCEPT
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APB11: ; ACTION PROCEDURE B11:
MOV R0 RICHR1 ; SAVE 1ST CHARACTER
MOVC 0 R7 ;
MOV R7 RICHR2 ; CLEAR 2ND CHARACTER
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APB12: ; ACTION PROCEDURE B12:
MOV R0 RICHR2 ; SAVE 2ND CHARACTER
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APB15: ; ACTION PROCEDURE B15:
APB16: ; ACTION PROCEDURE B16:
MOVC STACK+7 R7 ;
STC 6 ; STACK REGISTERS
JMPI S4 MI1100 ; LOOKUP ANO FROM RI
JMP & APB15B ; EXIT0 - GOTO NOT FOUND
MOV ANO R0 ; GET ANO
ADDC ANOTO<ANBCOD R0 ; CONVERT TO 'TO ANO'
MOVC TEMPIO R6 ; GET ANO-FILE DESCRIPTOR ADDRESS
JMPI S4 MI2030 ; STORE ANO
APB15A: ; RETURN:
MOVC STACK R7 ;
UNS 6 ; UNSTACK REGISTERS
JMP 0. X4 ; RETURN
APB15B: ; NOT FOUND:
MOVC ERCRI R2 ; GET ERROR CODE
JMPI S4 MI8000 ; CALL INTERCEPT
JMP APB15A ; GOTO RETURN V