API tools faq
paste
Advertisement
speccybecky

Display a big character

speccybecky
Jun 18th, 2019
630
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 1.79 KB | None | 0 0
raw download clone embed print report
  1. ;Zoom a character
  2. ;RL MacGregor
  3.  
  4. ;Assembler Directives
  5. ;ZeusEmulate = "48k"
  6. ;ZeusPC= 50000
  7.  
  8.                 org 50000         ; Location of code
  9.  
  10.                 ld a, 2           ; upper screen
  11.                 call 5633         ; open channel
  12.  
  13.                 ld hl, ($5C36)    ; 256 below start of character defs
  14.  
  15.                 ld de,65          ;  ASCII Char 65
  16.  
  17.                 ld b,8            ; point hl to start
  18. char            add hl,de         ; of character
  19.                 djnz char         ; definition
  20.  
  21.  
  22.  
  23.                 ld b,8        ; Use b as loop counter
  24.  
  25. loopy           ld a,(hl)     ; First byte of character
  26.                 bit 7, a
  27.                 call nz, PRINTBLOCK
  28.                 call z,  PRINTSPACE
  29.  
  30.                 bit 6, a
  31.                 call nz, PRINTBLOCK
  32.                 call z   PRINTSPACE
  33.  
  34.                 bit 5, a
  35.                 call nz, PRINTBLOCK
  36.                 call z,  PRINTSPACE
  37.  
  38.                 bit 4,a
  39.                 call nz, PRINTBLOCK
  40.                 call z,  PRINTSPACE
  41.  
  42.                 bit 3,a
  43.                 call nz, PRINTBLOCK
  44.                 call z,  PRINTSPACE
  45.  
  46.                 bit 2,a
  47.                 call nz, PRINTBLOCK
  48.                 call z,  PRINTSPACE
  49.  
  50.                 bit 1,a
  51.                 call nz, PRINTBLOCK
  52.                 call z,  PRINTSPACE
  53.  
  54.                 bit 0,a
  55.                 call nz, PRINTBLOCK
  56.                 call z,  PRINTSPACE
  57.  
  58.                 inc hl
  59.                 ld a,13
  60.                 rst $10
  61.                 djnz loopy
  62.                 ret
  63.  
  64. PRINTBLOCK      push af
  65.                 ld a,143
  66.                 rst 16
  67.                 pop af
  68.                 ret
  69.  
  70. PRINTSPACE      push af
  71.                 ld a,32
  72.                 rst 16
  73.                 pop af
  74.                 ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!