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