; Program Name:
; Author:
; Version:
; Date:
; Written for Doors CSE 8.0 and higher (http://dcs.cemetech.net)

.nolist
#include "ti84pcse.inc"
#include "dcse8.inc"

	.org UserMem
BinaryStart:
	.db $DE,$2A,"N",$BB,$B4,$BB,$B4,$BB,$B3,$BB,$C3,")D"   ;Disp "Needs D
	.db $BB,$BF,$BB,$BF,$BB,$C2,$BB,$C3,")CSE",$2A,$3F     ;oors CSE"
	.db $EF,$11                                            ;OpenLib(
	.db "D",$BB,$BF,$BB,$BF,$BB,$C2,$BB,$C3,"CSE",$11,$3F  ;(tokenized "DoorsCSE")
	.db $EF,$12,$3F                                        ;ExecLib
	.db $D5,$3F                                            ;Return
	.db tExtTok,tAsm84CPrgm,$3F                            ;Asm84CPrgm
HeaderStart:
	.dw ASMStart-HeaderStart        ;offset to code
	; Header sections start here

	.dw 10
	.db ASMHEADER_FIELD_TYPE_LIB    ;== 3
	.db "DoorsCSE",8,0              ;Lib name, min major version, min minor version


 	.dw 0     ;End of header field: 0 bytes of data
 	.db $ff   ;End of header field: type 255
.list
ASMStart:
	.relocate UserMem
ProgramStart:
    ;LabelON
        bcall(_runIndicOff)
        call clearScreen
        ld hl,sInstructions
        bcall(_PutS)
        ld a,1
        bcall(52EAh) ;_EnableSmartViewInputPad
        bcall(52F0h) ;_RecycleUSB
        res 0,(iy+asm_Flag1)
        res 1,(iy+asm_Flag1)
        call Delay
smartViewLoop:
     ;   bcall(530Eh) ;_IsConnectedToPC
      ;  jr z,smartViewLoopDone
     ;   bcall(4C9Ch) ;_HandleLinkActivity
        bit 4,(iy+9)
        res 4,(iy+9)
        jr z,notOnPressed
onPressed:
        xor a
        ld b,a
        bcall(52E7h) ;_SendSmartViewKeypress
        ld a,3fh
        ld b,0
        bcall(52E7h) ;_SendSmartViewKeypress
        xor a
        ld b,a
        bcall(52E7h) ;_SendSmartViewKeypress
        bit 0,(iy+asm_Flag1)
        jr nz,smartViewLoopDone
        jr smartViewLoop
notOnPressed:
        bit 3,(iy+0)
        jr z,smartViewLoop
        bcall(_GetCSC)
        or a
        jr nz,keyCodeFound
        bit 1,(iy+asm_Flag1)
        jr z,smartViewLoop
        res 1,(iy+asm_Flag1)
        xor a
        ld b,a
        bcall(52E7h) ;_SendSmartViewKeypress
        jr smartViewLoop
keyCodeFound:
        set 1,(iy+asm_Flag1)
        cp sk2nd
        jr nz,not2ndPressed
        bit 0,(iy+asm_Flag1)
        jr nz,sk2ndWas
        set 0,(iy+asm_Flag1)
        jr not2ndPressed
sk2ndWas:
        res 0,(iy+asm_Flag1)
not2ndPressed:
        ld hl,keyTable
        ld b,a
findKeyCodeLoop:
        ld a,(hl)
        or a
        jr z,smartviewLoop
        cp b
        jr z,sendKeyCode
        inc hl
        inc hl
        inc hl
        jr findKeycodeLoop
sendKeyCode:
        inc hl
        ld b,(hl)
        inc hl
        ld a,(hl)
        bcall(52E7h) ;_SendSmartViewKeypress
        jr smartViewLoop
smartViewLoopDone:
        xor a
        ld b,a
        bcall(52E7h) ;_SendSmartViewKeypress
        call Delay
        xor a
        bcall(52EAh) ;_EnableSmartViewInputPad
        bcall(52F0h) ;_RecycleUSB
clearScreen:
        bcall(_clrTxtShd)
        bcall(_clrScrnFull)
        bcall(_DrawStatusBar)
        bcall(_homeUp)
        ret
Delay:  ei
        ld a,42h
        out (36h),a
        xor a
        out (37h),a
        ld a,10
        out (38h),a
timerLoop:
        in a,(4)
        bit 7,a
        jr z,timerLoop
        ret
sInstructions:
        .db "       Learn Hacking"
        .db "            And Programming"
        .db "          With Calculators!   "
        .db "                           "
        .db "   Demo Input Controller  "
        .db "                           "
        .db " Input will be shown on "
        .db "        Demo Display      ",0
keyTable:
        .db sk2nd,2h,0h
        .db skYequ,00h,58
        .db skWindow,00h,59
        .db skZoom,00h,60
        .db skTrace,00h,61
        .db skGraph,00h,62
        .db skMode,00h,41
        .db skDel,00h,76
        .db skAlpha,01h,00
        .db skGraphvar,00h,35h
        .db skStat,00h,77
        .db skMath,00h,4
        .db skMatrix,00h,5
        .db skPrgm,00h,6
        .db skVars,00h,73
        .db skClear,00h,38h
        .db skRecip,00h,7
        .db skSin,00h,8
        .db skCos,00h,9
        .db skTan,00h,10
        .db skPower,00h,11
        .db skSquare,00h,12
        .db skComma,00h,13
        .db skLParen,00h,14
        .db skRParen,00h,15
        .db skDiv,00h,16
        .db skLog,00h,17
        .db sk7,00h,18
        .db sk8,00h,19
        .db sk9,00h,20
        .db skMul,00h,21
        .db skLn,00h,22
        .db sk4,00h,23
        .db sk5,00h,24
        .db sk6,00h,25
        .db skSub,00h,26
        .db skStore,00h,27
        .db sk1,00h,28
        .db sk2,00h,29
        .db sk3,00h,32
        .db skAdd,00h,87
        .db sk0,00h,44
        .db skDecPnt,00h,55
        .db skChs,00h,45
        .db skEnter,00h,40
        .db skup,00h,82
        .db skDown,00h,81
        .db skLeft,00h,80
        .db skRight,0h,79
        .db 0
.endrelocate
.end
.nolist


ERRORS:
Pass one...
/Continuum.asm:33: error SE113: Unknown opcode '.relocate'
/Continuum.asm:195: error SE113: Unknown opcode '.endrelocate'
Pass two...
/inc/ti84pcse.inc:447: error SE106: Could not find label or macro '_runIndicOff'
/inc/ti84pcse.inc:447: error SE106: Could not find label or macro '_clrTxtShd'
/inc/ti84pcse.inc:447: error SE106: Could not find label or macro '_clrScrnFull'
Assembly time: 3.335 seconds