|
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: 9646 (0x25ae)
Types: TextFile
Names: »S2SYSS«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »GENS.D!S2SYSS«
;-----------------------------------------------------------------------
;
; PROJECT: AMOS
;
; MODULE NAME: S2SYSS
; MODULE ID NMB: CSS/811
; MODULE VERSION: 6
; MODULE TYPE: MERGE FILE
; MODULE FILES: S2SYSS.S
; 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: AMOS
;
;-----------------------------------------------------------------------
;
; 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
;-----------------------------------------------------------------------
MESSAGE <:AMOS SYSTEM NAMES V801121:>
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
AX=0
BNTPUT:= AX, AX=AX+1
BNOPUT:= AX, AX=AX+1
BNBYTE:= AX, AX=AX+1
BNSPEC:= AX, AX=AX+1
BNCONV:= AX, AX=AX+1
BNSTEP:= AX, AX=AX+1
BNNOEC:= AX, AX=AX+1
BNNOCP:= AX, AX=AX+1
; CONTROL OPERATIONS
AX=2
BNRELEASE:= AX, AX=AX+1
BNRESERVE:= AX, AX=AX+1
BNPOSITION:= AX, AX=AX+1
BNERASE:= AX, AX=AX+1
BNCLEAR:= AX, AX=AX+1
BNTERMINATE:= AX, AX=AX+1
BNDISCONNECT:= AX, AX=AX+1
; RESULT BITS
AX= 0
BNNOTREADY:= AX, AX=AX+1
BNTIMER:= AX, AX=AX+1
BNREJECT:= AX, AX=AX+1
BNILLEGAL:= AX, AX=AX+1
BNUNCOMPLETE:= AX, AX=AX+1
BNERROR:= AX, AX=AX+1
BNEOF:= AX, AX=AX+1
BNPARITY:= AX, AX=AX+1
BNREADERROR:= AX, AX=AX+1
BNWRITEERROR:= AX, AX=AX+1
BNFULL:= AX, AX=AX+1
BNUNKNOWN:= AX, AX=AX+1
BNBUSY:= AX, AX=AX+1
BNNOTPOSS:= AX, AX=AX+1
;PAGE«ff»
;-----------------------------------------------------------------------
; SYSTEM CALLS
AX=0
CREATEPROCESS:= AX, AX=AX+1
; 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
VPROG:= AY, AY=AY+1 ; ABS PROGRAM BASE
VINIT:= AY, AY=AY+1 ; PROGRAM RELATIVE START ADDRESS
VMICRO:= AY, AY=AY+1 ; PROGRAM REL ADR TO MICRO PROGR
; LOAD MODULE
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+XUSERIDLENGTH; USER ID
VPARLGT:= AY ; LENGTH OF PARAMETER BLOCK.
REMOVEPROCESS:= AX, AX=AX+1
ADOPTPROCESS:= AX, AX=AX+1
STARTPROCESS:= AX, AX=AX+1
STOPPROCESS:= AX, AX=AX+1
GETCHILD:= AX, AX=AX+1
VANISH:= AX, AX=AX+1
CLNMESSAGE:= AX, AX=AX+1
CLNINTRPT:= AX, AX=AX+1
ERROR:= AX, AX=AX+1
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:= AX, AX=AX+1
CLOSEPATH:= AX, AX=AX+1
OPENPATH:= AX, AX=AX+1
SETCYCLE:= AX, AX=AX+1
CLEARINTERRUPT:= AX, AX=AX+1
RELEASEINTERRUPT:= AX, AX=AX+1
SETINTERRUPT:= AX, AX=AX+1
RESERVEINTERRUPT:= AX, AX=AX+1
IDENTIFYSENDER:= AX, AX=AX+1
GETATTRIBUTES:= AX, AX=AX+1
LOOKUPPROCESS:= AX, AX=AX+1
SETCPUPARAMETER:= AX, AX=AX+1
GETCPUPARAMETER:= AX, AX=AX+1
BX=0 ; CPU PARAMETERS
ZCPUNMB:= BX, BX=BX+1 ; CPU NUMBER
ZINTMSK:= BX, BX=BX+1 ; INTERRUPT MASK (PSW)
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
ZHWPRIO:= BX, BX=BX+1 ; HW PRIORITY BITS (PSW) .PRIO
ZCPUMAXPAR:= BX ;
RECOVEREVENTS:= AX, AX=AX+1
SAVEEVENT:= AX, AX=AX+1
SUSPEND:= AX, AX=AX+1
READY:= AX, AX=AX+1
AX=AX+6 ; SPARE POSITIONS
IF AX GT 63 THEN USE 16 FI
AX=64
CPUINIT:= AX, AX=AX+1
MONINIT:= AX, AX=AX+1
INITPASCAL:= AX, AX=AX+1
OLTO:= AX, AX=AX+1
AWAITEVENT:= AX, AX=AX+1
WAITEVENT:= AWAITEVENT
SENDSIGNAL:= AX, AX=AX+1
AWTANSWER:= AX, AX=AX+1
SENDMESSAGE:= AX, AX=AX+1
SENDANSWER:= AX, AX=AX+1
AWTSYANSWER:= AX, AX=AX+1
SENDSYMESSAGE:= AX, AX=AX+1
SENDSYANSWER:= AX, AX=AX+1
AWTPATHANSWER:= AX, AX=AX+1
SENDPATHANSWER:= AX, AX=AX+1
SENDPATHMESSAGE:= AX, AX=AX+1
IDENTIFYPROCESS:= AX, AX=AX+1
READRTC:= AX, AX=AX+1
SENDTIMEOUT:= AX, AX=AX+1
WRITERTC:= AX, AX=AX+1
PROCESSPCBS:= AX, AX=AX+1
READSYSTIME:= AX, AX=AX+1
PASCALINIT2:= AX, AX=AX+1
TTYLOG:= AX, AX=AX+1
CLNDEVICE:= AX, AX=AX+1
IO:= AX, AX=AX+1
CLNIO:= AX, AX=AX+1
IOINIT:= AX, AX=AX+1
GETBUF:= AX, AX=AX+1
ADRBUF:= AX, AX=AX+1
RELBUF:= AX, AX=AX+1
CLNMEM:= AX, AX=AX+1
STREAM:= AX, AX=AX+1
INSPECTEVENTS:= AX, AX=AX+1
REGION:= AX, AX=AX+1
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:= AX, AX=AX+1
LOG:= AX, AX=AX+1
MULTIPLYLONG:= AX, AX=AX+1
DIVIDELONG:= AX, AX=AX+1
FINDFILE:= AX, AX=AX+1
INFILEID:= AX, AX=AX+1
LOGP:= AX, AX=AX+1
COR:= AX, AX=AX+1
FILENAME:= 254 ; RETTET FRA 106 A.H.T COBOL «a5»