|
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: 3840 (0xf00)
Types: TextFile
Names: »retfp5tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »retfp5tx «
mode list.yes
fp52tx=edit fp5tx
; rettelser til release 5.2
;
; block io, common bits : if hwds xferred > 0 and
; : no special bits in status then
; : zone.blockcount := answer.blockcount;
;
; connect output, existing file : entry claim of zero does'nt matter
;
; magtape check, reserve : ved send setmode nulstilles reposition count;
;
; magtape check, parity : saved position tages fra zonen uden decrease
;
; end program, give up : when priminout errors > 10 send finis message
; without emptying out buffer or you have a loop
; on your hand
;
l./permanent, page ...3b/, r/89.06.27/89.11.13/
l./h52:/, r/5<12 + 0/5<12 + 2/
l./permanent, page ...6/, r/rc 25.05.72/fgs 89.12.06/
l./c19/, r#check all#check all/connect out#
l./m.fp permanent/, r/89.06.28/89.12.06/
l./block io, page ...3/, r/89.03.20/89.11.30/
l./wa w0 6/, d1, i/
se w0 0 ; if hwds xferred > 0 and
sz. w3 (e25.) ; no special bits in status then
/, p-2
l./; end;/, r/ end;//, p-2
l./resident, page ...7/, l./m.fp resident/, r/89.06.27/89.11.30/
;l./simple check, page ...2/, r/03.20/11.30/
;l./sz. w0 (e17.)/, d./e9:/, i/
; so. w0 (e17.) ; if not end of document then
; jl. e23. ; goto repeat the rest;
;/, p-2
;
l./connect output, page ...2/, r/88.05.01/89.12.06/
l./e47/, r/e47.)/b0.) /
l./connect output, page ...3/, r/88.05.01/89.12.06/
l./e47./, r/e47.)/b0.) /
l./e47./, r/e47.)/b0.) /
l./connect output, page ...5/, r/88.09.07/89.12.06/
l./a6:/, r/a6:/ /
l./connect output, page ...6/, r/85.03.07/89.12.06/
l./b1:/, d, i/
b1: 0 ; first device for get claims
/, p-2
l./b1./, r/b1. /c18./
l./b1./, r/b1. /c18./
l./b1./, r/b1. /c18./
l./b1./, r/b1.) /c18.)/
l./connect output, page ...7a/, r/88.05.01/89.12.05/
l./a39:/, l1, i/
al w0 -1 ; override
hs. w0 b11. ; zero entry claims;
/, p-3
l./connect output, page ...7b/, r/88.05.01/89.12.05/
l./a37:/, l1, i/
b11=k+1 ; zero entry claims override:
/, p-1
l./connect output, page ...7f/, r/88.05.01/89.12.06/
l./e47:/, d
l./m.fp connect/, r/89.02.02/89.12.06/
l./magtape check, page ...1a/, r/01.25/12.01/
l./e22:/, l1, d2, i/
sn w0 0 ; if hwds xferred = 0 then
jl. e32. ; goto redo else
jl. e23. ; goto parity ;
/, p-4
l./magtape check, page ...2/, r/01.31/12.01/
l./rs. w0 c8./, d, i/
e32: rs. w0 c8. ; redo: <*w0 = 0 from e22 stopped, too*>
rs. w0 e35. ; tries := reposition count := 0;
/, p-2
l./magtape check, page ...4/, r/89.01.31/89.11.13/
l./sl w3 1 /, d2, p-1
l./sl w3 1/, d4, i/
sl w3 1 ; block count :=
al w3 x3-1 ; if block count >= 1 then block count - 1
sh w3 0 ; else block count ;
al w3 0 ; if block count < 0 then
rs w3 x1+h1+14 ; block count := 0;
/, p-5
l./page ...5/, l./m.fp magtape check/, r/89.01.31/89.12.01/
l./end program, page 3/, r/89.06.27/90.09.11/
l./a10=/,
l./al. w1 d10./, r/al/ al/
l./jl. h64./, d, i/
jl. w3 h14. ; goto finis without emptying out buffer;
jl. -2 ; in case of not stopped yet, repeat message;
/, p-2
l./m.fp end program/, r/89.03.20/90.09.10/
f
end
▶EOF◀