( SVCstuff)
( 22nd August 2015)

( Interrogate SVC code:)
HEX
: svientry ( top addr...)  16  CR DO  I rd_SVCmode SPACE U. LOOP ;

: svileave ( top_addr...)  7C  DO  I rd_SVCmode CR U. LOOP ;

: svi_seq ( topaddr...) 0 CR DO I 8 /MOD DROP 0= IF CR ENDIF
                                I  rd_SVCmode U. SPACE LOOP ;

