SHARE
TWEET

hello.z80

a guest Jan 24th, 2020 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include    "ti83plus.inc"
  2. #define     progStart   $9D95
  3. #define     tbuff  $9000
  4. .org        progStart-2
  5. .db         $BB,$6D
  6.     bcall(_ClrLCDFull)
  7.     ld  HL, 0
  8.     ld  (PenCol), HL
  9.     ld  HL, Message
  10.     ld bc, 12
  11.     call tbuffsscroll
  12.     ret
  13. tbuffsscroll:
  14.     ld de, tbuff
  15.     push bc
  16.     push de
  17.     ldir
  18.     pop bc
  19.     pop hl
  20. tbuffsdisploop:
  21.     ld a, (hl)
  22.     inc hl
  23.     cp $FE
  24.     jr z,tbuffreverseon
  25.     cp $FF
  26.     jr z,tbuffreverseoff
  27. tbuffreverseon:
  28.     set textInverse,(IY+textFlags)
  29.     jr tbuffdispprint
  30. tbuffreverseoff:
  31.     res textInverse,(IY+textFlags)
  32. tbuffdispprint:
  33.     bcall(_VPutMap)
  34.     halt
  35.     halt
  36.     halt
  37.     halt
  38.     halt
  39.     djnz tbuffsdisploop
  40.     ret
  41.  
  42. Message:
  43. .db "Hello ", $FE, "world!"
  44. Message2:
  45. .db "PEEN"
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top