A83: Pword Program...

To: "assembly-83@lists.ticalc.org" <assembly-83@lists.ticalc.org>
Subject: A83: Pword Program...
From: Phelan Wolf <gwatford@worldnet.att.net>
Date: Wed, 19 Aug 1998 21:39:18 -0700
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
Organization: EDCTech, Inc. Web Design
Reply-To: assembly-83@lists.ticalc.org


Check this program out:
(it looks good to me ;)

.nolist
#define equ .equ
#define EQU .equ
#include "ti83asm.inc"

.list
.org $9327
;start of porgram
 call _cls   ;clear screen
begin_code:
 ld ix,password_flag  ;check password flag(if set yet)
 jp z,change_password
 ld hl,text
 call _cls
 call _homeup
 call _puts
 ld hl,passcode_temp
 ld b,8
start:
 call getkey
 ld a,b
 jp z,done
 jp start

getkey:
 call _getkey
 ld (hl),a
 inc hl
 dec b
 ret

done:
 ld de,passcode_temp
 ld hl,passcode_real
 sub hl,de
 jp z,correct
 jr off

correct:
 ret

off:
 call _off
 jp begin_code

change_password:
 ld hl,text
 call _homeup
 call _puts
 ld hl,password_real
 ld b,8
change_loop:
 call getkey
 ld a,b
 jp z,done_changing
 jp change_loop

done_changing:
 call _cls
 ld hl,done_text
 call _homeup
 call _puts
 ret

passcode_flag:
 .db $00,$FF,0
passcode_temp:
 .db $00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,0
passcode_real:
 .db $00,$00,$00,$00,$00,$00,$00,$00,$00,$FF,0
text:
 .db "Enter Password",0
done_text:
 .db "Password Set",0

.end
End

Prev: Re: A83: Tutorials
Next: Re: A83: Invert Function in SOS's Zlib library.. I Need HELP!
Index(es):
- Main
- Thread