|
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: 11776 (0x2e00)
Types: TextFile
Names: »P1AD«
└─⟦c19f7203c⟧ Bits:30001822 SG0121 Floppy
└─⟦this⟧ »/P1AD«
; CDUMP / P1AD /VERS. 1.06/ KØRENDE & FÆRDIG / PL 10.4.82
; CDUMP 10.4 ->; CDUMP REV 1.06; CDUMP / P1AD / 8.4.82 OVERSKRIFTREDIG
; CDUMP VERS 1.05 PL 7.4.82 TIMEPROBL STADIG ULØST
; CDUMP 7.4.82 REDIGERINGER
; TIME VIRKER IKKE
; CDUMP / P1AD REV.1.04 /PL 5.4.82 AFTEN/ KALDES UDEN EL M 3 PARAM
; FÆRDIG - MED ALLE PAGEZEROSYMB
; CDUMP REV 1.04 5.4.82 NU OSSE TIME I OVERSKRIFT, ETC
; CDUMP REV 1.03 PR. 5.4.82 NU OSSE SPEC 0-WORD-MARKERING
; CDUMP VERS 1.03 (4.4.82) PL TILFØJET @-BIT FØR PSEUD
; PL CORE DUMP PROGRAM / FÆRDIG 31.3.82 KL 23 / 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 0.30 BEG
.TITL DUM16
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15 ;PSPEC
TX06 ;PSTAR
0 ;CHAIN
PCDS-PGDS ;SIZE
.TXT 'CDUMP<0>' ;NAME
TX06: .TXT 'CORE DUMP REV 1.06 /PL/ <0>'
PCDA: 32
LIG: 61
BUAD: 0
0
0
0
BUAD2: BUAD*2
GEM2: 0
ZONA1: LPZON
HOVUD:
LDA 2,ZONA1
LDA 1,.12
OUTCHAR
LDA 0,TX6B
OUTTEXT
JMP MIDL
LDA 0,32
LDA 1,BUAD2
HOV1:
LDA 2,CUR
BINDEC
LDA 0,BUAD2
LDA 2,ZONA1
OUTTEXT
OUTSP
MIDL:
; UDSKRIFT AF 8/5 F_RSTE PROC DESCR ADR:
LDA 0,.8
LDA 1,MAXKO
LDA 2,.12
SL 2,1
LDA 0,.5
STA 0,NO
LDA 3,34
KAEDE:
STA 3,PCDA
LDA 0,.4
ADDZL 3,0 ; NAME BYADR
LDA 2,ZONA1
OUTTEXT
LDA 1,LIG
OUTCHAR
LDA 0,PCDA
LDA 1,BUAD2
LDA 2,CUR
BINDEC
LDA 0,BUAD2
LDA 2,ZONA1
OUTTEXT
OUTSP
LDA 3,PCDA
LDA 3,2,3
DSZ NO
MOV # 3,3,SNR
JMP FORTS
JMP KAEDE
«ff»
; PL INDTASTET 27.3.82 OG RETTET STÆRKT 28.3.82 AFTEN OG JUSTERET FÆRDIG 31.3.81
ADRMK: 1
; TIADR: TIDAT*2
; TIBLK: TIDAT+4
TIBL0: 32*256+32
TINAM: .+1
.TXT 'TIME<0><0>'
; TIDAT: .TXT ' TIME UDEFINERET <0>'
TX6B: TX06*2
SIDER: 26
MAXKO: 20
MAXK1: 23
LINDX: 64
KINDX: 20
SIDEB: 0
LADR: 0
ADR: 0
NO: 0
BIRTH:
MOV 1,2
LDA 0,14,2 ; CHECK OM 3 PARAM (ADR,SIDER,KOLONNER)
LDA 1,15,2
LDA 3,.4
SNE 3,1
MOV 0,0,SZR
JMP DEFAU ; ELLERS BRUG DEFAULT-VÆRDIER
LDA 1,7,2
LDA 0,.255
MOVS 0,0
MOVZR 0,0 ; 0111 1111 1000 0000
AND 0,1
STA 1,SIDEB
STA 1,LADR
LDA 0,10,2
LDA 3,SIDER
SUBZ # 3,0,SNC
STA 0,SIDER ; ALTSÅ KUN HVIS SIDER > INPUTDATA
LDA 0,13,2
LDA 3,MAXK1
SUBZ # 3,0,SNC
STA 0,MAXKO ; ALTSÅ KUN HVIS MAXKOLONNER = 22 ER > INPUTDATA
DEFAU:
LDA 2,ZONAD
LDA 0,.3
OPEN
SIDES:
JMP HOVUD
FORTS:
LDA 2,MAXKO
STA 2,KINDX
LDA 2,TINAM
LDA 1,34
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,3,3
LDA 2,103
AND 2,1
STA 1,3,3
; SENDMESS
; WAITANSWER???
LDA 2,ZONAD
OUTTEXT
LDA 1,.48
OUTCHAR
NN:
LDA 2,ZONAD
OUTNL
LDA 0,SIDEB
STA 0,LADR
STA 0,ADR
HOV2:
LDA 1,BYAD2
LDA 2,CUR
BINDEC
LDA 2,ZONAD
LDA 0,BYAD2
OUTTEXT
OUTSPACE
LDA 0,.64
LDA 1,ADR
ADD 1,0
STA 0,ADR
DSZ KINDX
JMP HOV2
OUTNL
OUTNL
; NU BEGYNDER SELVE SIDEUDSKRIFTEN
«ff»
; NU BEGYNDER SELVE SIDEUDSKRIFTEN
LDA 1,SIDEB
STA 1,LADR
LDA 0,.64
STA 0,LINDX
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 1,.32
MOV # 3,3,SNR
LDA 1,.120 ; HVIS REST ER 0 (10-DELELIG ADRESSE), ELLERS 32
LDA 2,ZONAD
OUTCHAR
LDA 3,ADR ; NU ANALYSE OG UDSKRIFT AF DATA
MOVL 3,3
MOVZR 3,3
LDA 1,0,3
JSR DISAS
LDA 0,.64
LDA 3,ADR
ADD 3,0
STA 0,ADR
DSZ KINDX
JMP KOLO
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
LDA 2,.1B0
SL 1,2
JMP .+2
DSZ SIDER
JMP SIDES
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
«ff»
; 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
BYAD2: BYAD*2
BYAD1: BYAD ;
BYAD: 0 ; TAL I DEC TIL UDSKRIFT
0
0
0
0
KONTR: 0
ABADR: 0
AADR: 0
BADR: 0
ABKTR: 0
AKTR: 0
BKTR: 0
GRNS: 96
TILBA: 0
NULUD: LDA 2,ZONAD
OUTSP
OUTSP
LDA 1,GRNS
OUTCHAR
OUTSP
OUTSP
JMP @ TILBA
; SUBR SOM TESTER OM BYTE ER TEXT-BYTE & ELLERS ÆNDRER TIL 32
; 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,.32
SLE 0,1
ISZ KONTR ; IF 32 > BY ... ELSE:
LDA 0,KONTR ; HVIS VÆK: 32 I AC0 VED TILBAN ; AC1 = BYTE = UÆNDRET I DENNE VERS 28.3.82
JMP 0,3 ; TILBA
DISAS: ; HOVEDRUTINE TIL TEST FOR ASCII-TEGN:
; AC0 AC1 1C2 AC3
; ADR/PHK /? WORD/PL /? ? LINK
; ? ? ZONAD ?
STA 3,TILBA
STA 1,ABADR
MOV # 1,1,SNR
JMP NULUD
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
STA 0,BKTR ; BØR UDELADES HVIS IKKE DER ÆNDRES I TEST1-RUTINEN
MOV #1,1,SNR
MOV 1,0
LDA 1,AKTR
ADD 0,1
STA 1,ABKTR ; 1 HVIS IKKE BEGGE OPR VAR ASCII-TEGN
MOV # 1,1,SNR
JMP ASCI
; KONTROL FOR OM JMP @ DIS,0 ELLER JSR @ DIS,0
LDA 0,AADR
LDA 1,.12
COM 1,1
AND # 0,1,SZR
JMP TALUD
LDA 1,.4 ; FLG 3 SÆTN TILFØJET 4,4,82
AND # 0,1,SNR
JMP TALUD
LDA 3,TABEL
LDA 1,BADR
LDA 2,0,3
LOOP1:
MOV 3,0
SUB # 2,1,SNR
JMP PSEUD ; FUNDET!
INC 3,3
INC 3,3
INC 3,3
INC 3,3
LDA 2,0,3
MOV # 2,2,SZR
JMP LOOP1 ; SØG NÆSTE
; HVIS PSE-INSTR IKKE FUNDET SKRIVES TALLET:
TALUD:
LDA 0,ABADR
LDA 1,BYAD2
LDA 2,CUR
BINDEC
LDA 3,BYAD1
LDA 0,0,3
LDA 1,.48
INCS 1,1
SUB 2,2
SUBZ # 1,0,SNC ; TEST OM 0 SKAL ÆNDRES TIL BLANK I 1. BYTE
LDA 2,.16
MOVS 2,2
SUB 2,0
STA 0,0,3
LDA 0,BYAD2
LDA 2,ZONAD
OUTTEXT
JMP @ TILBA
; ASCII - TEGN UD
ASCI:
LDA 2,ZONAD
OUTSP
OUTSP
LDA 1,AADR
OUTCHAR
LDA 1,BADR
SNZ 1,1
LDA 1,GRNS
OUTCHAR
OUTSP
JMP @ TILBA
PSEUD:
INCZL 0,0
LDA 2,ZONAD
OUTTEXT
JMP @ TILBA
TABEL: PZJMP ; H U S K
; PL 23.3.82 SLUT
«ff»
PZJMP: 2
.TXT 'WAIT <0>'
3
.TXT 'WAITI<0>'
4
.TXT 'SENDM<0>'
5
.TXT 'WAITA<0>'
6
.TXT 'WAITE<0>'
7
.TXT 'SENDA'
8
.TXT 'SEARC'
9
.TXT 'CLEAN'
10
.TXT 'BREAK'
11
.TXT 'STOPP'
12
.TXT 'START'
13
.TXT 'RECHA'
116
.TXT 'NEXTO'
117
.TXT 'RETUR'
118
.TXT 'CLEAR'
119
.TXT 'WAITO'
120
.TXT 'SETIN'
121
.TXT 'SETRE'
122
.TXT 'SETCO'
123
.TXT 'CONBY'
124
.TXT 'GETBY'
125
.TXT 'PUTBY'
126
.TXT 'MULTI'
127
.TXT 'DIVID'
128
.TXT 'GETRE'
129
.TXT 'PUTRE'
130
.TXT 'WAITT'
131
.TXT 'REPEA'
132
.TXT 'TRANS'
133
.TXT 'INBLO'
134
.TXT 'OUTBL'
135
.TXT 'INCHA'
136
.TXT 'FREES'
137
.TXT 'OUTSP'
138
.TXT 'OUTCH'
139
.TXT 'OUTNL'
140
.TXT 'OUTEN'
141
.TXT 'OUTTE'
142
.TXT 'OUTOC'
143
.TXT 'SETPO'
144
.TXT 'CLOSE'
145
.TXT 'OPEN '
146
.TXT 'WAITZ'
147
.TXT 'INNAM'
148
.TXT 'MOVE '
149
.TXT 'INTPR'
150
.TXT 'INTGI'
152
.TXT 'INTBR'
156
.TXT 'MZSTA'
157
.TXT 'IRETU'
158
.TXT 'TAKEA'
159
.TXT 'TAKEV'
218
.TXT 'NEWCA'
219
.TXT 'FREEC'
220
.TXT 'CDELA'
221
.TXT 'WAITS'
222
.TXT 'WAITC'
223
.TXT 'CWANS'
224
.TXT 'CTEST'
225
.TXT 'CPRIN'
226
.TXT 'CTOUT'
227
.TXT 'SIGNA'
228
.TXT 'SIGCH'
229
.TXT 'CPASS'
230
.TXT 'CREAT'
231
.TXT 'LOOKU'
232
.TXT 'CHANG'
233
.TXT 'REMOV'
234
.TXT 'INITC'
235
.TXT 'SETEN'
236
.TXT 'COMON'
237
.TXT 'CALL '
238
.TXT 'GOTO '
239
.TXT 'GETAD'
240
.TXT 'GETPO'
244
.TXT 'CSEND'
245
.TXT 'SIGGE'
246
.TXT 'WAITG'
154
.TXT 'BINDE'
155
.TXT 'DECBI'
160
.TXT 'EXECU'
161
.TXT 'RET0 '
162
.TXT 'RET1 '
163
.TXT 'RET2 '
164
.TXT 'ERROR'
0
0
0
0
0
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 'CDUMP<0>'
.+0
.-1
BUFF1
PGDS
0
0
65500
DEAD
0
0
0
0
BIRTH*2
.BLK 6
.END PCDS
; FILENS INDH FRA PAGEZERO-PSE-TABEL ER HENTET FRA REACM
; PL 23.3.82
«ff»
«nul»