Переглянути джерело

Fix sms and ti84 recipes

Their asm code has been broken for a little while! oops!
master
Virgil Dupras 3 роки тому
джерело
коміт
f7dc6a2b79
2 змінених файлів з 20 додано та 20 видалено
  1. +1
    -1
      recipes/sms/xcomp.fs
  2. +19
    -19
      recipes/ti84/xcomp.fs

+ 1
- 1
recipes/sms/xcomp.fs Переглянути файл

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


+ 19
- 19
recipes/ti84/xcomp.fs Переглянути файл

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


Завантаження…
Відмінити
Зберегти