repo.or.cz
/
urasm.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
UrForth: fixed "(BASED-NUMBER)" with radix postfix
[urasm.git]
/
libs
/
cls_ei.zas
blob
468a04bb0068082b0d602b54b56c88e474026421
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