|
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: »P1A02«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─⟦this⟧
; PLFD2 / P1A02 RETTET FÆRDIG 18.12.82 OG LAGT PÅ PLFÆRD 2 ETC
; PLFD2 / P1A02 (REVID UDG AF P1A01); HURTIG LÆSNING AF DISKETTER
; DVS HVER ANDEN RECORDS FØRSTE HALVDEL / PL 17.12.82
; PLFD1 /ASCII: P1A01 FÆRDIG 15.12.82 (LILLE RETTELSE!!)
; PLFD1 PL-LÆSNING AF $FD1 OUTPUT I HEXKODE/TEXT FÆRDIG 14.12.82
; PL-DISKETTE HEX-LÆSNING RETTET 13.12.82
; PL-DISKETTE HEXKODE-LÆSNING AF DISKETTE $FD1 PR. 10.12.82
.TITL PLFD1
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'PLFD1'
LAB00:
LPZON: .TXT 'LPT<0><0><0>'
Z
0
1
65535
DEAD
1
1
0
LPS0
73
0
0
LPB0*2
LPB0*2
LPS0
132
0
.BLK ZAUX
LPS0: 0
0
0
0
LPS0
0
LPB0*2
LPB0: .BLK 66
.DUSR FD1=52
TX0B: TX00B
TX1B: TX01B
T14: 14
«ff»
BIRTH: MOV 1,2
LDA 1,+7,2
STA 1,TRACK
BI2: LDA 2,LPZO1
LDA 0,.3
OPEN
LDA 1,.12
OUTCHAR
LDA 0,TX0B @
OUTTEXT
LDA 0,.1B6
DOAS 0,FD1
SKPBZ FD1
JMP .-1
NTRACK: LDA 0,TRACK
LDA 3,.1B7
LDA 1,.1B6
ADD 3,1
ADD 0,1
DOAS 1,FD1
SKPBZ FD1
JMP .-1
LDA 1,T14
OUTEN
OUTSP
LDA 0,TX1B @
OUTTE
LDA 0,TRACK
LDA 2,CUR
LDA 1,ARB2
BINDE
LDA 2,LPZO1
LDA 0,ARB2
INC 0,0
INC 0,0
INC 0,0
OUTTE
OUTNL
SUB 0,0
STA 0,SECTO
INC 0,0
STA 0,VIR
NSECT: ISZ SECTO
LDA 0,SECTO
LDA 1,SYVOG
SUB # 0,1,SNR
JMP NYTRA
LDA 0,VIR
DOAS 0,FD1
SKPBZ FD1
JMP .-1
JMP NCH3
OK1: LDA 0,VIR
LDA 2,CUR
LDA 1,ARB2
BINDE
LDA 2,LPZO1
LDA 0,ARB2
INC 0,0
INC 0,0
INC 0,0
OUTTE
LDA 1,KOLON
OUTEN
LDA 0,.2
STA 0,LIN22
JMP OK2
JMP NCH3
NCH2:
OUTSP
OUTSP
OUTSP
NCH3:
LDA 0,.64
STA 0,CH
NCHR: DIB 1,FD1
LDA 0,.255
AND 0,1
STA 1,BY
LDA 3,.64
LDA 0,CH
SE 0,3
JMP OK2
LDA 0,T229
SE 0,1
JMP OK1
JMP EJOK1
OK2: LDA 1,BY
MOV # 1,1,SNR
JMP B127
LDA 1,BY
LDA 0,T47
LDA 3,T126
SUBZ # 1,3,SZC
SUBZ # 0,1,SNC
JMP EJASC
JMP .+5
.TXT *VÆLG*
TRACK: 0
LPZO1: LPZON
JMP .+1
OUTSP
LDA 1,BY
OUTCH
JMP NESTE
EJASC:
LDA 0,T240
LDA 1,BY
ANDZR 0,1
MOVZR 1,1
MOVZR 1,1
MOVZR 1,1
LDA 0,.10
LDA 3,.7
SUBO # 0,1,SNC
ADD 3,1
MOV # 1,1,SNR
LDA 1,.48
LDA 3,.48
ADD 3,1
OUTCH
LDA 0,.15
LDA 1,BY
AND 0,1
LDA 0,.10
LDA 3,.7
SUBO # 0,1,SNC
ADD 3,1
LDA 3,.48
ADD 3,1
OUTEND
JMP NESTE
B127:
LDA 1,T96
OUTCH
OUTSP
NESTE:
DSZ CH
JMP NCHR
OUTNL
; ***DSZ LIN22
; ***JMP NCH2
EJOK1:
LDA 0,VIR
LDA 1,.2 ; ANGIVER SECTIONSTEP
ADD 1,0
LDA 1,SEKSO
; FJERNET 4 SÆTN 18.12.82 OG ÆNDRET TIL:
STA 0,VIR
SG 0,1
JMP NSECT
JMP NYTRA
ARB2: ARB27*2
SEKSO: 26
MDL:0
KOLON: 58
VIR: 0
FJOR: 14
L2TCH: 0
SYVOG: 27
SECTO: 0
CH: 0
BY: 0
T47: 31
T96: 96
T126: 126
T229: 229
T240: 240
LIN22: 2
NYTRA: ISZ TRACK
LDA 0,TRACK
LDA 1,SYVOH
SUB 0,1,SNR
JMP DEAD
JMP NTRC @
NTRC: NTRAC
SYVOH: 77
DEAD:
ISZ NTRC
JMP .+1
LDA 2,LPZO1
LDA 1,.1
CLOSE
LDA 2,CUR
STOPP
JMP @ 1,1
BI2
ARB27: .BLK 5
TX00B: .+1*2
.TXT @<96>123456789ABCDEF................ !"#$%&'()@
.TXT #*+,-./0123456789:;<60>=>?<13><10>#
.TXT 1@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ^.@ABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ..
<10><10><10><0>1
TX01B: .+1*2
.TXT ' - - - - TRACK NO:<0>'
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 'PLFD1'
.+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»