Fix sms and ti84 recipes
Their asm code has been broken for a little while! oops!
This commit is contained in:
parent
b1a95648f1
commit
f7dc6a2b79
@ -19,7 +19,7 @@ SYSVARS 0x72 + CONSTANT PAD_MEM
|
||||
282 LOAD ( boot.z80.decl )
|
||||
270 LOAD ( xcomp overrides )
|
||||
|
||||
0x100 JPnn, 0x63 ZFILL, ( 0x66 )
|
||||
0x100 JP, 0x63 ZFILL, ( 0x66 )
|
||||
RETN, 0x98 ZFILL, ( 0x100 )
|
||||
( All set, carry on! )
|
||||
CURRENT @ XCURRENT !
|
||||
|
@ -17,42 +17,42 @@ SYSVARS 0x72 + CONSTANT KBD_MEM
|
||||
offset the binary by 0x100, which is our minimum possible
|
||||
increment and fill the TI stuff with the code below. )
|
||||
|
||||
0x5a JPnn, 0x15 ZFILL, ( 0x18 )
|
||||
0x5a JPnn, ( reboot ) 0x1d ZFILL, ( 0x38 )
|
||||
0x5a JP, 0x15 ZFILL, ( 0x18 )
|
||||
0x5a JP, ( reboot ) 0x1d ZFILL, ( 0x38 )
|
||||
( handleInterrupt )
|
||||
DI,
|
||||
AF PUSHqq,
|
||||
AF PUSH,
|
||||
( did we push the ON button? )
|
||||
0x04 ( PORT_INT_TRIG ) INAn,
|
||||
0 ( INT_TRIG_ON ) A BITbr,
|
||||
0x04 ( PORT_INT_TRIG ) INAi,
|
||||
0 ( INT_TRIG_ON ) A BIT,
|
||||
IFNZ,
|
||||
( yes? acknowledge and boot )
|
||||
0x03 ( PORT_INT_MASK ) INAn,
|
||||
0x00 ( INT_MASK_ON ) A RESbr, ( ack interrupt )
|
||||
0x03 ( PORT_INT_MASK ) OUTnA,
|
||||
0x03 ( PORT_INT_MASK ) INAi,
|
||||
0x00 ( INT_MASK_ON ) A RES, ( ack interrupt )
|
||||
0x03 ( PORT_INT_MASK ) OUTiA,
|
||||
AF POPqq,
|
||||
EI,
|
||||
0x100 JPnn,
|
||||
0x100 JP,
|
||||
THEN,
|
||||
AF POPqq,
|
||||
AF POP,
|
||||
EI,
|
||||
RETI,
|
||||
|
||||
0x03 ZFILL, ( 0x53 )
|
||||
0x5a JPnn, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a )
|
||||
0x5a JP, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a )
|
||||
( boot )
|
||||
DI,
|
||||
(im1)
|
||||
IM1,
|
||||
( enable the ON key interrupt )
|
||||
0x03 ( PORT_INT_MASK ) INAn,
|
||||
0x00 ( INT_MASK_ON ) A SETbr,
|
||||
0x03 ( PORT_INT_MASK ) OUTnA,
|
||||
A 0x80 LDrn,
|
||||
0x07 ( PORT_BANKB ) OUTnA,
|
||||
0x03 ( PORT_INT_MASK ) INAi,
|
||||
0x00 ( INT_MASK_ON ) A SET,
|
||||
0x03 ( PORT_INT_MASK ) OUTiA,
|
||||
A 0x80 LDri,
|
||||
0x07 ( PORT_BANKB ) OUTiA,
|
||||
EI,
|
||||
( LCD off )
|
||||
A 0x02 ( LCD_CMD_DISABLE ) LDrn,
|
||||
0x10 ( LCD_PORT_CMD ) OUTnA,
|
||||
A 0x02 ( LCD_CMD_DISABLE ) LDri,
|
||||
0x10 ( LCD_PORT_CMD ) OUTiA,
|
||||
HALT,
|
||||
|
||||
0x95 ZFILL, ( 0x100 )
|
||||
|
Loading…
Reference in New Issue
Block a user