|
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: 16384 (0x4000)
Types: TextFile
Names: »P0A13«
└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
└─⟦this⟧
; FÆRDIG UGAVE GENETABL 23.9.83 *** P9A13 *** BINSK
; NULBYTE SPECIALUDSKRIVES NU! 22.9.83
; P5A13 FÆRDIG ABS/REL BIN FILUDSKRIFT PL 22.9.83; MGL ASCII-UDSKRIFT
; 22.9.83 KL 16 .......... ; SÅ NU?!
; HÅBER NU OK!
; 22.9.83 VALGBETINGELSE ÆNDRET!! (2.W=0 GAV PROBL)
; INDKØRING AF SELVVALG REL/ABS 21.9.83
; VIRKER FOR ABS BIN. FIL P9A13 PL 19.9.83 KL 2350
; P8A13; DETTE PROGRAM UDKRIVER ABS BIN FILER OK, MEN ER FORB TIL SELV AT VÆLGE ABS/REL BIN
; IDET MAN BLOT SKAL FJERENE NOGLE SPRING OG DEBUGGE DET HELE!
; PL 19.9.83 AFTEN
; 19.9 AFTEN FILNAVN NU P7A13
; RETTET 19.9.EFTERM ; RETTET FOR 3 ADR-FEJL 19.9.83 (VAR ENESTE FEJL VED DOMAC)
; P1A13 NU OSSE ABS.BIN OPTION /AUTOMATISK PL 19.9.83 DOMUS EXPL XXIV
; P1A12 STORT SET FÆRDIG, MGL DOG ALMEN UDSKRIFT 1.2.83 KL 18 PL
; P1A12 31.1.83
; P1A11 30.1.83 VIDEREARB
; FILNAVN P1A10 FF HENHV FILUD/FIAUD (ASCII) PÅ DISKETTER
; VIDEREUDVIKL TIL PSE-INSTR OG GENERELLE FILER PÅBEG 29.1.83 AFTEN (INDTASTN)
; RETTET (FÆRDIG) 25.1.83
; PL BINÆR FIL BLOK-UDSKRIFT BYTEOMB TEXTER P1A04/BBU04 (ASCII-NAVNE) 23.1.83
; RÆKKEUDSKRIFTVERSION (SPARE PAPIR)
; PL 19.1.83
; BINÆR FIL BLOK-BYTE-UDSKRIFT / NAVN: BBUNN (NN=NUMMER) ELLER P1ABB
; VIDEREUDVIKL PÅ PHK REA00 SOM ER VIDEREUDVIKL AF PROGRAMMET :
; SKRIVEPROGRAM (BINÆR) FIL 'FIL' PL 17.1.83
.TITL SKRIV
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'SKRIV'
LAB00:
TEKST: .+1*2
.TXT "<12>BINÆR FIL-UDSKRIFT /PL SEPT 83/ (ABS & REL BINÆR FIL)<13><10>
BYTE-TEXT<13><10>
BLOKOPDELT-BYTEOMBYTN-SYMBPAGEZERO-TEXT<13><10>
PL 23.9.83<13><10><10>FIL: <0>"
; NY VALGRUTINE 1)SLUT? 2)ABS/REL? / PL 22.9.83
RELE: RELEN
FORAN: LDA 3,FOEBL
MOV 3,3,SZR ; FØRSTE W I BLOCK?!
JMP OK21 ; NÆH
MOV 0,0,SNR ; ER DATA PÅ DENNE ADR 0 ?!
JMP DEAD1 @ ; SÅ SLUT
OK21: LDA 3,.255
STA 3,FOEBL
LDA 3,FOERS ; FØRSTE BLOCK ?!
MOV 3,3,SZR
JMP @ RELE ; NÆH
LDA 3,.8
STA 3,FOERS ; SÅ KOMMER VI IKKE HER MERE!
SG 0,3
JMP @ RELE ; DAT < 8: REL BIN ANTAGES
LDA 3,.32
NEG 3,3
SG 0,3
JMP EJBFI @ ; DAT HELLER IKKE > -32, FIL ANTAGES NON BINÆR
STA 3,ABSK ; DAT >-32: ABS BIN ANTAGES
STA 3,ABSKA @
ISZ DXTAU @
ISZ TXLL3 @ ; TALL3 = DATAU = NR I BLOKKEN (HVIS REL BIN TIÆLLES 3,4,5 TO GANGE)
DSZ TALL4
DSZ TALL4
JMP .+1
LDA 2,LPADR
LDA 1,TT45
OUTCHAR ; 23.9.83 RETTELSE!
JMP @ RELE ; SÆDV. FORTSÆTTELSE MED ABS KONTROLPARAM !
DXTAU: DATAU
TXLL3: TALL3
ABSKA: ABSKT
TXKST: TEKST
FOERS: 0
FOEBL: 0
.TXT "FØRST?"
TT762: .+1*2
.TXT &<27>><0>&
TALMM: TALLE
DEAD1: DEAD
TT260: 260
DATU1: 0
DATUU: 0
0
ABK11: ABSK
ABK22: ABSKT
BIRTH:
MOV 1,2
LDA 0,6,2
MOV 0,0,SZR
JMP DEFAU
LDA 0,7,2
LDA 3,FIADR
STA 0,0,3
LDA 0,8,2
STA 0,1,3
LDA 0,9,2
STA 0,2,3
; FILPARAM INPUT 25.1.83
DEFAU:
LDA 0,.1
LDA 2,FIADR
OPEN
LDA 0,.0
LDA 1,.0
SETPO
LDA 0,.3
LDA 2,LPADR
OPEN
LDA 0,TXKST @
OUTTEXT
LDA 0,FIADR
MOVZL 0,0
OUTTEXT
OUTNL
; LDA 0,TT762
; OUTTEXT
OUTNL
«ff»
; DENNE SIDE NÆSTEN FYLDT!
JMP NYLIN
TT258: 258
EJBFI: EJBF
FIADR: FIZON
LPADR: LPZON
DAT: 0
LSK: LSKT*2 ; LINIESKIFT M. SPACE-TEXT
LSK22: LSKT4*2 ; DO - REL.BIN
TALL4: 0 ; TÆLLE TO 16 FOR NL
TT45: 45
ABSK: 0 ; <>0 HVIS ABS BIN
NYLIN:
LDA 3,.12 ; 19.9
STA 3,TALL4 ; KONTROLTÆLLE FOR EXTRA LINIESKIFT (NORMAL SKRIFT BREDT PAPIR = 12 EVT 16)
LDA 3,ABSK
MOV 3,3,SZR ; REL/BIN?
JMP .+3 ; HVIS ABS BIN
ISZ TALL4 ; HVIS REL BIN
ISZ TALL4
SUB 0,0
STA 0,FOEBL ; SIDSTE TILFØJELSE (ALT OM FOEBL, OSSE OVENFOR , 22.9.83)
STA 0,TALL3
LDA 0,BBBB
STA 0,BBB
LDA 0,.12
STA 0,TALL2
STA 0,TALMM @
LDA 0,.0
LDA 3,ABSK ; 19.9 FLG 3 IALT
MOV 3,3,SZR ; HVIS REL
LDA 0,.1 ; HVIS ABS
STA 0,DATAU
STA 0,TALL3 ; 19.9. AFTEN
MOV 3,3,SNR
OUTNL ; KUN HVIS REL BIN
OUTNL
LDA 3,ABSK ; 19.9. EFTM
MOV 3,3,SNR ; HVIS ABS
JMP NYTGN ; HVIS REL
LDA 1,TT45
OUTCHAR ; - FØRST PÅ LINIEN HVIS ABS
NYTGN: ; TO NYE BYTES HENTES OG OMBYTTES
; FLG. CA 15 19.9.83 ABS BIN FACILITET
DSZ TALL4
JMP EJLSK
LDA 0,LSK
LDA 3,ABSK
MOV 3,3,SNR
LDA 0,LSK22 ; HVIS REL BIN (LÆNGERE SPACE)
LDA 2,LPADR
OUTTEXT ; FORDI IKKE OLIVETTI-FORUDSÆTN
LDA 3,.10
STA 3,TALL4
EJLSK:
ABSEJ: ; FLG GAMLE FIL (REL.PROGR)
LDA 0,.0
STA 0,PSKTR
LDA 2,FIADR
ISZ DATAU
INCHAR
STA 1,DAT
INCHA
MOVS 1,1
LDA 0,DAT
ADD 1,0
STA 0,DAT
JMP @ .+1
FORAN
RELEN: LDA 1,DATAU ; FØRSTE 6 TEGN SÆRBEHANDLES: HVIS 2. DA BESTEM BLOKSTØRRELSE
LDA 3,.2
SEQ 3,1
JMP VIDRE
STA 0,DAT
; MOV 0,0,SNR
; JMP DEAD1 @
LDA 1,.255
AND 1,0
LDA 1,TT260
LDA 3,ABSK ; 19.9. AFTEN
MOV 3,3,SZR ; HVIS REL
LDA 1,TT258 ; HVIS ABS
SUB 0,1
INC 1,1
STA 1,TALMM @
LDA 0,.12
MOVZL 0,0
SL 1,0
JMP @ DEAD1 ; SLUT HVIS MERE END 24 BLOCCOUNT
LDA 0,DAT
VIDRE:
; TALL3: REL: 1 2 (3) (4) (5) 3 4 5 6
; ABS: 2 3 4 5 6
; NEG! (KUN I ACC!!) FRA 4 BYTEUDSKRIFT!!
LDA 3,ABSK ; 19.9
MOV 3,3,SZR ; HVIS REL
JMP ABSEN ; HVIS ABS
; HVIS 3. 4. ELLER 5. DA OUTOCTAL (DATADESRIPTORER)
LDA 3,.3
SNE 3,1
JMP BITUD
INC 3,3
SNE 3,1
JMP BITUD
INC 3,3
SNE 3,1
JMP BITUD
; ER TALL3 FØR 4 DA DECIAL UDSKRIFT (HVIS IKKE ALLEREDE OCT)
; PL IGEN 19.1.83 BYTEUDSKRIFT OG I KOLONNE
ABSEN: ISZ TALL3
LDA 1,TALL3
LDA 3,.4
SGE 1,3
JMP TALUD ; IØVRIGT BYTEUDSKRIFT, DOG PAGEZEROSYMB HVIS 1. BYTE ER 12 !!
LDA 0,DAT
LDA 1,.255
MOVS 1,1
ANDS 1,0
JSR @ GEMTY
; FØLGENDE ER TILFØJET 29.1.83 PSE-PAGE-ZERO-FACILITET PL
LDA 1,.12
SE 0,1
JMP EJP
;FRA P1A02:
LDA 3,TABEL
LDA 0,DAT
LDA 1,.255
AND 0,1
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:
; FRA P1A02 SLUT PSE-FACILITET FORTSAT:
LDA 0,DAT
JMP EJP ; ?
PSEUD: STA 0,PSKTR
JMP HER1
LPAAD: LPZON
DATAU: 0
DATYU: DATUU*2+1
DATYY: DATUU*2
DATAD: DATU1*2
TALL2: 0
TALL3: 0
PSKTR: 0
BBBB: BB*2
BBB: BB*2
DAT19: DAT
TABEL: PZJMP
GEMTY: GEMTX
BL4: .+1*2
.TXT "'' <0>"
NU2L2: LDA 2,LPAAD
LDA 0,BL4
OUTTEXT
JMP HER3
NU1L1: LDA 2,LPAAD
LDA 0,BL4
OUTTEXT
JMP HER1
.TXT &EJP &
EJP: ; FØRSTE BYTE NORMALUDSKRIFT /////
; HER SKULLE PSE-FACILITET ESS SLUTTE, MEN DER ER MERE LÆNGERE NEDE
; 2. BYTE UDSKRIVES ELLERS:
LDA 0,DAT19 @
LDA 1,.255
MOVS 1,1
ANDS 1,0
MOV # 0,0,SNR
JMP NU1L1
LDA 2,CUR
LDA 1,DATAD
BINDEC
LDA 0,DATYY
LDA 2,LPAAD
OUTTEXT
OUTSP
HER1: ; OG NU TIL 2. BYTE /////
LDA 0,DAT19 @
LDA 1,.255
AND 1,0
JSR GEMTX
; UDSKRIFT AF PSE-SYMB SÅFREMT DEN ER FUNDET OVENFOR !!
; PSE-FACILITET 2. AFD (SLUTTENDE)
LDA 1,PSKTR
MOV # 1,1,SNR
JMP HER2
LDA 2,LPAAD
; JMP .+3 ; TEST
; LDA 0,T2760
; OUTTEXT
LDA 0,PSKTR
INCZL 0,0
OUTTEXT
; JMP .+3 ; TEST
; LDA 0,T2762
; OUTTEXT
LDA 0,T5SP ; 19.9. SAMTIDIG MED AT OLIVETTI-FORUDS. OPGIVES!!
OUTTEXT ; 5 SPACES
JMP FORBI
HER2:
; PSE SLUT DOG ER DER SENERE DATA OG TABEL TIL DETTE!!
MOV # 0,0,SNR
JMP NU2L2
LDA 2 ,CUR
LDA 1,DATAD
BINDEC
LDA 0,DATYY
LDA 2, LPPAD
OUTTEXT
OUTSP
HER3: OUTSP
; VÆK & T5SP FORKORTES SAMTIDIGT 19.9.83 AFTEN OUTSP
«ff»
FORBI: LDA 2,LPPAD
DSZ TALLE
JMP NYT19 @
; OUTNL ; 19.9. TEXT -TEGN PÅ EGEN LINIE TILVENSTRE
LDA 0,BBBB
LDA 2,LPPAD
OUTTEXT ; ASCITEGN SIDTST PÅ LIIEN 23.1.83 PL
JMP @ NYLI1
BITUD: MOVZR 0,0
LDA 2,LPPAD
OUTOC
OUTSP
JMP FORBI
; FLG ER TILFØJET PL 23.1.83
TALUD:
LDA 0,DAT1 @
LDA 1,TALL3
LDA 2,.2
SNE 1,2
NEG 0,0
LDA 1,DATAD
LDA 2,CUR
BINDEC
LDA 0,DATAD
LDA 3,.2
LDA 2,ABSKT ; 19.9.83 AFTEN
MOV 2,2,SZR ; HVIS REL
LDA 3,.1 ; HVIS BIN
LDA 2,TALL3
SG 2,3
LDA 0,DATYU
LDA 2,LPPAD
OUTTEXT
OUTSP
LDA 3,ABSKT ; 19.9 FLG (3)
MOV 3,3,SZR ; HVIS REL
JMP FORBI ; HVIS ABS
LDA 1,TALL3
SUBZL 3,3
SUB 3,1,SNR
JMP .+2
JMP FORBI
OUTSP
LDA 1,T45
OUTCHAR
JMP FORBI
NYT19: NYTGN ; 19.9.83
0
GTD: 0
GTG1: 0
GTG: 0
GTR: 0
GEMTX:
STA 0,GTD
STA 1,GTG
STA 3,GTR
LDA 3,.32
LDA 1,T126
STA 0,GTG1
SL 0,3
SL 0,1
MOV 3,0
STA 0,GTG
LDA 1,BBB
PUTBY
ISZ BBB
LDA 1,BBB
SUB 0,0
PUTBY
LDA 0,GTD
LDA 1,GTG
JSR @ GTR
T5SP: .+1*2
.TXT " <0>" ; KUN 4 SPACE JFR OUTSP OVENFOR FHERNET!!
T2760: .+1*2
.TXT "<27><60>"
T45: 45
T2762: .+1*2
.TXT "<27>> <0>"
BB: .TXT &1234567890123456789012345678901234567890&
TALLE: 0
LPPAD: LPZON
NYLI1: NYLIN
DAT1: DAT
T126: 126
ABSKT: 0 ; 19.9. <>0 HVIS ABS.BIN FIL
LSKT: .TXT "<13><10> <0>"
LSKT4: .TXT "<13><10> <0>"
«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»
DEAD:
STA 0,D0
STA 1,D1
STA 2,D2
STA 3,D3
LDA 1,.1
LDA 2,FIAD
CLOSE
LDA 2,LPAD
LDA 0,TSL
OUTTEXT
OUTNL
LDA 1,.1
CLOSE
; JMP .+4
LDA 1,MESAD
LDA 2,NADR
SENDMESSAGE
LDA 2,CUR
STOPP
JMP .-2
JMP BIR @
T27: 27
D0:0
D1:1
D2:2
D3:3
-6
T260: 260
T96: 96
DAT29: DAT
TSL: .+1*2
.TXT "<27><60><10><10> UDSKRIFT SLUT<10><0>"
BIR: DEFAU
FIAD: FIZON
LPAD: LPZON
ABSK1: ABSK ; 19.9 KONTROL <>0 HVIS ABS BIN
ABSK2: ABSKT ; DO
MESAD: .+1
1B8
0
0
0
0
NADR: .+1
.TXT "S<0><0><0><0><0>"
EJBF:
EJBF2: LDA 2,LPAD ; DETTE ÆNDRES SENERE TIL ALT UDSKRIFT
LDA 0,TEJBB
OUTTEXT
JMP DEAD
TEJBB: .+1*2
.TXT "<27><60> EJ BINÆR FIL<0>"
BLTB: .+1*2
.TXT 1 <0>1
TEST9: 0
0
0
2
0
FIZON: .TXT 'FIL<0><0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1B14+1B13+1B12+1B11 ;ZKIND
65535 ;ZMASK
DEAD ;ZGIVE
.EJEC
1 ;ZFILE
1 ;ZBLOC
0 ;ZCONV
TTS0 ;ZBUFF
263 ;ZSIZE (72/2+SSIZE)
0 ;ZLENG
0 ;ZFIRS
TTB0*2 ;ZFIRS
TTB0*2 ;ZTOP
TTS0 ;ZUSED
512 ;ZSHAR
0 ;ZREM
.BLK ZAUX ;AUXILIARY WORDS IN ZONE
TTS0: 0 ;SOPER
0 ;SCOUN
0 ;SADDR
0 ;SSPEC
TTS0 ;SNEXT
0 ;SSTAT
TTB0*2 ;SFIRS
TTB0: .BLK 256 ;DATA BUFFER
LPZON:.TXT 'LPT<0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1 ;ZKIND
65535 ;ZMASK
DEAD ;GIVE
1 ;ZFILE
1 ;ZBLOC
0 ;ZCONV
LPS0 ;ZBUFF
117 ;ZSIZE (132/2+SSIZE)
0 ;ZFORM
0 ;ZLENG
LPB0*2 ;ZFIRS
LPB0*2 ;ZTOP
LPS0 ;ZUSED
220 ;ZSHAR
0 ;ZREM
.BLK ZAUX ;AUXILIARY WORDS IN ZONE
LPS0: 0 ;SOPER
0 ;SCOUN
0 ;SADDR
0 ;SSPEC
LPS0 ;SNEXT
0 ;SSTAT
LPB0*2 ;SFIRS
LPB0: .BLK 110 ;DATA BUFFER
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 'SKRIV'
.+0
.-1
BUFF1
PGDS
0
0
33
DEAD
0
0
0
0
BIRTH*2
0
1
2
3
4
5
6
7
8
9
10
.END PCDS
; DETTE ER P1A13 REL/ABS BIN FILUDSKRIVN-PROGRAM
; AFSLUTNINGEN PÅ BIN. FIL UDSKRIFTPROGRAM / REL & ABS / PL 22.9.83
«ff»
«nul»