1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 05:18:06 +11:00

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 )
270 LOAD ( xcomp overrides )
0x100 JPnn, 0x63 ZFILL, ( 0x66 )
0x100 JP, 0x63 ZFILL, ( 0x66 )
RETN, 0x98 ZFILL, ( 0x100 )
( All set, carry on! )
CURRENT @ XCURRENT !

View File

@ -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 )