- help: ti 84 pce password program
- 22 Apr 2026 04:52:41 pm
- Last edited by CalcNoobie101 on 22 Apr 2026 05:07:30 pm; edited 2 times in total
what is this in asm
.db sk0
.db sk0
.db sk0
.db sk0
Full code:
Code:
.db sk0
.db sk0
.db sk0
.db sk0
Full code:
Code:
.nolist
#include "ti84pce.inc"
#define RED $F800
#define NAVY $0010
#macro bcall(x)
call x
#endmacro
#define MBASE_OFFSET $D00000
.list
.org userMem-2
.db tExtTok,tAsm84CeCmp
PasswordStart:
bcall(_EnableAPD)
ld a,1
ld (apdTimer),a
ld (apdSubTimer),a
set apdRunning,(iy+apdFlags)
bcall(_ClrScrnFull)
bcall(_HomeUp)
ld hl,PressText
bcall(_PutS)
bcall(_NewLine)
bcall(_NewLine)
ld de,RED
ld.sis (textBGcolor-MBASE_OFFSET), de
set 4,(iy+PutMapFlags)
bcall(_PutS)
res 4,(iy+PutMapFlags)
bcall(_NewLine)
bcall(_PutS)
ld bc,$03
ld (penCol),bc
ld a,$50
ld (penRow),a
ld bc,NAVY
ld.sis (drawFGColor-MBASE_OFFSET),bc
bcall(_vPutS)
ld bc,$400
ld hl,Password
KeyPress:
call GetKey
cp (hl)
inc hl
jr z,Asterisk
inc c
Asterisk:
ld a,'*'
bcall(_PutC)
djnz KeyPress
dec c
inc c
jr nz,WrongPassword
bcall(_ClrScrnFull)
res onInterrupt, (iy + onFlags)
ret
WrongPassword:
ld hl,WrongPasswordMsg
bcall(_NewLine)
bcall(_PutS)
bcall(_NewLine)
bcall(_PutS)
call GetKey
jp PasswordStart
GetKey:
push hl
bcall(_GetCSC)
pop hl
or a
jr z,GetKey
ret
PressText:
.db "This calculator belongs to****** ***********.",0
.db "(***) ***-****",0
.db "Password: ",0
.db "******.***********@*******.com",0
WrongPasswordMsg:
.db "Wrong password!",0
.db "Press a key to turn off the calculator.",0
Password:
.db sk0
.db sk0
.db sk0
.db sk0



