|
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 - metrics - download
Length: 2956 (0xb8c)
Types: TextFile
Names: »MSAPC.S«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─⟦this⟧ »MS1.D!MSAPC.S«
MESSAGE <: MSAPC.S V810214:>
;-----------------------------------------------------------------------
; ACTION PROCEDURES C SERIES
; THESE SERIES ARE USED IN CONJUNCTION WITH SET GROUP 3
;
; AC10: PROCESS CHARACTER IN FORMAT LINE 4
; AC11: PROCESS / DURING SEQUENCE
; AC13: PROCESS EOLF DURING SEQUENCE
; AC14: PROCESS EOLF OUTSIDE SEQUENCE
; AC20: PROCESS 1ST ALPHABETIC CHAR
; AC21: PROCESS 2ND ALPHABETIC CHAR
; AC22: PROCESS 3RD ALPHABETIC CHAR
;-----------------------------------------------------------------------
APC10: ; ACTION PROCEDURE C10:
MOVC SECCNT R7 ; GET COUNTER ADDRESS
INC X7 ; INCREMENT COUNTER
INE X7 5 ; IF NOT COUNTOUT
JMP 0. X4 ; THEN RETURN
MOVC SC8 R7 ; REDEFINE STATE
MOV R7 STATE ; TO SC8 (X)
JMP S6 ASC10 ; PROCESS SECURITY/SHD
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APC11: ; ACTION PROCEDURE C11:
MOV ASECUR R7 ; IF SECURITY NOT PAST
JOZ R7 APC10 ; THEN CALL AC10 INSTEAD
MOVC 0 R7 ; ELSE CLEAR COUNTER
MOV R7 SECCNT ;
JMP 0. X4 ; AND RETURN
;-----------------------------------------------------------------------
APC13: ; ACTION PROCEDURE C13:
JMP S6 ASC10 ; PROCESS SECURITY/SHD
JMP APC14 ; CONTINUE WITH AC14
;-----------------------------------------------------------------------
APC14: ; ACTION PROCEDURE C14:
JMP 1. X4 ; RETURN(1) = END OF ACP127
;-----------------------------------------------------------------------
APC20: ; ACTION PROCEDURE C20:
MOV R0 SCCHR1 ; SAVE 1ST CHAR
JMP APC10 ; CONTINUE WITH AC10
;-----------------------------------------------------------------------
APC21: ; ACTION PROCEDURE C21:
MOV SCCHR1 R7 ; GET 1ST CHAR
IEQ R0 R7 ; IF 2ND=1ST
JMP APC10 ; THEN CONTINUE WITH AC10
MOVC SC0 R7 ; RESET STATE
MOV R7 STATE ; BACK TO SC0 (/)
JMP APC10 ; CONTINUE WITH AC10
;-----------------------------------------------------------------------
APC22: ; ACTION PROCEDURE C22:
MOV SCCHR1 R7 ; GET 1ST=2ND CHAR
IEQ R0 R7 ; IF 3RD=2ND
MOV R0 SECCHR ; THEN SAVE AS SEQUENCE
JMP APC10 ; CONTINUE WITH AC10