|
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: 1386 (0x56a)
Types: TextFile
Names: »MS2110.S«, »~ORPHAN_0x003b«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x003b«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS2110.S«
MESSAGE <:MS2110.S V810214:>
;-----------------------------------------------------------------------
; SUBROUTINE MS2110
; UPDATE STATE, BRANCH TO ACTION
;
; REGISTERS CALL EXIT
; R0 CHAR CHAR
; R1 CLASS -
; R4 LINK LINK
; R7 - DEST
;
; INPUT: STATE
; OUTPUT: STATE
; EXIT TO: ACTION PROCEDURE
;-----------------------------------------------------------------------
MS2110: ; UPDATE STATE, BRANCH TO ACTION:
MOD STATE ; USE OLDSTATE NUMBER AS INDEX
MOV SAT R7 ; TO GET OLDSTATE
ADD R1 R7 ; ADD CLASS TO OLDSTATE
MOD R7 ; USE COMPOUND AS INDEX
MOV SET R1 ; TO GET LOOKUP VALUE
MOV R1 R7 ; DUPLICATE
SWP R7 ; POSITION
XTR R1 8 ; ISOLATE ACTION PROC NUMBER
XTR R7 8 ; ISOLATE NEWSTATE NUMBER
MOV R7 STATE ; SAVE NEWSTATE NUMBER AS STATE
MOD R1 ; USE ACT.PROC NUMBER AS INDEX
JMPI PAT ; TO ACCESS ACT.PROC TOP
; (RETURN THRU LINK)