|
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: 956 (0x3bc)
Types: TextFile
Names: »MS2100.S«, »~ORPHAN_0x003a«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »~ORPHAN_0x003a«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS2100.S«
MESSAGE <:MS2100.S V810214:>
;-----------------------------------------------------------------------
; SUBROUTINE MS2100
; GET CHARACTER CLASS
;
; REGISTERS CALL EXIT
; R0 CHAR CHAR
; R1 - CLASS
; R4 LINK
;
; INPUT: GROUP
; OUTPUT: -
; EXIT TO: LINK+0 (OK)
;-----------------------------------------------------------------------
MS2100: ; GET CHARACTER CLASS:
MOV R0 R1 ; DUPLICATE CHAR
XTR R1 7 ; REMOVE POSSIBLE PARITY BIT
MOD R1 ; USE CHAR AS INDEX
MOV CCT R1 ; TO GET CLASS WORD
MOD GROUP ; RIGHT ADJUST ACCORDING TO GROUP
SRL R1 0 ;
XTR R1 4 ; ISOLATE CLASS(GROUP,CHAR)
JMP 0. X4 ; RETURN