|
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: »lmitxt077«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦093e2ad1c⟧
└─⟦this⟧ »lmitxt077«
;;
;; rc3502 debug micro communication instructions
;;
;;
;; file: lmitxt077
;;
;
;;
.instruction crram ;
;;
;; param:: none;
;; stack:: ramdisp: word -> rambyte: word;
;;
w6:=basedata,, ;
,,cjs readlucq ; ram.base:= basedata; ram.disp:= readlucq;
w5:=q,,cjs creadbyte1 ; byte:= creadbyte1(ram.base,ram.disp);
w3:=w1,,cjp wrfetch ; goto wrfetch(byte);
;
;;
.instruction cwram ;
;;
;; param:: none;
;; stack:: byte, ramdisp: word -> ;
;;
w2:=basedata,, ;
,,cjs readlucq ; ram.base:= basedata; byte:= readlucq;
w3:=q,,cjs readlucq ; ram.disp:= readlucq;
ra:=cow,w1:=q--,, ;
rd,rd,s, ;
bus:=w3,,cjp not zro sfetch;
w0:=w1+swp,,cjs writebnext ;
w0:=w0+81,, ;
rd:=w0,, ;
led:=6,,, ;
ra:=reg,,cjp fetch ;
;;
;; end of lmitxt077
;;
.p ;
▶EOF◀