[A83] Re: Sucwelc interrupt prgm


[Prev][Next][Index][Thread]

[A83] Re: Sucwelc interrupt prgm




www.radicalsoft.org/michael/info/weird.z80

You could try modifying that to suit your needs. Don't steal too much code
;)

Michael Vincent
Detached Solutions - www.detacheds.com
Radical Software - www.radicalsoft.org

----- Original Message -----
From: "The one and only SUCKER ..." <sucker_pvn@hotmail.com>
To: <assembly-83@lists.ticalc.org>
Sent: Saturday, August 11, 2001 3:48 AM
Subject: [A83] Sucwelc interrupt prgm


>
> Could somebody write me a interrupt prgm that waits
> till apd should happen, but runs a prgm instead, or
> when somebody tries to shut down the calc manually
> this prgm also starts. The prgm is a password program
> Suckerwelcome 3.0) and the executable should enable or
> disable the interrupt like noprogs from Ian Graf.
> The data of the password program should be inside the
> executable file. This is the prgm data (in assembly):
>
>
> ;this is a TI-83- prgm
> ;I don't know if this could be run on a Ti-83+(SE).
>
> ;  SUCKERWELCOME V3.0
> ;  ------------------
>
> ;The default keys are <SIN> <COS> <TAN>;
> ;change the keys with prgmCONFIG.
>
> ; You may modify this source code for personal use only.
> ; You may NOT distribute the modified source or program file.
>
> .nolist
> #define end .end
> #define END .end
> #define equ .equ
> #define EQU .equ
> #include "ti83asm.inc"
> #include "tokens.inc"
>
> .list
> #define apdvar 8265h
> #define amount 8267h
> .org 9327h
>
> jr start
> .db 3 ;the amount of keys
> keys:
> .db 38 ;<SIN>
> .db 30 ;<COS>
> .db 22 ;<TAN>  are the default keys
> .db 0
> .db 0
> .db 0
> .db 0
> start:
> call power
> call _clrlcdfull
> call _runindicoff
> call _homeup
> call _newline
> ld hl,welk
> call _puts
> call _newline
> call _newline
> ld hl,welk2
> call _puts
> ld hl,3911h
> ld (pencol),hl
> ld hl,suckertxt
> call _vputs
>
> prekeycheck:
> ld a,(keys-1)
> ld (amount),a
> keycheck:
> ld bc,20000
> ld (apdvar),bc
> call getcall
> or a
> jp nz,powergo
> push hl
> ld a,(amount)
> dec a
> ld (amount),a
> or a
> jr nz,keycheck
>
> ld a,(keys-1)
> ld (amount),a
> realkeycheck:
> ld hl,keys
> ld d,0
> ld a,(amount)
> dec a
> ld e,a
> add hl,de
> ex de,hl
> pop hl
> ld a,l
> ex de,hl
> cp (hl)
> jr nz,othergets
> ld a,(amount)
> dec a
> ld (amount),a
> or a
> jr z,dispendtxt
> jr realkeycheck
>
> getcall:
> res oninterrupt,(iy+onflags) ;Thanks to z3FX for solving this problem
> call _getk
> or a
> jr nz,continue
> ld bc,(apdvar)
> dec bc
> ld (apdvar),bc
> ld a,b
> or a
> jr nz,getcall
> ld a,c
> or a
> jr nz,getcall
> time_over:
> ld a,1
> ret
> continue:
> ld h,0
> ld l,a
> xor a
> ret
>
> othergets:
> ld a,(amount)
> ld b,a
> ld a,7
> sub b
> ld (amount),a
> or a
> jr z,powergo
> anotherget:
> ld bc,20000
> ld (apdvar),bc
> call getcall
> or a
> jr nz,powergo
> ld a,(amount)
> dec a
> ld (amount),a
> or a
> jr nz,anotherget
> jr powergo
>
> powergo:
> call power
> jp prekeycheck
>
> power:
> ld a,1
> out (3),a
> halt
> ret
>
> dispendtxt:
> call _clrscrnfull
> call _homeup
> ld hl,380Dh
> ld (pencol),hl
> ld hl,sucwelcend
> jp _vputs
>
> welk:   .db " Welcome to my  "
> .db "     Ti-83",0
> welk2:  .db "  Don't try to  "
> .db " break the code!",0
> suckertxt:
> .db "...Made by SUCKER...",0
> sucwelcend:
> .db "Suckerwelcome v3.0",0
> .end
> END
>
> _________________________________________________________________
> Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
>
>
>





References: