1985-07-26 11:56:24 +00:00
|
|
|
.define .putchar
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
|
|
|
|
.sect .rom
|
|
|
|
|
.sect .data
|
|
|
|
|
.sect .bss
|
|
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
1987-01-16 16:49:46 +00:00
|
|
|
.sect .text
|
1985-07-26 11:56:24 +00:00
|
|
|
|
1988-03-10 16:00:58 +00:00
|
|
|
! putchar, for a unix
|
|
|
|
|
|
1985-07-26 11:56:24 +00:00
|
|
|
.putchar:
|
1988-03-10 16:00:58 +00:00
|
|
|
enter [],0
|
|
|
|
|
movqd 1,tos
|
|
|
|
|
addr 8(fp),tos
|
|
|
|
|
movqd 1,tos
|
1992-06-30 17:43:24 +00:00
|
|
|
bsr WRITE
|
1988-03-17 09:24:01 +00:00
|
|
|
adjspb -12
|
1988-03-10 16:00:58 +00:00
|
|
|
exit []
|
|
|
|
|
ret 0
|
