|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 13312 (0x3400)
Types: TextFile
Notes: RCSL-43-GL-11177, RCSL-43-GL-11178
Names: »BAPAR«
└─⟦45bd0f8dd⟧ Bits:30000464 DOMUS disk image
└─ ⟦this⟧ »/BAPAR«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/BAPAR«
└─⟦a2e222af0⟧ Bits:30001626 DOMUS disk image
└─ ⟦this⟧ »/BAPAR«
; RCSL: 43-GL11178 ; AUTHOR: JCO/EJ ; EDITED: 81.05.02 ; BAPAR.03 ;KEYWORDS: RC3600/RC7000, COPS, RC BASIC/COMAL, DOMAC, ; SYMBOLS ;ABSTRACT: THIS MODULE CONTAINS SYMBOLS AND MACROES WHICH ; MUST BE DEFINED IN DOMAC, WHEN ASSEMBLER-MODULES ; BELONGING TO COPS OR RC BASIC ARE ASSEMBLED. ; THE SYMBOLS ARE ALSO USED IN ASSEMBLER-CODED SUB- ; ROUTINES IN RC BASIC. ;ASCII: RCSL: 43-GL11177 «ff» ; .TITL BAPAR ; 80.03.20 .RDX 10 .TXTM 1 .NREL ; ; ******* SYMBOLS USED IN COPS ********* ; ; PROCESS DESCRIPTION DECLARATIONS ; .DUSR ITIME= SAVE3+1 ; INITIALISE TIME .DUSR SYLPT= CBUFF+1 ; NAMEADDR OF SYSTEM PRINTER .DUSR SYCDR= SYLPT+1 ; NAMEADDR OF SYSTEM CARDREADER .DUSR MTERM= SYCDR+1 ; MASTER TERMINAL .DUSR ALCORE= MTERM+1 ; ALLOCATE CORE CHAIN .DUSR CSTART= ALCORE+1 ; ALLOCATE CORE START ADDRESS .DUSR CTOP= CSTART+1 ; ALLOCATE CORE TOP ADDRESS .DUSR FREE= CTOP+1 ; FILERESERVE FILE CHAIN .DUSR SYLIB= FREE+1 ; NAMEADDR OF SYSTEM LIBRARY .DUSR FCSTART= SYLIB+1 ; FIXED CORE START ADDRESS .DUSR FCTOP= FCSTART+1 ; FIXED CORE TOP .DUSR MAXUSER= FCTOP+3 ; MAX USER IN THE SYSTEM .DUSR MAXCORE= MAXUSER+1 ; MAX CORE CLAIM PR USER .DUSR USERSIZE= MAXCORE+1 ; SIZE OF USER DESCRIPTION .DUSR MENTRY= USERSIZE+1 ; ENTRIES TO SYSTEM MONITORS ; ; ; ; COROUTINE DESCRIPTION DECLARATIONS ; .DUSR STTIME= CAC1SAVE+7 ; ACTIVATION TIME .DUSR MPMSK= STTIME+2 ; PRIORITY MASK .DUSR MBREAK= MPMSK+1 ; PROGRAM BREAK ADDRESS .DUSR MEXIT= MBREAK+1 ; SYSTEM MONITORS EXIT .DUSR MSAC0= MEXIT+1 ; SAVED AC0 IN SYSTEM MONITORS .DUSR MSAC1= MSAC0+1 ; SAVED AC1 IN SYSTEM MONITORS .DUSR MSAC2= MSAC1+1 ; SAVED AC2 IN SYSTEM MONITORS .DUSR MSAC3= MSAC2+1 ; SAVED AC3 IN SYSTEM MONITORS .DUSR ISTACK= MSAC3+1 ; INITIAL STACK POINTER .DUSR STTOP= ISTACK+1 ; CURRENT STACK TOP .DUSR STLEVEL= STTOP+1 ; CURRENT STACK LEVEL .DUSR STMAX= STLEVEL+1 ; STACK MAX .DUSR ACORE= STMAX+1 ; ALLOCATED CORE POINTER .DUSR CURCAT= ACORE+1 ; CURRENT CATALOG .DUSR CATDESC= CURCAT+1 ; ADDRESS OF CATALOG DESCR. .DUSR CWRK0= CATDESC+5 ; WORK 0 .DUSR CURZ= CWRK0 ; CURRENT ZONE .DUSR CWRK1= CWRK0+1 ; WORK 1 .DUSR CWRK2= CWRK1+1 ; WORK 2 .DUSR PIO= CATDESC+8 ; PRIMARY INPUT OUTPUT DEVICE .DUSR CIN= PIO+1 ; CURRENT INPUT DECIVE .DUSR COUT= CIN+1 ; CURRENT OUTPUT DEVICE .DUSR UBASE= COUT+3 ; USER WORK BASE «ff» ; COPS SYSTEM DEFINITIONS, 80.03.20 PAGE 02 ; ; CALL - RETURN - STACK ; .DUSR CALL= JSR@ MZSTART+4 ; .DUSR EXECU= JSR@ MZSTART+4 ; .DUSR RET0= JMP@ MZSTART+5 ; .DUSR RET1= JMP@ MZSTART+6 ; .DUSR RET2= JMP@ MZSTART+7 ; .DUSR ERROR= JSR@ MZSTART+8 ; ; ; ; SYSTEM MONITORS ENTRIES DEFINITION: ; MCALL= JSR@ +0,2 ; ALLOCATE= MCALL+MENTRY ; ; .DUSR A.EXTEND= ALLOCATE+0 ; .DUSR A.TRUNCATE= ALLOCATE+1 ; .DUSR A.RESERVE= ALLOCATE+2 ; .DUSR A.RELEASE= ALLOCATE+3 ; .DUSR A.GBYTE= ALLOCATE+4 ; .DUSR A.GWORD= ALLOCATE+5 ; .DUSR A.GDOUBLE= ALLOCATE+6 ; .DUSR A.GTRIPLE= ALLOCATE+7 ; .DUSR A.PBYTE= ALLOCATE+8 ; .DUSR A.PWORD= ALLOCATE+9 ; .DUSR A.PDOUBLE= ALLOCATE+10 ; .DUSR A.PTRIPLE= ALLOCATE+11 ; ; ALLAST= ALLOCATE+12 ; ALSIZE= ALLAST-ALLOCATE ; ; ; FILERESERVE= ALLOCATE+ALSIZE ; ; .DUSR F.RESERVE= FILERESERVE+0 ; .DUSR F.RELEASE= FILERESERVE+1 ; .DUSR F.OCHAR= FILERESERVE+2 ; .DUSR F.OTEXT= FILERESERVE+3 ; .DUSR F.OBLOCK= FILERESERVE+4 ; .DUSR F.ICHAR= FILERESERVE+5 ; .DUSR F.SETPOS= FILERESERVE+6 ; .DUSR F.BACKSPACE= FILERESERVE+7 ; .DUSR F.CHEOF= FILERESERVE+8 ; .DUSR F.PREPAREATT= FILERESERVE+9 ; .DUSR F.WAITATT= FILERESERVE+10 ; .DUSR F.CHATT= FILERESERVE+11 ; .DUSR F.CATALOG= FILERESERVE+12 ; .DUSR F.CREATE= FILERESERVE+13 ; .DUSR F.DELETE= FILERESERVE+14 ; .DUSR F.RENAME= FILERESERVE+15 ; .DUSR F.LOOKUP= FILERESERVE+16 ; .DUSR F.CLOSEUP= FILERESERVE+17 ; ; FILAST= FILERESERVE+18 ; FISIZE= FILAST-FILERESERVE ; «ff» ; COPS SYSTEM DEFINITIONS, 80.03.20 PAGE XX ; TIMING= FILERESERVE+FISIZE ; ; .DUSR T.DATE= TIMING+0 ; .DUSR T.ALL= TIMING+1 ; .DUSR T.SECONDS= TIMING+2 ; .DUSR T.TIME= TIMING+3 ; ; TILAST= TIMING+4 ; TISIZE= TILAST-TIMING ; ; ; COMUSINIT= TIMING+TISIZE ; ; .DUSR C.CREATE= COMUSINIT+0 ; .DUSR C.REMOVE= COMUSINIT+1 ; .DUSR C.CHANGEPROGRAM= COMUSINIT+2 ; ; CILAST= COMUSINIT+3 ; CISIZE= CILAST-COMUSINIT ; ; ; MAINCAT= COMUSINIT+CISIZE ; ; .DUSR M.FREECAT= MAINCAT+0 ; .DUSR M.NEWCAT= MAINCAT+1 ; .DUSR M.LOOKUP= MAINCAT+2 ; .DUSR M.CLOSEUP= MAINCAT+3 ; .DUSR M.INIT= MAINCAT+4 ; .DUSR M.LOCK= MAINCAT+5 ; .DUSR M.USERS= MAINCAT+6 ; .DUSR M.INCLUDE= MAINCAT+7 ; .DUSR M.EXCLUDE= MAINCAT+8 ; ; MCLAST= MAINCAT+9 ; MCSIZE= MCLAST-MAINCAT ; «ff» ; COPS SYSTEM DEFINITIONS, 80.03.20 PAGE 03 ; ; BASIC DECLARATIONS: ; .DUSR USER= COROUT ; ; ; ; ********* SYMBOLS USED IN BASIC ********* ; SPECIAL OPERATIONS: ; .DALC SZ = MOV# 0,0,SZR ; SKIP ZERO .DALC SNZ= MOV# 0,0,SNR ; SKIP NON-ZERO .DALC SP = MOVL# 0,0,SZC ; SKIP POSITIVE .DALC SN = MOVL# 0,0,SNC ; SKIP NEGATIVE .DALC SE = SUB# 0,0,SZR ; SKIP EQUAL .DALC SNE= SUB# 0,0,SNR ; SKIP NOT EQUAL .DALC SL = ADCZ# 0,0,SNC ; SKIP LESS .DALC SLE= SUBZ# 0,0,SNC ; SKIP LESS/EQUAL .DALC SG = SUBZ# 0,0,SZC ; SKIP GREATER .DALC SGE= ADCZ# 0,0,SZC ; SKIP GREATER/EQUAL .DALC SIE= ADC# 0,0,SZR ; SKIP INCREMENT EQUAL .DALC SIN= ADC# 0,0,SNR ; SKIP INCREMENT NOT EQUAL .DALC LZ = SUB 0,0 ; LOAD ZERO .DALC LO = SUBZL 0,0 ; LOAD ONE .DALC LOC= ADC 0,0 ; LOAD ONE COMPLEMENT .DALC LC = SUBCL 0,0 ; LOAD CARRY «ff» ; USER DESCRIPTION ;******************************************************** ;******************************************************** ; N O T E ! ; WHEN NEW ITEMS ARE INSERTED BETWEEN U.DVS AND U.LAS, ; THEY WILL BE SAVED, WHEN BASIC-PROGRAM ARE SAVED ; IN BINARY FORMAT ; ;******************************************************** ;******************************************************** .DUSR U.CH = UBASE ; .DUSR U.UCH = U.CH+1 ; USER CHANNELS (8. WORDS) .DUSR U.OBC = U.UCH+8. ; BYTE POINTER TO EDIT AREA ; IN PROGRAM SEGMENT .DUSR U.PBC = U.OBC+1 ; PROGRAM BYTE COUNTER .DUSR U.ESC = U.PBC+1 ; ESCAPE MEET (BATCH) .DUSR U.OCC = U.ESC+1 ; OUTPUT CHARACTER COUNT (USED BY PRINT) .DUSR U.PRT = U.OCC+1 ; PROTECT MASK .DUSR U.WXP = U.PRT+1 ; .DUSR U.LLN = U.WXP+1 ; LARGEST LINE NUMBER .DUSR U.STK = U.LLN+1 ; STARTADDR OF WORKSTACK .DUSR U.ST1 = U.STK+1 ; STACKPOINTER 1 .DUSR U.ST2 = U.ST1+1 ; STACKPOINTER 2 .DUSR U.T1 = U.ST2+1 ; TEMPORARY 1 .DUSR U.T2 = U.T1+1 ; TEMPORARY 2 .DUSR U.TS1 = U.T2+1 ; .DUSR U.TS2 = U.TS1+1 ; .DUSR U.TS3 = U.TS2+1 ; .DUSR U.TS4 = U.TS3+1 ; .DUSR U.TS5 = U.TS4+1 ; .DUSR U.TX = U.TS5+1 ; .DUSR U.TX2 = U.TX+1 ; .DUSR U.TX3 = U.TX2+1 ; .DUSR U.SA0 = U.TX3+1 ; .DUSR U.SA1 = U.SA0+1 ; .DUSR U.SA2 = U.SA1+1 ; .DUSR U.SA3 = U.SA2+1 ; .DUSR U.SA4 = U.SA3+1 ; .DUSR U.SA5 = U.SA4+1 ; .DUSR U.SA6 = U.SA5+1 ; .DUSR U.SA7 = U.SA6+1 ; .DUSR U.SA8 = U.SA7+1 ; .DUSR U.SA9 = U.SA8+1 ; .DUSR U.EV0 = U.SA9+1 ; .DUSR U.EV1 = U.EV0+1 ; .DUSR U.EV2 = U.EV1+1 ; .DUSR U.EV3 = U.EV2+1 ; .DUSR U.EV4 = U.EV3+1 ; .DUSR U.EV5 = U.EV4+1 ; .DUSR U.EV6 = U.EV5+1 ; .DUSR U.EV7 = U.EV6+1 ; .DUSR U.AS0 = U.EV7+1 ; .DUSR U.AS1 = U.AS0+1 ; «ff» .DUSR U.CPA = U.AS1+1 ; ADMINISTRATION OF CPASS-CALLS .DUSR U.DT0 = U.CPA+1 ; DATA-TEMP 0 .DUSR U.DT1 = U.DT0+1 ; DATA-TEMP 1 .DUSR U.DT2 = U.DT1+1 ; DATA-TEMP 2 .DUSR U.BT1 = U.DT2+1 ; TIME LIMIT ON .DUSR U.BT2 = U.BT1+1 ; BATCH JOBS .DUSR U.DET = U.BT2+1 ; DETERMINANT .DUSR U.PRV = U.DET+3 ; LAST CHARACTER READ .DUSR U.ERN = U.PRV+1 ; LAST ERROR CODE .DUSR U.NFI = U.ERN+1 ; NUMBER OF FILE I/O STATEMENTS .DUSR U.FIL = U.NFI+1 ; LAST FILE OPENED .DUSR U.AU1 = U.FIL+1 ; CURRENT LINE NUMBER .DUSR U.AU2 = U.AU1+1 ; LINEINCREMENT (IN AUTO MODE) .DUSR U.PAS = U.AU2+1 ; PROGRAM SEGMENT LENGTH .DUSR U.DAS = U.PAS+1 ; DATA SEGMENT LENGTH ; U.DVS: FIRST WORD OF SAVED-USERDESCRIP. ; *********************************** .DUSR U.DVS = U.DAS+1 ; START OF VARIABLE DATA STORAGE .DUSR U.NPS = U.DVS+1 ; ADDR OF NEXT PROGRAM STATEMENT .DUSR U.CPS = U.NPS+1 ; ADDR OF CURRENT PROGRAM STATEMENT .DUSR U.TLL = U.CPS+1 ; TERMINAL LINE LENGTH .DUSR U.TTS = U.TLL+1 ; TERMINAL TAB SIZE .DUSR U.BAS = U.TTS+1 ; LOWER BOUND OF ARRAYS .DUSR U.DIG = U.BAS+1 ; NUMBER OF DIGITS IN PRINT .DUSR U.RAN = U.DIG+1 ; RANDOM NUMBER .DUSR U.CDL = U.RAN+1 ; CURRENT DATA LINE - POINTER .DUSR U.CDB = U.CDL+1 ; CURRENT DATA BYTE - POINTER .DUSR U.ESA = U.CDB+1 ; "ON-ESC" ADDRESS .DUSR U.ERA = U.ESA+1 ; "ON-ERR" ADDRESS .DUSR U.CAS = U.ERA+1 ; CASE DEPT .DUSR U.LAS = U.CAS+3 ; LENGTH OF USER DESCRIPTION ; U.LAS: LAST WORD OF SAVED USERDESCRIPTION ; ***************************************** «ff» ; SYMBOLS THAT MAY BE USED IN CALL-ROUTINES: .DUSR U.S00 = U.ST1 ; .DUSR U.S01 = U.ST2 ; .DUSR U.S02 = U.T1 ; .DUSR U.S03 = U.T2 ; .DUSR U.S04 = U.TS1 ; .DUSR U.S05 = U.TS2 ; .DUSR U.S06 = U.TS3 ; .DUSR U.S07 = U.TS4 ; .DUSR U.S08 = U.TS5 ; .DUSR U.S09 = U.TX ; .DUSR U.S10 = U.TX2 ; .DUSR U.S11 = U.TX3 ; .DUSR U.S12 = U.SA0 ; .DUSR U.S13 = U.SA1 ; .DUSR U.S14 = U.SA2 ; .DUSR U.S15 = U.SA3 ; .DUSR U.S16 = U.SA4 ; .DUSR U.S17 = U.SA5 ; .DUSR U.S18 = U.SA6 ; .DUSR U.S19 = U.SA7 ; .DUSR U.S20 = U.SA8 ; .DUSR U.S21 = U.SA9 ; .DUSR U.S22 = U.EV0 ; .DUSR U.S23 = U.EV1 ; .DUSR U.S24 = U.EV2 ; .DUSR U.S25 = U.EV3 ; .DUSR U.S26 = U.EV4 ; .DUSR U.S27 = U.EV5 ; .DUSR U.S28 = U.EV6 ; .DUSR U.S29 = U.EV7 ; .DUSR ARRAY = 1B9 ; .DUSR REFERENCE= 1B0 ; .DUSR REAL = 0 ; .DUSR STRING = 3 ; «ff» ; PROGRAM SEGMENT DESCRIPTION .DUSR P = 0 ; START OF SEGMENT .DUSR PEL = P ; EDIT AREA (66 WORDS) .DUSR PEP = PEL+66. ; PROGRAM AREA .DUSR MPSL = PEP .DUSR VNLEN= 4 ; VARIABLE NAME LENGTH ; DATA SEGMENT DESCRIPTION .DUSR D = 0 ; START OF SEGMENT .DUSR DFD = D ; FUNCTION TABLE (29 WORDS) .DUSR DGS = DFD+29. ; GOSUB-STACK (8 WORDS) .DUSR DRU = DGS+8. ; REPEAT-UNTIL-STACK (8 WORDS) .DUSR DWH = DRU+8. ; WHILE-DO-STACK (8 WORDS) .DUSR DIF = DWH+8. ; IF-THEN-STACK (8 WORDS) .DUSR DFN = DIF+8. ; FOR-NEXT-STACK (NORMAL PREC.: 43 WORDS ; EXTENDED PREC.: 50 WORDS) .DUSR NDVN = DFN+43. ; VARIABEL NAME TABLE (NORMAL PRECISION) .DUSR EDVN = DFN+57. ; - (EXTENDED PRECISION) .DUSR PSEG=.0 .DUSR DSEG=.1 .DUSR .DSEG=1 .DUSR .PSEG=0 «ff» ; MACRO DEFINITIONS USED IN RC BASIC CALL-ROUTINES .NREL .RDX 10 ; RADIX 10 .TXTM 1 ; PACKED FROM LEFT TO RIGHT ; DEFINITION OF CALL OF BASIC-PROCEDURES FOR ; FLOATING OPERATIONS AND I/O-ERRORS ; GENEREL FORMAT: BCALL <NAME> ; <NAME> ::= FIX/FLOAT/FADD/FSUB/FMPY/FDIV/IMPY/IMPYA/IDIV/IOERR .MACRO BCALL ** ** .PUSH .NOCON ** .NOCON 1 ** ** FIX= -1 ** FLOAT= FIX-1 ** FADD= FLOAT-1 ** FSUB= FADD-1 ** FMPY= FSUB-1 ** FDIV= FMPY-1 ** IMPY= FDIV-1 ** IMPYA= IMPY-1 ** IDIV= IMPYA-1 ** IOERR= IDIV-1 ** ** .DO ^1==FIX LDA 3 U.S21,3 JSR@ +0,3 ** .ENDC OK ** ** .DO ^1==FLOAT LDA 3 U.S21,3 JSR@ +1,3 ** .ENDC OK ** ** .DO ^1==FADD LDA 3 U.S21,3 JSR@ +2,3 ** .ENDC OK ** ** .DO ^1==FSUB LDA 3 U.S21,3 JSR@ +3,3 ** .ENDC OK ** ** .DO ^1==FMPY LDA 3 U.S21,3 JSR@ +4,3 ** .ENDC OK **«ff» ** ** .DO ^1==FDIV LDA 3 U.S21,3 JSR@ +5,3 ** .ENDC OK ** ** .DO ^1==IMPY LDA 3 U.S21,3 JSR@ +6,3 ** .ENDC OK ** ** .DO ^1==IMPYA LDA 3 U.S21,3 JSR@ +7,3 ** .ENDC OK ** ** .DO ^1==IDIV LDA 3 U.S21,3 JSR@ +8,3 ** .ENDC OK ** ** .DO ^1==IOERR LDA 3 U.S21,3 JSR@ +9,3 ** .ENDC OK ** ** .PUSH .NOMAC ** .NOMAC 0 ** ;*************************************** ; ; ERROR, UNKNOWN: ^1 ; ;*************************************** ** .NOMAC .POP **ÆOKÅ ** .NOCON .POP % «ff» ; DEFINITION OF PROGRAMHEAD (PRDE1) AND ; PROCESS DESCRIPTION (PRDE2) .MACRO PRDE1 .TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01 .NREL .RDX 10 ; RADIX 10 .TXTM 1 ; PACKED FROM LEFT TO RIGHT .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTES PP00: ; PROGRAM START 1B0+1B15 ; DESCRIPTOR PP05 ; START 0 ; CHAIN PP10-PP00 ; SIZE ** .PUSH .NOCON ** .NOCON 1 ** .DO '^1'=='RC' .TXT .RCALL. ; NAME ** .ENDC ELSE .TXT .UCALL. ; NAME ** ÆELSEÅ ** .NOCON .POP PP05: ; STOPPROCESS ; JMP PP05 ; % «ff» .MACRO PRDE2 ** .PUSH .NOCON ** .NOCON 1 PP10: ; PROCESSDESCRIPTOR: 0 ; NEXT 0 ; PREV 0 ; CHAIN PP15-PP10 ; SIZE ** .DO '^1'=='RC' .TXT .RCALL. ; NAME ** .ENDC ELSE .TXT .UCALL. ; NAME ** ÆELSEÅ .+0 ; FIRST EVENT .-1 ; LAST EVENT 0 ; BUFFE PP00 ; PROGRAM 0 ; STATE 0 ; TIMER 1 ; PRIORITY PP05 ; BREAK PP10 ; AC0 0 ; AC1 PP10 ; AC2 0 ; AC3 PP05*2 ; PSW 0 ; SAVE PP15: ; .END PP10 ** .NOCON .POP % .EOT «ff» «nul»