|
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: 7188 (0x1c14)
Types: TextFile
Names: »X2HEADS«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP005_V0501.D!CSS834.D!X2HEADS«
;-----------------------------------------------------------------------
;
; PROJECT: AMOS
;
; MODULE NAME: X2HEADS
; MODULE ID NMB: CSS/834
; MODULE VERSION: 0102
; MODULE TYPE: MERGE FILE
; MODULE FILES: X2HEADS
; MERGE FILES: NONE
;
; SPECIFICATIONS: CSS/302/PSP/0008
; AUTHOR/DATE: FP/831120
;
; DELIVERABLE: YES
; SOURCE LANGUAGE: CR80 ASSEMBLER
; COMPILE COMPUTER: CR80
; TARGET COMPUTER: CR80
; OPER. SYSTEM: AMOS
;
;-----------------------------------------------------------------------
;
; CHANGE RECORD:
;
; VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
; ------- ----------- ---------------------
;
; 0101 FP/831120 INITIAL SUBMITTAL
;
; 0102 TLM/841105 PROGRAM TYPE BITS FOR :
; FILE SYSTEM,
; STATISTICS,
; SYSTEM CONTROL INCLUDED.
;-----------------------------------------------------------------------
MESSAGE <:AMOS HEADERS VS 0102, 841105:>
USE PROG
; GENERAL HEADER DECLARATION
AX=0
XHTYPE:= AX, AX=AX+1 ; HEADER TYPE
BX=0
XTABLE:= BX, BX=BX+1 ; TABLE HEADER
XCODE:= BX, BX=BX+1 ; PROGRAM HEADER
XPROCESS:= BX, BX=BX+1 ; PROCESS HEADER
XHSIZE:= AX, AX=AX+1 ; SIZE OF ITEM (IN WORDS)
XHNAME:= AX, AX=AX+3 ; NAME OF ITEM
XHGHL:= AX ; LENGTH OF GENERAL HEADER
; PROGRAM HEADER DECLARATION
AX= XHGHL ; GENERAL HEADER HEADER
BX=0
BNREENTRANT:= BX, BX=BX+1 ; REENTRANT VS NON REENTRANT
BNRESIDENT:= BX, BX=BX+1 ; RESIDENT VS SWAPPABLE
BNPERMANENT:= BX, BX=BX+1 ; PERMANENT VS REMOVEABLE
BNMONITOR:= BX, BX=BX+1 ; MONITOR CODE VS NON MONITOR CODE
BNUTILITY:= BX, BX=BX+1 ; UTILITY PROGRAM VS NOT UTILITY
BNPASCAL:= BX, BX=BX+1 ; PASCAL PROGRAM VS NOT PASCAL P
BNFILESYSTEM:= BX, BX=BX+1 ; FILE SYSTEM VS NOT FILE SYSTEM
BNSTATISTICS:= BX, BX=BX+1 ; STATISTICS VS NO STATISTICS
BNSYSCONTROL:= BX, BX=BX+1 ; SYSTEM CONTROL PROGRAM VS NOT
BMREENTRANT:= 1<BNREENTRANT
BMRESIDENT:= 1<BNRESIDENT
BMPERMANENT:= 1<BNPERMANENT
BMMONITOR:= 1<BNMONITOR
BMUTILITY:= 1<BNUTILITY
BMPASCAL:= 1<BNPASCAL
BMFILESYSTEM:= 1<BNFILESYSTEM
BMSTATISTICS:= 1<BNSTATISTICS
BMSYSCONTROL:= 1<BNSYSCONTROL
XPVERS:= AX, AX=AX+1 ; PROGRAM VERSION
XPTYPE:= AX, AX=AX+1 ; TYPE
XPSTART:= AX, AX=AX+1 ; RELATIVESTART ADDRESS
XPMICRO:= AX, AX=AX+1 ; REL REF TO MICRO LOAD MODULE
XPCHKS:= AX, AX=AX+1 ; CHECKSUM
XPMEM:= AX, AX=AX+1 ; MEMORY PARAMETER
IF AX GT 32 THEN USE 16 FI
AX=32 ; SPARE POSITIONS
XPGHDL:= AX ; LENGTH OF PROGRAM HEADER
USE BASE
; PROCESS HEADER DECLARATION
AX= XHGHL ; GENERAL HEADER HEADER
XPROCHL:= AX ; LENGTH OF PROCESS HEADER
;-----------------------------------------------------------------------
; GENERAL PROCESS DESCRIPTION
;-----------------------------------------------------------------------
AX= -19-XUSERIDLENGTH
XBEYLGT:= -AX ; SIZE OF AREA BEYOND REGISTERS
XPCPUNAME:= AX, AX=AX+3 ; CPU NAME
XPRIO:= AX, AX=AX+1 ; PRIORITY
XPCAP:= AX, AX=AX+1 ; CAPABILITY REQUIREMENT
BX=0 ; ACCESS:
BNCLASS:= 12 ; LOW ORDER BIT OF CLASS FIELD
BNMAXCL:= 15 ; MAXIMUM CLASSIFICATION CODE
BNCREPR:= BX,BX=BX+1 ; CREATE PROCESS
BNCCRPR:= BX,BX=BX+1 ; CREATE PROCESS WHICH CREATES
; A PROCESS
BNCREPG:= BX,BX=BX+1 ; CREATE AND LOAD PROGRAM
BNCCRPG:= BX,BX=BX+1 ; CREATE PROCESS WHICH CREATES
; AND LOADS PROGRAMS
BNALDEV:= BX,BX=BX+1 ; ALLOCATE DEVICE
BNALMEM:= BX,BX=BX+1 ; ALLOCATE MEMORY
IF BX GT 12 THEN USE 16 FI ; UNDERLINE IF ERROR
XPRCLAIM:= AX, AX=AX+1 ; MEMORY CLAIM FOR PROCESS (WORDS)
XPRSIZE:= AX, AX=AX+1 ; SIZE OF EXECUTING PROCESS
XPFDSX:= AX, AX=AX+1 ; NUMBER OF FILE DESCRIPTIONS
XPIBSX:= AX, AX=AX+1 ; NUMBER OF IO CONTROL BLOCKS
XPSTSX:= AX, AX=AX+1 ; NUMBER OF STREAMS
XPXFSX:= AX, AX=AX+1 ; NUMBER OF TRANSFER LIST ELEMENTS
XPMSGX:= AX, AX=AX+1 ; NUMBER OF MSG BUFFERS
XXTRA:= AX ; REF TO XTRA OR
XCURDIR:= AX, AX=AX+1 ; CURRENT DIRECTORY
XFUNCS:= AX, AX=AX+1 ; INITIALIZATION FUNCTIONS CALLED
XIODATA:= AX, AX=AX+1 ;
XUSERID:= AX, AX=AX+XUSERIDLENGTH
XCBASE:= AX, AX=AX+1 ; BASE COPY
XPCB:= AX, AX=AX+1 ; LOGICAL PCB REF
XLEVEL:= AX, AX=AX+1 ; SYSTEM LEVEL
XSYSTEM:= 1 ; SYSTEM LEVEL
XUSER:= 0 ; USER LEVEL
XBOUND:= AX, AX=AX+1 ; REGISTER
XR0:= AX, AX=AX+1 ; REGISTER
IF XR0 NE 0 THEN MESSAGE <:HEADER ERROR:> FI
XR1:= AX, AX=AX+1 ; REGISTER
XR2:= AX, AX=AX+1 ; REGISTER
XR3:= AX, AX=AX+1 ; REGISTER
XR4:= AX, AX=AX+1 ; REGISTER
XR5:= AX, AX=AX+1 ; REGISTER
XR6:= AX, AX=AX+1 ; REGISTER
XR7:= AX, AX=AX+1 ; REGISTER
XBASE:= AX, AX=AX+1 ; REGISTER
XUMAP= AX, AX=AX+1 ; UMAP
XMOD= XUMAP ;
XPROG:= AX, AX=AX+1 ; REGISTER
XPRPC:= AX, AX=AX+1 ; REGISTER
XTIMER:= AX, AX=AX+1 ; REGISTER
XPSW:= AX, AX=AX+1 ; REGISTER
XOLDPRC:= AX, AX=AX+1 ; PREVIOUS PROCESS
XOLDMAP:= AX, AX=AX+1 ; PREVIOUS UMAP
XLOCRET:= AX, AX=AX+1 ; LOCAL ACTION RETURN LINK
XCAUSE:= AX, AX=AX+1 ; LOCAL INTERRUPT CAUSE CODE
XDEVICE:= AX, AX=AX+1 ; DEVICE ADDRESS
XTIMRS:= AX, AX=AX+1 ; TIMER RESET VALUE
XMONRET:= AX, AX=AX+1 ; MONITOR RETURN LINK
XTLINK:= AX, AX=AX+1 ; TIMER LINK
XLINK0:= AX, AX=AX+1
XLINK1:= AX, AX=AX+1
XLINK2:= AX, AX=AX+1
XLINK3:= AX, AX=AX+1 ;
XLINK4:= AX, AX=AX+1 ;
XLINK5:= AX, AX=AX+1 ;
XLINK6:= AX, AX=AX+1 ;
XLINK7:= AX, AX=AX+1 ;
XWORKLGT= 5 ; SIZE OF WORK AREA
XWORK:= AX, AX=AX+XWORKLGT; WORK AREA
XPROCLGT:= AX ; LENGTH OF PROCESS DESCIPTOR ABOV
; REGISTERS
XFIRST= -(XBEYLGT+XPROCHL)
;«ff»«ff» «a5»