collapseos/blk/335

CODE LSHIFT ( n u -- n )
    BC POPqq, ( u )
    HL POPqq, ( n )
    chkPS,
    B C LDrr,
    B INCr, B DECr, IFNZ,
        BEGIN,
            L SLAr, H RLr,
        DJNZ, AGAIN,
    THEN,
    HL PUSHqq,
;CODE
Add words RSHIFT and LSHIFT 2020-05-08 05:40:10 +10:00			`CODE LSHIFT ( n u -- n )`
			`BC POPqq, ( u )`
			`HL POPqq, ( n )`
			`chkPS,`
			`B C LDrr,`
			`B INCr, B DECr, IFNZ,`
			`BEGIN,`
			`L SLAr, H RLr,`
			`DJNZ, AGAIN,`
			`THEN,`
			`HL PUSHqq,`
			`;CODE`

VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-12 08:12:01 +10:00