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