DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »chusertxt«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦393858ad9⟧ »tsysprog« 
            └─⟦this⟧ 

TextFile

(changeuser=slang 
scope user changeuser)
;     hcø  Anders Lindgård   78-08-22
s. a5,b5              ; begin
w. p.<:fpnames:>      ;
k=h55                 ;
      b5,0            ; length of program, empty
      al  w0  0       ; entry:
      rs. w0  b2.     ; modifier:=0;
      rs. w3  b1.     ; save command pointer
a1:                   ; next:
      ba  w3  x3+1    ; next item
      bl  w2  x3      ; take item
      sh  w2  3       ; if terminator then
      jl.     a2.     ; goto end
      bl  w0  x3+1    ; test integer
      se  w0  4       ; if -,integer then
      jl.     a3.     ; goto param
      rl  w0  x3+2    ; take integer
      am.    (b2.)    ;
      rs. w0  b3.     ; save base
      rl. w2  b2.     ;
      al  w2  x2+2    ; modifier:=modifier+2;
      rs. w2  b2.     ;
      jl.     a1.     ; goto next
a2:                   ; end:
      dl. w3  b4.     ; w3,w2:=lower,upper
      rl. w0  b3.
      jl. w3  h32.-2
      1<23+32<12+11
      rl. w0  b4.
      jl. w3  h32.-2
      1<23+32<12+11
      dl. w3  b4.     ;
      ds. w3  h58.    ; user:=param
a4:   al  w2  0       ;
      jl.     h7.     ; terminate;
a3:
      al. w0  b0.     ;
      jl. w3  h31.-2  ; writetext(<:***param:>);
      jl.     a4.     ; terminate
b0: <:***param          <10><0>:>
b1: 0                 ; command pointer
b2: 0                 ; modifier
b3: 0                 ; lower
b4: 0                 ; upper
b5=k-h55              ; length of program
e.                    ; end fpnames
m.  hcæ124æ al          ;
e.
▶EOF◀