|
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: »P1TAT«
└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
└─ ⟦this⟧ »/P1TAT«
; MANDAG 9.5.83 FORTS
; 8.5.83 IGEN SENERE (KL CA 18)
; REV 8.5.83 / GEMDA INAKTIV O.A.
; VIRKER OG TESTDESIGN MODIF 7.5.83
; PL 6.5.83
; TEST SKRIVE-PÅ $FR1 - PROGRAM ??? DØDFARLIGT !!!
.TITL PLFD1
.NREL
.RDXO 16
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'PLFD1'
LAB00:
TX00B: .+1*2
.TXT "<10> $FD1 -SKRIVE-PROGRAM<13><10> F A R L I G T<10><13> INGEN KONTROL !!! /PL 8.5.83<10><0>"
LPZ11: .TXT 'TTY<0><0><0>' ; TTY OUTPUTZONE (SUBSID LPT)
Z
0
1
65535
DEAD
1
1
0
LPS1
73
0
0
LPB1*2
LPB1*2
LPS1
132
0
.BLK ZAUX
LPS1: 0
0
0
0
LPS1
0
LPB1*2
LPB1: .BLK 66
LPZON: .TXT 'TTY<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
GEMD2: GEMDA
LPZ31: LPZON ; INPUT
LPZ41: LPZ11 ; OUTPUT
TX0B: TX00B
TX1B: TX01B
T31: 31
KKKK: 0
KKKK2: 10
KKKK4: 0
KKKK5: 0
A1:-1
A2:-2
A3:-3
A33: -33
.TXT #BITH #
BIRTH:
MOV 1,2
LDA 0,.3
LDA 2,LPZ41
OPEN
LDA 0, TX0B @
OUTTEXT
OUTNL
LDA 2,LPZ31
LDA 0,.1
OPEN
INCHAR
STA 1,A1
INCHAR
LDA 3,T31
AND 3,1
STA 1,A2
INCHAR
STA 1,A33
INCHAR
MOVZL 1,1
STA 1,KKKK
LDA 2,LPZ41
OUTNL
LDA 1,.1B6
DOAS 1,FD1
MOV 1,0
OUTOCTAL
OUTNL
SKPBZ FD1
JMP .-1
LDA 0,.1B6
LDA 1,.1B7
ADD 1,0
LDA 1,A1
ADD 1,0
DOAS 0,FD1
OUTOCTAL
OUTSP
LDA 1,.64
OUTCHAR
OUTSP
DIC 0,FD1
OUTOC
OUTSP
OUTNL
SKPBZ FD1
JMP .-1
DIC 0,FD1
OUTOC
OUTNL
NEST:
LDA 0,KKKK
STA 0,KKKK4
LDA 0,A33
STA 0,A3
IGEN:
; VÆK LDA 1,BBB; VÆK LDA 0,A3; VÆK ISZ BBB; VÆK PUTBYTE; VÆK LDA 2,LPZ41
LDA 0,A3
ISZ A3
DOB 0,FD1
; VÆK PT (TIDL OSSE OUTOC! ) OUTSP
DSZ KKKK4
JMP IGEN
JSR GEMD2 @
SUB 0,0
ISZ BBBB
STA 0, @ BBBB
LDA 0,A3
ISZ BBBB
STA 0, @ BBBB
OUTNL
LDA 1,A2
LDA 0,.1B7
ADD 1,0
DOAS 0,FD1
SKPBZ FD1
JMP .-1
ISZ BBBB
STA 0, @ BBBB
OUTOCTAL
OUTSP
DIC 0,FD1
ISZ BBBB
STA 0, @ BBBB
OUTOCTAL
OUTSP
OUTSP
ISZ A2
DSZ KKKK2
JMP NEST
OUTNL
LDA 0,TX11B
OUTTEXT
OUTNL
JMP DEAD
BBB: BOMR*2
BBBB: BOMR
; TILFØJET 4.5.83:
TIMET: .+1*2
.TXT " TIMEOUT <0>"
TIMEO:
LDA 3,TIMER
LDA 2,LPZ31 @
MOV 1,0
OUTOCTAL
LDA 0,TIMET
OUTTEXT
OUTNL
JSR @ 1,1
TIMER
.TXT 'DEAD'
DEAD:
LDA 2,LPZ31 ; TEST///////////////////
LDA 1,.1
CLOSE
LDA 2,CUR
STOPP
JMP @ 1,1
BIRTH
ARB27: .BLK 5
TX11B: .+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>'
-6
GEARB
GEADR: GEARB
GEMNR: 14
GEMAR: 0
LPZ81: LPZ11
.TXT "GEMD"
GEMDA:
STA 3,GEMAR
DSZ GEMNR
JMP .+1
JMP @ GEMAR ; INAKTIVISERING 8.5.83
LDA 3,GEMNR
MOVZL 3,3,SZC
JMP @ GEMAR
ISZ GEADR
ISZ GEADR
ISZ GEADR
ISZ GEADR
ISZ GEADR
ISZ GEADR
ISZ GEADR
ISZ GEADR
LDA 3,GEADR
STA 0,0,3
STA 1,1,3
STA 2,2,3
LDA 0,GEMAR
STA 0,3,3
DIA 0,FD1
STA 0,4,3
MOV # 0,0,SZR
JMP UDFJL
EFTUF:
DIC 0,FD1
STA 0,5,3
LDA 0,.0
STA 0,7,3
STA 0,8,3
LDA 0,0,3
JSR @ GEMAR
UDFJL:
LDA 2,LPZ81
OUTOCTAL
LDA 0,TTTB
OUTTEXT
LDA 1,.32
OUTEND
JMP EFTUF
TTTB: .+1*2
.TXT "<60><60><60> FEJLSTATUS PÅ $FD1 <13><10>"
BOMR: .BLK 128
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 'PLFDR'
.+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
GEARB:
.BLK 128
.END PCDS
«ff»
«nul»