Initial Agat support
This commit is contained in:
14
libsrc/agat/cout.s
Normal file
14
libsrc/agat/cout.s
Normal file
@@ -0,0 +1,14 @@
|
||||
;
|
||||
; Oleg A. Odintsov, Moscow, 2024
|
||||
;
|
||||
; COUT routine
|
||||
;
|
||||
|
||||
.export COUT
|
||||
.include "agat.inc"
|
||||
|
||||
COUT:
|
||||
cmp #$10
|
||||
bpl out
|
||||
ora #$80
|
||||
out: jmp (VCOUT)
|
||||
Reference in New Issue
Block a user