|
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: 39424 (0x9a00)
Types: TextFile
Names: »LP24«
└─⟦c99ffa672⟧ Bits:30001786 SG0006 Floppy
└─⟦this⟧
└─⟦d3919da1e⟧ Bits:30001784 SG0004 Floppy
└─⟦this⟧
«ff»
0001 UCA01 DOMUS MACRO ASSEMBLER REV 02.00
01 ; CA24 (1 FEJL) /CA23 (2 FEJL) /CA22 (CA 12 FEJL+MAGL
02 ;
03 ; FIL CA22 SOM YDERL. ER RETTET TIL CA23 PÅEXPL2/$FD1:3
04 ;OG DEREFTER KOPIERET TILBAGE TIL EXPL6/$FD0 > DOMAC
05 ; DETTE ER EN PROGRAM SAMMENLÆGNING TIL BRUG VED I-DAG-SYSTEMET.
06 ;; STUMPERNE ER HENTET FRA CA15 OG FLG. ER FØJET TIL :
07 ; CB 2/8-80 KL 12'43:30
08 ; PL 12 RETTELSER JFR CB + FIX OG FLOAT FRA CA15 PÅ DOMUS EXPL 2
09 ; $FD1:3 + UDSMIDNINGER AF GENTAGELSER VEDR GMEM / SMEM
10 ; RETTET PÅ BASIS AF CA21 PÅ EXPL2 $FD1:3 //PL 14.9.80 KL 24
11
12 PRDE1 ; MACRO PROGRAMHOVED
13
.TITL UCA01 ; USER-CODED SUBROUTINES 78.05.01
15 .NREL
16 000012 .RDX 10 ; RADIX 10
17 000001 .TXTM 1 ; PACKED FROM LEFT TO RIGHT
18 000001 .TXTN 1 ; NO NULL-BYTES IF EVEN NUMBER OF BYTES
19
20 PP00: ; PROGRAM START
21 00000'100001 1B0+1B15 ; DESCRIPTOR
22 00001'000007' PP05 ; START
23 00002'000000 0 ; CHAIN
24 00003'000644 PP10-PP00 ; SIZE
25 00004'052503 .TXT .UCALL. ; NAME
26 040514
27 046000
28
29 PP05: ;
30 00007'006013 STOPPROCESS ;
31 00010'000777 JMP PP05 ;
32
«ff»
!0002 UCA01
01 ; <STN> CALL"BUF",<EXPR>,<EXPR>,<VAR>
02 ; <STN> CALL"GMEM",<VAR>,<VAR>
03 ; <STN> CALL"SMEM",<VAR>,<VAR>
04 ; <STN> CALL"KODESPEC"
05 ; <STN> CALL"FIND",<EXPR>,<MVAR>,<EXPR>,<VAR>
06 ; <STN> CALL"FLYTMAT",<MVAR>,<EXPR>,<EXPR>,<EXPR>
07
08 ; SUBRUTINETABEL
09
10 00011'000062'BUF00
11 00012'041125 .TXT "BUF<0><0><0><0><0>"
12 043000
13 000000
14 000000
15
16 00016'000155'GME00 ; GMEM-ADRESSE
17 00017'043515 .TXT "GMEM<0><0><0><0>" ; NAVN
18 042515
19 000000
20 000000
21
22 00023'000267'FIN00 ; FIND ADRESSE
23 00024'043111 .TXT "FIND<0><0><0><0>" ; NAVN
24 047104
25 000000
26 000000
27
28 00030'000416'FLM00 ; FLYTMAT ADREESE
29 00031'043114 .TXT "FLYTMAT<0>" ; NAVN
30 054524
31 046501
32 052000
33
34 00035'000233'KSP00
35 00036'045517 .TXT "KODESPEC"
36 042105
37 051520
38 042503
39
40 00042'000240'SME00
41 00043'051515 .TXT "SMEM<0><0><0><0>"
42 042515
43 000000
44 000000
45
46 00047'000543'FIX00
47 00050'043111 .TXT "FIX<0><0><0><0><0>"
48 054000
49 000000
50 000000
51
52 00054'000604'FLO00
53 00055'043114 .TXT "FLOAT<0><0><0>"
54 047501
55 052000
56 000000
57
58 00061'000000 0
«ff»
!0003 UCA01
01 00062'000003 BUF00: 3 ; 3 VARIABLE
02 00063'000000 REAL ; A
03 00064'000000 REAL ; OG B
04 00065'100000 REAL+REFERENCE ; OG C
05 00066'024454 LDA 1,RESCH ; HENT RESERVATIONSSTATUS (RESCH)
06 00067'102520 SUBZL 0,0 ; AC0=1
07 00070'122415 SUB# 1,0 ,SNR ; RESCH=AC0??
08 00071'000775 JMP .-3 ; JA: PRØV IGEN
09 00072'040450 STA 0,RESCH ; NEJ: SÆT RESCH=1
10 00073'027002 LDA @ 1,+2,2 ; AC1=F(F(USER.U.STK)+1)=C-ADRESSE
11 00074'044433 STA 1,BADRE ; GEM C-ADRESSE
12 00075'031001 LDA 2,+1,2 ; AC2=B-ADRESSE
13 00076'021000 LDA 0,+0,2 ; HENT B=VARBUFNR
14 00077'025001 LDA 1,+1,2
15 BCALL FIX
16 00100'035515 LDA 3 U.S21,3
17 00101'007400 JSR@ +0,3
18 00102'152460 SUBC 2,2 ; AC2=0
19 00103'151540 INCOL 2,2 ; AC2=3
20 00104'101005 MOV 0,0,SNR ; LIGGER 0<=VARBUFNR<=3 ?
21 00105'132433 SNG 1,2
22 00106'000521 JMP ERR90 ; NEJ: RETURN MED ERROR 90
23 00107'125120 MOVZL 1,1 ; AC1=1
24 00110'030433 LDA 2,BUFAD ; AC2=BUFFERADRESSE
25 00111'147000 ADD 2,1 ; AC1=AC1+AC2
26 00112'044442 STA 1,ADRES ; GEM ADRESSE(VARNR)
27 00113'102520 SUBZL 0,0 ; AC0=1
28 00114'033467 LDA @ 2,U.STK,3
29 00115'021000 LDA 0,+0,2 ; HENT A(1. ORD)
30 00116'030040 LDA 2,CUR
31 00117'101004 MOV 0,0,SZR ; A=0???
32 00120'000411 JMP PART2 ;
33 00121'034433 LDA 3,ADRES ; HENT BUFADRESSE
34 00122'021400 LDA 0,+0,3 ; AC0=F(ADRES)
35 00123'025401 LDA 1,+1,3 ; AC1=F(ADRES+1)
36 00124'030040 LDA 2,CUR
37 00125'007106 A.PDOUBLE ; AC'S-->B
38 00126'000001 1 ; SEGMENT NUMBER
39 00127'000000 BADRE: 0 ; B-ADRESSE
40 00130'000407 JMP UD ;
41 00131'102520 PART2: SUBZL 0,0
42 00132'024775 LDA 1,BADRE ; NEJ: HENT B-ADRESSE
43 00133'007102 A.GDOUBLE ; HENT B-->;AC'S
44 00134'034420 LDA 3,ADRES ; AC3=BUFADRESSE(VARNR)
45 00135'041400 STA 0,+0,3 ; AC'S-->BUF(VARNR)
46 00136'045401 STA 1,+1,3
47 00137'102400 UD: SUB 0,0 ; AC0=0
48 00140'040402 STA 0,RESCH ; RESCH=0
49 00141'002242 RET1 ; END BUF
50 ;
51 00142'000000 RESCH: 0 ; RESERVERINGSSTATUS
52 00143'000144'BUFAD: BUFTB
53 00144'000010 BUFTB: .BLK 8 ; VARBUF OMRÅDE
54 00154'000000 ADRES: 0
«ff»
!0004 UCA01
01 00155'000002 GME00: 2
02 00156'000000 REAL
03 00157'100000 REAL+REFERENCE
04 00160'031000 LDA 2,+0,2 ; AC1=A-ADRESSE
05 00161'006240 EXECUTE
06 00162'000215' GSM00
07 00163'002242 RET1
08 00164'025000 LDA 1,+0,2 ; JA: AC1=INDHOLD AF ADRESSE
09 BCALL FLOAT ; AC1 -> KOMMATAL
10 00165'035515 LDA 3 U.S21,3
11 00166'007401 JSR@ +1,3
12 00167'031467 LDA 2,U.STK,3
13 00170'033001 LDA @ 2,+1,2 ; AC2=B-ADRESSE
14 00171'050404 STA 2,GME01 ; GEM B-ADRESSE
15 00172'030040 LDA 2,CUR
16 00173'007106 A.PDOUBLE ; GEM ADRESSEINDHOLD(A) I B
17 00174'000001 1
18 00175'000000 GME01: 0
19 00176'002242 RET1 ; END GMEM
20
21 00177'021442 ERR00: LDA 0,PIO,3 ; AC0=PIO-ADRESSE
22 00200'024406 LDA 1,ERRAD ; AC1=ERRORTXTADRESSE
23 00201'125120 MOVZL 1,1 ;-->BYTE ADRESSE
24 00202'030040 LDA 2,CUR
25 00203'007113 F.OTEXT ; OUTPUT FEJLMEDDELELSE
26 00204'002241 RET0
27 00205'002241 RET0 ; RETURN
28 00206'000207'ERRAD: ERRTX
29 00207'006412 ERRTX: .TXT "<13><10><7>GAL ADR<13><10>"
30 003507
31 040514
32 020101
33 042122
34 006412
«ff»
!0005 UCA01
01 00215'021000 GSM00: LDA 0,+0,2 ; HENT A
02 00216'025001 LDA 1,+1,2
03 BCALL FIX ; FIX A
04 00217'035515 LDA 3 U.S21,3
05 00220'007400 JSR@ +0,3
06 00221'152220 ADCZR 2,2 ; AC2=1B0-1
07 00222'101005 MOV 0,0,SNR ; 0<=AC1<=1B0-1
08 00223'132433 SNG 1,2
09 00224'000753 JMP ERR00 ; NEJ: ERROR UDSKRIV MEDD.
10 00225'131000 MOV 1,2 ; AC1-->AC2
11 00226'002242 RET1 ; RETURN
12
13 00227'006244 ERR90: ERROR
14 00230'000132 90
15
16 00231'006244 ERR91: ERROR
17 00232'000133 91
18 00233'000000 KSP00: 0
19 00234'060477 READS 0
20 00235'040402 STA 0,KSP01
21 00236'002242 RET1
22 00237'000000 KSP01: 0
«ff»
!0006 UCA01
01 00240'000002 SME00: 2 ; 2 VARIABLE
02 00241'000000 REAL ; A (=A-ADRESSE)
03 00242'000000 REAL ; B (=DATA)
04 00243'020774 LDA 0,KSP01 ; SE GME00
05 00244'024422 LDA 1,KSP02
06 00245'122404 SUB 1,0,SZR
07 00246'000761 JMP ERR90
08 00247'031001 LDA 2,+1,2 ; AC2(!)=B-ADRESSE
09 00250'021000 LDA 0,+0,2 ; HENT REAL(!) B
10 00251'025001 LDA 1,+1,2
11 BCALL FIX ; FIX B
12 00252'035515 LDA 3 U.S21,3
13 00253'007400 JSR@ +0,3
14 00254'101004 MOV 0,0,SZR ; 0<=B<=65535 ?
15 00255'000754 JMP ERR91 ; NEJ ERROR-RETURN
16 00256'045470 STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER
17 00257'033467 LDA@ 2,U.STK,3
18 00260'006240 EXECUTE ; EXEC GSM00(A-ADRESSE)
19 00261'000215' GSM00
20 00262'002242 RET1
21 00263'025470 LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B
22 00264'045000 STA 1,+0,2 ; AC1-->ADR.AC2
23 00265'002242 RET1 ; END STOREMEMORY
24 00266'123456 KSP02: 42798
«ff»
!0007 UCA01
01 00267'000004 FIN00: 4 ; 4 VARIABLE :
02 00270'000000 REAL ; B = DET DER SØGES PLACERET
03 00271'000100 REAL+ARRAY ; A = DET DER SØGES I
04 00272'000000 REAL ; MAX(A) = MAX BRUGT I A
05 00273'100000 REAL+REFERENCE ; INDEX = STED TIL RESULTAT
06 00274'021007 LDA 0,+7,2 ; DIM(A)-->US00
07 00275'041470 STA 0,U.S00,3
08 00276'021011 LDA 0,+9,2 ; HENT MAX(A)
09 00277'025012 LDA 1,+10,2
10 BCALL FIX ; FIX MAX(A)
11 00300'035515 LDA 3 U.S21,3
12 00301'007400 JSR@ +0,3
13 00302'031470 LDA 2,U.S00,3 ; AC2=DIM(A)
14 00303'101005 MOV 0,0,SNR ; ER MAX(A)>=0 OG
15 00304'132433 SUBZ# 1,2,SNC ; ER MAX(A)<=DIM(A)
16 00305'000457 JMP ER31 ; NEJ - INDEXFEJL
17 00306'125005 MOV 1,1,SNR ; ER MAX=0
18 00307'000443 JMP FIN03 ; JA - HOP (LAD INDEX=1)
19 00310'045471 STA 1,U.S01,3 ; US01=MAX(A)=MAX
20 00311'102520 SUBZL 0,0
21 00312'041470 STA 0,U.S00,3 ; US00=MIN=1
22 00313'031467 LDA 2,U.STK,3
23 00314'027003 LDA @ 1,+3,2 ; FLYT INDEX ADRESSE OVER I FIN05
24 00315'044445 STA 1,FIN05
25 00316'027000 LDA@ 1,+0,2 ; FLYT B-ADRESSE OVER I NÆRVÆRENDE LAGER
26 00317'044447 STA 1,BADR
27 00320'025006 LDA 1,+6,2 ; FLYT STARTADR PÅ MATRIX OVER I US12
28 00321'045504 STA 1,U.S12,3
29 00322'004462 JSR BEADR ; AC0 ER HER 1
30 00323'004444 JSR TESTB ; ER B<A(1) ?
31 00324'000427 JMP FIN04 ; JA - HOP (LAD INDEX=1)
32 00325'021471 LDA 0,U.S01,3 ; NEJ - AC0=MAX
33 00326'004456 JSR BEADR
34 00327'004440 JSR TESTB ; ER B>=A(MAX)
35 00330'000402 JMP .+2
36 00331'000421 JMP FIN03 ; JA - HOP (LAD INDEX=MAX+1)
37 00332'021470 FIN01: LDA 0,U.S00,3 ; AC0=MIN
38 00333'025471 LDA 1,U.S01,3 ; AC1=MAX
39 00334'123220 ADDZR 1,0 ; AC0=MIDT=(MIN+MAX) DIV 2
40 00335'004447 JSR BEADR
41 00336'004431 JSR TESTB ; B>=A(MIDT)
42 00337'000411 JMP FIN02 ; NEJ HOP
43 00340'101400 INC 0,0 ; AC0=MIDT+1
44 00341'004443 JSR BEADR
45 00342'004425 JSR TESTB ; B<A(MIDT+1)
46 00343'000410 JMP FIN04 ; JA - HOP SLUT (INDEX=MIDT+1)
47 00344'100400 NEG 0,0 ; AC0=AC0-1=MIDT
48 00345'100000 COM 0,0
49 00346'041470 STA 0,U.S00,3 ; MIN=MIDT
50 00347'000763 JMP FIN01 ; FORFRA
51 00350'041471 FIN02: STA 0,U.S01,3 ; MAX=MIDT
52 00351'000761 JMP FIN01 ; FORFRA
«ff»
!0008 UCA01
01 00352'101400 FIN03: INC 0,0 ; INDEX=INDEX+1
02 00353'105000 FIN04: MOV 0,1 ; AC0,AC1=0,INDEX IE FIXTAL INDEX
03 00354'102400 SUB 0,0
04 BCALL FLOAT ; AC0,AC1=FLOAT INDEX
05 00355'035515 LDA 3 U.S21,3
06 00356'007401 JSR@ +1,3
07 00357'030040 LDA 2,CUR
08 00360'007106 A.PDOUBLE ; GEM INDEX
09 00361'000001 1
10 00362'000000 FIN05: 0
11 00363'002242 RET1 ; SLUT
12
13 00364'006244 ER31: ERROR
14 00365'000037 31
15
16 00366'000000 BADR: 0
17
«ff»
!0009 UCA01
01 ; DENNE RUTINE SAMMENLIGNER DET TAL (X)
02 ; DER LIGGER PÅ ADRESSEN ANGIVET I AC1
03 ; MED B, DER ER ANGIVET VED BADR
04
05 00367'030017 TESTB: LDA 2,USER
06 00370'041103 STA 0,U.S11,2 ; GEM AC0 VÆK
07 00371'055102 STA 3,U.S10,2 ; GEM RETADR I US10
08 00372'102520 SUBZL 0,0 ; AC0=1
09 00373'030040 LDA 2,CUR
10 00374'007101 A.GWORD
11 00375'030771 LDA 2,BADR ; AC2=B'S ADRESSE
12 00376'142033 ADCZ# 2,0,SNC ; (RETTET! /NU KUN CKECK PÅ 1.ORD)
13 00377'011502 ISZ U.S10,3 ; HVIS X>B RETURN TIL LINK+0
14 00400'021503 LDA 0,U.S11,3 ; HENT AC0 TILBAGE
15 00401'003502 JMP @ U.S10,3 ; RETURN
16 ; ! CALL ! RET
17 ;-------------------
18 00402'000401 JMP +1,1 ; AC0 ! ? ! =
19 ; AC1 !ADR.X ! %
20 ; AC2 ! ? ! %
21 00403'000401 JMP +1,1 ; AC3 ! ? ! UDA
22
23
24
25 ; DENNE RUTINE BEREGNER DEN EFFEKTIVE
26 ; ADR PÅ ET INDEX I EN MATRIX, HVIS
27 ; FØRSTE ELEMENTS ADR ER ANGIVET VED
28 ; US12.
29 ; BEREGNINGEN ER MED LOWBOUND=1
30
31 00404'165000 BEADR: MOV 3,1 ; AC1=AC3, AC0=INDEX VED START
32 00405'034017 LDA 3,USER
33 00406'045502 STA 1,U.S10,3 ; GEM RET-ADR VÆK
34 00407'051503 STA 2,U.S11,3 ; GEM AC2
35 00410'031504 LDA 2,U.S12,3 ; AC2=ADR(MAT(1))
36 00411'104400 NEG 0,1
37 00412'124120 COMZL 1,1 ; INDEX=(INDEX-1)*2
38 00413'147000 ADD 2,1 ; AC1=ADR(MAT(1))+INDEX
39 00414'031503 LDA 2,U.S11,3 ; HENT AC2 IGEN
40 00415'003502 JMP @ U.S10,3 ; RETURN
41 ; ! CALL ! RET
42 ;-------------------
43 ; AC0 !INDEX !INDEX
44 ; AC1 ! ? ! ADR
45 ; AC2 ! ? ! =
46 ; AC3 ! ? ! UDA
47
48
«ff»
!0010 UCA01
01 00416'000004 FLM00: 4
02 00417'000100 REAL+ARRAY ; A = DET DER SKAL FLYTTES I
03 00420'000000 REAL ; INDEX = HVORFRA DER SKAL FLYTTES
04 00421'000000 REAL ; ANTAL = HVORLANGT ..
05 00422'000000 REAL ; MAX = SIDSTE ELEMENT BRUGT I A
06 00423'021004 LDA 0,+4,2
07 00424'041504 STA 0,U.S12,3 ; GEM ADR(A(1)) I US12
08 00425'021007 LDA 0,+7,2
09 00426'025010 LDA 1,+8,2 ; HENT INDEX
10 BCALL FIX ; FIX INDEX
11 00427'035515 LDA 3 U.S21,3
12 00430'007400 JSR@ +0,3
13 00431'101005 MOV 0,0,SNR ; ER 0<=INDEX<=32767 OG
14 00432'125005 MOV 1,1,SNR ; ER INDEX<>0 ?
15 00433'000731 JMP ER31 ; NEJ
16 00434'045471 STA 1,U.S01,3 ; GEM INDEX I US01
17 00435'031467 LDA 2,U.STK,3
18 00436'021013 LDA 0,+11,2
19 00437'025014 LDA 1,+12,2 ; HENT MAX
20 BCALL FIX ; FIX MAX
21 00440'035515 LDA 3 U.S21,3
22 00441'007400 JSR@ +0,3
23 00442'031467 LDA 2,U.STK,3
24 00443'031005 LDA 2,+5,2 ; HENT DIM(A)
25 00444'132432 SUBZ# 1,2,SZC ; ER MAX<=DIM(A) OG
26 00445'101004 MOV 0,0,SZR ; ER MAX>=0 ?
27 00446'000716 JMP ER31 ; NEJ
28 00447'021471 LDA 0,U.S01,3 ; AC0=INDEX
29 00450'045472 STA 1,U.S02,3 ; GEM MAX I US02
30 00451'125400 INC 1,1 ; AC1=MAX+1
31 00452'106423 SUBZ 0,1,SNC ; AC1=MAX+1-INDEX, ER AC1>=0 ?
32 00453'000711 JMP ER31 ; NEJ
33 00454'125005 MOV 1,1,SNR ; ER AC1=0 ?
34 00455'002242 RET1 ; JA SLUT
35 00456'045470 STA 1,U.S00,3 ; GEM ANT=MAX+1-INDEX I US00
36 00457'031467 LDA 2,U.STK,3
37 00460'021011 LDA 0,+9,2 ; HENT ANTAL
38 00461'025012 LDA 1,+10,2
39 BCALL FIX ; FIX ANTAL
40 00462'035515 LDA 3 U.S21,3
41 00463'007400 JSR@ +0,3
42 00464'101122 MOVZL 0,0,SZC ; ER ANTAL POSITIV ?
43 00465'000417 JMP FLM01 ; NEJ
44 00466'031467 LDA 2,U.STK,3
45 00467'031005 LDA 2,+5,2 ; AC2=DIM(A)
46 00470'021472 LDA 0,U.S02,3 ; AC0=MAX
47 00471'123000 ADD 1,0 ; AC0=ANTAL+MAX
48 00472'112423 SUBZ 0,2,SNC ; AC2=DIM(A)-ANTAL-MAX ER AC2>=0 ?
49 00473'000671 JMP ER31 ; NEJ
50 00474'152120 ADCZL 2,2 ; AC2=-2
51 00475'051473 STA 2,U.S03,3 ; GEM -2 I US03
52 00476'125120 MOVZL 1,1 ; ANTAL=ANTAL*2
53 00477'045477 STA 1,U.S07,3 ; GEM ANTAL*2 I US07
54 00500'021472 LDA 0,U.S02,3 ; AC0=MAX
55 00501'004703 JSR BEADR ; AC1=ADR(A(MAX))
56 00502'045474 STA 1,U.S04,3 ; GEM AC1 I US04
57 00503'000422 JMP FLM03 ; KLAR TIL LOOP
«ff»
!0011 UCA01
01 00504'021471 FLM01: LDA 0,U.S01,3 ; HVIS ANTAL NEGATIV: AC0=MAX
02 00505'123022 ADDZ 1,0,SZC ; ER ANTAL+MAX>=0 OG
03 00506'101005 MOV 0,0,SNR ; ER ANTAL+MAX<>0 ?
04 00507'000655 JMP ER31 ; NEJ
05 00510'102400 SUB 0,0
06 00511'101520 INCZL 0,0 ; AC0=2
07 00512'041473 STA 0,U.S03,3 ; GEM 2 I US03
08 00513'125120 MOVZL 1,1 ; AC1=ANTAL*-2
09 00514'045477 STA 1,U.S07,3 ; GEM ANTAL*-2 I US07
10 00515'021471 LDA 0,U.S01,3 ; AC0=INDEX
11 00516'004666 JSR BEADR ; AC1=ADR(A(INDEX))
12 00517'045474 STA 1,U.S04,3 ; GEM AC1 I US04
13 00520'000405 JMP FLM03 ; KLAR TIL LOOP
14 00521'021474 FLM02: LDA 0,U.S04,3 ; US04=US04+US03 DVS ADRESSEN BLIVER
15 00522'025473 LDA 1,U.S03,3 ; JUSTERET PASSENDE +/-2 ALT EFTER OM
16 00523'107000 ADD 0,1 ; LØKKEN KØRER FORLÆNS EL. BAGLÆNS
17 00524'045474 STA 1,U.S04,3
18 00525'030040 FLM03: LDA 2,CUR
19 00526'102520 SUBZL 0,0
20 00527'007102 A.GDOUBLE ; HENT A(ADR-US04)=X
21 00530'031474 LDA 2,U.S04,3 ; BEREGN DEPOSIT ADRESSE :
22 00531'035477 LDA 3,U.S07,3 ; LAD D.ADR=FLM04=US04+US07
23 00532'157000 ADD 2,3
24 00533'054404 STA 3,FLM04
25 00534'030040 LDA 2,CUR
26 00535'007106 A.PDOUBLE ; GEM X I A(ADR.US04+US07)
27 00536'000001 1
28 00537'000000 FLM04: 0
29 00540'015470 DSZ U.S00,3 ; TÆL LØKKETÆLLER(=ANT) EN NED. ANT=0?
30 00541'000760 JMP FLM02 ; NEJ FLRTSÆT
31 00542'002242 RET1 ; JA SLUT
32
33 ; HELE LOOPRUTINEN KAN SES SOM FLG:
34 ; REPEAT
35 ; LET A(ADR.US04+US07)=A(ADR.US04)
36 ; LET US04=US04+US03 ; US00=US00-1
37 ; UNTIL US00=0
38
«ff»
!0012 UCA01
01 00543'000003 FIX00: 3
02 00544'100000 REAL+REFERENCE
03 00545'100000 REAL+REFERENCE
04 00546'100000 REAL+REFERENCE
05 00547'102520 SUBZL 0,0 ; AC0=1
06 00550'027000 LDA @ 1,+0,2 ; AC1=A-ADRESSE
07 00551'030040 LDA 2,CUR ; AC2=CUR
08 00552'007102 A.GDOUBLE ; HENT A
09 00553'041470 STA 0,U.S00,3 ; GEM ORD 1 AF A
10 00554'102460 SUBC 0,0 ; AC0=0
11 BCALL FLOAT ; FLOAT ORD2 AF A
12 00555'035515 LDA 3 U.S21,3
13 00556'007401 JSR@ +1,3
14 00557'030040 LDA 2,CUR ; AC2=CUR
15 00560'035467 LDA 3,U.STK,3 ; AC3=F(F(USER)+U.STK)
16 00561'037402 LDA @ 3,+2,3 ; AC3=C-ADRESSE
17 00562'054403 STA 3,FIX01 ; GEM C-ADRESSE
18 00563'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I B
19 00564'000001 1
20 00565'000000 FIX01: 0
21 00566'025470 LDA 1,U.S00,3 ; HENT ORD1 AF A
22 00567'102460 SUBC 0,0 ; AC0=0
23 BCALL FLOAT ; FLOAT ORD1 AF A
24 00570'035515 LDA 3 U.S21,3
25 00571'007401 JSR@ +1,3
26 00572'030040 LDA 2,CUR ; AC2=CUR
27 00573'035467 LDA 3,U.STK,3
28 00574'037401 LDA @ 3,+1,3 ; AC3=B-ADRESSE
29 00575'054403 STA 3,FIX02 ; GEM B-ADRESSE
30 00576'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I C
31 00577'000001 1
32 00600'000000 FIX02: 0
33 00601'002242 RET1 ; END FIX
34 ERRIO: BCALL IOERR
35
36 00602'035515 LDA 3 U.S21,3
37 00603'007411 JSR@ +9,3
«ff»
!0013 UCA01
01 00604'000003 FLO00: 3
02 00605'100000 REAL+REFERENCE
03 00606'100000 REAL+REFERENCE
04 00607'100000 REAL+REFERENCE
05 00610'027000 LDA @ 1,+0,2 ; AC1=A-ADRESSE
06 00611'006240 EXECUTE ; EXEC FLO02
07 00612'000633' FLO02
08 00613'002241 RET0 ; HVIS ERROR
09 00614'045470 STA 1,U.S00,3 ; GEM DEL 1 AF C
10 00615'031467 LDA 2,U.STK,3
11 00616'027001 LDA @ 1,+1,2 ; AC1=B-ADRESSE
12 00617'006240 EXECUTE
13 00620'000633' FLO02
14 00621'002241 RET0
15 00622'021470 LDA 0,U.S00,3 ; HENT DEL 1 AF C
16 00623'031467 LDA 2,U.STK,3
17 00624'033002 LDA @ 2,+2,2 ; AC2=C-ADRESSE
18 00625'050404 STA 2,FLO01 ; GEM C-ADRESSE
19 00626'030040 LDA 2,CUR
20 00627'007106 A.PDOUBLE ; AC0,AC1-->C
21 00630'000001 1
22 00631'000000 FLO01: 0
23 00632'002242 RET1
24 00633'102520 FLO02: SUBZL 0,0 ; AC0=1
25 00634'030040 LDA 2,CUR
26 00635'007102 A.GDOUBLE ; HENT A/B
27 BCALL FIX ; LAV OM TIL HELTAL
28 00636'035515 LDA 3 U.S21,3
29 00637'007400 JSR@ +0,3
30 00640'101005 MOV 0,0,SNR ; 0=<A/B=<32K ???
31 00641'002242 RET1 ; JA: RETURN
32 00642'006244 ERROR ; NEJ: RETURN MED ERROR 90
33 00643'000132 90.
«ff»
!0014 UCA01
01 ; FILNAVN CA22 PÅ DOMUS EXPL6 $FD0
02 ; MÅSKE FEJL: ERR90 ER DOBBELTDEF, SÅ FILEN SKAL RETTES FØR OVERS
03 ; ERR90 SLETTET, FILEN HEDDER NU CA23
04 ; OG LIGGER PÅ DOMUS EXPL 2 $FD1:3 SAMT HEREFTER PÅ EXPL6 $FD0
05 ;
06 ; FILPROD: CA21 RETTET FOR 12 EGL FEJL + NOGET PYNT
07 ; + CA15 FIX OG FLOAT (ERR90-PROBLEM)
08 ; NB BEGGE FILER FRA DOMUS EXPL2 I-DAGSYSTEM 14.9.80
09 ; LAVET AF PL EFTER CB-DIREKT 14.9.80 KL CA 25
10
11 PRDE2
12
13 PP10: ; PROCESSDESCRIPTOR:
14 00644'000000 0 ; NEXT
15 00645'000000 0 ; PREV
16 00646'000000 0 ; CHAIN
17 00647'000025 PP15-PP10 ; SIZE
18 00650'052503 .TXT .UCALL. ; NAME
19 040514
20 046000
21 00653'000653' .+0 ; FIRST EVENT
22 00654'000653' .-1 ; LAST EVENT
23 00655'000000 0 ; BUFFE
24 00656'000000' PP00 ; PROGRAM
25 00657'000000 0 ; STATE
26 00660'000000 0 ; TIMER
27 00661'000001 1 ; PRIORITY
28 00662'000007' PP05 ; BREAK
29 00663'000644' PP10 ; AC0
30 00664'000000 0 ; AC1
31 00665'000644' PP10 ; AC2
32 00666'000000 0 ; AC3
33 00667'000016" PP05*2 ; PSW
34 00670'000000 0 ; SAVE
35
36 PP15: ;
37 .END PP10
0000 SOURCE LINES IN ERROR
«ff»
0015 UCA01
ADD 103000 PS 3/25 9/38 10/47 11/16 11/23
ADRES 000154' 3/26 3/33 3/44 3/54
ARRAY 000100 PS 7/03 10/02
A.GDO 007102 PS 3/43 11/20 12/08 13/26
A.GWO 007101 PS 9/10
A.PDO 007106 PS 3/37 4/16 8/08 11/26 12/18 12/30 13/20
BADR 000366' 7/26 8/16 9/11
BADRE 000127' 3/11 3/39 3/42
BCALL 000000 MC 3/15 4/09 5/03 6/11 7/10 8/04 10/10
10/20 10/39 12/11 12/23 12/34 13/27
BEADR 000404' 7/29 7/33 7/40 7/44 9/31 10/55 11/11
BUF00 000062' 2/10 3/01
BUFAD 000143' 3/24 3/52
BUFTB 000144' 3/52 3/53
COM 100000 PS 7/48
CUR 000040 PS 3/30 3/36 4/15 4/24 8/07 9/09 11/18
11/25 12/07 12/14 12/26 13/19 13/25
DSZ 014000 PS 11/29
ER31 000364' 7/16 8/13 10/15 10/27 10/32 10/49 11/04
ERR00 000177' 4/21 5/09
ERR90 000227' 3/22 5/13 6/07
ERR91 000231' 5/16 6/15
ERRAD 000206' 4/22 4/28
ERRIO 000602' 12/34
ERROR 006244 PS 5/13 5/16 8/13 13/32
ERRTX 000207' 4/28 4/29
EXECU 006240 PS 4/05 6/18 13/06 13/12
FADD 177775 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 13/28 13/30
FDIV 177772 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 12/36 13/28 13/30
FIN00 000267' 2/22 7/01
FIN01 000332' 7/37 7/50 7/52
FIN02 000350' 7/42 7/51
FIN03 000352' 7/18 7/36 8/01
FIN04 000353' 7/31 7/46 8/02
FIN05 000362' 7/24 8/10
FIX 177777 3/16 3/18 4/10 5/04 5/06 6/12 6/14
7/11 7/13 8/05 10/11 10/13 10/21 10/23
10/40 10/42 12/12 12/24 12/35 13/28 13/30
FIX00 000543' 2/46 12/01
FIX01 000565' 12/17 12/20
FIX02 000600' 12/29 12/32
FLM00 000416' 2/28 10/01
FLM01 000504' 10/43 11/01
FLM02 000521' 11/14 11/30
FLM03 000525' 10/57 11/13 11/18
FLM04 000537' 11/24 11/28
FLO00 000604' 2/52 13/01
FLO01 000631' 13/18 13/22
FLO02 000633' 13/07 13/13 13/24
FLOAT 177776 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 13/28 13/30
FMPY 177773 3/16 3/18 4/10 4/12 5/04 5/06 6/12
«ff»
0016 UCA01
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 13/28 13/30
FSUB 177774 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 13/28 13/30
F.OTE 007113 PS 4/25
GME00 000155' 2/16 4/01
GME01 000175' 4/14 4/18
GSM00 000215' 4/06 5/01 6/19
IDIV 177767 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 12/36 13/28 13/30
IMPY 177771 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 12/36 13/28 13/30
IMPYA 177770 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 12/36 13/28 13/30
INC 101400 PS 7/43 8/01 10/30
IOERR 177766 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 12/36 13/28 13/30
ISZ 010000 PS 9/13
JMP 000000 PS 1/31 3/08 3/22 3/32 3/40 5/09 6/07
6/15 7/16 7/18 7/31 7/35 7/36 7/42
7/46 7/50 7/52 9/15 9/18 9/21 9/40
10/15 10/27 10/32 10/43 10/49 10/57 11/04
11/13 11/30
JSR 004000 PS 3/17 3/18 4/10 4/11 4/12 5/05 5/06
6/13 6/14 7/12 7/13 7/29 7/30 7/33
7/34 7/40 7/41 7/44 7/45 8/05 8/06
8/07 10/12 10/13 10/22 10/23 10/41 10/42
10/55 11/11 12/12 12/13 12/14 12/24 12/25
12/26 12/35 12/36 12/37 13/29 13/30
KSP00 000233' 2/34 5/18
KSP01 000237' 5/20 5/22 6/04
KSP02 000266' 6/05 6/24
LDA 020000 PS 3/05 3/10 3/12 3/13 3/14 3/16 3/18
3/24 3/28 3/29 3/30 3/33 3/34 3/35
3/36 3/42 3/44 4/04 4/08 4/10 4/12
4/13 4/15 4/21 4/22 4/24 5/01 5/02
5/04 5/06 6/04 6/05 6/08 6/09 6/10
6/12 6/14 6/17 6/21 7/06 7/08 7/09
7/11 7/13 7/22 7/23 7/25 7/27 7/32
7/37 7/38 8/05 8/07 9/05 9/09 9/11
9/14 9/32 9/35 9/39 10/06 10/08 10/09
10/11 10/13 10/17 10/18 10/19 10/21 10/23
10/24 10/28 10/36 10/37 10/38 10/40 10/42
10/44 10/45 10/46 10/54 11/01 11/10 11/14
11/15 11/18 11/21 11/22 11/25 12/06 12/07
12/12 12/14 12/15 12/16 12/21 12/24 12/26
12/27 12/28 12/35 12/36 13/05 13/10 13/11
13/15 13/16 13/17 13/19 13/25 13/28 13/30
MOV 101000 PS 3/20 3/31 5/07 5/10 6/14 7/14 7/17
«ff»
0017 UCA01
8/02 9/31 10/13 10/14 10/26 10/33 11/03
13/30
NEG 100400 PS 7/47 9/36
PART2 000131' 3/32 3/41
PIO 000042 PS 4/21
PP00 000000' 1/20 1/24 14/24
PP05 000007' 1/22 1/29 1/31 14/28 14/33
PP10 000644' 1/24 14/13 14/17 14/29 14/31 14/37
PP15 000671' 14/17 14/36
PRDE1 000211 MC 1/12
PRDE2 000276 MC 14/11
READS 060477 PS 5/19
REAL 000000 PS 3/02 3/03 3/04 4/02 4/03 6/02 6/03
7/02 7/03 7/04 7/05 10/02 10/03 10/04
10/05 12/02 12/03 12/04 13/02 13/03 13/04
REFER 100000 PS 3/04 4/03 7/05 12/02 12/03 12/04 13/02
13/03 13/04
RESCH 000142' 3/05 3/09 3/48 3/51
RET0 002241 PS 4/26 4/27 13/08 13/14
RET1 002242 PS 3/49 4/07 4/19 5/11 5/21 6/20 6/23
8/11 10/34 11/31 12/33 13/23 13/31
SME00 000240' 2/40 6/01
SNC 000003 PS 7/15 9/12 10/31 10/48
SNG 102433 PS 3/21 5/08
SNR 000005 PS 3/07 3/20 5/07 7/14 7/17 10/13 10/14
10/33 11/03 13/30
STA 040000 PS 3/09 3/11 3/26 3/45 3/46 3/48 4/14
5/20 6/16 6/22 7/07 7/19 7/21 7/24
7/26 7/28 7/49 7/51 9/06 9/07 9/33
9/34 10/07 10/16 10/29 10/35 10/51 10/53
10/56 11/07 11/09 11/12 11/17 11/24 12/09
12/17 12/29 13/09 13/18
STOPP 006013 PS 1/30
SUB 102400 PS 3/07 3/47 6/06 8/03 11/05
SZC 000002 PS 10/25 10/42 11/02
SZR 000004 PS 3/31 6/06 6/14 10/26
TESTB 000367' 7/30 7/34 7/41 7/45 9/05
UD 000137' 3/40 3/47
USER 000017 PS 9/05 9/32
U.S00 000070 PS 6/16 6/21 7/07 7/13 7/21 7/37 7/49
10/35 11/29 12/09 12/21 13/09 13/15
U.S01 000071 PS 7/19 7/32 7/38 7/51 10/16 10/28 11/01
11/10
U.S02 000072 PS 10/29 10/46 10/54
U.S03 000073 PS 10/51 11/07 11/15
U.S04 000074 PS 10/56 11/12 11/14 11/17 11/21
U.S07 000077 PS 10/53 11/09 11/22
U.S10 000102 PS 9/07 9/13 9/15 9/33 9/40
U.S11 000103 PS 9/06 9/14 9/34 9/39
U.S12 000104 PS 7/28 9/35 10/07
U.S21 000115 PS 3/16 3/18 4/10 4/12 5/04 5/06 6/12
6/14 7/11 7/13 8/05 8/07 10/11 10/13
10/21 10/23 10/40 10/42 12/12 12/14 12/24
12/26 12/35 12/36 13/28 13/30
U.STK 000067 PS 3/28 4/12 6/17 7/22 10/17 10/23 10/36
10/44 12/15 12/27 13/10 13/16
«ff»
«eof»