|
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 - metrics - download
Length: 39936 (0x9c00)
Types: TextFile
Names: »CLKAL«, »LP23«
└─⟦c99ffa672⟧ Bits:30001786 SG0006 Floppy
└─⟦this⟧ »/LP23«
└─⟦cb4367ef8⟧ Bits:30001782 SG0002 Floppy
└─⟦this⟧ »/CLKAL«
«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'000650 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'000271'FIN00 ; FIND ADRESSE
23 00024'043111 .TXT "FIND<0><0><0><0>" ; NAVN
24 047104
25 000000
26 000000
27
28 00030'000422'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'000547'FIX00
47 00050'043111 .TXT "FIX<0><0><0><0><0>"
48 054000
49 000000
50 000000
51
52 00054'000610'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'024424 LDA 1,KSP02
06 00245'122404 SUB 1,0,SZR
07 00246'000761 JMP ERR90
08 00247'027001 LDA @ 1,+1,2 ; AC1=B-ADRESSE
09 00250'102520 SUBZL 0,0 ; AC0=1
10 00251'030040 LDA 2,CUR ; AC2=F(CUR)
11 00252'007102 A.GDOUBLE ; HENT B
12 BCALL FIX ; FIX B
13 00253'035515 LDA 3 U.S21,3
14 00254'007400 JSR@ +0,3
15 00255'101004 MOV 0,0,SZR ; 0<=B<=65535 ?
16 00256'000753 JMP ERR91 ; NEJ ERROR-RETURN
17 00257'045470 STA 1,U.S00,3 ; GEM AC1(B) I U.S00.USER
18 00260'031467 LDA 2,U.STK,3
19 00261'025000 LDA 1,+0,2 ; AC1=A-ADRESSE
20 00262'006240 EXECUTE ; EXEC GSM00(A-ADRESSE)
21 00263'000215' GSM00
22 00264'002242 RET1
23 00265'025470 LDA 1,U.S00,3 ; AC1=F(UDA+U.S00)=B
24 00266'045000 STA 1,+0,2 ; AC1-->ADR.AC2
25 00267'002242 RET1 ; END STOREMEMORY
26 00270'123456 KSP02: 42798
«ff»
!0007 UCA01
01 00271'000004 FIN00: 4 ; 4 VARIABLE :
02 00272'000000 REAL ; B = DET DER SØGES PLACERET
03 00273'000100 REAL+ARRAY ; A = DET DER SØGES I
04 00274'000000 REAL ; MAX(A) = MAX BRUGT I A
05 00275'100000 REAL+REFERENCE ; INDEX = STED TIL RESULTAT
06 00276'021007 LDA 0,+7,2 ; DIM(A)-->US00
07 00277'041470 STA 0,U.S00,3
08 00300'021011 LDA 0,+9,2 ; HENT MAX(A)
09 00301'025012 LDA 1,+10,2
10 BCALL FIX ; FIX MAX(A)
11 00302'035515 LDA 3 U.S21,3
12 00303'007400 JSR@ +0,3
13 00304'031470 LDA 2,U.S00,3 ; AC2=DIM(A)
14 00305'101005 MOV 0,0,SNR ; ER MAX(A)>=0 OG
15 00306'132433 SUBZ# 1,2,SNC ; ER MAX(A)<=DIM(A)
16 00307'000457 JMP ER31 ; NEJ - INDEXFEJL
17 00310'125005 MOV 1,1,SNR ; ER MAX=0
18 00311'000443 JMP FIN03 ; JA - HOP (LAD INDEX=1)
19 00312'045471 STA 1,U.S01,3 ; US01=MAX(A)=MAX
20 00313'102520 SUBZL 0,0
21 00314'041470 STA 0,U.S00,3 ; US00=MIN=1
22 00315'031467 LDA 2,U.STK,3
23 00316'027003 LDA @ 1,+3,2 ; FLYT INDEX ADRESSE OVER I FIN05
24 00317'044445 STA 1,FIN05
25 00320'025000 LDA 1,+0,2 ; FLYT B-ADRESSE OVER I NÆRVÆRENDE LAGER
26 00321'044447 STA 1,BADR
27 00322'025006 LDA 1,+6,2 ; FLYT STARTADR PÅ MATRIX OVER I US12
28 00323'045504 STA 1,U.S12,3
29 00324'004464 JSR BEADR ; AC0 ER HER 1
30 00325'004444 JSR TESTB ; ER B<A(1) ?
31 00326'000427 JMP FIN04 ; JA - HOP (LAD INDEX=1)
32 00327'021471 LDA 0,U.S01,3 ; NEJ - AC0=MAX
33 00330'004460 JSR BEADR
34 00331'004440 JSR TESTB ; ER B>=A(MAX)
35 00332'000402 JMP .+2
36 00333'000421 JMP FIN03 ; JA - HOP (LAD INDEX=MAX+1)
37 00334'021470 FIN01: LDA 0,U.S00,3 ; AC0=MIN
38 00335'025471 LDA 1,U.S01,3 ; AC1=MAX
39 00336'123220 ADDZR 1,0 ; AC0=MIDT=(MIN+MAX) DIV 2
40 00337'004451 JSR BEADR
41 00340'004431 JSR TESTB ; B>=A(MIDT)
42 00341'000411 JMP FIN02 ; NEJ HOP
43 00342'101400 INC 0,0 ; AC0=MIDT+1
44 00343'004445 JSR BEADR
45 00344'004425 JSR TESTB ; B<A(MIDT+1)
46 00345'000410 JMP FIN04 ; JA - HOP SLUT (INDEX=MIDT+1)
47 00346'100400 NEG 0,0 ; AC0=AC0-1=MIDT
48 00347'100000 COM 0,0
49 00350'041470 STA 0,U.S00,3 ; MIN=MIDT
50 00351'000763 JMP FIN01 ; FORFRA
51 00352'041471 FIN02: STA 0,U.S01,3 ; MAX=MIDT
52 00353'000761 JMP FIN01 ; FORFRA
«ff»
!0008 UCA01
01 00354'101400 FIN03: INC 0,0 ; INDEX=INDEX+1
02 00355'105000 FIN04: MOV 0,1 ; AC0,AC1=0,INDEX IE FIXTAL INDEX
03 00356'102400 SUB 0,0
04 BCALL FLOAT ; AC0,AC1=FLOAT INDEX
05 00357'035515 LDA 3 U.S21,3
06 00360'007401 JSR@ +1,3
07 00361'030040 LDA 2,CUR
08 00362'007106 A.PDOUBLE ; GEM INDEX
09 00363'000001 1
10 00364'000000 FIN05: 0
11 00365'002242 RET1 ; SLUT
12
13 00366'006244 ER31: ERROR
14 00367'000037 31
15
16 00370'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 00371'030017 TESTB: LDA 2,USER
06 00372'041103 STA 0,U.S11,2 ; GEM AC0 VÆK
07 00373'055102 STA 3,U.S10,2 ; GEM RETADR I US10
08 00374'102520 SUBZL 0,0 ; AC0=1
09 00375'030040 LDA 2,CUR
10 00376'007102 A.GDOUBLE ; HENT X
11 00377'030771 LDA 2,BADR ; AC2=B'S ADRESSE
12 BCALL FSUB ; AC0,AC1=B-X
13 00400'035515 LDA 3 U.S21,3
14 00401'007403 JSR@ +3,3
15 00402'101127 MOVZL 0,0,SBN ; HVIS X<=B RETURN TIL LINK+1
16 00403'011502 ISZ U.S10,3 ; HVIS X>B RETURN TIL LINK+0
17 00404'021503 LDA 0,U.S11,3 ; HENT AC0 TILBAGE
18 00405'003502 JMP @ U.S10,3 ; RETURN
19 ; ! CALL ! RET
20 ;-------------------
21 00406'000401 JMP +1,1 ; AC0 ! ? ! =
22 ; AC1 !ADR.X ! %
23 ; AC2 ! ? ! %
24 00407'000401 JMP +1,1 ; AC3 ! ? ! UDA
25
26
27
28 ; DENNE RUTINE BEREGNER DEN EFFEKTIVE
29 ; ADR PÅ ET INDEX I EN MATRIX, HVIS
30 ; FØRSTE ELEMENTS ADR ER ANGIVET VED
31 ; US12.
32 ; BEREGNINGEN ER MED LOWBOUND=1
33
34 00410'165000 BEADR: MOV 3,1 ; AC1=AC3, AC0=INDEX VED START
35 00411'034017 LDA 3,USER
36 00412'045502 STA 1,U.S10,3 ; GEM RET-ADR VÆK
37 00413'051503 STA 2,U.S11,3 ; GEM AC2
38 00414'031504 LDA 2,U.S12,3 ; AC2=ADR(MAT(1))
39 00415'104400 NEG 0,1
40 00416'124120 COMZL 1,1 ; INDEX=(INDEX-1)*2
41 00417'147000 ADD 2,1 ; AC1=ADR(MAT(1))+INDEX
42 00420'031503 LDA 2,U.S11,3 ; HENT AC2 IGEN
43 00421'003502 JMP @ U.S10,3 ; RETURN
44 ; ! CALL ! RET
45 ;-------------------
46 ; AC0 !INDEX !INDEX
47 ; AC1 ! ? ! ADR
48 ; AC2 ! ? ! =
49 ; AC3 ! ? ! UDA
50
51
«ff»
!0010 UCA01
01 00422'000004 FLM00: 4
02 00423'000100 REAL+ARRAY ; A = DET DER SKAL FLYTTES I
03 00424'000000 REAL ; INDEX = HVORFRA DER SKAL FLYTTES
04 00425'000000 REAL ; ANTAL = HVORLANGT ..
05 00426'000000 REAL ; MAX = SIDSTE ELEMENT BRUGT I A
06 00427'021004 LDA 0,+4,2
07 00430'041504 STA 0,U.S12,3 ; GEM ADR(A(1)) I US12
08 00431'021007 LDA 0,+7,2
09 00432'025010 LDA 1,+8,2 ; HENT INDEX
10 BCALL FIX ; FIX INDEX
11 00433'035515 LDA 3 U.S21,3
12 00434'007400 JSR@ +0,3
13 00435'101005 MOV 0,0,SNR ; ER 0<=INDEX<=32767 OG
14 00436'125005 MOV 1,1,SNR ; ER INDEX<>0 ?
15 00437'000727 JMP ER31 ; NEJ
16 00440'045471 STA 1,U.S01,3 ; GEM INDEX I US01
17 00441'031467 LDA 2,U.STK,3
18 00442'021013 LDA 0,+11,2
19 00443'025014 LDA 1,+12,2 ; HENT MAX
20 BCALL FIX ; FIX MAX
21 00444'035515 LDA 3 U.S21,3
22 00445'007400 JSR@ +0,3
23 00446'031467 LDA 2,U.STK,3
24 00447'031005 LDA 2,+5,2 ; HENT DIM(A)
25 00450'132432 SUBZ# 1,2,SZC ; ER MAX<=DIM(A) OG
26 00451'101004 MOV 0,0,SZR ; ER MAX>=0 ?
27 00452'000714 JMP ER31 ; NEJ
28 00453'021471 LDA 0,U.S01,3 ; AC0=INDEX
29 00454'045472 STA 1,U.S02,3 ; GEM MAX I US02
30 00455'125400 INC 1,1 ; AC1=MAX+1
31 00456'106423 SUBZ 0,1,SNC ; AC1=MAX+1-INDEX, ER AC1>=0 ?
32 00457'000707 JMP ER31 ; NEJ
33 00460'125005 MOV 1,1,SNR ; ER AC1=0 ?
34 00461'002242 RET1 ; JA SLUT
35 00462'045470 STA 1,U.S00,3 ; GEM ANT=MAX+1-INDEX I US00
36 00463'031467 LDA 2,U.STK,3
37 00464'021011 LDA 0,+9,2 ; HENT ANTAL
38 00465'025012 LDA 1,+10,2
39 BCALL FIX ; FIX ANTAL
40 00466'035515 LDA 3 U.S21,3
41 00467'007400 JSR@ +0,3
42 00470'101122 MOVZL 0,0,SZC ; ER ANTAL POSITIV ?
43 00471'000417 JMP FLM01 ; NEJ
44 00472'031467 LDA 2,U.STK,3
45 00473'031005 LDA 2,+5,2 ; AC2=DIM(A)
46 00474'021472 LDA 0,U.S02,3 ; AC0=MAX
47 00475'123000 ADD 1,0 ; AC0=ANTAL+MAX
48 00476'112423 SUBZ 0,2,SNC ; AC2=DIM(A)-ANTAL-MAX ER AC2>=0 ?
49 00477'000667 JMP ER31 ; NEJ
50 00500'152120 ADCZL 2,2 ; AC2=-2
51 00501'051473 STA 2,U.S03,3 ; GEM -2 I US03
52 00502'125120 MOVZL 1,1 ; ANTAL=ANTAL*2
53 00503'045477 STA 1,U.S07,3 ; GEM ANTAL*2 I US07
54 00504'021472 LDA 0,U.S02,3 ; AC0=MAX
55 00505'004703 JSR BEADR ; AC1=ADR(A(MAX))
56 00506'045474 STA 1,U.S04,3 ; GEM AC1 I US04
57 00507'000422 JMP FLM03 ; KLAR TIL LOOP
«ff»
!0011 UCA01
01 00510'021471 FLM01: LDA 0,U.S01,3 ; HVIS ANTAL NEGATIV: AC0=MAX
02 00511'123022 ADDZ 1,0,SZC ; ER ANTAL+MAX>=0 OG
03 00512'101005 MOV 0,0,SNR ; ER ANTAL+MAX<>0 ?
04 00513'000653 JMP ER31 ; NEJ
05 00514'102400 SUB 0,0
06 00515'101520 INCZL 0,0 ; AC0=2
07 00516'041473 STA 0,U.S03,3 ; GEM 2 I US03
08 00517'125120 MOVZL 1,1 ; AC1=ANTAL*-2
09 00520'045477 STA 1,U.S07,3 ; GEM ANTAL*-2 I US07
10 00521'021471 LDA 0,U.S01,3 ; AC0=INDEX
11 00522'004666 JSR BEADR ; AC1=ADR(A(INDEX))
12 00523'045474 STA 1,U.S04,3 ; GEM AC1 I US04
13 00524'000405 JMP FLM03 ; KLAR TIL LOOP
14 00525'021474 FLM02: LDA 0,U.S04,3 ; US04=US04+US03 DVS ADRESSEN BLIVER
15 00526'025473 LDA 1,U.S03,3 ; JUSTERET PASSENDE +/-2 ALT EFTER OM
16 00527'107000 ADD 0,1 ; LØKKEN KØRER FORLÆNS EL. BAGLÆNS
17 00530'045474 STA 1,U.S04,3
18 00531'030040 FLM03: LDA 2,CUR
19 00532'102520 SUBZL 0,0
20 00533'007102 A.GDOUBLE ; HENT A(ADR-US04)=X
21 00534'031474 LDA 2,U.S04,3 ; BEREGN DEPOSIT ADRESSE :
22 00535'035477 LDA 3,U.S07,3 ; LAD D.ADR=FLM04=US04+US07
23 00536'157000 ADD 2,3
24 00537'054404 STA 3,FLM04
25 00540'030040 LDA 2,CUR
26 00541'007106 A.PDOUBLE ; GEM X I A(ADR.US04+US07)
27 00542'000001 1
28 00543'000000 FLM04: 0
29 00544'015470 DSZ U.S00,3 ; TÆL LØKKETÆLLER(=ANT) EN NED. ANT=0?
30 00545'000760 JMP FLM02 ; NEJ FLRTSÆT
31 00546'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 00547'000003 FIX00: 3
02 00550'100000 REAL+REFERENCE
03 00551'100000 REAL+REFERENCE
04 00552'100000 REAL+REFERENCE
05 00553'102520 SUBZL 0,0 ; AC0=1
06 00554'027000 LDA @ 1,+0,2 ; AC1=A-ADRESSE
07 00555'030040 LDA 2,CUR ; AC2=CUR
08 00556'007102 A.GDOUBLE ; HENT A
09 00557'041470 STA 0,U.S00,3 ; GEM ORD 1 AF A
10 00560'102460 SUBC 0,0 ; AC0=0
11 BCALL FLOAT ; FLOAT ORD2 AF A
12 00561'035515 LDA 3 U.S21,3
13 00562'007401 JSR@ +1,3
14 00563'030040 LDA 2,CUR ; AC2=CUR
15 00564'035467 LDA 3,U.STK,3 ; AC3=F(F(USER)+U.STK)
16 00565'037402 LDA @ 3,+2,3 ; AC3=C-ADRESSE
17 00566'054403 STA 3,FIX01 ; GEM C-ADRESSE
18 00567'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I B
19 00570'000001 1
20 00571'000000 FIX01: 0
21 00572'025470 LDA 1,U.S00,3 ; HENT ORD1 AF A
22 00573'102460 SUBC 0,0 ; AC0=0
23 BCALL FLOAT ; FLOAT ORD1 AF A
24 00574'035515 LDA 3 U.S21,3
25 00575'007401 JSR@ +1,3
26 00576'030040 LDA 2,CUR ; AC2=CUR
27 00577'035467 LDA 3,U.STK,3
28 00600'037401 LDA @ 3,+1,3 ; AC3=B-ADRESSE
29 00601'054403 STA 3,FIX02 ; GEM B-ADRESSE
30 00602'007106 A.PDOUBLE ; GEM FLOAT AF ORD2 AF A I C
31 00603'000001 1
32 00604'000000 FIX02: 0
33 00605'002242 RET1 ; END FIX
34 ERRIO: BCALL IOERR
35
36 00606'035515 LDA 3 U.S21,3
37 00607'007411 JSR@ +9,3
«ff»
!0013 UCA01
01 00610'000003 FLO00: 3
02 00611'100000 REAL+REFERENCE
03 00612'100000 REAL+REFERENCE
04 00613'100000 REAL+REFERENCE
05 00614'027000 LDA @ 1,+0,2 ; AC1=A-ADRESSE
06 00615'006240 EXECUTE ; EXEC FLO02
07 00616'000637' FLO02
08 00617'002241 RET0 ; HVIS ERROR
09 00620'045470 STA 1,U.S00,3 ; GEM DEL 1 AF C
10 00621'031467 LDA 2,U.STK,3
11 00622'027001 LDA @ 1,+1,2 ; AC1=B-ADRESSE
12 00623'006240 EXECUTE
13 00624'000637' FLO02
14 00625'002241 RET0
15 00626'021470 LDA 0,U.S00,3 ; HENT DEL 1 AF C
16 00627'031467 LDA 2,U.STK,3
17 00630'033002 LDA @ 2,+2,2 ; AC2=C-ADRESSE
18 00631'050404 STA 2,FLO01 ; GEM C-ADRESSE
19 00632'030040 LDA 2,CUR
20 00633'007106 A.PDOUBLE ; AC0,AC1-->C
21 00634'000001 1
22 00635'000000 FLO01: 0
23 00636'002242 RET1
24 00637'102520 FLO02: SUBZL 0,0 ; AC0=1
25 00640'030040 LDA 2,CUR
26 00641'007102 A.GDOUBLE ; HENT A/B
27 BCALL FIX ; LAV OM TIL HELTAL
28 00642'035515 LDA 3 U.S21,3
29 00643'007400 JSR@ +0,3
30 00644'101005 MOV 0,0,SNR ; 0=<A/B=<32K ???
31 00645'002242 RET1 ; JA: RETURN
32 00646'006244 ERROR ; NEJ: RETURN MED ERROR 90
33 00647'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 00650'000000 0 ; NEXT
15 00651'000000 0 ; PREV
16 00652'000000 0 ; CHAIN
17 00653'000025 PP15-PP10 ; SIZE
18 00654'052503 .TXT .UCALL. ; NAME
19 040514
20 046000
21 00657'000657' .+0 ; FIRST EVENT
22 00660'000657' .-1 ; LAST EVENT
23 00661'000000 0 ; BUFFE
24 00662'000000' PP00 ; PROGRAM
25 00663'000000 0 ; STATE
26 00664'000000 0 ; TIMER
27 00665'000001 1 ; PRIORITY
28 00666'000007' PP05 ; BREAK
29 00667'000650' PP10 ; AC0
30 00670'000000 0 ; AC1
31 00671'000650' PP10 ; AC2
32 00672'000000 0 ; AC3
33 00673'000016" PP05*2 ; PSW
34 00674'000000 0 ; SAVE
35
36 PP15: ;
37 .END PP10
0000 SOURCE LINES IN ERROR
«ff»
0015 UCA01
ADD 103000 PS 3/25 9/41 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 6/11 9/10 11/20 12/08 13/26
A.PDO 007106 PS 3/37 4/16 8/08 11/26 12/18 12/30 13/20
BADR 000370' 7/26 8/16 9/11
BADRE 000127' 3/11 3/39 3/42
BCALL 000000 MC 3/15 4/09 5/03 6/12 7/10 8/04 9/12
10/10 10/20 10/39 12/11 12/23 12/34 13/27
BEADR 000410' 7/29 7/33 7/40 7/44 9/34 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 6/10 8/07 9/09
11/18 11/25 12/07 12/14 12/26 13/19 13/25
DSZ 014000 PS 11/29
ER31 000366' 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/16
ERRAD 000206' 4/22 4/28
ERRIO 000606' 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/20 13/06 13/12
FADD 177775 3/16 3/18 4/10 4/12 5/04 5/06 6/13
6/15 7/11 7/13 8/05 8/07 9/13 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/13
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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 000271' 2/22 7/01
FIN01 000334' 7/37 7/50 7/52
FIN02 000352' 7/42 7/51
FIN03 000354' 7/18 7/36 8/01
FIN04 000355' 7/31 7/46 8/02
FIN05 000364' 7/24 8/10
FIX 177777 3/16 3/18 4/10 5/04 5/06 6/13 6/15
7/11 7/13 8/05 9/13 10/11 10/13 10/21
10/23 10/40 10/42 12/12 12/24 12/35 13/28
13/30
FIX00 000547' 2/46 12/01
FIX01 000571' 12/17 12/20
FIX02 000604' 12/29 12/32
FLM00 000422' 2/28 10/01
FLM01 000510' 10/43 11/01
FLM02 000525' 11/14 11/30
FLM03 000531' 10/57 11/13 11/18
FLM04 000543' 11/24 11/28
FLO00 000610' 2/52 13/01
FLO01 000635' 13/18 13/22
FLO02 000637' 13/07 13/13 13/24
FLOAT 177776 3/16 3/18 4/10 4/12 5/04 5/06 6/13
6/15 7/11 7/13 8/05 8/07 9/13 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/13
«ff»
0016 UCA01
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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/13
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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/21
IDIV 177767 3/16 3/18 4/10 4/12 5/04 5/06 6/13
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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/13
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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/13
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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/13
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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/16
JMP 000000 PS 1/31 3/08 3/22 3/32 3/40 5/09 6/07
6/16 7/16 7/18 7/31 7/35 7/36 7/42
7/46 7/50 7/52 9/18 9/21 9/24 9/43
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/14 6/15 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 9/13 9/14 9/15 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 000270' 6/05 6/26
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/10 6/13
6/15 6/18 6/19 6/23 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/13 9/15 9/17 9/35 9/38 9/42 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
«ff»
0017 UCA01
13/28 13/30
MOV 101000 PS 3/20 3/31 5/07 5/10 6/15 7/14 7/17
8/02 9/34 10/13 10/14 10/26 10/33 11/03
13/30
NEG 100400 PS 7/47 9/39
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 000650' 1/24 14/13 14/17 14/29 14/31 14/37
PP15 000675' 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/22 6/25
8/11 10/34 11/31 12/33 13/23 13/31
SBN 000007 PS 9/15
SME00 000240' 2/40 6/01
SNC 000003 PS 7/15 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/17 6/24 7/07 7/19 7/21 7/24
7/26 7/28 7/49 7/51 9/06 9/07 9/36
9/37 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/15 10/26
TESTB 000371' 7/30 7/34 7/41 7/45 9/05
UD 000137' 3/40 3/47
USER 000017 PS 9/05 9/35
U.S00 000070 PS 6/17 6/23 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/16 9/18 9/36 9/43
U.S11 000103 PS 9/06 9/17 9/37 9/42
U.S12 000104 PS 7/28 9/38 10/07
U.S21 000115 PS 3/16 3/18 4/10 4/12 5/04 5/06 6/13
6/15 7/11 7/13 8/05 8/07 9/13 9/15
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/18 7/22 10/17 10/23 10/36
10/44 12/15 12/27 13/10 13/16
«ff»
«eof»