home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / PROGRAMS / BKGRONDR / BGQUICK.LBR / BGQUICK.MAC < prev    next >
Text File  |  2000-06-30  |  768b  |  57 lines
  1.     .z80
  2.     aseg
  3.     org 100h
  4. st:    ld de,(6)    ;bottom of bg
  5.     ld hl,0100h    ;end of page 1
  6.     scf
  7.     ccf
  8.     sbc hl,de    ;how much to move
  9.     ld b,h
  10.     ld c,l
  11. pat1:    ex de,hl    
  12. pat2:    ld de,ended    ;buffer area
  13.     ldir        ;move it
  14. pat3:    nop
  15.     nop
  16.     nop
  17.     ld a,0
  18.     ld (pat1),a    ;dont swap
  19.     ld a,21h
  20.     ld (pat2),a    ;ld hl, not de
  21.     ld a,11h
  22.     ld (st),a    ;ld de,nn instead of ld de,(nn)
  23.     ld a,0c3h
  24.     ld (pat3),a    ;jp 0
  25.     ld sp,100h
  26.     ld c,9
  27.     ld de,str
  28.     call 5
  29.     ld de,(6)
  30.     ld (st+1),de    
  31.     ld hl,100h
  32.     sbc hl,de
  33.     inc h
  34.     ex de,hl
  35.     ld a,d
  36.     rrca
  37.     rrca
  38.     rrca
  39.     rrca
  40.     call prt
  41.     ld a,d
  42.     call prt
  43.     jp 0
  44. prt:    push de
  45.     and 0fh
  46.     add a,'0'
  47.     cp ':'
  48.     jr c,over
  49.     add a,7
  50. over:    ld e,a
  51.     ld c,2
  52.     call 5
  53.     pop de
  54.     ret    
  55. str:    db 'Save length is (hex) $'
  56. ended:    end    st
  57.