|
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: 1536 (0x600)
Types: TextFile
Names: »taso «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦40b1eb8cd⟧
└─⟦this⟧ »taso «
; fil med fp kommandoer til at oversætte tasterm
(
if 1.no
(
if 15.no
(tasxxx = slang tastermtxt,
list.no,
lines.no entry.no type.yes names.yes
tasxxx)
)
if 15.yes
( clear user ttlist
ttlist=set 1 disc2
scope user ttlist
o ttlist
(head 1
tasxxx = slang tastermtxt ,
list.yes xref.no names.yes,
lines.yes entry.no type.yes
tasxxx)
lookup tasxxx
print tasxxx integer words.2 2.4
mode 15.no
o c)
if 1.yes
( clear user ttxref
ttxref=set 1 disc2
scope user ttxref
o ttxref
(
tasxxx = slang tastermtxt ,
list.no xref.yes names.no ,
lines.no entry.no type.yes
tasxxx)
mode 1.no
o c)
end)
a87=0 ; adresse til at overvåge
a89=2.001100<18 ; debug maske
a90 = 2.0000001010<14 ; list maske
n.
; !!!!!!!!!!- globale routiner
; !!!!!!!!!- ph
; !!!!!!!!- sm
; !!!!!!!- th
; !!!!!!- rm
; !!!!!- initialisering
; !!!!- CL
; !!!- testoutput
; !!- break routine
; !- struktur definitioner
▶EOF◀