DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦3e1f297aa⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »retpnumb4tx «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »retpnumb4tx «

TextFile

mode list.yes
pnumber5tx=edit pnumber4tx
; puttext : string point i segmentnumre over 2047 giver param alarm
;
l./page 1.9/, r/10.3.81/26.4.89/
l./c6:/, l./rl  w0  x1-2/, d3, i/
      dl  w3  x1          ;     w0, w3 := first, sec word of string param;
      sh  w0  -1          ;     if first word >= 0 
      sh  w3  -1          ;        sec.  word <  0 then
      jl.     a22.        ;       goto not_layout  else
      jl.     c12.        ;       goto param_error (texttype = layout);
                          ;   end
/, l1, p-8

f
end
▶EOF◀