Re: A83: Wish

To: assembly-83@lists.ticalc.org
Subject: Re: A83: Wish
From: Ian Graf <ian_graf@geocities.com>
Date: Tue, 09 Jun 1998 22:32:09 -0700
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
References: <19980609220013.441227F69A@towerguard.unix.edu.sollentuna.se>
Reply-To: assembly-83@lists.ticalc.org

> 5.)   Storing to the pics (system).

i got you covered there, all you had to do was ask. i made this i just
didn't get around to uploading it.

.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
.LIST

_createpict .equ 4482h
PICOBJ .equ 07h

.org 9327h

     call _zerooop1    ; load var name
     ld hl,picname     ;
     ld de,op1         ;
     ld bc,3           ;
     ldir              ;
     call _chkfindsym  ; look it up
     jp nc,load_data   ; if it is there skip to copying the data
     call _createpict  ; create pic

load_data:

     inc de            ; skip 1st length byte
     inc de            ; skip 2nd length byte
     ld hl,picdata     ; pic data
     ld bc,756         ; pic size
     ldir              ; copy data
     ret

picname:

     .db PICOBJ,TVARPICT,TPIC1  ; object type pic, var type pic, var
Pic1

picdata:

     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA  ; pic data
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55  ; 756 bytes
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA  ; 12 x 63
bytes
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA
     .db $55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55,$55
     .db $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA

.end
END
References:
From:
Prev: Re: Re: A83: Information archive
Next: Re: A83: Program creation <--- For Ian Graf.
Index(es):
- Main
- Thread