home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 85 / asm / source / zshell / blank.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-01  |  669 b   |  56 lines
  1. #include ti-85.h
  2.  
  3. .org 0
  4. .db "Blank Screen! v.05",0
  5.  
  6.  ROM_CALL(CLEARLCD)
  7.  ld hl,0
  8.  ld ($800C),hl
  9.  ld hl,Text
  10.  ld de,(PROGRAM_ADDR)
  11.  add hl,de
  12.  ROM_CALL(D_ZT_STR)
  13. Waitkey:
  14.  call GET_KEY
  15.  cp K_EXIT
  16.  jr z,PD
  17.  or A
  18.  cp K_LN
  19.  jr nz,Waitkey
  20. Waitkey2:
  21.  call GET_KEY
  22.  cp K_EXIT
  23.  jr z,PD
  24.  or A
  25.  cp K_LOG
  26.  jr nz,Waitkey2
  27. Waitkey3:
  28.  call GET_KEY
  29.  cp K_EXIT
  30.  jr z,PD
  31.  or A
  32.  cp K_9
  33.  jr nz,Waitkey3
  34. Waitkey4:
  35.  call GET_KEY
  36.  cp K_EXIT
  37.  jr z,PD
  38.  or A
  39.  cp K_EE
  40.  jr nz,Waitkey4
  41.  ret
  42.  
  43. Text:
  44.  .db "(9/5)(9*12)"
  45.  .db "                         194.4",0
  46.  
  47. PD: 
  48.  ld    a, $01
  49.  out    ($03), a
  50.  HALT
  51.  ld    a, $0b
  52.  out    ($03), a
  53.  jr Waitkey
  54.  
  55. .end
  56. END