|
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: »retload52tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retload52tx «
mode list.yes
load53tx=edit load52tx
; connect_alarm : modebits warning.yes, ok.no after connect_alarm
;
; transfer : hwds=2 and still another tape specified means tapemark sensed
; and still more tapes, you dont necessarily get end_of_tape
; status (Cipher casette tape)
;
l./message connect_alarm page 1;/, l-1, r/84.04.25/90.09.11/
l./end connect_alarm;/, l-1, i/
errorbits := 3; <*warning.yes, ok.no*>
/, p1
l./message transfer page 3;/, l-1, r/90.03.13/90.09.11/
l./if endtape (1) then/,
r/endtape (1)/<*endtape (1)*> vol_count (i) + 1 <= no_of_vol (i)/
l1, r/and/and still more tapes specified, not necessarily/
l./message transfer page 4;/, l-1, r/90.03.12/90.09.11/
l./<*begin/,
r/andtape (1)/still more tapes specified, not necessarily endtape (1)/
f
end
▶EOF◀