|
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: 10752 (0x2a00)
Types: TextFile
Names: »P1AD9«
└─⟦92491b7d7⟧ Bits:30001772 UDVIKLING AF CALLRUTINER ETC NR 2
└─⟦this⟧ »/P1AD9«
└─⟦c99ffa672⟧ Bits:30001786 SG0006 Floppy
└─⟦this⟧ »/P1AD9«
└─⟦ee9e554ad⟧ Bits:30001809 SG0107 Floppy
└─⟦this⟧ »/P1AD9«
; DDUMP 3.03 FÆRDIG 20.4.82 (2 BIT FLYTTET)
; DDUMP 3.03 UDVIKLES 18-19.4.82 UD FRA 3.02
; SOM ER LAVET 16.4.-14.4. UD FRA 3.01
; SOM ER LAVET 13.4.-12.4. OG PÅBEG 10.4.
; PÅ BASIS AF BDUMP P1AD3 2.03 AF 8.4
; UD FRA 2.02 7.4. (NY NULBYTE & FLERE PCD)
; UD FRA 2.01 5.4.82 KL 14
; BDUMP KALDES MED 3 ELLER INGEN PARAMETRE
; PL 5.4.82 EFTERM; PL 5.4.82 MORGEN
; ATRAT VESRION 2 BYTE-UDSKRIFT PL 4.4.82
; CDUMP VERS 1.03 (4.4.82) PL TILFØJET @-BIT FØR PSEUD
; PL CORE DUMP PROGRAM / FÆRDIG 31.3.82 KL 22 / UDSKRIVER OP TIL 22 KOLONNER
; KALDES CDUMP STARTADR SIDETAL KOLONNER
; ELLER CDUMP (UDEN PARAMETRE)
; HVIS INGEN PARAMETRE STARTES PÅ ADR 0, 26 SIDER, 20 KOLONNER (BREDT PAPIR)
; PROGRAMMETS FORHISTORIE ER BAGVENDT FORTALT:
; HENTET FRA P1ADT HVOR TESTSTOP ER FJERNET PL 29.3.82
; RETTET PL 29.3.82
; RETTET VERSION 28.3.82 AFTEN / ALLE TIDL VÆK / TEST HERI VÆK !
; TESTVERSION 28.3.82 AF CDUMP / SKAL KASSERES ?
; CDUMP RETTET SØ 28.3.82 / PL
; CDUMP 1.02 PL 27.3.82 EFTERM SAMLET AF 23.3. OG 27.3.MORGEN OG PKH-REACM UDDAG
; CDUMP REV 1.2 CORELAGER-DUMP VED PL 23.3.82 EFTER IDE I PHK LAGUD (REV 3.02)
; 27.3.82 .030 BEG
.TITL DUM33
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15 ;PSPEC
TX06 ;PSTAR
0 ;CHAIN
PCDS-PGDS ;SIZE
.TXT 'DDUMP<0>' ;NAME
TX06: .TXT 'CORE DUMP REV 3.03 /PL/ <0>'
«ff»
; HOVEDDEL AF PRG / KOLONNEADMIN
; PL INDTASTET OPR 27.3.82 / RETTET LØBENDE - 8.4.82
HOVST: 512
HUND: 100
ASIDE: 4096
BRED1: BREDT
BIRTH:
MOV 1,2
LDA 1,5,2
LDA 0,.6
SE 0,1
JMP DEFAU
LDA 1,7,2
LDA 0,ASIDE
LDA 2,CUR
STA 1,@ BRED1
MULTIPLY
STA 1,SIDEB
LDA 0,.256
STA 0,HOVST
LDA 0,.64
STA 0,MAXKO
LDA @ 0,BRED1
LDA 1,.8
SUBZ 0,1,SZC
STA 1,SIDER
DEFAU:
LDA 2,ZONA4
LDA 0,.3
OPEN
SIDES:
LDA 2,.16
STA 2,KINDX
JSR @ BEGG1
LDA 0,SIDEB
STA 0,LADR
STA 0,ADR
HOV2:
LDA 1,BUAD8
LDA 2,CUR
BINDEC
LDA 2,ZONA4
LDA 0,BUAD8
OUTTEXT
OUTSPACE
OUTSPACE
OUTSPACE
LDA 0,HOVST
LDA 1,ADR
ADD 1,0
STA 0,ADR
DSZ KINDX
JMP HOV2
OUTNL
LDA 2,.16
STA 2,KINDX
LDA 0,SIDEB
STA 0,LADR
HOV3:
MOVZL 0,0
MOVZR 0,0
STA 0,ADR
MOVS 0,0
LDA 1,.255
AND 1,0
STA 0,AXDR
LDA 1,BUAD2
LDA 2,CUR
BINDEC
LDA 2,ZONAD
LDA 0,BUAD3 ; KUN 3 BYTE
OUTTEXT
OUTSP
LDA 0,.32
LDA 1,AXDR
SL 0,1
LDA 1,.32
LDA 0,GRNS2
SL 1,0
LDA 1,.32
OUTCHAR
OUTSP
OUTSPACE
OUTSP
LDA 0,HOVST
LDA 1,ADR
ADD 1,0
DSZ KINDX
JMP HOV3
OUTNL
OUTNL
; NU BEGYNDER SELVE SIDEUDSKRIFTEN
LDA 1,SIDEB
STA 1,LADR
LDA 0,.64
STA 0,LINDX
JMP LINIE
MAXKO: 128
LINDX: 64
KINDX: 128
LADR: 0
ADR: 0
MRKE: 33
PRIK: 46
PLUS: 43
ADRMA: ADRMK
SIDEB: 0
SIDER: 4
BEGG1: BEGGN
ZONA4: LPZON
DISA1: DISAS
TX6B: TX06*2
BUAD8: BUAD*2
LINIE:
LDA 0,MAXKO
STA 0,KINDX
LDA 0,LADR
STA 0,ADR
KOLO:
LDA 2,CUR
LDA 1,.10
DIVIDE ; DIVISIONSREST I ACC 3
LDA 0,.32
MOV # 3,3,SNR
LDA 0,PRIK
STA 0,@ ADRMA
LDA 0,ADR
LDA 1,HUND
DIVIDE
LDA 0,PLUS
MOV # 3,3,SNR
STA @ 0,ADRMA
LDA 3,ADR ; NU ANALYSE OG UDSKRIFT AF DATA
MOVL 3,3
MOVZR 3,3
LDA 1,0,3
JSR @ DISA1
LDA 0,.64
LDA 3,ADR
ADD 3,0
STA 0,ADR
DSZ KINDX
JMP KOLO
LDA 0,34
LDA 1,FORST
SE 1,0
JSR PCSKF
OUTNL
ISZ LADR
DSZ LINDX
JMP LINIE
LDA 1,MAXKO
STA 1,KINDX
LDA 0,.64
MULTIPLY
LDA 0,SIDEB
ADD 0,1
STA 1,SIDEB
DSZ SIDER
JMP @ SIDE2
LDA 0,TX6B
LDA 2,ZONAD
OUTTEXT
OUTNL
DEAD:
LDA 1,MESAD
LDA 2,NADR
SENDMESS
LDA 2,CUR
STOPPROC
JMP .-2
MESAD: .+1
1B8
0
0
0
NADR: .+1
.TXT 'S<0><0><0><0><0>'
ZONAD: LPZON
BUAD: 0
0
0
BUAD2: BUAD*2
BUAD3: BUAD*2+2
BUAD4: BUAD*2+3
BUAD1: BUAD+1
AXDR: 0
GRNS2: 96
NO: 0
FORST: 34
SIDE2: SIDES
; PÅ DENNE SIDE ER 7.4.82 TILFØJET PCD-CHAIN I HEAD & NULL-BYTE-UDSK
«ff»
; PÅ DENNE SIDE ER 7.4.82 TILFØJET PCD-CHAIN I HEAD & NULL-BYTE-UDSK
TINAM: .+1
.TXT 'TIME<0><0>'
TIBL0: 32*256+32
GRNS1: 61
NO2: 0
NITT: 19
TILB4: TILBA
PRCD: 34
BEGGN:
STA @ 3,TILB4
LDA 2,ZONAD
LDA 1,.12
OUTCHAR
LDA 0,TX6B
OUTTEXT
LDA 0,.8
STA 0,NO
LDA 0,.2
STA 0,NO3
; COREKÆDE TILFØJET I VERSION 2.05 (2) (FORUDEN UDFEM (1)):
LDA 1,34
LDA 2,TINAM
SEARCHITEM
MOV # 2,2,SNR
JMP NN
LDA 0,-2,2
MOVZL 0,0
LDA 3,-1,2
LDA 1,TIBL0
STA 1,-1,3
LDA 1,NITT
JSR UDFEM
LDA 0,COREK
OUTTEXT
NN:
LDA 2,ZONA4
LDA 1,.40
LDA 2,CAPBG ; GÆTTER AT CAPXX ER 1. PRG I EGEN CORE
SEARCHITEM
MOV # 2,2,SNR
JMP KADE2
MOV 2,3
LDA 2,.7
SUB 2,3 ; AREALPROC COREAREAL
KAEDE: ; NU OPR KAEDE:
STA 3,PRCD
LDA 0,.4
ADDZL 3,0 ;NAME BY ADR
LDA 1,.6
JSR UDFEM
LDA 1,GRNS1
OUTCHAR
LDA 0,PRCD
LDA 1,BUAD2
LDA 2,CUR
BINDEC
LDA 0,BUAD2
LDA 2,ZONAD
OUTTEXT
OUTSP
LDA 3,PRCD
LDA 3,2,3
DSZ NO
MOV # 3,3,SNR
JMP .+2
JMP KAEDE
KADE2:
OUTNL
LDA 0,.10
STA 0,NO
LDA 3,34
STA 3,FORST
DSZ NO3
JMP KAEDE
JMP @ TILBA
NULBY: .+1*2
.TXT ' <96> <0>'
PCSKF:
STA 3,TILBA
STA 0,FORST
LDA 1,.4
ADDZL 1,0
LDA 1,.5
JSR UDFEM
JMP @ TILBA
TILB2: 0
UDFEM:
STA 3,TILB2
STA 1,NO2
FEM2:
MOVZR 0,3
LDA 1,0,3
INC 0,0,SNC
MOVS 1,1
LDA 3,.255
DSZ NO2
AND 3,1,SNR
JMP @ TILB2
LDA 2,ZONAD
OUTCHAR
JMP FEM2
CAPBG: .+1
.TXT 'CAPXX'
NO3: 0
COREK: .+1*2
.TXT ' COREITEMS: <0>'
PRIK1: 46
NULUD:
LDA 1,@ ADRM1
LDA 0,.32
SUB # 0,1,SNR
LDA 1,GRNS2
LDA 2,ZONAD
OUTCHAR
LDA 0,BREDT
INC # 0,0,SZR
OUTSPACE
JMP @ TILBA
ADRM1: ADRMK
SIDE8: SIDES
«ff»
; KORT OVERSIGT VERSION PL 12.4.82
; BYTEDUMP-VERSION /START PL 4.4.82
; PL 23.3.82 FÆRDIG RÅINDTASTNING AF DEL AF DOMUS DUMP PROGRAM
; RETTET EN DEL (P1ADT) 28.3.82 REDIG OG RETTET 31.3.82 TIL ENDEL PRG
; FILNAVN FOR PL RÅFIL ER P1DUM/1/2/3/4/5
BYAD3: BYAD*2+2
BYAD2: BYAD*2
BYAD1: BYAD ;
BYAD: 0 ; TAL I DEC TIL UDSKRIFT
0
0
0
0
KONTR: 0
ABADR: 0
AADR: 0
BADR: 0
AKTR: 0
BKTR: 0
GRNS: 96
BREDT: -1
TILBA: 0
NO8: 0
; AC0 ? AC1 BY AC2 ? AC3 ()
; 0=ASC = = TILBAADR
TEST1:
LDA 0,.255
AND 0,1
SUB 0,0
STA 0,KONTR
LDA 0,GRNS
SL 1,0
ISZ KONTR ; IF BY >= 96 ... ELSE
LDA 0,.48 ; ÆNDRET TIL 48 I DENNE VERSION 2.01
SLE 0,1
ISZ KONTR ; IF 32 > BY ... ELSNE:
LDA 0,.32 ; TILFØJET DA 32 BLEV ÆNDRET TIL 48
SE 0,1
JMP .+3
SUB 0,0
STA 0,KONTR
LDA 0,KONTR
JMP 0,3 ; TILBA
DISAS: ; HOVEDRUTINE TIL TEST FOR ASCII-TEGN:
; AC0 AC1 1C2 AC3
; ADR/PHK /? WORD/PL /? ? LINK
; ? ? ZONAD ?
LDA 0,.0
STA 0,NO8
STA 3,TILBA
STA 1,ABADR
MOVS 1,1
JSR TEST1 ; 1. BYTE ÆNDRES TIL ASCII-TEGN 32 HVIS IKKE OK
STA 1,AADR
STA 0,AKTR
LDA 1,ABADR
JSR TEST1
STA 1,BADR
MOV # 1,1,SNR
LDA 0,.0
STA 0,BKTR ; BØR UDELADES HVIS IKKE DER ÆNDRES I TEST1-RUTINEN
LDA 0,AADR
LDA 1,.12
COM 1,1
AND # 0,1,SZR
JMP BYUD ; EJ JMP/JSR ,0
LDA 1,.4 ; FLG 3 SÆTN TILFØJET 4,4,82
AND # 0,1,SNR
JMP BYUD ; EJ @
LDA 3,TABEL
LDA 1,BADR
LDA 2,0,3
LOOP1:
MOV 3,0
SUB # 2,1,SNR
JMP PSEUD ; FUNDET!
INC 3,3
LDA 2,0,3
MOV # 2,2,SZR
JMP LOOP1 ; SØG NÆSTE
; HVIS PSE-INSTR IKKE FUNDET SKRIVES TALLET:
BYUD:
LDA 1,AADR
LDA 0,AKTR
LDA 3,BKTR
ADD 3,0
STA 0,KONTR
MOV 0,0,SZR
JMP TALUD
LDA 2,ZONA2
OUTCHAR
LDA 0,BREDT
INC # 0,0,SNR
JMP @ TILBA
LDA 1,BADR
MOV # 1,1,SNR
LDA 1,.32
OUTCHAR
JMP @ TILBA
TALUD:
SUB 2,2
LDA 1,AADR
LDA 0,ABADR
MOV # 0,0,SNR
JMP NULUD
MOVZL # 0,0,SNC ; !!!! 14.4.82 KL 22 FLG:
JMP EJALU
INC 2,2
LDA 3,.15
AND # 0,3,SZR
INC 2,2
EJALU:
LDA 3,.16
SLE 1,3
MOV 3,1
ADD 2,1
LDA 3,TABAD
ADD 1,3
LDA 1,0,3
LDA 2,ZONA2
OUTCHAR
LDA 0,BREDT
INC # 0,0,SNR
JMP @ TILBA
LDA 1,@ ADRM1
OUTCH
JMP @ TILBA
ZONA2: LPZON
PSEUD:
LDA 1,STJER
LDA 2,ZONA2
OUTCHAR
LDA 0,BREDT
INC 0,0,SNR
JMP @ TILBA
LDA 1,STJER
OUTCHAR
JMP @ TILBA
TABEL: PZJMP ; H U S K
; PL 23.3.82 SLUT
STJER: 122
TRES: 60
TABAD: .+1
116
106
63
63
116
105
118
118
116
115
102
102
116
114
119
119
ADRMK: 46
61
60
64
«ff»
PZJMP: 2
3
4
5
6
7
8
9
10
11
12
13
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
152
156
157
158
159
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
244
245
246
154
155
160
161
162
163
164
0
«ff»
LPZON:.TXT 'LPT<0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1 ;ZKIND
65535 ;ZMASK
DEAD ;GIVE
1 ;ZFILE
1 ;ZBLOC
0 ;ZCONV
LPS0 ;ZBUFF
73 ;ZSIZE (132/2+SSIZE)
0 ;ZFORM
0 ;ZLENG
LPB0*2 ;ZFIRS
LPB0*2 ;ZTOP
LPS0
132
0
.BLK ZAUX
LPS0: 0
0
0
0
LPS0
0
LPB0*2
LPB0: .BLK 66
«ff»
BUFF1:.+0
.-1
BUFF2
10
PCDS
0
0
0
0
0
BUFF2:.+0
.-1
0
10
PCDS
0
0
0
0
0
PCDS: .+0
.-1
0
0
.TXT 'DDUMP<0>'
.+0
.-1
BUFF1
PGDS
0
0
65500
DEAD
0
0
0
0
BIRTH*2
.BLK 6
.END PCDS
; FIL SLUT EFTER RETABL 19.4.82 I FORB.M. UDVIKL AF 3.03 /PL
«ff»
«nul»