|
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: 15872 (0x3e00)
Types: TextFile
Names: »CALF5«
└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
└─⟦this⟧
«ff»
0001 UCA01 DOMUS MACRO ASSEMBLER REV 02.00
01 ; CALLRUTINE FINDTEGN PL. P-H. HANS RUNE SVEND MF.
02 ; 10.09.81 16.40.00
03 ;
04 PRDE1
05
.TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01
07 .NREL
08 000012 .RDX 10 ; RADIX 10
09 000001 .TXTM 1 ; PACKED FROM LEFT TO RIGHT
10 000001 .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTES
11
12 PP00: ; PROGRAM START
13 00000'100001 1B0+1B15 ; DESCRIPTOR
14 00001'000007' PP05 ; START
15 00002'000000 0 ; CHAIN
16 00003'000331 PP10-PP00 ; SIZE
17 00004'052503 .TXT .UCALL. ; NAME
18 040514
19 046000
20
21 PP05: ;
22 00007'006013 STOPPROCESS ;
23 00010'000777 JMP PP05 ;
24
25
26 00011'000242'FINDT
27 00012'043111 .TXT "FINDTEGN"
28 047104
29 052105
30 043516
31
32 ; SUBRUTINETABEL
33
34
35 00016'000050'GME00 ; GMEM-ADRESSE
36 00017'043515 .TXT "GMEM<0><0><0><0>" ; NAVN
37 042515
38 000000
39 000000
40
41
42 00023'000110'KSP00
43 00024'045517 .TXT "KODESPEC"
44 042105
45 051520
46 042503
47
48 00030'000115'SME00
49 00031'051515 .TXT "SMEM<0><0><0><0>"
50 042515
51 000000
52 000000
53
54 00035'000144'FIX00
55 00036'043111 .TXT "FIX<0><0><0><0><0>"
56 054000
57 000000
58 000000
59
60 00042'000203'FLO00
«ff»
0002 UCA01
01 00043'043114 .TXT "FLOAT<0><0><0>"
02 047501
03 052000
04 000000
05
06 00047'000000 0
07 00050'000002 GME00: 2
08 00051'000000 REAL
09 00052'100000 REAL+REFERENCE
10 00053'031000 LDA 2,+0,2 ; AC1=A-ADRESSE
11 00054'006240 EXECUTE
12 00055'000072' GSM00
13 00056'002242 RET1
14 00057'025000 LDA 1,+0,2 ; JA: AC1=INDHOLD AF ADRESSE
15 BCALL FLOAT ; AC1 -> KOMMATAL
16 00060'035515 LDA 3 U.S21,3
17 00061'007401 JSR@ +1,3
18 00062'031467 LDA 2,U.STK,3
19 00063'033001 LDA @ 2,+1,2 ; AC2=B-ADRESSE
20 00064'050404 STA 2,GME01 ; GEM B-ADRESSE
21 00065'030040 LDA 2,CUR
22 00066'007106 A.PDOUBLE ; GEM ADRESSEINDHOLD(A) I B
23 00067'000001 1
24 00070'000000 GME01: 0
25 00071'002242 RET1 ; END GMEM
26
27 00072'021000 GSM00: LDA 0,+0,2 ; HENT A
28 00073'025001 LDA 1,+1,2
29 BCALL FIX ; FIX A
30 00074'035515 LDA 3 U.S21,3
31 00075'007400 JSR@ +0,3
32 00076'152220 ADCZR 2,2 ; AC2=1B0-1
33 00077'101005 MOV 0,0,SNR ; 0<=AC1<=1B0-1
34 00100'132433 SNG 1,2
35 00101'000403 JMP ERR90 ; NEJ: ERROR UDSKRIV MEDD.
36 00102'131000 MOV 1,2 ; AC1-->AC2
37 00103'002242 RET1 ; RETURN
38
39 00104'006244 ERR90: ERROR
40 00105'000132 90
41
42 00106'006244 ERR91: ERROR
43 00107'000133 91
44 00110'000000 KSP00: 0
45 00111'060477 READS 0
46 00112'040402 STA 0,KSP01
47 00113'002242 RET1
48 00114'000000 KSP01: 0
49 00115'000002 SME00: 2 ; 2 VARIABLE
50 00116'000000 REAL ; A (=A-ADRESSE)
51 00117'000000 REAL ; B (=DATA)
52 00120'020774 LDA 0,KSP01 ; SE GME00
53 00121'024422 LDA 1,KSP02
54 00122'122404 SUB 1,0,SZR
55 00123'000761 JMP ERR90
56 00124'031001 LDA 2,+1,2 ; AC2(!)=B-ADRESSE
57 00125'021000 LDA 0,+0,2 ; HENT REAL(!) B
58 00126'025001 LDA 1,+1,2
59 BCALL FIX ; FIX B
60 00127'035515 LDA 3 U.S21,3
«ff»
0003 UCA01
01 00130'007400 JSR@ +0,3
02 00131'101004 MOV 0,0,SZR ; 0<=B<=65535 ?
03 00132'000754 JMP ERR91 ; NEJ ERROR-RETURN
04 00133'045470 STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER
05 00134'033467 LDA@ 2,U.STK,3
06 00135'006240 EXECUTE ; EXEC GSM00(A-ADRESSE)
07 00136'000072' GSM00
08 00137'002242 RET1
09 00140'025470 LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B
10 00141'045000 STA 1,+0,2 ; AC1-->ADR.AC2
11 00142'002242 RET1 ; END STOREMEMORY
12 00143'123456 KSP02: 42798
«ff»
!0004 UCA01
01 00144'000003 FIX00: 3
02 00145'100000 REAL+REFERENCE
03 00146'100000 REAL+REFERENCE
04 00147'100000 REAL+REFERENCE
05 00150'102520 SUBZL 0,0 ; AC0=1
06 00151'027000 LDA @ 1,+0,2 ; AC1=A-ADRESSE
07 00152'030040 LDA 2,CUR ; AC2=CUR
08 00153'007102 A.GDOUBLE ; HENT A
09 00154'041470 STA 0,U.S00,3 ; GEM ORD 1 AF A
10 00155'102460 SUBC 0,0 ; AC0=0
11 BCALL FLOAT ; FLOAT ORD2 AF A
12 00156'035515 LDA 3 U.S21,3
13 00157'007401 JSR@ +1,3
14 00160'030040 LDA 2,CUR ; AC2=CUR
15 00161'035467 LDA 3,U.STK,3 ; AC3=F(F(USER)+U.STK)
16 00162'037402 LDA @ 3,+2,3 ; AC3=C-ADRESSE
17 00163'054403 STA 3,FIX01 ; GEM C-ADRESSE
18 00164'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I B
19 00165'000001 1
20 00166'000000 FIX01: 0
21 00167'025470 LDA 1,U.S00,3 ; HENT ORD1 AF A
22 00170'102460 SUBC 0,0 ; AC0=0
23 BCALL FLOAT ; FLOAT ORD1 AF A
24 00171'035515 LDA 3 U.S21,3
25 00172'007401 JSR@ +1,3
26 00173'030040 LDA 2,CUR ; AC2=CUR
27 00174'035467 LDA 3,U.STK,3
28 00175'037401 LDA @ 3,+1,3 ; AC3=B-ADRESSE
29 00176'054403 STA 3,FIX02 ; GEM B-ADRESSE
30 00177'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I C
31 00200'000001 1
32 00201'000000 FIX02: 0
33 00202'002242 RET1 ; END FIX
34 00203'000003 FLO00: 3
35 00204'000000 REAL
36 00205'000000 REAL
37 00206'100000 REAL+REFERENCE
38 00207'031000 LDA 2,+0,2 ; AC1=A-ADRESSE
39 00210'006240 EXECUTE ; EXEC FLO02
40 00211'000232' FLO02
41 00212'002241 RET0 ; HVIS ERROR
42 00213'045470 STA 1,U.S00,3 ; GEM DEL 1 AF C
43 00214'031467 LDA 2,U.STK,3
44 00215'031001 LDA 2,+1,2 ; AC1=B-ADRESSE
45 00216'006240 EXECUTE
46 00217'000232' FLO02
47 00220'002241 RET0
48 00221'021470 LDA 0,U.S00,3 ; HENT DEL 1 AF C
49 00222'031467 LDA 2,U.STK,3
50 00223'033002 LDA @ 2,+2,2 ; AC2=C-ADRESSE
51 00224'050404 STA 2,FLO01 ; GEM C-ADRESSE
52 00225'030040 LDA 2,CUR
53 00226'007106 A.PDOUBLE ; AC0,AC1-->C
54 00227'000001 1
55 00230'000000 FLO01: 0
56 00231'002242 RET1
57 00232'021000 FLO02: LDA 0,+0,2
58 00233'025001 LDA 1,+1,2 ; ** CB RET **
59 BCALL FIX ; LAV OM TIL HELTAL
60 00234'035515 LDA 3 U.S21,3
«ff»
0005 UCA01
01 00235'007400 JSR@ +0,3
02 00236'101005 MOV 0,0,SNR ; 0=<A/B=<32K ???
03 00237'002242 RET1 ; JA: RETURN
04 00240'006244 ERROR ; NEJ: RETURN MED ERROR 90
05 00241'000132 90.
«ff»
!0006 UCA01
01
02 00242'000004 FINDT: 4
03 00243'000003 STRING
04 00244'000003 STRING
05 00245'000000 REAL
06 00246'100000 REAL+REFER
07 00247'025004 LDA 1,4,2 ;HENT S$ WORD ADR.
08 00250'125100 MOVL 1,1 ;BYTE ADR.
09 00251'030040 LDA 2,CUR
10 00252'020120 LDA 0,80
11 00253'007100 A.GBYTE
12 00254'041471 STA 0,U.S01,3 ;FØRSTE CHR. AF S$
13 00255'031467 LDA 2,U.STK,3
14 00256'021012 LDA 0,+10,2 ;HENT START INDEKS
15 00257'025013 LDA 1,+11,2
16 BCALL FIX
17 00260'035515 LDA 3 U.S21,3
18 00261'007400 JSR@ +0,3
19 00262'101004 MOV 0,0,SZR
20 00263'000424 JMP ERUD1 ;NEGATIV
21 00264'121000 MOV 1,0
22 00265'045470 STA 1,U.S00,3
23 00266'031467 LDA 2,U.STK,3
24 00267'025007 LDA 1,+7,2
25 00270'125100 MOVL 1,1 ;TXT$ (1) BYTE ADR.
26 00271'107000 ADD 0,1 ;TXT$(INDEKS) BYTE ADR. I AC1
27
28 00272'030040 LOP1: LDA 2,CUR
29 00273'021470 LDA 0,U.S00,3 ;INDEKS OVER LÆNGDE AF TXT$
30 00274'106415 SUB # 0,1,SNR
31 00275'000430 JMP EJF ;STED IKKE FUNDET
32 00276'020120 LDA 0,80
33 00277'007100 A.GBYTE ;HENT BYTE TXT$(INDEKS)
34 00300'045472 STA 1,U.S02,3 ; GEM BYTE ADR
35 00301'025471 LDA 1,U.S01,3 ; HENT S$
36 00302'106405 SUB 0,1,SNR ;ENS?
37 00303'000406 JMP DUMME
38 00304'011470 ISZ U.S00,3 ;FORØG INDEKS
39 00305'011472 ISZ U.S02,3 ;FORØG BYTE ADR.
40 00306'000764 JMP LOP1
41
42 00307'006244 ERUD1: ERROR ;INDEKSFEJL
43 00310'000037 31
44
45 00311'025470 DUMME: LDA 1,U.S00,3 ;FUNDET
46 00312'102400 SUB 0,0 ; STED=INDEKS
47 NNN: BCALL FLOAT
48 00313'035515 LDA 3 U.S21,3
49 00314'007401 JSR@ +1,3
50 00315'035467 LDA 3,U.STK,3
51 00316'035414 LDA 3,+12,3
52 00317'054404 STA 3,WADRS
53 00320'030040 LDA 2,CUR
54 00321'007106 A.PDOUBLE
55 00322'000001 1
56 00323'000000 WADRS: 0
57 00324'002242 RET1
58
59 00325'126000 EJF: ADC 1,1
60 00326'102000 ADC 0,0
«ff»
0007 UCA01
01 00327'126000 ADC 1,1 ;IKKE FUNDET STED=-1
02 00330'000763 JMP NNN
03 PRDE2
04
05 PP10: ; PROCESSDESCRIPTOR:
06 00331'000000 0 ; NEXT
07 00332'000000 0 ; PREV
08 00333'000000 0 ; CHAIN
09 00334'000025 PP15-PP10 ; SIZE
10 00335'052503 .TXT .UCALL. ; NAME
11 040514
12 046000
13 00340'000340' .+0 ; FIRST EVENT
14 00341'000340' .-1 ; LAST EVENT
15 00342'000000 0 ; BUFFE
16 00343'000000' PP00 ; PROGRAM
17 00344'000000 0 ; STATE
18 00345'000000 0 ; TIMER
19 00346'000001 1 ; PRIORITY
20 00347'000007' PP05 ; BREAK
21 00350'000331' PP10 ; AC0
22 00351'000000 0 ; AC1
23 00352'000331' PP10 ; AC2
24 00353'000000 0 ; AC3
25 00354'000016" PP05*2 ; PSW
26 00355'000000 0 ; SAVE
27
28 PP15: ;
29 .END PP10
0000 SOURCE LINES IN ERROR
«ff»
0008 UCA01
BCALL 000000 MC 2/15 2/29 2/59 4/11 4/23 4/59 6/16
6/47
DUMME 000311' 6/37 6/45
EJF 000325' 6/31 6/59
ERR90 000104' 2/35 2/39 2/55
ERR91 000106' 2/42 3/03
ERUD1 000307' 6/20 6/42
FADD 177775 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
FDIV 177772 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
FINDT 000242' 1/26 6/02
FIX 177777 2/16 2/30 2/32 2/60 3/02 4/12 4/24
4/60 5/02 6/17 6/19 6/48
FIX00 000144' 1/54 4/01
FIX01 000166' 4/17 4/20
FIX02 000201' 4/29 4/32
FLO00 000203' 1/60 4/34
FLO01 000230' 4/51 4/55
FLO02 000232' 4/40 4/46 4/57
FLOAT 177776 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
FMPY 177773 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
FSUB 177774 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
GME00 000050' 1/35 2/07
GME01 000070' 2/20 2/24
GSM00 000072' 2/12 2/27 3/07
IDIV 177767 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
IMPY 177771 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
IMPYA 177770 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
IOERR 177766 2/16 2/18 2/30 2/32 2/60 3/02 4/12
4/14 4/24 4/26 4/60 5/02 6/17 6/19
6/48 6/50
KSP00 000110' 1/42 2/44
KSP01 000114' 2/46 2/48 2/52
KSP02 000143' 2/53 3/12
LOP1 000272' 6/28 6/40
NNN 000313' 6/47 7/02
PP00 000000' 1/12 1/16 7/16
PP05 000007' 1/14 1/21 1/23 7/20 7/25
PP10 000331' 1/16 7/05 7/09 7/21 7/23 7/29
PP15 000356' 7/09 7/28
PRDE1 000211 MC 1/04
PRDE2 000276 MC 7/03
SME00 000115' 1/48 2/49
WADRS 000323' 6/52 6/56
«ff»
«eof»