|
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: 31744 (0x7c00)
Types: TextFile
Names: »MGET«
└─⟦d3919da1e⟧ Bits:30001784 SG0004 Floppy
└─ ⟦this⟧ »/MGET«
«ff»
0001 UCA01 DOMUS MACRO ASSEMBLER REV 02.00
01
02 PRDE1
03
.TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01
05 .NREL
06 000012 .RDX 10 ; RADIX 10
07 000001 .TXTM 1 ; PACKED FROM LEFT TO RIGHT
08 000001 .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTES
09
10 PP00: ; PROGRAM START
11 00000'100001 1B0+1B15 ; DESCRIPTOR
12 00001'000007' PP05 ; START
13 00002'000000 0 ; CHAIN
14 00003'000064 PP10-PP00 ; SIZE
15 00004'052503 .TXT .UCALL. ; NAME
16 040514
17 046000
18
19 PP05: ;
20 00007'006013 STOPPROCESS ;
21 00010'000777 JMP PP05 ;
22
23 00011'000016'GET00
24 00012'043505 .TXT "GETT<0><0><0><0>"
25 052124
26 000000
27 000000
28 00016'000001 GET00: 1 ; CALLRUTINE INDTASTET FRA BASIC
29 00017'100003 STRING+REFERENCE ; 1 TEKST VARIABEL
30 00020'034017 LDA 3,USER ; AC3=ADRESSE PÅ TEKST STRENG
31 00021'023467 LDA @ 0,U.STK,3 ; ADRESSE PÅ 1. WORD
32 00022'040441 STA 0,TXADR ; TXADR=AC0=ADRESSEN PÅ TEKSTEN
33 00023'152520 SUBZL 2,2 ; AC2=1
34 00024'153020 ADDZ 2,2 ; AC2=AC2+AC2=2
35 00025'157000 ADD 2,3 ; AC3=AC2+AC3=WORD 3.'S ADRESSE
36 00026'023467 LDA @ 0,U.STK,3 ; AC0=ADRESSEN PÅ 3. WORD
37 00027'040433 STA 0,TLADR ; AC0=ADRESSEN PÅ LÆNGDEN AF TEKST STRENG
38 00030'152420 SUBZ 2,2 ; AC2=0
39 00031'034431 LDA 3,TLADR ; AC3=TLADR
40 00032'050430 STA 2,TLADR ; TLADR=AC2=0
41 00033'051400 STA 2,0,3 ; ADRESSE=0+AC3 INDHOLD AF ADRESSE=AC2=0
42 00034'034017 LDA 3,USER ; AC3=ADRESSE PÅ TEKST
43 00035'021442 LDA 0,PIO,3 ; TERM. ADR PIO=PRIMARY INPUT?OUTPUT
44 00036'030040 LDA 2,CUR ; AC2=CUR
45 00037'007115 F.ICHAR ; FUNKTION INPUT CHARATHER
46 00040'000416 JMP +14,1 ; GOTO 13 LÆNGERE END HER/ADRESSE
47 00041'127015 ADD # 1,1 SNR ; SKIP IF NOT ZERO RESULT #=OPERATION IKK
48 00042'002241 RET0 ; FÆRDIG END GÅT TILBAGE TIL COMAL
49 00043'102420 SUBZ 0,0 ; AC0=AC0-AC0=0
50 00044'040405 STA 0,5,1 ; AC0=4+ADR=0 !?!
51 00045'020001 LDA 0,1 ; AC0=AC1
52 00046'024415 LDA 1,TXADR ; AC1=TXADR
53 00047'024414 LDA 1,TXADR ; AC1=TXADR
54 00050'007104 A.PBYTE ; 1. BYTE PÅ ADRESSE
55 00051'000000 0 ; DATASEGMENT
56 00052'102520 SUBZL 0,0 ; AC0=1
57 00053'024407 LDA 1,TLADR ; AC1=TLADR=TEKST LÆNGDE ADRESSE
58 00054'040001 STA 0,1 ; AC0=1
59 00055'002241 RET0 ; FÆRDIG GÅR TILBAGE TIL COMAL/BASIC
60 00056'050402 STA 2,+2,1 ; AC2=2 LÆNGERE NEDE END HER/ADR
«ff»
0002 UCA01
01 00057'006244 ERROR ; FEJL (GÅET HERTIL OVENFRA)
02 00060'000000 0 ; HVILKET FJELNUMMER
03 00061'002241 RET0 ; GÅR TILBAGE TIL COMAL/BASIC
04
05 00062'000000 TLADR: 0
06 00063'000000 TXADR: 0
07 PRDE2
08
09 PP10: ; PROCESSDESCRIPTOR:
10 00064'000000 0 ; NEXT
11 00065'000000 0 ; PREV
12 00066'000000 0 ; CHAIN
13 00067'000025 PP15-PP10 ; SIZE
14 00070'052503 .TXT .UCALL. ; NAME
15 040514
16 046000
17 00073'000073' .+0 ; FIRST EVENT
18 00074'000073' .-1 ; LAST EVENT
19 00075'000000 0 ; BUFFE
20 00076'000000' PP00 ; PROGRAM
21 00077'000000 0 ; STATE
22 00100'000000 0 ; TIMER
23 00101'000001 1 ; PRIORITY
24 00102'000007' PP05 ; BREAK
25 00103'000064' PP10 ; AC0
26 00104'000000 0 ; AC1
27 00105'000064' PP10 ; AC2
28 00106'000000 0 ; AC3
29 00107'000016" PP05*2 ; PSW
30 00110'000000 0 ; SAVE
31
32 PP15: ;
33 .END PP10
0000 SOURCE LINES IN ERROR
«ff»
0003 UCA01
AC0 000017 PS
AC1 000020 PS
AC2 000021 PS
AC3 000022 PS
ACORE 000030 PS
ADC 102000 PS
ADD 103000 PS 1/35 1/47
ADDRE 000026 PS
AFIRS 000065 PS
ALCOR 000060 PS
AND 103400 PS
AREAP 000064 PS
ARRAY 000100 PS
A.EXT 007074 PS
A.GBY 007100 PS
A.GDO 007102 PS
A.GTR 007103 PS
A.GWO 007101 PS
A.PBY 007104 PS 1/54
A.PDO 007106 PS
A.PTR 007107 PS
A.PWO 007105 PS
A.REL 007077 PS
A.RES 007076 PS
A.TRU 007075 PS
BINDE 006232 PS
BIT 000101 PS
BREAD 000016 PS
BREAK 006012 PS
BSIZE 000012 PS
BUF 000025 PS
BUFFE 000011 PS
CAC1S 000004 PS
CALL 006240 PS
CATDE 000032 PS
CBUFF 000054 PS
CCONV 000115 PS
CCORO 000041 PS
CDELA 006334 PS
CDEVI 000050 PS
CDISC 000112 PS
CDUMP 000077 PS
CERAS 000111 PS
CEXIT 000001 PS
CHAIN 000002 PS
CHANG 006350 PS
CIDEN 177777 PS
CIN 000043 PS
CLATO 000002 PS
CLEAN 006011 PS
CLEAR 100166 PS
CLINT 000032 PS
CLOSE 006220 PS
COM 100000 PS
COMLI 000362 PS
COMNO 000363 PS
COMON 006354 PS
CONBY 006173 PS
CONVT 000031 PS
CORE 000361 PS
«ff»
0004 UCA01
CORES 000070 PS
COROU 000017 PS
COUNT 000027 PS
COUT 000044 PS
CPASS 006345 PS
CPOSI 000113 PS
CPRIN 006341 PS
CPU 000077 PS
CPUTY 000100 PS
CREAT 006346 PS
CRESE 000116 PS
CRETU 000003 PS
CSEND 006364 PS
CSTAR 000061 PS
CTERM 000114 PS
CTEST 006340 PS
CTOP 000062 PS
CTOUT 006342 PS
CUDEX 000053 PS
CUR 000040 PS 1/44
CUR2 000112 PS
CURCA 000031 PS
CURZ 000037 PS
CWANS 006337 PS
CWRK0 000037 PS
CWRK1 000040 PS
CWRK2 000041 PS
C.CHA 007140 PS
C.CRE 007136 PS
C.REM 007137 PS
D 000000 PS
DECBI 006233 PS
DELAY 000061 PS
DEVTA 000370 PS
DFD 000000 PS
DFN 000075 PS
DGS 000035 PS
DIA 060400 PS
DIB 061400 PS
DIC 062400 PS
DIF 000065 PS
DIV 073101 PS
DIVID 006177 PS
DOA 061000 PS
DOB 062000 PS
DOC 063000 PS
DRU 000045 PS
DSEG 000120 PS
DSZ 014000 PS
DWH 000055 PS
EDVN 000147 PS
EFIRS 000057 PS
ERROR 006244 PS 2/01
EVENT 000007 PS
EXECU 006240 PS
EXIT 000056 PS
FCSTA 000065 PS
FCTOP 000066 PS
FFIRS 000060 PS
FREE 000063 PS
«ff»
0005 UCA01
FREEC 006333 PS
FREES 006210 PS
FREQU 000066 PS
F.BAC 007117 PS
F.CAT 007124 PS
F.CHA 007123 PS
F.CHE 007120 PS
F.CLO 007131 PS
F.CRE 007125 PS
F.DEL 007126 PS
F.ICH 007115 PS 1/45
F.LOO 007130 PS
F.OBL 007114 PS
F.OCH 007112 PS
F.OTE 007113 PS
F.PRE 007121 PS
F.REL 007111 PS
F.REN 007127 PS
F.RES 007110 PS
F.SET 007116 PS
F.WAI 007122 PS
GET00 000016' 1/23 1/28
GETAD 006357 PS
GETBY 006174 PS
GETPO 006360 PS
GETRE 006200 PS
GOS 006000 PS
GOT 002000 PS
GOTO 006356 PS
HACTI 000043 PS
HALT 063077 PS
HANSW 000044 PS
HDELA 000045 PS
IEQ 102415 PS
IGR 102433 PS
ILS 102032 PS
INBLO 006205 PS
INC 101400 PS
INCHA 006207 PS
INE 102414 PS
ING 102432 PS
INITC 006352 PS
INL 102033 PS
INNAM 006223 PS
INTA 061477 PS
INTBR 000230 PS
INTDS 060277 PS
INTEN 060177 PS
INTGI 000226 PS
INTPR 006225 PS
IORST 062677 PS
ISTAC 000024 PS
ISZ 010000 PS
ITIME 000030 PS
JMP 000000 PS 1/21 1/46
JSR 004000 PS
LATIM 000042 PS
LC 102560 PS
LDA 020000 PS 1/30 1/31 1/36 1/39 1/42 1/43 1/44
1/51 1/52 1/53 1/57
«ff»
0006 UCA01
LO 102520 PS
LOC 102000 PS
LOOKU 006347 PS
LZ 102400 PS
M 000040 PS
MASK 000067 PS
MAXCO 000072 PS
MAXUS 000071 PS
MBREA 000016 PS
MCORO 000052 PS
MENTR 000074 PS
MESS0 000006 PS
MESS1 000007 PS
MESS2 000010 PS
MESS3 000011 PS
MEXIT 000017 PS
MONIT 000054 PS
MOV 101000 PS
MOVE 006224 PS
MPMSK 000015 PS
MPSL 000102 PS
MSAC0 000020 PS
MSAC1 000021 PS
MSAC2 000022 PS
MSAC3 000023 PS
MSEM 000051 PS
MSKO 062077 PS
MTERM 000057 PS
MUL 073301 PS
MULTI 006176 PS
MZSTA 000234 PS
M.CLO 007144 PS
M.EXC 007151 PS
M.FRE 007141 PS
M.INC 007150 PS
M.INI 007145 PS
M.LOC 007146 PS
M.LOO 007143 PS
M.NEW 007142 PS
M.USE 007147 PS
NAME 000004 PS
NDVN 000140 PS
NEG 100400 PS
NEWCA 006332 PS
NEXT 000000 PS
NEXTO 006164 PS
NIO 060000 PS
O 000025 PS
OP 000034 PS
OPEN 006221 PS
OPMAS 177776 PS
OUTBL 006206 PS
OUTCH 006212 PS
OUTEN 006214 PS
OUTNL 006213 PS
OUTOC 006216 PS
OUTSP 006211 PS
OUTTE 006215 PS
P 000000 PS
PC 000033 PS
«ff»
0007 UCA01
PCWSI 000006 PS
PEL 000000 PS
PEP 000102 PS
PFIRS 000052 PS
PIO 000042 PS 1/43
POWIN 000076 PS
PP00 000000' 1/10 1/14 2/20
PP05 000007' 1/12 1/19 1/21 2/24 2/29
PP10 000064' 1/14 2/09 2/13 2/25 2/27 2/33
PP15 000111' 2/13 2/32
PRDE1 000211 MC 1/02
PRDE2 000276 MC 2/07
PREV 000001 PS
PRIOR 000015 PS
PROCE 000054 PS
PROG 000012 PS
PROGR 000071 PS
PSEG 000055 PS
PSPEC 000000 PS
PSTAR 000001 PS
PSW 000023 PS
PUTBY 006175 PS
PUTRE 006201 PS
PWSIZ 000014 PS
R 000032 PS
READS 060477 PS
REAL 000000 PS
RECEI 000005 PS
RECHA 006015 PS
REFER 100000 PS 1/29
REMOV 006351 PS
RESER 000030 PS
RET0 002241 PS 1/48 1/59 2/03
RET1 002242 PS
RET2 002243 PS
RETUR 006165 PS
RTIME 000074 PS
RUNNI 000054 PS
SADDR 000002 PS
SAVE 000024 PS
SAVE1 000025 PS
SAVE2 000026 PS
SAVE3 000027 PS
SAVE4 000030 PS
SAVE5 000031 PS
SBLOC 000111 PS
SBN 000007 PS
SBUSY 000103 PS
SCOUN 000001 PS
SDATA 000112 PS
SDEV1 000104 PS
SDEV2 000105 PS
SDEV3 000106 PS
SDISC 000101 PS
SE 102414 PS
SEARC 006010 PS
SEM 000114 PS
SENDA 006007 PS
SENDE 000004 PS
SENDM 006004 PS
«ff»
0008 UCA01
SEOF 000110 PS
SEQ 102414 PS
SETCO 006172 PS
SETEN 006353 PS
SETIN 006170 PS
SETPO 006217 PS
SETRE 006171 PS
SEZ 000006 PS
SFIRS 000006 PS
SG 102432 PS
SGE 102032 PS
SGR 102432 PS
SIE 102014 PS
SIGCH 006344 PS
SIGGE 006365 PS
SIGNA 006343 PS
SILLE 000107 PS
SIN 102015 PS
SIZE 000003 PS
SKP 000001 PS
SKPBN 063400 PS
SKPBZ 063500 PS
SKPDN 063600 PS
SKPDZ 063700 PS
SL 102033 PS
SLE 102433 PS
SLS 102033 PS
SN 101113 PS
SNC 000003 PS
SNE 102415 PS
SNEXT 000004 PS
SNG 102433 PS
SNL 102032 PS
SNR 000005 PS 1/47
SNZ 101015 PS
SOFFL 000102 PS
SOPER 000000 PS
SP 101112 PS
SPARI 000113 PS
SSIZE 000007 PS
SSPEC 000003 PS
SSTAT 000005 PS
STA 040000 PS 1/32 1/37 1/40 1/41 1/50 1/58 1/60
START 006014 PS
STATE 000013 PS
STIME 000117 PS
STLEV 000026 PS
STMAX 000027 PS
STOPP 006013 PS 1/20
STRIN 000003 PS 1/29
STTIM 000013 PS
STTOP 000025 PS
SUB 102400 PS
SYCDR 000056 PS
SYLIB 000064 PS
SYLPT 000055 PS
SZ 101014 PS
SZC 000002 PS
SZR 000004 PS
TABLE 000045 PS
«ff»
0009 UCA01
TIMER 000014 PS
TLADR 000062' 1/37 1/39 1/40 1/57 2/05
TLENG 000036 PS
TOPDE 000464 PS
TOPTA 000046 PS
TRANS 006204 PS
TRECO 000047 PS
TRETU 000046 PS
TXADR 000063' 1/32 1/52 1/53 2/06
T.ALL 007133 PS
T.DAT 007132 PS
T.SEC 007134 PS
T.TIM 007135 PS
UBASE 000047 PS
USER 000017 PS 1/30 1/42
USERS 000073 PS
U.AS0 000126 PS
U.AS1 000127 PS
U.AU1 000145 PS
U.AU2 000146 PS
U.BAS 000156 PS
U.BT1 000134 PS
U.BT2 000135 PS
U.CAS 000165 PS
U.CDB 000162 PS
U.CDL 000161 PS
U.CH 000047 PS
U.CPA 000130 PS
U.CPS 000153 PS
U.DAS 000150 PS
U.DET 000136 PS
U.DIG 000157 PS
U.DT0 000131 PS
U.DT1 000132 PS
U.DT2 000133 PS
U.DVS 000151 PS
U.ERA 000164 PS
U.ERN 000142 PS
U.ESA 000163 PS
U.ESC 000062 PS
U.EV0 000116 PS
U.EV1 000117 PS
U.EV2 000120 PS
U.EV3 000121 PS
U.EV4 000122 PS
U.EV5 000123 PS
U.EV6 000124 PS
U.EV7 000125 PS
U.FIL 000144 PS
U.LAS 000170 PS
U.LLN 000066 PS
U.NFI 000143 PS
U.NPS 000152 PS
U.OBC 000060 PS
U.OCC 000063 PS
U.PAS 000147 PS
U.PBC 000061 PS
U.PRT 000064 PS
U.PRV 000141 PS
U.RAN 000160 PS
«ff»
0010 UCA01
U.S00 000070 PS
U.S01 000071 PS
U.S02 000072 PS
U.S03 000073 PS
U.S04 000074 PS
U.S05 000075 PS
U.S06 000076 PS
U.S07 000077 PS
U.S08 000100 PS
U.S09 000101 PS
U.S10 000102 PS
U.S11 000103 PS
U.S12 000104 PS
U.S13 000105 PS
U.S14 000106 PS
U.S15 000107 PS
U.S16 000110 PS
U.S17 000111 PS
U.S18 000112 PS
U.S19 000113 PS
U.S20 000114 PS
U.S21 000115 PS
U.S22 000116 PS
U.S23 000117 PS
U.S24 000120 PS
U.S25 000121 PS
U.S26 000122 PS
U.S27 000123 PS
U.S28 000124 PS
U.S29 000125 PS
U.SA0 000104 PS
U.SA1 000105 PS
U.SA2 000106 PS
U.SA3 000107 PS
U.SA4 000110 PS
U.SA5 000111 PS
U.SA6 000112 PS
U.SA7 000113 PS
U.SA8 000114 PS
U.SA9 000115 PS
U.ST1 000070 PS
U.ST2 000071 PS
U.STK 000067 PS 1/31 1/36
U.T1 000072 PS
U.T2 000073 PS
U.TLL 000154 PS
U.TS1 000074 PS
U.TS2 000075 PS
U.TS3 000076 PS
U.TS4 000077 PS
U.TS5 000100 PS
U.TTS 000155 PS
U.TX 000101 PS
U.TX2 000102 PS
U.TX3 000103 PS
U.UCH 000050 PS
U.WXP 000065 PS
VNLEN 000004 PS
WAIT 006002 PS
WAITA 006005 PS
«ff»
0011 UCA01
WAITC 006336 PS
WAITE 006006 PS
WAITG 006366 PS
WAITI 006003 PS
WAITO 006167 PS
WAITS 006335 PS
WAITT 006202 PS
WAITZ 006222 PS
Z 000032 PS
Z0 000024 PS
Z1 000025 PS
Z2 000026 PS
Z3 000027 PS
Z4 000030 PS
Z5 000031 PS
ZAUX 000006 PS
ZBLOC 000011 PS
ZBUFF 000013 PS
ZCONV 000012 PS
ZFILE 000010 PS
ZFIRS 000017 PS
ZFORM 000015 PS
ZGIVE 000007 PS
ZKIND 000005 PS
ZLENG 000016 PS
ZMASK 000006 PS
ZMODE 000004 PS
ZN 000041 PS
ZNAME 000000 PS
ZREM 000023 PS
ZSHAR 000022 PS
ZSIZE 000014 PS
ZTOP 000020 PS
ZUSED 000021 PS
.0 000055 PS
.1 000120 PS
.10 000126 PS
.1024 000106 PS
.12 000127 PS
.120 000141 PS
.127 000142 PS
.128 000111 PS
.13 000130 PS
.15 000131 PS
.16 000114 PS
.1638 000102 PS
.1B0 000101 PS
.1B1 000102 PS
.1B10 000113 PS
.1B11 000114 PS
.1B12 000115 PS
.1B13 000116 PS
.1B14 000117 PS
.1B15 000120 PS
.1B2 000103 PS
.1B3 000104 PS
.1B4 000105 PS
.1B5 000106 PS
.1B6 000107 PS
.1B7 000110 PS
«ff»
0012 UCA01
.1B8 000111 PS
.1B9 000112 PS
.2 000117 PS
.2048 000105 PS
.24 000132 PS
.25 000133 PS
.255 000143 PS
.256 000110 PS
.3 000121 PS
.32 000113 PS
.3276 000101 PS
.4 000116 PS
.40 000134 PS
.4096 000104 PS
.48 000135 PS
.5 000122 PS
.512 000107 PS
.56 000136 PS
.6 000123 PS
.60 000137 PS
.63 000140 PS
.64 000112 PS
.7 000124 PS
.8 000115 PS
.8192 000103 PS
.9 000125 PS
.CLEA 002166 PS
.CLOS 002220 PS
.CONB 002173 PS
.CR 000130 PS
.DIVI 002177 PS
.DSEG 000001 PS
.EDOC 000124 PS
.EVEN 000124 PS
.FF 000127 PS
.FREE 002210 PS
.GETB 002174 PS
.GETR 002200 PS
.INBL 002205 PS
.INCH 002207 PS
.LF 000126 PS
.M16 000146 PS
.M256 000147 PS
.M3 000144 PS
.M4 000145 PS
.MESS 000123 PS
.MULT 002176 PS
.NAME 000116 PS
.NEXT 002164 PS
.NL 000126 PS
.OPEN 002221 PS
.OPER 000035 PS
.OUTB 002206 PS
.OUTC 002212 PS
.OUTE 002214 PS
.OUTN 002213 PS
.OUTO 002216 PS
.OUTS 002211 PS
.OUTT 002215 PS
.PSEG 000000 PS
«ff»
0013 UCA01
.PUTB 002175 PS
.PUTR 002201 PS
.REPE 002203 PS
.RETU 002165 PS
.RTC 000127 PS
.SETC 002172 PS
.SETI 002170 PS
.SETP 002217 PS
.SETR 002171 PS
.SSIZ 000124 PS
.TRAN 002204 PS
.WAIT 002202 PS
.Z 000150 PS
«ff»
«eof»