Fix sms and ti84 recipes

Their asm code has been broken for a little while! oops!
This commit is contained in:
Virgil Dupras 2020-09-19 21:03:18 -04:00
parent b1a95648f1
commit f7dc6a2b79
2 changed files with 20 additions and 20 deletions

View File

@ -19,7 +19,7 @@ SYSVARS 0x72 + CONSTANT PAD_MEM
282 LOAD ( boot.z80.decl ) 282 LOAD ( boot.z80.decl )
270 LOAD ( xcomp overrides ) 270 LOAD ( xcomp overrides )
0x100 JPnn, 0x63 ZFILL, ( 0x66 ) 0x100 JP, 0x63 ZFILL, ( 0x66 )
RETN, 0x98 ZFILL, ( 0x100 ) RETN, 0x98 ZFILL, ( 0x100 )
( All set, carry on! ) ( All set, carry on! )
CURRENT @ XCURRENT ! CURRENT @ XCURRENT !

View File

@ -17,42 +17,42 @@ SYSVARS 0x72 + CONSTANT KBD_MEM
offset the binary by 0x100, which is our minimum possible offset the binary by 0x100, which is our minimum possible
increment and fill the TI stuff with the code below. ) increment and fill the TI stuff with the code below. )
0x5a JPnn, 0x15 ZFILL, ( 0x18 ) 0x5a JP, 0x15 ZFILL, ( 0x18 )
0x5a JPnn, ( reboot ) 0x1d ZFILL, ( 0x38 ) 0x5a JP, ( reboot ) 0x1d ZFILL, ( 0x38 )
( handleInterrupt ) ( handleInterrupt )
DI, DI,
AF PUSHqq, AF PUSH,
( did we push the ON button? ) ( did we push the ON button? )
0x04 ( PORT_INT_TRIG ) INAn, 0x04 ( PORT_INT_TRIG ) INAi,
0 ( INT_TRIG_ON ) A BITbr, 0 ( INT_TRIG_ON ) A BIT,
IFNZ, IFNZ,
( yes? acknowledge and boot ) ( yes? acknowledge and boot )
0x03 ( PORT_INT_MASK ) INAn, 0x03 ( PORT_INT_MASK ) INAi,
0x00 ( INT_MASK_ON ) A RESbr, ( ack interrupt ) 0x00 ( INT_MASK_ON ) A RES, ( ack interrupt )
0x03 ( PORT_INT_MASK ) OUTnA, 0x03 ( PORT_INT_MASK ) OUTiA,
AF POPqq, AF POPqq,
EI, EI,
0x100 JPnn, 0x100 JP,
THEN, THEN,
AF POPqq, AF POP,
EI, EI,
RETI, RETI,
0x03 ZFILL, ( 0x53 ) 0x03 ZFILL, ( 0x53 )
0x5a JPnn, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a ) 0x5a JP, ( 0x56 ) 0xff A, 0xa5 A, 0xff A, ( 0x5a )
( boot ) ( boot )
DI, DI,
(im1) IM1,
( enable the ON key interrupt ) ( enable the ON key interrupt )
0x03 ( PORT_INT_MASK ) INAn, 0x03 ( PORT_INT_MASK ) INAi,
0x00 ( INT_MASK_ON ) A SETbr, 0x00 ( INT_MASK_ON ) A SET,
0x03 ( PORT_INT_MASK ) OUTnA, 0x03 ( PORT_INT_MASK ) OUTiA,
A 0x80 LDrn, A 0x80 LDri,
0x07 ( PORT_BANKB ) OUTnA, 0x07 ( PORT_BANKB ) OUTiA,
EI, EI,
( LCD off ) ( LCD off )
A 0x02 ( LCD_CMD_DISABLE ) LDrn, A 0x02 ( LCD_CMD_DISABLE ) LDri,
0x10 ( LCD_PORT_CMD ) OUTnA, 0x10 ( LCD_PORT_CMD ) OUTiA,
HALT, HALT,
0x95 ZFILL, ( 0x100 ) 0x95 ZFILL, ( 0x100 )