Re: A86: Calc. Start up


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

Re: A86: Calc. Start up




here is a fixed up version.  it works perfectly

#include "asm86.h"
#include "ti86asm.inc"

#define pushR  in a,(5) \ push af \ ld a,$0d \ out (5),a \ nop \ nop \ nop
#define popR   pop af \ out (5),a

_alt_on_chksum		equ		$D48F

altOn			equ		3
altflags			equ		$23

.org _asm_exec_ram
   res altOn,(iy+altflags)
   
   ld hl,routine
   ld de,_alt_on_chksum+1
   ld bc,rout_end-routine
   ldir
   
   ld a,(_alt_on_chksum+1)
   ld hl,_alt_on_chksum+40
   add a,(hl)
   ld hl,_alt_on_chksum+80
   add a,(hl)
   ld hl,_alt_on_chksum+120
   add a,(hl)
   ld hl,_alt_on_chksum+160
   add a,(hl)
   ld hl,_alt_on_chksum+200
   add a,(hl)
   ld (_alt_on_chksum),a

   set altOn,(iy+altflags)    ;turn it on
   ret

routine:
  pushR
  call _clrScrn
  call $4a95		;_homeup
  ld hl,text
  call _puts
  call _newline
  popR
  ret

text equ $-routine+_alt_on_chksum+1
   .db "Calculator Online",0
rout_end:

.end
END


In a message dated 12/24/98 4:18:50 PM Eastern Standard Time,
jaymzroo@juno.com writes:

> 
>  does anyone know off hand when the user link routine is executed? i dont
>  feel like researching into it right now...
>  
>  

alt_slink_chksum	equ		$d3c6
alt_slink_exec		equ		$d3c7
altSlink				equ		4