home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 86 / asm / source / pause1.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  1.4 KB  |  54 lines
  1. ;copy write 1999 Samuel Stearley
  2.  
  3. #include "asm86.h"
  4. #include "ti86asm.inc"
  5. #include "ti86math.inc"
  6. #include "ti86ops.inc"
  7. #include "ti86abs.inc"
  8.  
  9. .org _asm_exec_ram
  10.  
  11.     call    _runindicoff        ;turn the run indicator off
  12. start:
  13.     call    _getkey            ;test for key
  14.     cp    kF5                ;was it f5
  15.     ret    z                ;then return. this return will completely exit this sub 
  16.                         ;program, but only if F5 was pressed
  17. part1:
  18.     call    _clrLCD            ;clears the screen
  19.     ld    hl,256*0+32            ;row=0 col=32
  20.     ld    (_penCol),hl        ;ram buffer where the cordinates are stored
  21.     ld    hl,line1            ;address of zero termiated string
  22.     call    _vputs            ;displays the string
  23.     call    loop                ;subroutine that waits for the exit key to be 
  24.                         ;pressed
  25. part2:
  26.     ld    hl,256*1+2            ;row=2 col=1, note that for 7*5 font the row is 
  27.     ld    (_curRow),hl        ;added and the col is mltiplied by 256, but for 
  28.     ld    hl,line2            ;the other font this is reversed.
  29.     call    _puts                ;for more information on how the z80 writes to ram,
  30.                         ;see delAtoZ.asm
  31.     call    loop
  32. part3:
  33.     ld    hl,256*31+30        ;row=31 col=30, the row is multiplied and the column
  34.     ld    (_penCol),hl        ;is added.
  35.     ld    hl,line3
  36.     call    _vputs    
  37.     call    loop
  38. part4:
  39.     ld    hl,256*5+6
  40.     ld    (_curRow),hl
  41.     ld    hl,line4
  42.     call    _puts    
  43. loop:
  44.     call    _getkey
  45.     cp    kExit
  46.     ret    z
  47.     jr    loop
  48.  
  49. line1    .db "This was made by",0
  50. line2    .db "The SECRET SERVICE",0
  51. line3    .db "to defeat teachers",0
  52. line4    .db "EveryWhere",0
  53. .end
  54.