|
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: 1998 (0x7ce)
Types: TextFile
Names: »MSAPB2.S«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »MS1.D!MSAPB2.S«
MESSAGE <:MSAPB2.S V810214:>
;-----------------------------------------------------------------------
APB18: MODC 2-3 ; ACTION PROCEDURE B18:
APB19: MOVC 3 R7 ; ACTION PROCEDURE B19:
MOV R7 FORMLN ; SAVE CURRENT FORMAT LINE #
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APB20: MODC <:F:>-<:E:> ; ACTION PROCEDURE B20:
APB21: ; ACTION PROCEDURE B21:
IEQ R0 <:E:> ; IF CHAR = E (F)
JMP 0. X4 ; THEN RETURN
MOVC SB2 R7 ; GET NEW STATE
MOV R7 STATE ; SAVE THIS
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APB22: MODC <:N:>-<:Y:> ; ACTION PROCEDURE B22:
APB23: ; ACTION PROCEDURE B23:
IEQ R0 <:Y:> ; IF CHAR = Y (N)
JMP 0. X4 ; THEN RETURN
MOVC SB2 R7 ; GET NEW STATE
MOV R7 STATE ; SAVE THIS
APB25: MODC SB22-SB25 ; ACTION PROCEDURE B25:
APB26: MODC SB25-SB26 ; ACTION PROCEDURE B26:
APB27: MOVC SB26 R7 ; ACTION PROCEDURE B27:
; GET POSSIBLE NEW STATE
; (SB22/SB25/SB26)
MOV FORMLN R1 ; GET CURRENT FORMAT LINE
IEQ R1 3 ; IF FL3 IN PROGRESS
MOV R7 STATE ; THEN CORRECT STATE
JMP 0. X4 ; RETURN
;-----------------------------------------------------------------------
APB30: ; ACTION PROCEDURE B30:
MOVC 8 R7 ; CHANGE GROUP TO 3
MOV R7 GROUP ;
JMP 0. X4 ; RETURN