7 lines
257 B
Z80 Assembly
7 lines
257 B
Z80 Assembly
;assumes this runs inline
|
|
org &1000 ;program start
|
|
main:
|
|
call GetInput ;unimplemented input get routine, returns key press in accumulator
|
|
cp 'Y' ;compare to ascii capital Y
|
|
ret z ;return to BASIC if equal
|
|
jp main ;loop back to main
|