libs/cls_ei.inc

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; clear screen and set border, synced
   3 ;; interrupts must be enabled
   4 ;; IN:
   5 ;;   A: screen attribute
   6 ;; OUT:
   7 ;;   HL,DE,BC,AF: dead
   8   ;im   1
   9   ;ei
  10   ld   hl,#5800
  11   ld   de,#5801
  12   ld   bc,767
  13   halt
  14   ld   (hl),a
  15   rrca:rrca:rrca
  16   and  a,#07
  17   out  (#fe),a
  18   ldir
  19   ld   hl,#4000
  20   ld   de,#4001
  21   ld   bc,6143
  22   ld   (hl),a
  23   ldir