gistfile1.txt

(
    LDA I
    CMP J
    BEQ EQL
    BGE LBL
	
)

|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1

%DEBUG { #010e DEO }

|0000

@I $1
@J $1

|0100 ( -> )

    #77 .I STZ 
    #42 .J STZ
    
    ( if ) [ .I LDZ .J LDZ GTHk ] ?LBL 

    DEBUG

    #010f DEO
BRK

@LBL ( -- ) 
    #3118 DEO
JMP2r

(
    Assembled test.rom in 34 bytes(0.05% used), 9 labels, 1 macros.
    1<wst> 77 42
    <rst> empty
    Return-stack underflow, by 6c at 0x0121.
)