home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 86 / asm / source / blank.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  779 b   |  66 lines
  1. #include "asm86.h"
  2. #include "ti86asm.inc"
  3.  
  4. .org _asm_exec_ram
  5.  
  6.     nop
  7.     jr Start
  8.     .dw $0000
  9.     .dw Title
  10.  
  11. Start:
  12.     call _clrLCD
  13.     call BUSY_OFF
  14.     ld hl,$0000
  15.     ld (_curRow),hl
  16.     ld hl,Text
  17.     call _puts
  18.     jr Waitkey
  19.     ret
  20.  
  21. Waitkey:
  22.     call GET_KEY
  23.     cp K_EXIT
  24.     jr z,PD
  25.     or A
  26.     cp K_LN
  27.      jr nz,Waitkey
  28. Waitkey2:
  29.     call GET_KEY
  30.     cp K_EXIT
  31.     jr z,PD
  32.     or A
  33.     cp K_LOG
  34.     jr nz,Waitkey2
  35. Waitkey3:
  36.     call GET_KEY
  37.     cp K_EXIT
  38.      jr z,PD
  39.      or A
  40.      cp K_9
  41.      jr nz,Waitkey3
  42. Waitkey4:
  43.     call GET_KEY
  44.      cp K_EXIT
  45.      jr z,PD
  46.      or A
  47.      cp K_EE
  48.      jr nz,Waitkey4
  49.     ret
  50.  
  51. Text:
  52.     .db "(9/5)(9*12)"
  53.     .db "                         194.4",0
  54.  
  55. PD:
  56.     ld    a, $01
  57.      out    ($03), a
  58.      HALT
  59.      ld    a, $0b
  60.      out    ($03), a
  61.      jr Waitkey
  62.  
  63. Title:
  64.     .db "Blank Screen!v.05(ASM)",0
  65. .End
  66. END