mirror of
https://github.com/nippur72/apple1-videocard-lib.git
synced 2024-06-13 01:29:29 +00:00
23 lines
443 B
Plaintext
23 lines
443 B
Plaintext
|
;=======================================================================================
|
||
|
; APPLE1 SPECIFIC CODE
|
||
|
;=======================================================================================
|
||
|
|
||
|
sub woz_puts()
|
||
|
ldy #0
|
||
|
do
|
||
|
lda (ptr),y
|
||
|
if zero then exit do
|
||
|
jsr ECHO
|
||
|
iny
|
||
|
loop while not zero
|
||
|
end sub
|
||
|
|
||
|
sub getkey()
|
||
|
do
|
||
|
lda KEY_CTRL
|
||
|
loop while not negative
|
||
|
lda KEY_DATA
|
||
|
and #$7f
|
||
|
end sub
|
||
|
|