|
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: 5632 (0x1600)
Types: TextFile
Names: »P1P2«
└─⟦92491b7d7⟧ Bits:30001772 UDVIKLING AF CALLRUTINER ETC NR 2
└─ ⟦this⟧ »/P1P2«
; CDUMP REV 1.1 CORELAGER-DUMP VED PL 23.3.82 EFTER IDE I PHK LAGUD (REV 3.02)
.TITL DUM11
.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
«ff»
; PL 23.3.82 FÆRDIG RÅINDTASTNING AF DEL AF DOMUS DUMP PROGRAM
; DENNE FIL ER RETTET FRA MUSIL EDITOR OSSE !!!
; FILNAVN FOR PL RÅFIL ER P1DUM/1/2/3/4/5
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
; SUBR ; SUBR SOM TESTER (ÆNDR:=> ÆNDRER TIL) OM BYTE ER TEXTTEGN
; AC0 ? AC1 BY AC2 ? AC3 ()
; 1=EJ ASC =/32 = RETURADR
TEST1:
SUB 0,0
STA 0,KONTR
LDA 0,.127
SL 1,0
ISZ KONTR ; IF BY >= 127 ... ELSE
LDA 0,.32
SLE 0,1
ISZ KONTR ; IF 32 > BY ... ELSE:
LDA 0,KONTR ; HVIS VÆK: 32 I AC0 VED RETURN
STA 0,BKTR ; (I GIVET FALD OSSE VÆK)
DSZ KONTR
LDA 1,.32
JMP 0,3 ; RETUR
DISAS: ; HOVEDRUTINE TIL TEST FOR ASCII-TEGN:
LDA 1,WADR ; WADR HENTES I HOVEDFUTINE /////// H U S K
STA 1,ABADR
MOVS 1,1
LDA 0,.255
AND 0,1
JSR TEST1 ; 1. BYTE ÆNDRES TIL ASCII-TEGN 32 HVIS IKKE OK
STA 1,AADR
STA 0,AKTR
LDA 1,ABADR
LDA 0,.255
AND 0,1
JSR TEST1
STA 1,BADR
STA 0,BKTR ; BØR UDELADES HVIS IKKE DER ÆNDRES I TEST1-RUTINEN
LDA 1,AKTR
AND 0,1
STA 1,ABKTR ; 1 HVIS IKKE BEGGE OPR VAR ASCII-TEGN
SUB 0,0
SE 0,1
JMP ASCI
; KONTROL FOR OM JMP @ DIS,0 ELLER JSR @ DIS,0
LDA 0,AADR
MOVZR 0,0,SNC ; .... ?100 >0?
MOVZR 0,0,SZC ; .... ?10 >0?
JMP TALUD
MOVZR 0,0,SNC ; .... ?1 >1?
JMP TALUD
MOVZR 0,0,SZR ; .... ? >....=0000?
JMP TALUD
LDA @ 3,TABEL
LDA 1,ABADR
LDA 2,0,3
LOOP1:
MOVZL 3,0
SUB # 2,1,SNR
JMP PSEUD ; FUNDET!
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,BYAD
BINDEC
LDA 3,BYAD
LDA 0,0,3
LDA 1,.48
LDA 2,.255
MOVS 1,1
ADD 2,1
SUBZ # 1,0,SZC ; C=1 IF/ONLY IF BY1 = .48
LDA 2,.16
MOVS 2,2
SUB 2,0
STA 0,0,3
LDA 0,BYAD ; ?
LDA @ 2,ZONAD
OUTTEXT
JMP NÆSTE
; ASCII - TEGN UD
ASCI:
OUTSP
OUTSP
LDA @ 2,ZONAD
LDA 1,AADR
OUTCHAR
LDA 1,BADR
OUTCHAR
OUTSP
JMP NÆSTE
PSEUD:
MOV 0,3
INC 0,0
LDA @ ZONAD
OUTTEXT
JMP NÆSTE
ZONAD: LPZON
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'
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