|
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: 4608 (0x1200)
Types: TextFile
Names: »REA00«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
└─⟦this⟧
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
└─⟦this⟧
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─⟦this⟧
; 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 FIL<13><10>.......................................<10><10><0>&
FIADR: FIZON
LPADR:LPZON
DAT: 0
DATAU: DATUU*2
DATAD: .+1*2
0
DATUU: 0
0
BIRTH:
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
NYLIN: LDA 0,.16
STA 0,TALLE
LDA 0,.0
STA 0,DATAU
OUTNL
NYTGN: LDA 2,FIADR
ISZ DATAU
INCHAR
STA 1,DAT
INCHA
MOVS 1,1
LDA 0,DAT
ADD 1,0
LDA 1,DATAU
LDA 3,.2
SEQ 3,1
JMP VIDRE
STA 0,DAT
MOV 0,0,SNR
JMP DEAD
LDA 1,.255
AND 1,0
LDA 1,T260
SUB 0,1
INC 1,1
STA 1,TALLE
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
LDA 2,CUR
LDA 1,DATAD
BINDEC
LDA 0,DATAD
LDA 2,LPADR
OUTTEXT
OUTSP
FORBI:
DSZ TALLE
JMP NYTGN
JMP NYLIN
BITUD: MOVR 0,0
LDA 2,LPADR
OUTOC
OUTSP
JMP FORBI
DEAD:
STA 0,D0
STA 1,D1
STA 2,D2
STA 3,D3
LDA 1,.1
LDA 2,FIADR
CLOSE
LDA 1,.1
LDA 2,LPADR
CLOSE
LDA 2,CUR
STOPP
JMP BIRTH
D0:0
D1:1
D2:2
D3:3
-6
T260: 260
TALLE: 0
T96: 96
T126: 126
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
73 ;ZSIZE (132/2+SSIZE)
0 ;ZFORM
0 ;ZLENG
LPB0*2 ;ZFIRS
LPB0*2 ;ZTOP
LPS0 ;ZUSED
132 ;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 66 ;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»