|
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: 10964 (0x2ad4)
Types: TextFile
Names: »S2SYSS«
└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
└─ ⟦this⟧ »CSP005_V0501.D!CSS811.D!S2SYSS«
;-----------------------------------------------------------------------
;
; PROJECT: AMOS
;
; MODULE NAME: S2SYSS
; MODULE ID NMB: CSS/811
; MODULE VERSION: 1501
; MODULE TYPE: PREFIX FILE
; MODULE FILES: S2SYSS
; MERGE FILES: NONE
;
; SPECIFICATIONS: CSS/302/PSP/0008
; AUTHOR/DATE: JHO
;
; DELIVERABLE: YES
; SOURCE LANGUAGE: CR80 ASSEMBLER
; COMPILE COMPUTER: CR80
; TARGET COMPUTER: CR80
; OPER. SYSTEM: (M)XAMOS
;
;-----------------------------------------------------------------------
;
; CHANGE RECORD:
;
; VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
; ------- ----------- ---------------------
;
; 0501 JHO/801015 READSYSTIME AND PASCALINIT2
; INCLUDED
;
; 0601 JHO/801121 FILENAME INCLUDED
;
; 0701 AEK/800105 MONITORNAME DEVICE #86 CHANGED TO
; MONITORNAME TTYLOG #86 TO SUPPORT CSS/339
;
; 0801 HPT/820501 MONITORNAMES RELBOUND AND SETBOUND INCLUDED
;
; 0901 FP/831218 INXFPR, NXFER, PTBYTE, GTBYTE, BKBYTE,
; AAMVBT, ALMVBT, LAMVBT, ALDBYT, ASTBYT,
; ALDWRD, ASTWRD, STARTSYSTEM, COPYTO, AND
; COPYFROM INCLUDED.
; CPUINIT, SENDTIMEOUT, AND PROCESSPCBS
; EXCLUDED.
; CPU PARAMETERS CHANGED:
; INTERRUPT MASK CHANGED TO ACC EXEC. TIME
; FOR IDLE.
; HW PRIORITY DELETED.
; NAME0, NAME1, NAME2 ADDED.
; DEBUGON, SETACT, DBGSUP, AND FLOPP INCLUDED.
;
; 1001 FP/840328 GETPCB, GETCCB, GETKST, AND XFER INCLUDED.
;
; 1101 FP/840405 GETICB, GETPARENTHOOD, AND MONCLN INCLUDED.
;
; 1201 PHF/840510 REMAINDERLONG included.
;
; 1301 TLM/841023 GETPUSTATE AND SETPUSTATE INCLUDED
;
; 1401 FP/850227 READLRTC AND RDSSTIME INCLUDED
;
; 1501 FP/850422 SETTICKS, GETTICKS, DEFCLN, AND
; CLEANED INCLUDED.
;
;-----------------------------------------------------------------------
MESSAGE <:AMOS SYSTEM NAMES VS 1501, 850422:>
SYS2= TRUE
; EVENTTYPES
AX=0
BMSIG:= 1<AX
BNSIG:= AX, AX=AX+1 ; SIGNAL TYPE
BMMSG:= 1<AX
BNMSG:= AX, AX=AX+1 ; MESSAGE TYPE
BMANS:= 1<AX
BNANS:= AX, AX=AX+1 ; ANSWER TYPE
BMSYM:= 1<AX
BNSYM:= AX, AX=AX+1 ; SYSTEM MESSAGE TYPE
BMSYA:= 1<AX
BNSYA:= AX, AX=AX+1 ; SYSTEM ANSWER TYPE
BMPTM:= 1<AX
BNPTM:= AX, AX=AX+1 ; PATH MESSAGE TYPE
BMPTA:= 1<AX
BNPTA:= AX, AX=AX+1 ; PATH ANSWER TYPE
BMINTRPT:= 1<AX
BNINTRPT:= AX, AX=AX+1 ; INTERRUPT TYPE
BMDELAY:= 1<AX
BNDELAY:= AX, AX=AX+1 ; DELAY TYPE
BMPARSIG:= 1<AX
BNPARSIG:= AX, AX=AX+1 ; PARENT SIGNAL
CONTLENGTH:= 5 ; ELNGTH OF MESSAGE BUFFER
; COMMAND BITS
; TRANSPUT OPERATIONS
BNTPUT:= 0
BNOPUT:= 1
BNBYTE:= 2
BNSPEC:= 3
BNCONV:= 4
BNSTEP:= 5
BNNOEC:= 6
BNNOCP:= 7
; CONTROL OPERATIONS
BNRELEASE:= 2
BNRESERVE:= 3
BNPOSITION:= 4
BNERASE:= 5
BNCLEAR:= 6
BNTERMINATE:= 7
BNDISCONNECT:= 8
; RESULT BITS
BNNOTREADY:= 0
BNTIMER:= 1
BNREJECT:= 2
BNILLEGAL:= 3
BNUNCOMPLETE:= 4
BNERROR:= 5
BNEOF:= 6
BNPARITY:= 7
BNREADERROR:= 8
BNWRITEERROR:= 9
BNFULL:= 10
BNUNKNOWN:= 11
BNBUSY:= 12
BNNOTPOSS:= 13
;PAGE«ff»
;-----------------------------------------------------------------------
; SYSTEM CALLS
CREATEPROCESS:= 0
; PARAMETER BLOCK FOR CREATEPROCESS:
AY=0
XPRNAMELENGTH:= 4 ; LENGTH OF PROCESS NAME
VNAME0:= AY,AY=AY+1 ; NAME. IF VNAME0=0 THEN A STANDAR
; D NAME IS GENERATED AND RETURNED
; IT IS CHECKED THAT THE NAME DOES
; NOT ALREADY EXIST NOR BEGINS WIT
; TH "P".
VNAME1:= AY,AY=AY+1 ;
VNAME2:= AY,AY=AY+1 ;
VIDENT:= AY,AY=AY+1 ; USED TO RETURN THE LOGICAL PCB
VPGTYPE:= VIDENT ; PROGRAM TYPE
VPROG:= AY, AY=AY+1 ; ABS PROGRAM BASE
VINIT:= AY, AY=AY+1 ; PROGRAM RELATIVE START ADDRESS
VUMAP:= AY, AY=AY+1 ; UMAP = PPAGE * 256 + DPAGE
VCAPAB:= AY, AY=AY+1 ; CAPABILITIES
VCPU:= AY, AY=AY+1 ; LOGICAL CPU
VPRIO:= AY, AY=AY+1 ; PRIORITY OF PROCESS TO BE CREATED
VLEVEL:= AY, AY=AY+1 ; INITIAL SYSTEM LEVEL OF PROCESS
VBASE:= AY, AY=AY+1 ; ABS BASE OF PROCESS TO BE CREATE
VSIZE:= AY,AY=AY+1 ; SIZE OF PROCESS
VBOUND:= AY,AY=AY+1 ; PRESET VALUE OF BOUND REGISTER.
VMEMORY:= AY,AY=AY+1 ; MEMORY ALLOCATION PARAMETER.
VMSGS:= AY, AY=AY+1 ; MAY NMB OF MSG BUFFERS ALLOWED
XUSERIDLENGTH:= 2 ; LENGTH OF USER ID
VUSERID:= AY, AY=AY+2 ; USER ID
VPARLGT:= AY ; LENGTH OF PARAMETER BLOCK.
REMOVEPROCESS:= 1
ADOPTPROCESS:= 2
STARTPROCESS:= 3
STOPPROCESS:= 4
GETCHILD:= 5
VANISH:= 6
CLNMESSAGE:= 7
CLNINTRPT:= 8
ERROR:= 9
TERMINATE:= ERROR
; ERROR CODE GROUPS
USERER:= 0<8 ; USER DEFINED ERRORS
MONERR:= 1<8 ; MONITOR KERNEL ERRORS (INCL HW)
IOERR:= 2<8 ; IO SYSTEM ERRORS
FMSERR:= 3<8 ; FILE MANAGEMENT SYSTEM ERROR
FMUERR:= 4<8 ; FILE MANAGEMENT SYSTEM ERROR
FMDERR:= 5<8 ; FILE MANAGEMENT SYSTEM ERROR
DRVERR:= 6<8 ; DEVICE DRIVER ERRORS
PASERR:= 7<8 ; PASCAL RUNTIME ERRORS
OVLERR:= 8<8 ; OVERLAY ERROR
LOOKUPCPU:= 10
CLOSEPATH:= 11
OPENPATH:= 12
SETCYCLE:= 13
CLEARINTERRUPT:= 14
RELEASEINTERRUPT:= 15
SETINTERRUPT:= 16
RESERVEINTERRUPT:= 17
IDENTIFYSENDER:= 18
GETATTRIBUTES:= 19
LOOKUPPROCESS:= 20
SETCPUPARAMETER:= 21
GETCPUPARAMETER:= 22
BX=0 ; CPU PARAMETERS
ZCPUNMB:= BX, BX=BX+1 ; CPU NUMBER
ZACCIDLE:= BX, BX=BX+1 ; ACC EXEC TIME FOR IDLE
ZSCHRCNT:= BX, BX=BX+1 ; SCHEDULE RESET COUNT .PRIO
ZSLICESZ:= BX, BX=BX+1 ; SLICE SIZE .PRIO
ZACCEXECT:= BX, BX=BX+1 ; ACC EXECUTION TIME .PRIO
ZNAME0:= BX, BX=BX+1 ; NAME0
ZNAME1:= BX, BX=BX+1 ; NAME1
ZNAME2:= BX, BX=BX+1 ; NAME2
ZCPUMAXPAR:= BX ;
RECOVEREVENTS:= 23
SAVEEVENT:= 24
SUSPEND:= 25
READY:= 26
STARTSYSTEM:= 27
DEBUGON:= 28
SETACT:= 29
GETPCB:= 30
GETCCB:= 31
GETKST:= 32
GETICB:= 33
GETPARENTHOOD:= 34
GETPUSTATE:= 35
SETPUSTATE:= 36
DEFCLN:= 37
BX=0
ZPUINACTIVE:= BX,BX=BX+1
ZPUACTIVE:= BX,BX=BX+1
ZPUTESTMODE:= BX,BX=BX+1
; SPARE POSITIONS
MONCLN:= 64
MONINIT:= 65
INITPASCAL:= 66
OLTO:= 67
AWAITEVENT:= 68
WAITEVENT:= AWAITEVENT
SENDSIGNAL:= 69
AWTANSWER:= 70
SENDMESSAGE:= 71
SENDANSWER:= 72
AWTSYANSWER:= 73
SENDSYMESSAGE:= 74
SENDSYANSWER:= 75
AWTPATHANSWER:= 76
SENDPATHANSWER:= 77
SENDPATHMESSAGE:= 78
IDENTIFYPROCESS:= 79
READRTC:= 80
READLRTC:= 81
WRITERTC:= 82
READSYSTIME:= 84
PASCALINIT2:= 85
TTYLOG:= 86
CLNDEVICE:= 87
IO:= 88
CLNIO:= 89
IOINIT:= 90
GETBUF:= 91
ADRBUF:= 92
RELBUF:= 93
CLNMEM:= 94
STREAM:= 95
INSPECTEVENTS:= 96
REGION:= 97
BX=0 ; REGION PROCEDURES
RENTER:= BX, BX=BX+1
RLEAVE:= BX, BX=BX+1
RWAIT:= BX, BX=BX+1
RGET:= BX, BX=BX+1
RGETN:= BX, BX=BX+1
RPUT:= BX, BX=BX+1
RPUTN:= BX, BX=BX+1
RCREATE:= BX, BX=BX+1
; PARAMETER BLOCK FOR CREATE REGION
AY=0
VCRNAME:= AY, AY=AY+3; NAME OF REGION
VCRSTA:= AY, AY=AY+1; PSW ENCODED PAGE OF VS
VCRADDR:= AY, AY=AY+1; ABSOLUTE WORD ADDRESS OF VS
VCRSIZE:= AY, AY=AY+1; SIZE IN WDS OF VS
VCRCBL:= AY ; SIZE OF PARAMETER BLOCK
RSEARCH:= BX, BX=BX+1
RCOPYN:= BX, BX=BX+1
; ERROR CODES FOR REGION PROCEDURES
ZCRUNF:= 1 ; UNKNOWN FUNCTION
ZCRPSZ:= 2 ; PARAMETER REF VIOLATES ADDRESS
; SPACE OF PROCESS.
ZCRUNR:= 3 ; UNKNOWN REGION
ZCRILLSTA:= 4 ; REGION IS NOT ENTERED
ZCRPCB:= 5 ; INVALID PROCESS (PCB INDEX)
ZCRILLNAM:= 6 ; INVALID REGION NAME
ZCRVSZ:= 7 ; ADDRESS VIOLATION IN VS
ZCROVFL:= 8 ; TOO MANY REGIONS
OVERLAY:= 98
LOG:= 99
MULTIPLYLONG:= 100
DIVIDELONG:= 101
FINDFILE:= 102
INFILEID:= 103
LOGP:= 104
COR:= 105
SETBOUND:= 107
RELBOUND:= 108
INXFPR:= 109
NXFER:= 110
PTBYTE:= 111
GTBYTE:= 112
BKBYTE:= 113
AAMVBT:= 114
ALMVBT:= 115
LAMVBT:= 116
ALDBYT:= 117
ASTBYT:= 118
ALDWRD:= 119
ASTWRD:= 120
COPYTO:= 121
COPYFROM:= 122
XFER:= 123
REMAINDERLONG:= 124
RDSSTIME:= 125
SETTICKS:= 126
GETTICKS:= 127
CLEANED:= 128
FILENAME:= 254
; PSEUDO MONITOR ENTRIES
DBGSUP:= 256
FLOPP:= 257
«a5»