|
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: »retftnp03tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retftnp03tx «
mode list.yes
ftnpass04tx=edit ftnpass03tx
; e87 afskaffes som tilpasning til fælles pass9
; e101 indføres - - - - -
; tilpasning til ny fp connect out (segm < 2 + key)
;
l./page 1aa/, r/85.09.26/88.10.10/
l./e80=/, g 1/<1/<2/, r/0<2/1<2/
l./e103=/, i/
e101=4 ; no of bytes for anonymous bytes in block (algol, pass9)
/
l./e104=/, r/2<12 + 0/4 < 12 + 0/
l./e105=/, r/85/89/, r/1101/0201/
l./page 5/, r/83.05.17/88.10.10/
l./a14:/, l./rl. w3 e87./, d1, i/
rl. w3 e29. ;
sz w3 1<10 ; if modeword.warning then
/, l-1, p2
l./page 13/, r/83.05.17/88.10.10/
l./e5:/, l./al w3 2/, d1, i/
al w3 1<10 ;
lo. w3 e29. ; modebitword.warning :=
rs. w3 e29. ; true;
/, p-3
l./page 15/, r/83.12.28/88.10.10/
l./e87:/, d
l./page 24/, l./m.rc/, r/85.09.26/89.01.19/
f
end
▶EOF◀