|
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: 2304 (0x900)
Types: TextFile
Names: »lmitxt087«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦093e2ad1c⟧
└─⟦this⟧ »lmitxt087«
;;
;; begin lmitxt087: procedure call instructions
;;
;;
.instruction pcald ;
,,cjs readluc ;
w5:=bd,h w s,cjs readluct ;
w0:=bd,h w s,cjs readluct ;w05:=link
w4:=bd,h w s,cjs readluct ;
w6:=bd,h w s,cjs terror ; w64:= entry point;
,,cjp pcals1 ;
;
.instruction pcals ;
,,cjs getif ;
w5:=w0,, ;w05:=link
w0:=w6,,cjs readcown36 ;w64:=entry point
w4:=w3,, ;
;
pcals1: ;; w05=link; w64=entry point
ir:=0,w1:=slu,, ; w21:=slb,slu
slu:=slu+0c,s, ; slu:=slu+12
slu--zdw,s,cjp acy stackerror; warning: zdw = zd0
w2:=slb,,cjp acy stackerror; if slu > lm then stackerror
w3:=w0,,cjs writenext ;link
w0:=rd0,, ;w0:=sf
rd0:=w1,, ;
w3:=w5,,cjs writenext ;
w3:=spb,,cjs writenext ;dynamic link
w3:=w0,,cjs writenext ;
w3:=sib,,cjs writenext ;return point
w3:=sic,,cjs writenext ;
rd2:=sib:=w6,, ;
sic:=w4,,cjp fetch ;
.p ;
.instruction pexit ;
w6:=spb,,cjs readcont ; w3:=distance
w0:=rd0-w3,, ; calculate new lastused
w5:=rd0++,, ; w65:=sf+2
w5:=w5++,,cjs readnext ;
w2:=bd,h w s,cjs readnextt ;w21:=link
w1:=bd,h w s,cjs readnextt ;
w4:=bd,h w s,cjs readnextt ;w43:=return point
q:=w4,h , ;
w3:=bd,h w s,cjs terror ;
rd0:=w1,, ;update sf
zd:=slu:=w0,,cjp jmp1 ;update lastused
;;
;; end lmitxt087
;;
.p ;
▶EOF◀