11 lines
392 B
Plaintext
11 lines
392 B
Plaintext
ORG @ 0x4c + HERE !
|
|
H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
|
|
CODE (br) ( 0x53 ) L2 BSET ( used in br? )
|
|
DI DX MOVxx, DI [DI] MOVx[], DX DI ADDxx,
|
|
;CODE NOP, NOP,
|
|
CODE (?br) ( 0x67 )
|
|
AX POPx, AX AX ORxx, JZ, L2 @ RPCs, ( False, branch )
|
|
( True, skip next 2 bytes and don't branch )
|
|
L1 BSET ( loop will jump here ) DX INCx, DX INCx,
|
|
;CODE NOP, NOP, NOP, NOP, NOP,
|