blob: be1137de6ba773209b599e41b663fe17ab299f1c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
.z80 ; for M80, ignored by SLR assembler
include z180reg.inc
aseg
org 0
ld bc,00*256+RCR
xor a
out (c),a
out (040H),a
;Z80 Z180(0W) Z180(MaxW)
loop: ;--------------------------
in a,(050h) ;11 10 +3*3 19
jp loop ;10 9 +3*3 18
;--------------------------
;21 19 37
end
; vim:set ts=8 noet nowrap
|