$rom_sources/base.ual
( -> )
@{}print_stack
   ;SP 0x0001
   'STACK: ' *>>
   (we need some logic to cut off printing at stack start)
   ;SP LFA 1279 ADD 16 SUB
   @PS_LOOP
       DUP 0 1 0cI OUT
       ' ' *>>
       {}#++
   DUP ;SP LFA 1279 ADD 3 SUB (use a variable instead) #PS_LOOP JNE
   '[' *>>
   0 1 0cI OUT
   ']\n' *>>
JCC

( -> )
@{}print_return
   ;RSP 0x0002
   'RSTACK: ' *>>
   (we need some logic to cut off printing at stack start)
   ;RSP LFA 1535 ADD 16 SUB
   @RS_LOOP
       DUP 0 1 0cI OUT
       ' ' *>>
       {}#++
   DUP ;RSP LFA 1535 ADD 1 SUB (use a variable instead) #RS_LOOP JNE
   '[' *>>
   0 1 0cI OUT
   ']\n' *>>
JCC

( ADDR LEN -> )
@{ addr len }print_address_range
   :X 0 :
   'ADDR:\n' *>>
   @ADDR_LOOP
       OVR (addr) X ADD 0 1 0cI OUT
       ' ' *>>
       DUP :X ++ :
   #ADDR_LOOP JNE
   '\n' *>>
JCC

You are viewing proxied material from sdf.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.