|
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: 6144 (0x1800)
Types: TextFile
Names: »BBU04«, »P1A04«
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
└─ ⟦this⟧ »/BBU04«
└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
└─ ⟦this⟧ »/P1A04«
; 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> UDSKRIFT AF BINÆR FIL MED BYTE-OMBYTNING<13><10> PL / PH.KAMP 19.1.83<13><10>....................<10><10><27>><0>&
DEAD1: DEAD
TT260: 260
FIADR: FIZON
LPADR:LPZON
DAT: 0
DATAU: DATUU*2
DATYU: DATUU*2+1
DATYY: DATUU*2
DATAD: .+1*2
0
DATUU: 0
0
TALL2: 0
TALL3: 0
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,TEKST
OUTTEXT
«ff»
TALMM: TALLE
NYLIN:
SUB 0,0
STA 0,TALL3
LDA 0,BBBB
STA 0,BBB
LDA 0,.12
STA 0,TALL2
STA 0,TALMM @
LDA 0,.0
STA 0,DATAU
OUTNL
OUTNL
NYTGN: LDA 2,FIADR
ISZ DATAU
INCHAR
STA 1,DAT
INCHA
MOVS 1,1
LDA 0,DAT
ADD 1,0
STA 0,DAT
LDA 1,DATAU
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
SUB 0,1
INC 1,1
STA 1,TALMM @
LDA 0,DAT
VIDRE:
LDA 3,.3
SNE 3,1
JMP BITUD
INC 3,3
SNE 3,1
JMP BITUD
INC 3,3
SNE 3,1
JMP BITUD
; PL IGEN 19.1.83 BYTEUDSKRIFT OG I KOLONNE
ISZ TALL3
LDA 1,TALL3
LDA 3,.4
SGE 1,3
JMP TALUD
LDA 0,DAT
LDA 1,.255
MOVS 1,1
ANDS 1,0
JSR GEMTX
LDA 2,CUR
LDA 1,DATAD
BINDEC
LDA 0,DATYY
LDA 2,LPADR
OUTTEXT
OUTSP
LDA 0,DAT
LDA 1,.255
AND 1,0
JSR GEMTX
LDA 2 ,CUR
LDA 1,DATAD
BINDEC
LDA 0,DATYY
LDA 2, LPADR
OUTTEXT
OUTSP
OUTSP
OUTSP
FORBI: LDA 2,LPADR
DSZ TALLE
JMP NYTGN
LDA 0,BBBB
LDA 2,LPADR
OUTTEXT ; ASCITEGN SIDTST PÅ LINIEN 23.1.83 PL
JMP NYLIN
BITUD: MOVZR 0,0
LDA 2,LPADR
OUTOC
OUTSP
JMP FORBI
; FLG ER TILFØJET PL 23.1.83
TALUD:
LDA 0,DAT
LDA 1,DATAD
LDA 2,CUR
BINDEC
LDA 0,DATAD
LDA 3,.2
LDA 2,TALL3
SG 2,3
LDA 0,DATYU
LDA 2,LPADR
OUTTEXT
OUTSP
JMP FORBI
BBB: 0
BBBB: .+1*2
.TXT *???????????????????TEXTTEGN TIL UDSKRIFT *
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
DEAD:
STA 0,D0
STA 1,D1
STA 2,D2
STA 3,D3
LDA 1,.1
LDA 2,FIAD
CLOSE
LDA 1,T27
LDA 2,LPAD
OUTCH
LDA 1,.48
OUTCH
LDA 1,.1
CLOSE
LDA 2,CUR
STOPP
JMP BIR @
T27: 27
D0:0
D1:1
D2:2
D3:3
-6
T260: 260
TALLE: 0
T96: 96
T126: 126
BIR: BIRTH
FIAD: FIZON
LPAD: LPZON
BLTB: .+1*2
.TXT 1 <0>1
FIZON: .TXT 'FIL<0><0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1B14+1B13+1B12+1B11 ;ZKIND
65535 ;ZMASK
DEAD ;ZGIVE
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
«ff»
«nul»