|
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: 2276 (0x8e4)
Types: TextFile
Names: »MSBAS1.S«
└─⟦93791531c⟧ Bits:30005105 8" CR80 Floppy CR80FD_0064 ( VOL:SCC.V MSS Directory: MS1.D )
└─⟦185cc4db7⟧
└─ ⟦this⟧ »MS1.D!MSBAS1.S«
MESSAGE <:MSBAS1.S V810305:>
;-----------------------------------------------------------------------
; BASE VARIABLES DECLARATION.
;
; THE MSS BASE PART (LESS SYSTEMS DECLARATIONS) IS DECLARED HERE.
;-----------------------------------------------------------------------
USE BASE ;
XLOC= LOC ;BEGIN VARIABLES:
; CONVERSION CONTROL RELATED:
SCCID: LOC=LOC+1 ; SCC ID ('P' OR 'Q')
SERNO: LOC=LOC+1 ; CONVERSION SERIAL NUMBER (1-9999)
SRCFD: LOC=LOC+1 ; SOURCE FILEDESCRIPTOR
OBJFD: LOC=LOC+1 ; OBJECT FILEDESCRIPTOR
TMPFD: LOC=LOC+1 ; TEMP FILEDESCRIPTOR
; PROCEDURE PARAMETERS:
ERCODE: LOC=LOC+1 ; INTERCEPT ERROR CODE
ERLINE: LOC=LOC+1 ; INTERCEPT LINE NUMBER
CONVTP: LOC=LOC+1 ; CONVERSION TYPE (0-5) SEE NOTE 1
MS1STZ: ; START CLEAR LOCATION:
; RETURN LINKS:
RL1000: LOC=LOC+1 ; MS1XXX SUBROUTINES COMMON RETURN LINK
RL2000: LOC=LOC+1 ; MS2XXX SUBROUTINES COMMON RETURN LINK
RL3000: LOC=LOC+1 ; MS3XXX SUBROUTINES COMMON RETURN LINK
RL4000: LOC=LOC+1 ; MS4XXX SUBROUTINES COMMON RETURN LINK
RL5000: LOC=LOC+1 ; MS5XXX SUBROUTINES COMMON RETURN LINK
RL6000: LOC=LOC+1 ; MS6XXX SUBROUTINES COMMON RETURN LINK
RL7000: LOC=LOC+1 ; MS7XXX SUBROUTINES COMMON RETURN LINK
RLD000: LOC=LOC+1 ; MSDXXX SUBROUTINES COMMON RETURN LINK
; DAYTIME GROUP RELATED:
TSEC: LOC=LOC+1 ; SECOND
TMIN: LOC=LOC+1 ; MINUTE
THOUR: LOC=LOC+1 ; HOUR
TDAYY: LOC=LOC+1 ; DAY IN YEAR
TDAYM: LOC=LOC+1 ; DAY IN MONTH
TMONTH: LOC=LOC+1 ; MONTH
TYEAR: LOC=LOC+1 ; YEAR
; END PART 1 LAYOUT
YLOC= LOC-XLOC ; CALCULATE VARIABLES LENGTH
LOC= XLOC ;
0,REPEAT (YLOC-1) ; FILL SPACE WITH ZEROES
;END VARIABLES
;NOTE 1:
;=======
; CONVERSION TYPE CODES:
; 0: CONVERT CARRIER FOR INTERCEPT
; 1: EXTERNAL ACP/SMF CONVERSION
; 2: EXTERNAL SMF/ACP CONVERSION
; 3: INTERNAL ACP/SMF CONVERSION
; 4: INTERNAL SMF/ACP CONVERSION V