2020-07-05 08:54:22 -04:00
|
|
|
lblnext BSET PC 0x1d - ORG @ 0x1b + ! ( next )
|
2020-08-08 10:18:43 -04:00
|
|
|
( ovfl check )
|
|
|
|
|
BP SP CMPxx,
|
|
|
|
|
IFNC, ( BP >= SP )
|
|
|
|
|
SP PS_ADDR MOVxI, BP RS_ADDR MOVxI,
|
|
|
|
|
DI 0x13 ( oflw ) MOVxm, JMPs, L1 FWRs ( execute )
|
2020-07-05 08:54:22 -04:00
|
|
|
THEN,
|
|
|
|
|
DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,
|
|
|
|
|
DI [DI] MOVx[], ( wordref )
|
|
|
|
|
( continue to execute ) L1 FSET
|
