|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4608 (0x1200)
Types: TextFile
Names: »kketikt1«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »kketikt1«
(etik=slang list.no xref.no;
) ;
s. a40,b50,c10,d10 w.;
p. <:fpnames:> ;
k=h55 ;
0,0
bz w0 x2+1 ;
se w0 10 ; if no text then
jl. b32. ; stop
dl w1 x2+4 ;
ds. w1 a13. ;
dl w1 x2+8 ;
ds. w1 a15. ; move name
ba w2 x2+1 ;
ba w2 x2+1 ;
bz w0 x2+1 ;
se w0 10 ; if no text then
jl. b31. ; stop
dl w1 x2+4 ;
ds. w1 a17. ;
dl w1 x2+8 ;
ds. w1 a19. ;
jl. w3 h29.-4 ; stack cur in
al. w2 a16. ;
jl. w3 h27.-2 ; connect cur in
se w0 0 ;
jl. b30. ;
al. w1 h21. ;
al. w2 a20. ;
jl. w3 h29. ; stack curr output
al. w2 a12. ;
jl. w3 h28.-2 ; connect cur output
sn w0 0 ; if connection ok then
jl. b3. ; goto start
b0: al. w2 a20. ; else stop
al. w1 h21. ;
jl. w3 h30. ; unstack
jl. b20. ;
c0: 0
c1=35 ;
c3=5 ; left margin
h.
a0: 32,r.c1 ;
a1: 32,r.c1 ;
a2: 32,r.c1 ;
a3: 32,r.c1 ;
a4: 32,r.c1 ;
a5: 32,r.c1 ;
w.
a6: 0,0 ;
a7: <:<25><25><25>:> ;
a12:0
a13:0
a14:0
a15:0,0
a16:0
a17:0
a18:0
a19:0,0
a20:0,r.5
b. g5,f5 w. ; input 1 line
d0: ds. w1 g1. ;
ds. w3 g3. ;
f0: jl. w3 h25.-2 ;
sh w2 24 ; if eol then
jl. f1. ; goto return 4
sn w2 44 ; if "," then
jl. f3. ; return 0
se w2 25 ; if eof or
sn w2 59 ; ";" then
jl. f2. ; return 2
hs w2 ( 0) ; else save char
ba. w0 1 ;
jl. f0. ; read next
f1: am 2 ; return 4
f2: am 2 ; return 2
f3: al w3 0 ; return 0
wa. w3 g3. ;
dl. w2 g2. ;
jl x3 ;
g0: 0 ;
g1: 0 ;
g2: 0 ;
g3: 0 ;
e. ;
b3: ; start
al. w0 a0.+c3 ;
jl. w3 d0. ; input
jl. b5. ; if eop then next
jl. b10. ; if eof then goto set eof mark
al. w0 a2.+c3 ;
jl. w3 d0. ; input
jl. b5. ; if eop then next
jl. b10. ; if eof then goto set eof mark
al. w0 a4.+c3 ;
jl. w3 d0. ; input
jl. b5. ; if eop then next
jl. b10. ; if eof then goto set eof mark
b5: al. w0 a1.+c3 ;
jl. w3 d0. ; input
jl. b7. ; if eop then next
jl. b10. ; if eof then goto set eof mark
al. w0 a3.+c3 ;
jl. w3 d0. ; input
jl. b7. ; if eop then next
jl. b10. ; if eof then goto set eof mark
al. w0 a5.+c3 ;
jl. w3 d0. ; input
jl. b7. ; if eop then next
jl. b10. ; if eof then goto set eof mark
b7: al w0 10 ; set eol
rs. w0 a2.-1
rs. w0 a4.-1
rs. w0 a6.-1
al. w0 a0. ;
b8: bz w2 (0) ; type buf
jl. w3 h26.-2 ;
al w2 32 ;
hs w2 (0) ; clear
ba. w0 1 ; next
se. w0 a6. ; if all is not typed then
jl. b8. ;
rl. w0 c0. ;
se w0 1 ; if not not end of input file
jl. b3. ; goto next
al. w0 a7. ; else
jl. w3 h31.-2 ; set EM
jl. w3 h30.-4 ;
jl. b0. ;
b20: al w2 0 ;
jl. h7. ;stop
b25: am 1 ;
b26: am 1 ;
b27: am 1 ;
b28: am 1 ;
b29: am 1 ;
b30: am 1 ;
b31: am 1 ;
b32: al w0 0 ;
jl. w3 h32.-2 ;
1<23+32<12+8 ;
jl. b20. ;
b10: rl. w0 c0. ;
ba. w0 1
rs. w0 c0.
jl. b7.
e. ;
e. ;
▶EOF◀