Re: A83: Re: Asm God???

To: assembly-83@lists.ticalc.org
Subject: Re: A83: Re: Asm God???
From: Jimmy Conner <timagic@yahoo.com>
Date: Thu, 16 Dec 1999 21:50:45 -0800 (PST)
Reply-To: assembly-83@lists.ticalc.org

--- Harper Maddox <gte172i@prism.gatech.edu> wrote:
> 
> How can you be sure that you this series is ,in
> fact, instruction opcodes
> and not the "coincidental" data segment.
> 


  Mainly because if it did happen to be a data
segment, then he seems to jump to it alot.  And no
where does he modify this section of the code either.

Jimmy

  Here's what my disassembler spit out to me in about
3 seconds.  See for yourself.



.NOLIST
#define     equ             .equ
#define     EQU             .equ
#define     END             .end
.LIST

_runIndicOff            equ     4795h
_zeroop1                equ     428Eh
op1                     equ     8039h
_Chkfindsym             equ     442Ah
_getkey                 equ     4CFEh
savesscreen             equ     8265h
_homeUp                 equ     4775h
_clrlcdfull             equ     4755h
_puts                   equ     470Dh
currow                  equ     800Ch
_newline                equ     473Dh
_GetK                   equ     4A18h
_Op2tooP1               equ     41C2h
_Convop1                equ     4EFCh
_Grbufclr               equ     515Bh
_clrtxtshd              equ     4765h
_putc                   equ     4705h

.org        9327h

     call _runIndicOff
     call _zeroop1
     ld   de, op1
     ld   a, 05h
     ld   (de), a 
     inc  de      
     ld   hl, Str1
     ld   bc, 06h
     ldir         
     call _Chkfindsym
     ex   de, hl  
     ld   de, 00159h
     add  hl, de  
     ld   (08275h), hl 
     ld   a, (hl) 
     or   a       
     jp   z, Label1

Label4:
     res  4, (iy+09h)
     di           
     ld   a, 01h
     out  (03h), a  
     ld   a, 00h
     out  (04h), a  
     ex   af, af' 
     exx          
     ei           
     call _getkey
     ld   a, 00h
     ld   (savesscreen), a  
     call Label2
     ld   hl, (08275h) 
     ld   de, 08h
     add  hl, de  
     ld   a, (hl) 
     cp   08h
     call p, Label3
     ld   hl, 08266h
     cp   (hl)    
     jp   nz, Label4

Label1:
     call _homeUp
     call _clrlcdfull
     ld   hl, Str2
     call _puts
     ld   hl, Str3
     call _puts
     ld   hl, 03h
     ld   (currow), hl 
     ld   hl, Str4
     call _puts
     call _newline
     ld   hl, Str5
     call _puts

Label6:
     call _GetK
     call _Op2tooP1
     call _Convop1
     ld   a, e    
     cp   5Ch
     jp   z, Label5
     cp   5Dh
     jp   nz, Label6
     ld   a, 01h
     ld   (savesscreen), a  
     call Label2
     ld   a, e    
     ld   hl, (08275h) 
     ld   de, 08h
     add  hl, de  
     ld   (hl), a 
     jp   Label1

Label5:
     call _Grbufclr
     call _clrlcdfull
     call _clrtxtshd
     call _homeUp
     res  4, (iy+09h)
     ret          

Label2:
     ld   a, 00h
     ld   (08266h), a  
     call _homeUp
     call _clrlcdfull
     ld   hl, Str6
     call _puts
     call _newline
     ld   de, 00h

Label7:
     push de      
     call _GetK
     call _Op2tooP1
     call _Convop1
     ld   a, e    
     cp   69h
     pop  de      
     ret  z       
     or   a       
     jp   z, Label7
     push de      
     ld   c, a    
     ld   a, e    
     cp   08h
     jp   p, Label10
     ld   hl, (08275h) 
     add  hl, de  
     ld   a, (savesscreen)  
     or   a       
     jr   z, Label8
     ld   a, c    
     ld   (hl), a 

Label10:
     ld   a, 2Ah
     call _putc
     pop  de      
     inc  e       
     jp   Label7
     ret          

Label3:
     ld   a, 08h
     ret          

Label8:
     ld   a, c    
     ld   b, a    
     ld   a, (hl) 
     cp   b       
     jr   z, Label9
     jr   Label10

Label9:
     ld   hl, 08266h
     inc  (hl)    
     jr   Label10

Str1:
     .db  "ZPWORD", 00h

Str6:
     .db  "Enter Password: ", 00h

Str2:
     .db  "Password 3.5 (C)", 00h

Str3:
     .db  "1997 Bill Nagel", 00h

Str5:
     .db  "2. New Password", 00h
     .db  00h
     .db  01h, 02h, 03h, 04h, 05h, 06h, 07h, 08h

Str4:
     .db  "1. Start TI-83", 00h


 ; Disassembled by Jimmy Conner - timagic@yahoo.com
 ; @ 12/16/99 11:49:30 PM
 ; 83 Disassembler v1.3
 ; Z80 AC   -  www.zed80asm.org
 ; Personal -  www.timagic.cjb.net

.end
end

__________________________________________________
Do You Yahoo!?
Thousands of Stores.  Millions of Products.  All in one place.
Yahoo! Shopping: http://shopping.yahoo.com
Follow-Ups:
Re: A83: Re: Asm God???
From: Scott Dial <wrath@calc.org>