|
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: 1502 (0x5de)
Types: TextFile
Names: »MS3300.S«
└─⟦b5acf5c79⟧ Bits:30005104 8" CR80 Floppy CR80FD_0063 ( VOL: SCC.V MSS Directory: MS2.D )
└─⟦f918199fd⟧
└─ ⟦this⟧ »MS2.D!MS3300.S«
MESSAGE <:MS3300.S V810326:>
;-----------------------------------------------------------------------
; SUBROUTINE MS3300
; PROVIDE MONTH NAME
;
; REGISTERS CALL EXIT
; R0 MONTH (1-12) DEST
; R4 LINK -
; R5 - TEXT(PROGREL)
; R1,R2,R3,R6,R7 NOT USED
;
; INPUT: -
; OUTPUT: -
; EXIT TO: LINK+0 (INVALID MONTH)
; LINK+1 (OK)
;-----------------------------------------------------------------------
MS3300: ; PROVIDE MONTH NAME:
JMP S5 MS3302 ; ACCESS MONTH NAME TABLE
<:JAN:> ;
<:FEB:> ;
<:MAR:> ;
<:APR:> ;
<:MAY:> ;
<:JUN:> ;
<:JUL:> ;
<:AUG:> ;
<:SEP:> ;
<:OCT:> ;
<:NOV:> ;
<:DEC:> ;
MS3302: ;
ADDC -1 R0 ; GET MONTH IN FORMAT 0-11
IHS R0 12 ; IF OUTSIDE RANGE
JMP 0. X4 ;R THEN EXIT(0)
SLL R0 1 ; DOUBLE TO GET INDEX
ADD R0 R5 ; PROVIDE PROGREL POINTER
JMP 1. X4 ;R EXIT(1) -