0 Members and 1 Guest are viewing this topic.
.nolist#include "ti83plus.inc"#define ProgStart $9D95.list.org ProgStart - 2.db t2ByteTok, tAsmCmp ;b_call(_RunIndicOff) b_call(_ClrLCDFull) ld HL, numVar b_call(_DispHL) KeyLoop: b_call(_GetCSC) cp skUp ; If the up arrow key was pressed. JR Z, Increase cp skDown ; If the down arrow key was pressed. JR Z, Decrease cp skClear ; If the CLEAR key was pressed. JR Z, Finish JR KeyLoop ; If any other key was pressed, or none, redo _GetCSC.Increase: ld A, H cp 255 JR Z, KeyLoop inc HL ld (numVar), HL JR PrintHLDecrease: ld A, H cp 0 JR Z, KeyLoop dec HL ld (numVar), HLPrintHL: b_call(_ClrLCDFull) b_call(_DispHL) JR KeyLoopFinish: ;b_call(_RunIndicOn) b_call(_ClrLCDFull) retnumVar: .db 0.end
With BRASS have you included the '.binarymode ti8x' directive?http://www.benryves.com/bin/brass/
Page created in 0.051 seconds with 32 queries.