| kthacker | 62e146c | 2006-04-17 15:11:35 +0000 | [diff] [blame] | 1 | ;; File: putchar.s |
| 2 | ;; Modified to suit execution on the Amstrad CPC | ||||
| 3 | ;; by H. Hansen 2003 | ||||
| 4 | ;; Original lines has been marked out! | ||||
| 5 | |||||
| 6 | .area _CODE | ||||
| 7 | _putchar:: | ||||
| kthacker | 62e146c | 2006-04-17 15:11:35 +0000 | [diff] [blame] | 8 | ld hl,#2 |
| 9 | add hl,sp | ||||
| 10 | |||||
| 11 | ld a,(hl) | ||||
| PulkoMandy | 2d1778f | 2014-06-29 13:18:25 +0200 | [diff] [blame] | 12 | |
| 13 | ld bc,#0xef00 | ||||
| 14 | out (c),c | ||||
| 15 | or #0x80 | ||||
| 16 | out (c),a | ||||
| kthacker | 62e146c | 2006-04-17 15:11:35 +0000 | [diff] [blame] | 17 | |
| kthacker | 62e146c | 2006-04-17 15:11:35 +0000 | [diff] [blame] | 18 | ret |
| PulkoMandy | 2d1778f | 2014-06-29 13:18:25 +0200 | [diff] [blame] | 19 | |