|
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: »P1ASK«, »P3ASK«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
└─ ⟦this⟧ »/P1ASK«
└─ ⟦this⟧ »/P3ASK«
└─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy
└─ ⟦this⟧ »/P1ASK«
└─ ⟦this⟧ »/P3ASK«
; 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,.32
STA 0,TALLE
OUTNL
OUTNL
NYTGN: LDA 2,FIADR
INCHAR
STA 1,DAT
LDA 0,.32
LDA 3,T126
SL 1,0
SL 1,3
JMP TALUD
TXUD: LDA 2,LPADR
OUTCH
OUTSP
OUTSP
OUTSP
JMP FORBI
TALUD:
MOV # 1,1,SNR
JMP NULUD
LDA 2,CUR
MOV 1,0
LDA 1,DATAD
BINDEC
LDA 0,DATAU
LDA 2,LPADR
OUTTEXT
OUTSP
FORBI:
DSZ TALLE
JMP NYTGN
JMP NYLIN
NULUD:
LDA 2,LPADR
OUTSP
LDA 1,T96
OUTCH
OUTSP
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
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
«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 '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»