|
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: 2876 (0xb3c)
Types: TextFile
Names: »MSAPA.S«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »MS1.D!MSAPA.S«
MESSAGE <: MSAPA.S V810214:>
;-----------------------------------------------------------------------
; ACTION PROCEDURES A SERIES
; THESE SERIES ARE USED IN CONJUNCTION WITH SET GROUP 1
;
; AA10: SPURIOUS PROCESSING
; AA12: ASA10
; AA13: ASA10+SPACE ACTION
; AA14: SOTI ACTION
; AA15: CALL INTERCEPT - MISSING PRECEDENCE
;-----------------------------------------------------------------------
APA10: ; ACTION PROCEDURE A10:
MOVC SPUCNT R7 ; GET COUNTER ADDR
INC X7 ; INCREMENT IT
MODC MAXSPU ; IF NOT COUNTOUT
ILT X7 6 ; (ALLOW FOR VZCZC)
JMP 0. X4 ; THEN RETURN
MOVC ERCSPU R2 ; GET ERROR CODE
JMP S6 AS000 ; CALL INTERCEPT
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APA12: ; ACTION PROCEDURE A12:
JMP S6 ASA10 ; CALL MOVE WINDOW
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APA13: ; ACTION PROCEDURE A13:
JMP S6 ASA10 ; CALL MOVE WINDOW
MOV PRCWND R7 ; GET WINDOW CONTENTS
MOV R7 R1 ; DUPLICATE
SRL R1 8 ; ISOLATE BYTES
XTR R7 8 ;
ILT R1 R7 ; GET HIGHEST
MOV R1 R7 ; IN R7
SGE R7 7 ; IF HIGHEST OUTSIDE RANGE
IEQ R7 0 ;
JMP 0. X4 ; THEN RETURN
MOV R7 APRECE ; SAVE VALUE AS ACTION PRECEDENCE
MOVC -1 R7 ; INDICATE PRECEDENCE FOUND
MOV R7 PRCWND ;
MOVC 4 R7 ; CHANGE GROUP TO 2
MOV R7 GROUP ;
MOVC SB1 R7 ; CHANGE STATE TO B1
MOV R7 STATE ;
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APA14: ; ACTION PROCEDURE A14:
MOVC MAXPRE R7 ; GET PRECEDENCE COUNTOUT PRESET
MOV R7 PRCCNT ; INIT COUNTER
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APA15: ; ACTION PROCEDURE A15:
MOVC ERCPRC R2 ; GET ERROR CODE
JMP S6 AS000 ; CALL INTERCEPT
MOVC 4 R7 ; CHANGE GROUP TO 2
MOV R7 GROUP ;
JMP 0. X4 ; RETURN