|
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: 38912 (0x9800)
Types: TextFile
Names: »LDU30«
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
└─ ⟦this⟧ »/LDU30«
«ff»
0001 DUM28 DOMUS MACRO ASSEMBLER REV 02.00
01 ; BYTE-DUMP AF CORE REV. 2.08 OLIVETTI FÆRDIG 26.1.83 /PL
02 ; SOM TIDL - DOG
03 ; NYT:
04 ; COREITEMS HOVED HENTES KORREKT I DOMUS PRG DESCR
05 ; LIGE STARTADR => SMAL SKRIFT OG OP TIL 31 KOLONNER
06 ; ULIGE => NORMAL SKRIFT *** PAS SELV PÅ HØJST 18 KOLONNER
07 ; SIDETAL -1 => SAMME SIDE GENTAGES UBEGRÆNSET!
08
09 ; DUMP VERS. 2.08 FÆRDIG AFPUDSET 25.1.83
10 ; 2.08 AFSLUTTES 24.1.83 ; 24.1.83 UFÆRDIG
11 ; BDUMP REV 2.08 23.1.83 CORE FRA DOMUS/ OUTPUT TIL OLIVETTE (27.62.27.48 OG MXKO)
12 ; OLIVETTE VERSION 21.1.83
13 ; BDUMP VERS. 2.07 RETTET MHT CAP/CAPXX-IKKE-FUNDET: LDA 2,ZONAD //IØVR UÆNDR
14 ; DETTE RETTET 16.1.83 OG FIL PÅ PL-FÆRD-NR 3
15 ; FILNAVN HEREFTER BDA27 (BDUMP ASCII VERSION 2.07)
16
17 ; RETTET 11.1.83 PÅ NY DIABLO CAPXX ERSTATTET MED CAP !!
18 ; BDUMP 2.05 ÆGTE ENDELI 18.4.82 /FILPÅDISK/COREKÆDE/TIME
19 ; BDUMP 18.4.82 AFTEN /PL FILPÅDISKETTE OG COREKÆDE LØST
20 ; BDUMP 2.05 18.4.82 /FILPÅDISKETTEPROBLEM
21 ; BDUMP 2.04 PL 14.4.82 / PRG KØRER KORREKT UNDT NÅR FILER PÅ DISKETTER (RETTELSE EJ LAVET)
22
23 ; BDUMP REV 2.04 PÅPEB 12.4.82
24
25 ; BDUMP /P1AD3/ REV 2.03 FÆRDIGJUSTERET (ESS.) 10.4.82 - TIME IKKE INCL I VERSIONEN
26 ; 8 ELLER 5 PROCESSER MARKERES I HOVED - FARE VED FILPROC P
27 ; PÅ DISKETTER (10=> LINIESKIFT, FX)
28 ; BDUMP REDIGERINGER / P1AD3 / 8.4.82 PL
29 ; BDUMP/P1AD3 VERS. 2.02 PL 7.4.82 NULBYTE ÆNDRET & FLERE PCD
30 ; BDUMP / P1AD3 REV.2.01 / KALDES BDUMP MED INGEN EL. 3 PARAM /PL
31 ; BDUMP BYTE-DUMP AF CORE /// REV. 2.01 5.4.82 KL 14
32 ; KALDES MED 3 PARAM ELLER UDEN SOM CDUMP
33
34 ; PL 5.4.82 EFTERM; PL 5.4.82 MORGEN
35 ; ATRAT VESRION 2 BYTE-UDSKRIFT PL 4.4.82
36 ; CDUMP VERS 1.03 (4.4.82) PL TILFØJET @-BIT FØR PSEUD
37 ; PL CORE DUMP PROGRAM / FÆRDIG 31.3.82 KL 22 / UDSKRIVER OP TIL 22 KOLONNER
38 ; KALDES CDUMP STARTADR SIDETAL KOLONNER
39 ; ELLER CDUMP (UDEN PARAMETRE)
40 ; HVIS INGEN PARAMETRE STARTES PÅ ADR 0, 26 SIDER, 20 KOLONNER (BREDT PAPIR)
41
42 ; PROGRAMMETS FORHISTORIE ER BAGVENDT FORTALT:
43 ; HENTET FRA P1ADT HVOR TESTSTOP ER FJERNET PL 29.3.82
44 ; RETTET PL 29.3.82
45 ; RETTET VERSION 28.3.82 AFTEN / ALLE TIDL VÆK / TEST HERI VÆK !
46 ; TESTVERSION 28.3.82 AF CDUMP / SKAL KASSERES ?
47 ; CDUMP RETTET SØ 28.3.82 / PL
48 ; CDUMP 1.02 PL 27.3.82 EFTERM SAMLET AF 23.3. OG 27.3.MORGEN OG PKH-REACM UDDAG
49 ; CDUMP REV 1.2 CORELAGER-DUMP VED PL 23.3.82 EFTER IDE I PHK LAGUD (REV 3.02)
50 ; 27.3.82 0.30 BEG
51
.TITL DUM28
53 .NREL
54 00010 .RDXO 10
55 00010 .RDX 10
56 00001 .TXTM 1
57 00001 .TXTN 1
58
59 00000' 33793 PGDS: 1B0+1B5+1B15 ;PSPEC
60 00001' 00007' TX06 ;PSTAR
«ff»
0002 DUM28
01 00002' 00000 0 ;CHAIN
02 00003' 01012 PCDS-PGDS ;SIZE
03 00004' 16964 .TXT 'BDUMP<0>' ;NAME
04 21837
05 20480
06 00007' 17231 TX06: .TXT 'CORE DUMP REV 2.08O /PL 183/ <0>'
07 21061
08 08260
09 21837
10 20512
11 21061
12 22048
13 12846
14 12344
15 20256
16 12112
17 19488
18 12600
19 13103
20 08224
21 00000
22
«ff»
!0003 DUM28
01 ; HOVEDDEL AF PRG / KOLONNEADMIN
02 ; PL INDTASTET OPR 27.3.82 / RETTET LØBENDE - 8.4.82
03
04 00023' 00000 NOL: 0
05
06 BIRTH:
07
08 00024' 45568 MOV 1,2
09 00025' 08718 LDA 0,14,2 ; CHECK OM 3 PARAM (ADR,SIDER,KOLONNER)
10 00026' 10767 LDA 1,15,2
11 00027' 14414 LDA 3,.4
12 00028' 60685 SNE 3,1
13 00029' 33284 MOV 0,0,SZR
14 00030' 00283 JMP DEFAU ; ELLERS BRUG DEFAULT-VÆRDIER
15
16 00031' 10759 LDA 1,7,2
17 00032' 08291 LDA 0,.255
18 00033' 33472 MOVS 0,0
19 00034' 33424 MOVZR 0,0 ; 0111 1111 1000 0000
20 00035' 36608 AND 0,1
21 00036' 18803 STA 1,SIDEB
22 00037' 18798 STA 1,LADR
23
24 00038' 10759 LDA 1,7,2
25 00039' 43666 MOVZR 1,1,SZC
26 00040' 18927 STA 1,NOL
27
28 00041' 08714 LDA 0,10,2
29 00042' 33549 INC # 0,0,SNR
30 00043' 16749 STA 0,SIDER
31 00044' 14411 LDA 3,.32
32 00045' 58651 SUBZ # 3,0,SNC
33 00046' 16746 STA 0,SIDER ; ALTSÅ KUN HVIS SIDER > INPUTDATA
34
35 00047' 08717 LDA 0,13,2
36 00048' 14683 LDA 3,MAXK1
37 00049' 58651 SUBZ # 3,0,SNC
38 00050' 16734 STA 0,MAXKO ; ALTSÅ KUN HVIS MAXKOLONNER = 22 ER > INPUTDATA
39
40 00051' 08273 LDA 0,.3
41 00052' 12813 LDA 2,13,2
42 00053' 54016 INC 2,2
43 00054' 14677 LDA 3,MAXK1
44 00055' 62733 SUB # 3,2,SNR
45 00056' 16744 STA 0,UT
46
47 DEFAU:
48
49
50 00057' 12641 LDA 2,ZONA4
51
52 00058' 08273 LDA 0,.3
53 00059' 03217 OPEN
54 00060' 08525 LDA 0,T2762
55 00061' 10714 LDA 1,NOL
56 00062' 43524 MOV 1,1,SZR
57 00063' 08525 LDA 0,T2748
58 00064' 03213 OUTTEXT ; VÆLG SMAL SKRIFT HVIS ADR INPUT ER LIGE
59
60 ; TILFØJET 21.1.83
«ff»
0004 DUM28
01 SIDES:
02
03 00065' 12623 LDA 2,MAXKO
04 00066' 20816 STA 2,KINDX
05
06 ; TIME FLYTET TIL BEGGE
07 00067' 03414 JSR @ BEGG1
08
09 00068' 08531 LDA 0,SIDEB
10 00069' 16718 STA 0,LADR
11 00070' 16718 STA 0,ADR
12 HOV2:
13 00071' 10582 LDA 1,BUAD2
14 00072' 12320 LDA 2,CUR
15 00073' 03226 BINDEC
16 00074' 12624 LDA 2,ZONA4
17 00075' 08530 LDA 0,BUAD2
18 00076' 03213 OUTTEXT
19 00077' 03209 OUTSPACE
20 00078' 03209 OUTSPACE
21 00079' 08266 LDA 0,.64
22 00080' 10564 LDA 1,ADR
23 00081' 42496 ADD 1,0
24 00082' 16706 STA 0,ADR
25 00083' 06463 DSZ KINDX
26 00084' 00499 JMP HOV2
27
28 00085' 03211 OUTNL
29 00086' 12602 LDA 2,MAXKO
30 00087' 20795 STA 2,KINDX
31 00088' 08511 LDA 0,SIDEB
32 00089' 16698 STA 0,LADR
33 HOV3:
34 00090' 33360 MOVZL 0,0
35 00091' 33424 MOVZR 0,0
36 00092' 16696 STA 0,ADR
37 00093' 33472 MOVS 0,0
38 00094' 10339 LDA 1,.255
39 00095' 42752 AND 1,0
40 00096' 16705 STA 0,AXDR
41 00097' 10556 LDA 1,BUAD2
42 00098' 12320 LDA 2,CUR
43 00099' 03226 BINDEC
44 00100' 12598 LDA 2,ZONA4
45 00101' 08505 LDA 0,BUAD3 ; KUN 3 BYTE
46 ; JMP NNNN ; TÆNKE...
47 00102' 14646 LDA 3,BUAD1
48 00103' 10333 LDA 1,.48
49 00104' 43968 INCS 1,1
50 00105' 48410 SUBZ # 1,3,SZC
51 00106' 00263 JMP .+7 ; RETTET HERI 10.4.82
52 00107' 14641 LDA 3,BUAD1
53 00108' 08961 LDA 0,1,3
54 00109' 10315 LDA 1,.32
55 00110' 42496 ADD 1,0
56 00111' 17153 STA 0,1,3
57 00112' 08495 LDA 0,BUAD4
58 NNNN:
59 00113' 03213 OUTTEXT
60 00114' 03209 OUTSP
«ff»
0005 DUM28
01 00115' 08267 LDA 0,.32
02 00116' 10541 LDA 1,AXDR
03 00117' 35867 SL 0,1
04 00118' 10315 LDA 1,.32
05 00119' 08575 LDA 0,GRNS2
06 00120' 42011 SL 1,0
07 00121' 10315 LDA 1,.32
08 00122' 03210 OUTCHAR
09 00123' 03209 OUTSP
10 00124' 03209 OUTSP
11 00125' 08266 LDA 0,.64
12 00126' 10518 LDA 1,ADR
13 00127' 42496 ADD 1,0
14 00128' 06418 DSZ KINDX
15 00129' 00473 JMP HOV3
16
17
18 00130' 03211 OUTNL
19 00131' 03211 OUTNL
20 ; NU BEGYNDER SELVE SIDEUDSKRIFTEN
21 00132' 10515 LDA 1,SIDEB
22 00133' 18702 STA 1,LADR
23 00134' 08266 LDA 0,.64
24 00135' 16650 STA 0,LINDX
25
26 00136' 00282 JMP LINIE
27 00137' 00276" T2762: .+1*2
28 00138' 06974 .TXT *<27>>* ; NÆSTE ER <0>
29 00139' 00032 MAXK1: 32
30 00140' 00286" T2748: .+3*2
31 00141' 00284" T1248: .+1*2
32 00142' 08204 .TXT * <12><27><60>* ; NÆSTE ER <0>
33 06972
34 00144' 00030 MAXKO: 30
35 00145' 00064 LINDX: 64
36 00146' 00018 KINDX: 18
37 00147' 00000 LADR: 0
38 00148' 00000 ADR: 0
39 00149' 00033 MRKE: 33
40 00150' 00001 ADRMK: 1
41 00151' 10368 SIDEB: 10368
42 00152' 00012 SIDER: 12
43 00153' 00254'BEGG1: BEGGN
44 00154' 00849'ZONA4: LPZON
45 00155' 00014"TX6B: TX06*2
46 00156' 00242'BUAD1: BUAD+1
47 00157' 00482"BUAD2: BUAD*2
48 00158' 00484"BUAD3: BUAD*2+2
49 00159' 00485"BUAD4: BUAD*2+3
50 00160' 00006 UT: 6
51 00161' 00000 AXDR: 0
52
53
54 LINIE:
55
56 00162' 08686 LDA 0,MAXKO
57 00163' 16879 STA 0,KINDX
58
59 00164' 08687 LDA 0,LADR
60 00165' 16879 STA 0,ADR
«ff»
0006 DUM28
01
02 KOLO:
03
04
05 00166' 12320 LDA 2,CUR
06 00167' 10326 LDA 1,.10
07 00168' 03199 DIVIDE ; DIVISIONSREST I ACC 3
08 00169' 08684 LDA 0,MRKE
09 00170' 16876 STA 0,ADRMK
10 00171' 08289 LDA 0,.120
11 00172' 64013 MOV # 3,3,SNR
12 00173' 16873 STA 0,ADRMK
13 00174' 14822 LDA 3,ADR
14 00175' 08291 LDA 0,.255
15 00176' 59136 AND 3,0
16 00177' 03199 DIVIDE
17 00178' 08519 LDA 0,PLUS
18 00179' 64013 MOV # 3,3,SNR
19 00180' 16866 STA 0,ADRMK
20 00181' 10721 LDA 1,ADRMK
21 00182' 12602 LDA 2,ZONAD
22 00183' 03210 OUTCHAR
23
24 00184' 14812 LDA 3,ADR ; NU ANALYSE OG UDSKRIFT AF DATA
25 00185' 64064 MOVL 3,3
26 00186' 64144 MOVZR 3,3
27 00187' 11008 LDA 1,0,3
28 00188' 03388 JSR @ DISA1
29
30 00189' 08266 LDA 0,.64
31 00190' 14806 LDA 3,ADR
32 00191' 58880 ADD 3,0
33 00192' 16852 STA 0,ADR
34 00193' 06609 DSZ KINDX
35 00194' 00484 JMP KOLO
36
37 00195' 08505 LDA 0,FORST
38 00196' 10274 LDA 1,34
39 00197' 36108 SE 0,1
40 00198' 02431 JSR PCSKF
41
42 00199' 03211 OUTNL
43 00200' 04555 ISZ LADR
44 00201' 06600 DSZ LINDX
45 00202' 00472 JMP LINIE
46
47
48 00203' 10693 LDA 1,MAXKO
49 00204' 18886 STA 1,KINDX
50 00205' 08651 LDA 0,SIDER
51 00206' 33549 INC # 0,0,SNR
52 00207' 01320 JMP @ SIDE2
53 00208' 08266 LDA 0,.64
54 00209' 03198 MULTIPLY
55 00210' 08645 LDA 0,SIDEB
56 00211' 36352 ADD 0,1
57 00212' 18883 STA 1,SIDEB
58 00213' 06595 DSZ SIDER
59 00214' 01313 JMP @ SIDE2
60 00215' 08644 LDA 0,TX6B
«ff»
0007 DUM28
01 00216' 12568 LDA 2,ZONAD
02 00217' 03213 OUTTEXT
03
04
05
06 DEAD:
07 00218' 12566 LDA 2,ZONAD
08 00219' 08626 LDA 0,T1248
09 00220' 03213 OUTTEXT
10 00221' 10320 LDA 1,.1
11 00222' 03216 CLOSE
12
13
14 00223' 10503 LDA 1,MESAD
15 00224' 12555 LDA 2,NADR
16 00225' 03076 SENDMESS
17 00226' 12320 LDA 2,CUR
18 00227' 03083 STOPPROC
19 00228' 00510 JMP .-2
20
21 00229' 00027 TT27: 27
22 00230' 00231'MESAD: .+1
23 00231' 00128 1B8
24 00232' 00000 0
25 00233' 00000 0
26 00234' 00000 0
27 00235' 00236'NADR: .+1
28 00236' 21248 .TXT 'S<0><0><0><0><0>'
29 00000
30 00000
31
32
33 00239' 00482"BUAD8: BUAD*2
34 00240' 00849'ZONAD: LPZON
35 00241' 00000 BUAD: 0
36 00242' 00000 0
37 00243' 00000 0
38 00244' 00000 0
39 00245' 00000 0
40 00246' 00096 GRNS2: 96
41 00247' 00065'SIDE2: SIDES
42 00248' 00412'DISA1: DISAS
43 00249' 00043 PLUS: 43
44 00250' 00061 GRNS1: 61
45 00251' 00034 PRCD: 34
46 00252' 00000 FORST: 0
47
48
«ff»
!0008 DUM28
01 ; PÅ DENNE SIDE ER 7.4.82 TILFØJET PCD-CHAIN I HEAD & NULL-BYTE-UDSK
02
03 00253' 00394'TLBA1: TILBA
04 BEGGN:
05
06 00254' 24063 STA 3,TLBA1 @
07 00255' 12785 LDA 2,ZONAD
08 00256' 10327 LDA 1,.12
09 00257' 03210 OUTCHAR
10 00258' 08601 LDA 0,TX6B
11 00259' 03213 OUTTEXT
12 00260' 08278 LDA 0,.10
13 00261' 16765 STA 0,NO
14 00262' 08271 LDA 0,.2
15 00263' 16728 STA 0,NO3
16
17
18 ; COREKÆDE TILFØJET I VERSION 2.05 (2) (FORUDEN UDFEM (1)):
19 00264' 10274 LDA 1,34
20 00265' 12650 LDA 2,TINAM
21 00266' 03080 SEARCHITEM
22 00267' 53773 MOV # 2,2,SNR
23 00268' 00266 JMP NN
24 00269' 08958 LDA 0,-2,2
25 00270' 33360 MOVZL 0,0
26 00271' 15103 LDA 3,-1,2
27 00272' 10599 LDA 1,TIBL0
28 00273' 19455 STA 1,-1,3
29 00274' 10598 LDA 1,NITT
30 00275' 02363 JSR UDFEM
31
32
33 00276' 08524 LDA 0,COREK
34 00277' 03213 OUTTEXT
35 NN: ; REV 2.08 FLG MODIF (CORE FRA DOMUS)
36
37 00278' 12676 LDA 2,ZONA4
38 00279' 10332 LDA 1,.40
39 00280' 12611 LDA 2,CAPBG ; GÆTTER AT CAPXX ER 1. PRG I EGEN CORE
40 00281' 03080 SEARCHITEM
41 00282' 53773 MOV # 2,2,SNR
42 00283' 00283 JMP KADE2
43 00284' 20816 STA 2,HER1
44 00285' 12813 LDA 2,13,2
45 00286' 15103 LDA 3,-1,2 ; 1.COREITEM ADR
46
47 00287' 20814 STA 2,HER2
48 00288' 22862 STA 3,HER3
49 KAEDE: ; NU OPR KAEDE:
50
51 00289' 23002 STA 3,PRCD
52 00290' 08270 LDA 0,.4
53 00291' 58960 ADDZL 3,0 ;NAME BY ADR
54 00292' 10323 LDA 1,.6
55 00293' 02345 JSR UDFEM
56 00294' 10708 LDA 1,GRNS1
57 00295' 03212 OUTEND
58 00296' 08659 LDA 0,PRCD
59 00297' 10694 LDA 1,BUAD8
60 00298' 12320 LDA 2,CUR
«ff»
0009 DUM28
01 00299' 03226 BINDEC
02 00300' 08643 LDA 0,BUAD8
03 00301' 12739 LDA 2,ZONAD
04 00302' 03213 OUTTEXT
05 00303' 03209 OUTSP
06 00304' 14795 LDA 3,PRCD
07 00305' 15106 LDA 3,2,3
08 00306' 06480 DSZ NO
09 00307' 64013 MOV # 3,3,SNR
10 00308' 00258 JMP .+2
11 00309' 00492 JMP KAEDE
12
13 KADE2:
14 00310' 16695 STA 0,HER2
15 00311' 18743 STA 1,HER3
16 00312' 20791 STA 2,HER4
17
18
19 00313' 12727 LDA 2,ZONAD ; RETTET 16.1.83 - VERSION 2.07 - OSSE 218 NEWCA NEDENFOR
20 00314' 03211 OUTNL
21 00315' 08268 LDA 0,.16
22 00316' 16710 STA 0,NO
23 00317' 14370 LDA 3,34
24 00318' 22974 STA 3,FORST
25 00319' 06432 DSZ NO3
26 00320' 00481 JMP KAEDE
27 00321' 01353 JMP @ TILBA
28
29
30 00322' 00646"NULBY: .+1*2
31 00323' 08288 .TXT ' <96> <0>'
32 08192
33
34 PCSKF:
35
36 00325' 22853 STA 3,TILBA
37 00326' 18870 STA 1,FORST
38 00327' 08270 LDA 0,.4
39 00328' 42576 ADDZL 1,0
40 00329' 11523 LDA 1,UTT @
41 00330' 02308 JSR UDFEM
42 00331' 01343 JMP @ TILBA
43
44 00332' 00160'UTT: UT
45 00333' 00000 TILB2: 0
46
47 UDFEM:
48
49 00334' 23039 STA 3,TILB2
50 00335' 18740 STA 1,NO2
51 FEM2:
52 00336' 39568 MOVZR 0,3
53 00337' 11008 LDA 1,0,3
54 00338' 33539 INC 0,0,SNC
55 00339' 43712 MOVS 1,1
56 00340' 14435 LDA 3,.255
57 00341' 06446 DSZ NO2
58 00342' 61189 AND 3,1,SNR
59 00343' 01526 JMP @ TILB2
60 00344' 12696 LDA 2,ZONAD
«ff»
0010 DUM28
01 00345' 03210 OUTCHAR
02 00346' 00502 JMP FEM2
03
04 00347' 00348'CAPBG: .+1
05 ; /////////////////// RETTET (ENESTE) I VERS. 2.05.B83
06 00348' 17487 .TXT 'DOMUS'
07 19797
08 21248
09 00351' 00000 NO3: 0
10 00352' 00706"COREK: .+1*2
11 00353' 08224 .TXT ' COREITEMS: <0>'
12 17231
13 21061
14 18772
15 17741
16 21306
17 08192
18
19
20
21 NULUD:
22
23 00360' 08666 LDA 0,NULBY
24 00361' 12679 LDA 2,ZONAD
25 00362' 03213 OUTTEXT
26 00363' 00354 JMP BYUD2
27
28
29 00364' 00063 HER1: 63
30 00365' 00063 HER2: 63
31 00366' 00063 HER3: 63
32 00367' 00063 HER4: 63
33 00368' 21573 .TXT *TEST2*
34 21332
35 12800
36 00371' 00372' TINAM: .+1
37 00372' 21577 .TXT *TIME<0><0>*
38 19781
39 00000
40 00375' 08224 TIBL0: .TXT " "
41 00376' 00019 NITT: 19
42
43 ; HER BURDE VÆRE SIDESKIFT
44
45
46 ; BYTEDUMP-VERSION /START PL 4.4.82
47 ; PL 23.3.82 FÆRDIG RÅINDTASTNING AF DEL AF DOMUS DUMP PROGRAM
48 ; RETTET EN DEL (P1ADT) 28.3.82 REDIG OG RETTET 31.3.82 TIL ENDEL PRG
49 ; FILNAVN FOR PL RÅFIL ER P1DUM/1/2/3/4/5
50 00377' 00762"BYAD3: BYAD*2+2
51
52 00378' 00760"BYAD2: BYAD*2
53 00379' 00380'BYAD1: BYAD ;
54 00380' 00000 BYAD: 0 ; TAL I DEC TIL UDSKRIFT
55 00381' 00000 0
56 00382' 00000 0
57 00383' 00000 0
58 00384' 00000 0
59 00385' 00000 KONTR: 0
60 00386' 00000 NO: 0
«ff»
0011 DUM28
01 00387' 00000 NO2: 0
02 00388' 00000 ABADR: 0
03 00389' 00000 AADR: 0
04 00390' 00000 BADR: 0
05 00391' 00000 AKTR: 0
06 00392' 00000 BKTR: 0
07 00393' 00096 GRNS: 96
08 00394' 00000 TILBA: 0
09 ; SUBR SOM TESTER OM BYTE ER TEXT-BYTE & ELLERS ÆNDRER TIL 32
10 ; AC0 ? AC1 BY AC2 ? AC3 ()
11 ; 0=ASC = = TILBAADR
12 TEST1:
13
14 00395' 08291 LDA 0,.255
15 00396' 36608 AND 0,1
16 00397' 34048 SUB 0,0
17 00398' 16883 STA 0,KONTR
18 00399' 08698 LDA 0,GRNS
19 00400' 42011 SL 1,0
20 00401' 04592 ISZ KONTR ; IF BY >= 96 ... ELSE
21 00402' 08285 LDA 0,.48 ; ÆNDRET TIL 48 I DENNE VERSION 2.01
22 00403' 36123 SLE 0,1
23 00404' 04589 ISZ KONTR ; IF 32 > BY ... ELSNE:
24 00405' 08267 LDA 0,.32 ; TILFØJET DA 32 BLEV ÆNDRET TIL 48
25 00406' 36108 SE 0,1
26 00407' 00259 JMP .+3
27 00408' 34048 SUB 0,0
28 00409' 16872 STA 0,KONTR
29 00410' 08679 LDA 0,KONTR
30 00411' 00768 JMP 0,3 ; TILBA
31
32
33
34 DISAS: ; HOVEDRUTINE TIL TEST FOR ASCII-TEGN:
35 ; AC0 AC1 1C2 AC3
36 ; ADR/PHK /? WORD/PL /? ? LINK
37 ; ? ? ZONAD ?
38
39 00412' 08237 LDA 0,.0
40 00413' 16869 STA 0,NO
41 00414' 23020 STA 3,TILBA
42 00415' 18917 STA 1,ABADR
43 00416' 43712 MOVS 1,1
44 00417' 02538 JSR TEST1 ; 1. BYTE ÆNDRES TIL ASCII-TEGN 32 HVIS IKKE OK
45 00418' 18915 STA 1,AADR
46 00419' 16868 STA 0,AKTR
«ff»
!0012 DUM28
01 00420' 16867 STA 0,AKTR
02 00421' 10719 LDA 1,ABADR
03 00422' 02533 JSR TEST1
04 00423' 18911 STA 1,BADR
05 00424' 16864 STA 0,BKTR ; BØR UDELADES HVIS IKKE DER ÆNDRES I TEST1-RUTINEN
06 ; KONTROL FOR OM JMP @ DIS,0 ELLER JSR @ DIS,0
07 00425' 08668 LDA 0,AADR
08 00426' 10327 LDA 1,.12
09 00427' 43008 COM 1,1
10 00428' 36620 AND # 0,1,SZR
11 00429' 00273 JMP BYUD ; EJ JMP/JSR ,0
12 00430' 10318 LDA 1,.4 ; FLG 3 SÆTN TILFØJET 4,4,82
13 00431' 36621 AND # 0,1,SNR
14 00432' 00270 JMP BYUD ; EJ @
15 00433' 14655 LDA 3,TABEL
16 00434' 10708 LDA 1,BADR
17 00435' 13056 LDA 2,0,3
18 LOOP1:
19 00436' 57856 MOV 3,0
20 00437' 52493 SUB # 2,1,SNR
21 00438' 00309 JMP PSEUD ; FUNDET!
22 00439' 64256 INC 3,3
23 00440' 64256 INC 3,3
24 00441' 64256 INC 3,3
25 00442' 64256 INC 3,3
26 00443' 13056 LDA 2,0,3
27 00444' 53772 MOV # 2,2,SZR
28 00445' 00503 JMP LOOP1 ; SØG NÆSTE
29 ; HVIS PSE-INSTR IKKE FUNDET SKRIVES TALLET:
30 BYUD:
31 00446' 10695 LDA 1,AADR
32 00447' 08648 LDA 0,AKTR
33 BYNR2:
34 00448' 18881 STA 1,KONTR
35 00449' 33284 MOV 0,0,SZR
36 00450' 00274 JMP TALUD
37 00451' 12583 LDA 2,ZONA2
38 00452' 08638 LDA 0,NO
39 00453' 33284 MOV 0,0,SZR
40 00454' 03210 OUTCHAR
41 00455' 03209 OUTSP
42 00456' 03209 OUTSP
43 00457' 33284 MOV 0,0,SZR
44 00458' 00259 JMP BYUD2
45 00459' 10678 LDA 1,KONTR
46 00460' 03210 OUTCHAR
47 BYUD2:
48 00461' 14773 LDA 3,NO
49 00462' 08634 LDA 0,BKTR
50 00463' 10679 LDA 1,BADR
51 00464' 04530 ISZ NO
52 00465' 64013 MOV # 3,3,SNR
53 00466' 00494 JMP BYNR2
54 00467' 01463 JMP @ TILBA
55
56 TALUD:
57
58 00468' 41477 MOV 1,0,SNR
59 00469' 00403 JMP NULUD
60 00470' 10660 LDA 1,BYAD2
«ff»
0013 DUM28
01 00471' 12320 LDA 2,CUR
02 00472' 03226 BINDEC
03 00473' 14754 LDA 3,BYAD1
04 00474' 08961 LDA 0,1,3
05 00475' 10333 LDA 1,.48
06 00476' 12391 LDA 2,103 ;255*256
07 00477' 38848 ANDS 0,2
08 00478' 46336 SUB 1,2
09 00479' 10514 LDA 1,TEGN
10 00480' 46592 ADD 1,2
11 00481' 10752 LDA 1,0,2
12 00482' 12387 LDA 2,.255
13 00483' 51136 ANDS 2,0
14 00484' 42688 ADDS 1,0
15 00485' 17153 STA 0,1,3
16 00486' 08595 LDA 0,BYAD3
17 00487' 12547 LDA 2,ZONA2
18 00488' 03213 OUTTEXT
19 00489' 00484 JMP BYUD2
20
21 00490' 00849'ZONA2: LPZON
22 PSEUD:
23
24 00491' 33616 INCZL 0,0
25 00492' 12798 LDA 2,ZONA2
26 00493' 03213 OUTTEXT
27 00494' 03209 OUTSP
28 00495' 01435 JMP @ TILBA
29
30
31 00496' 00503'TABEL: PZJMP ; H U S K
32
33 ; PL 23.3.82 SLUT
34 00497' 00498'TEGN: .+1
35 00498' 00032 32
36 00499' 00046 46
37 00500' 00058 58
38 00501' 00063 63
39 00502' 00063 63
40
41 00503' 00002 PZJMP: 2
42 00504' 22337 .TXT 'WAIT <0>'
43 18772
44 08192
45 00507' 00003 3
46 00508' 22337 .TXT 'WAITI<0>'
47 18772
48 18688
49 00511' 00004 4
50 00512' 21317 .TXT 'SENDM<0>'
51 20036
52 19712
53 00515' 00005 5
54 00516' 22337 .TXT 'WAITA<0>'
55 18772
56 16640
57 00519' 00006 6
58 00520' 22337 .TXT 'WAITE<0>'
59 18772
60 17664
«ff»
0014 DUM28
01 00523' 00007 7
02 00524' 21317 .TXT 'SENDA'
03 20036
04 16640
05 00527' 00008 8
06 00528' 21317 .TXT 'SEARC'
07 16722
08 17152
09 00531' 00009 9
10 00532' 17228 .TXT 'CLEAN'
11 17729
12 19968
13 00535' 00010 10
14 00536' 16978 .TXT 'BREAK'
15 17729
16 19200
17
18 00539' 00011 11
19 00540' 21332 .TXT 'STOPP'
20 20304
21 20480
22 00543' 00012 12
23 00544' 21332 .TXT 'START'
24 16722
25 21504
26 00547' 00013 13
27 00548' 21061 .TXT 'RECHA'
28 17224
29 16640
30 00551' 00116 116
31 00552' 20037 .TXT 'NEXTO'
32 22612
33 20224
34 00555' 00117 117
35 00556' 21061 .TXT 'RETUR'
36 21589
37 20992
38 00559' 00118 118
39 00560' 17228 .TXT 'CLEAR'
40 17729
41 20992
42 00563' 00119 119
43 00564' 22337 .TXT 'WAITO'
44 18772
45 20224
46 00567' 00120 120
47 00568' 21317 .TXT 'SETIN'
48 21577
49 19968
50 00571' 00121 121
51 00572' 21317 .TXT 'SETRE'
52 21586
53 17664
54 00575' 00122 122
55 00576' 21317 .TXT 'SETCO'
56 21571
57 20224
58 00579' 00123 123
59 00580' 17231 .TXT 'CONBY'
60 20034
«ff»
0015 DUM28
01 22784
02 00583' 00124 124
03 00584' 18245 .TXT 'GETBY'
04 21570
05 22784
06 00587' 00125 125
07 00588' 20565 .TXT 'PUTBY'
08 21570
09 22784
10 00591' 00126 126
11 00592' 19797 .TXT 'MULTI'
12 19540
13 18688
14 00595' 00127 127
15 00596' 17481 .TXT 'DIVID'
16 22089
17 17408
18 00599' 00128 128
19 00600' 18245 .TXT 'GETRE'
20 21586
21 17664
22 00603' 00129 129
23 00604' 20565 .TXT 'PUTRE'
24 21586
25 17664
26 00607' 00130 130
27 00608' 22337 .TXT 'WAITT'
28 18772
29 21504
30 00611' 00131 131
31 00612' 21061 .TXT 'REPEA'
32 20549
33 16640
34 00615' 00132 132
35 00616' 21586 .TXT 'TRANS'
36 16718
37 21248
38 00619' 00133 133
39 00620' 18766 .TXT 'INBLO'
40 16972
41 20224
42 00623' 00134 134
43 00624' 20309 .TXT 'OUTBL'
44 21570
45 19456
46 00627' 00135 135
47 00628' 18766 .TXT 'INCHA'
48 17224
49 16640
50 00631' 00136 136
51 00632' 18002 .TXT 'FREES'
52 17733
53 21248
54 00635' 00137 137
55 00636' 20309 .TXT 'OUTSP'
56 21587
57 20480
58 00639' 00138 138
59 00640' 20309 .TXT 'OUTCH'
60 21571
«ff»
0016 DUM28
01 18432
02 00643' 00139 139
03 00644' 20309 .TXT 'OUTNL'
04 21582
05 19456
06 00647' 00140 140
07 00648' 20309 .TXT 'OUTEN'
08 21573
09 19968
10 00651' 00141 141
11 00652' 20309 .TXT 'OUTTE'
12 21588
13 17664
14 00655' 00142 142
15 00656' 20309 .TXT 'OUTOC'
16 21583
17 17152
18 00659' 00143 143
19 00660' 21317 .TXT 'SETPO'
20 21584
21 20224
22 00663' 00144 144
23 00664' 17228 .TXT 'CLOSE'
24 20307
25 17664
26 00667' 00145 145
27 00668' 20304 .TXT 'OPEN '
28 17742
29 08192
30 00671' 00146 146
31 00672' 22337 .TXT 'WAITZ'
32 18772
33 23040
34 00675' 00147 147
35 00676' 18766 .TXT 'INNAM'
36 20033
37 19712
38 00679' 00148 148
39 00680' 19791 .TXT 'MOVE '
40 22085
41 08192
42 00683' 00149 149
43 00684' 18766 .TXT 'INTPR'
44 21584
45 20992
46 00687' 00150 150
47 00688' 18766 .TXT 'INTGI'
48 21575
49 18688
50 00691' 00152 152
51 00692' 18766 .TXT 'INTBR'
52 21570
53 20992
54 00695' 00156 156
55 00696' 19802 .TXT 'MZSTA'
56 21332
57 16640
58 00699' 00157 157
59 00700' 18770 .TXT 'IRETU'
60 17748
«ff»
0017 DUM28
01 21760
02 00703' 00158 158
03 00704' 21569 .TXT 'TAKEA'
04 19269
05 16640
06 00707' 00159 159
07 00708' 21569 .TXT 'TAKEV'
08 19269
09 22016
10 00711' 00218 218
11 00712' 20037 .TXT 'NEWCA'
12 22339
13 16640
14 00715' 00219 219
15 00716' 18002 .TXT 'FREEC'
16 17733
17 17152
18 00719' 00220 220
19 00720' 17220 .TXT 'CDELA'
20 17740
21 16640
22 00723' 00221 221
23 00724' 22337 .TXT 'WAITS'
24 18772
25 21248
26 00727' 00222 222
27 00728' 22337 .TXT 'WAITC'
28 18772
29 17152
30 00731' 00223 223
31 00732' 17239 .TXT 'CWANS'
32 16718
33 21248
34 00735' 00224 224
35 00736' 17236 .TXT 'CTEST'
36 17747
37 21504
38 00739' 00225 225
39 00740' 17232 .TXT 'CPRIN'
40 21065
41 19968
42 00743' 00226 226
43 00744' 17236 .TXT 'CTOUT'
44 20309
45 21504
46 00747' 00227 227
47 00748' 21321 .TXT 'SIGNA'
48 18254
49 16640
50 00751' 00228 228
51 00752' 21321 .TXT 'SIGCH'
52 18243
53 18432
54 00755' 00229 229
55 00756' 17232 .TXT 'CPASS'
56 16723
57 21248
58 00759' 00230 230
59 00760' 17234 .TXT 'CREAT'
60 17729
«ff»
0018 DUM28
01 21504
02 00763' 00231 231
03 00764' 19535 .TXT 'LOOKU'
04 20299
05 21760
06 00767' 00232 232
07 00768' 17224 .TXT 'CHANG'
08 16718
09 18176
10 00771' 00233 233
11 00772' 21061 .TXT 'REMOV'
12 19791
13 22016
14 00775' 00234 234
15 00776' 18766 .TXT 'INITC'
16 18772
17 17152
18 00779' 00235 235
19 00780' 21317 .TXT 'SETEN'
20 21573
21 19968
22 00783' 00236 236
23 00784' 17231 .TXT 'COMON'
24 19791
25 19968
26 00787' 00237 237
27 00788' 17217 .TXT 'CALL '
28 19532
29 08192
30 00791' 00238 238
31 00792' 18255 .TXT 'GOTO '
32 21583
33 08192
34 00795' 00239 239
35 00796' 18245 .TXT 'GETAD'
36 21569
37 17408
38 00799' 00240 240
39 00800' 18245 .TXT 'GETPO'
40 21584
41 20224
42 00803' 00244 244
43 00804' 17235 .TXT 'CSEND'
44 17742
45 17408
46 00807' 00245 245
47 00808' 21321 .TXT 'SIGGE'
48 18247
49 17664
50 00811' 00246 246
51 00812' 22337 .TXT 'WAITG'
52 18772
53 18176
54 00815' 00154 154
55 00816' 16969 .TXT 'BINDE'
56 20036
57 17664
58 00819' 00155 155
59 00820' 17477 .TXT 'DECBI'
60 17218
«ff»
0019 DUM28
01 18688
02 00823' 00160 160
03 00824' 17752 .TXT 'EXECU'
04 17731
05 21760
06 00827' 00161 161
07 00828' 21061 .TXT 'RET0 '
08 21552
09 08192
10 00831' 00162 162
11 00832' 21061 .TXT 'RET1 '
12 21553
13 08192
14 00835' 00163 163
15 00836' 21061 .TXT 'RET2 '
16 21554
17 08192
18 00839' 00164 164
19 00840' 17746 .TXT 'ERROR'
20 21071
21 20992
22 00843' 00000 0
23 00844' 00000 0
24 00845' 00000 0
25 00846' 00000 0
26 00847' 00000 0
27 00848' 00000 0
«ff»
!0020 DUM28
01 00849' 19536 LPZON:.TXT 'LPT<0><0>' ;ZNAME
02 21504
03 00000
04 00852' 00026 Z ;SIZE
05 00853' 00000 0 ;ZMODE
06 00854' 00001 1 ;ZKIND
07 00855' 65535 65535 ;ZMASK
08 00856' 00218' DEAD ;GIVE
09 00857' 00001 1 ;ZFILE
10 00858' 00001 1 ;ZBLOC
11 00859' 00000 0 ;ZCONV
12 00860' 00875' LPS0 ;ZBUFF
13 00861' 00117 117 ;ZSIZE (132/2+SSIZE)
14 00862' 00000 0 ;ZFORM
15 00863' 00000 0 ;ZLENG
16 00864' 01764" LPB0*2 ;ZFIRS
17 00865' 01764" LPB0*2 ;ZTOP
18 00866' 00875' LPS0
19 00867' 00220 220
20 00868' 00000 0
21 00869' 00006 .BLK ZAUX
22
23 00875' 00000 LPS0: 0
24 00876' 00000 0
25 00877' 00000 0
26 00878' 00000 0
27 00879' 00875' LPS0
28 00880' 00000 0
29 00881' 01764" LPB0*2
30 00882' 00110 LPB0: .BLK 110
31
«ff»
!0021 DUM28
01
02 00992' 00992'BUFF1:.+0
03 00993' 00992' .-1
04 00994' 01002' BUFF2
05 00995' 00010 10
06 00996' 01012' PCDS
07 00997' 00000 0
08 00998' 00000 0
09 00999' 00000 0
10 01000' 00000 0
11 01001' 00000 0
12 01002' 01002'BUFF2:.+0
13 01003' 01002' .-1
14 01004' 00000 0
15 01005' 00010 10
16 01006' 01012' PCDS
17 01007' 00000 0
18 01008' 00000 0
19 01009' 00000 0
20 01010' 00000 0
21 01011' 00000 0
22
23 01012' 01012'PCDS: .+0
24 01013' 01012' .-1
25 01014' 00000 0
26 01015' 00000 0
27 01016' 16964 .TXT 'BDUMP<0>'
28 21837
29 20480
30 01019' 01019' .+0
31 01020' 01019' .-1
32 01021' 00992' BUFF1
33 01022' 00000' PGDS
34 01023' 00000 0
35 01024' 00000 0
36 01025' 65500 65500
37 01026' 00218' DEAD
38 01027' 00000 0
39 01028' 00000 0
40 01029' 00000 0
41 01030' 00000 0
42 01031' 00048" BIRTH*2
43 01032' 00006 .BLK 6
44
45 .END PCDS
0000 SOURCE LINES IN ERROR
«ff»
0022 DUM28
AADR 000389' 11/03 11/45 12/07 12/31
ABADR 000388' 11/02 11/42 12/02
ADR 000148' 4/11 4/22 4/24 4/36 5/12 5/38 5/60
6/13 6/24 6/31 6/33
ADRMK 000150' 5/40 6/09 6/12 6/19 6/20
AKTR 000391' 11/05 11/46 12/01 12/32
AXDR 000161' 4/40 5/02 5/51
BADR 000390' 11/04 12/04 12/16 12/50
BEGG1 000153' 4/07 5/43
BEGGN 000254' 5/43 8/04
BIRTH 000024' 3/06 21/42
BKTR 000392' 11/06 12/05 12/49
BUAD 000241' 5/46 5/47 5/48 5/49 7/33 7/35
BUAD1 000156' 4/47 4/52 5/46
BUAD2 000157' 4/13 4/17 4/41 5/47
BUAD3 000158' 4/45 5/48
BUAD4 000159' 4/57 5/49
BUAD8 000239' 7/33 8/59 9/02
BUFF1 000992' 21/02 21/32
BUFF2 001002' 21/04 21/12
BYAD 000380' 10/50 10/52 10/53 10/54
BYAD1 000379' 10/53 13/03
BYAD2 000378' 10/52 12/60
BYAD3 000377' 10/50 13/16
BYNR2 000448' 12/33 12/53
BYUD 000446' 12/11 12/14 12/30
BYUD2 000461' 10/26 12/44 12/47 13/19
CAPBG 000347' 8/39 10/04
COREK 000352' 8/33 10/10
DEAD 000218' 7/06 20/08 21/37
DEFAU 000057' 3/14 3/47
DISA1 000248' 6/28 7/42
DISAS 000412' 7/42 11/34
FEM2 000336' 9/51 10/02
FORST 000252' 6/37 7/46 9/24 9/37
GRNS 000393' 11/07 11/18
GRNS1 000250' 7/44 8/56
GRNS2 000246' 5/05 7/40
HER1 000364' 8/43 10/29
HER2 000365' 8/47 9/14 10/30
HER3 000366' 8/48 9/15 10/31
HER4 000367' 9/16 10/32
HOV2 000071' 4/12 4/26
HOV3 000090' 4/33 5/15
KADE2 000310' 8/42 9/13
KAEDE 000289' 8/49 9/11 9/26
KINDX 000146' 4/04 4/25 4/30 5/14 5/36 5/57 6/34
6/49
KOLO 000166' 6/02 6/35
KONTR 000385' 10/59 11/17 11/20 11/23 11/28 11/29 12/34
12/45
LADR 000147' 3/22 4/10 4/32 5/22 5/37 5/59 6/43
LINDX 000145' 5/24 5/35 6/44
LINIE 000162' 5/26 5/54 6/45
LOOP1 000436' 12/18 12/28
LPB0 000882' 20/16 20/17 20/29 20/30
LPS0 000875' 20/12 20/18 20/23 20/27
LPZON 000849' 5/44 7/34 13/21 20/01
MAXK1 000139' 3/36 3/43 5/29
MAXKO 000144' 3/38 4/03 4/29 5/34 5/56 6/48
«ff»
0023 DUM28
MESAD 000230' 7/14 7/22
MRKE 000149' 5/39 6/08
NADR 000235' 7/15 7/27
NITT 000376' 8/29 10/41
NN 000278' 8/23 8/35
NNNN 000113' 4/58
NO 000386' 8/13 9/08 9/22 10/60 11/40 12/38 12/48
12/51
NO2 000387' 9/50 9/57 11/01
NO3 000351' 8/15 9/25 10/09
NOL 000023' 3/04 3/26 3/55
NULBY 000322' 9/30 10/23
NULUD 000360' 10/21 12/59
PCDS 001012' 2/02 21/06 21/16 21/23 21/45
PCSKF 000325' 6/40 9/34
PGDS 000000' 1/59 2/02 21/33
PLUS 000249' 6/17 7/43
PRCD 000251' 7/45 8/51 8/58 9/06
PSEUD 000491' 12/21 13/22
PZJMP 000503' 13/31 13/41
SIDE2 000247' 6/52 6/59 7/41
SIDEB 000151' 3/21 4/09 4/31 5/21 5/41 6/55 6/57
SIDER 000152' 3/30 3/33 5/42 6/50 6/58
SIDES 000065' 4/01 7/41
T1248 000141' 5/31 7/08
T2748 000140' 3/57 5/30
T2762 000137' 3/54 5/27
TABEL 000496' 12/15 13/31
TALUD 000468' 12/36 12/56
TEGN 000497' 13/09 13/34
TEST1 000395' 11/12 11/44 12/03
TIBL0 000375' 8/27 10/40
TILB2 000333' 9/45 9/49 9/59
TILBA 000394' 8/03 9/27 9/36 9/42 11/08 11/41 12/54
13/28
TINAM 000371' 8/20 10/36
TLBA1 000253' 8/03 8/06
TT27 000229' 7/21
TX06 000007' 1/60 2/06 5/45
TX6B 000155' 5/45 6/60 8/10
UDFEM 000334' 8/30 8/55 9/41 9/47
UT 000160' 3/45 5/50 9/44
UTT 000332' 9/40 9/44
ZONA2 000490' 12/37 13/17 13/21 13/25
ZONA4 000154' 3/50 4/16 4/44 5/44 8/37
ZONAD 000240' 6/21 7/01 7/07 7/34 8/07 9/03 9/19
9/60 10/24
«ff»
«eof»