Adds the InputConsole and a test program for it - echo.asm
parent
e3225cb0ca
commit
84c18afd09
@ -0,0 +1,57 @@
|
|||||||
|
|
||||||
|
; echo example - takes input and then prints it back out
|
||||||
|
; This is for testing the InputConsole of the Simple Test Machine
|
||||||
|
; by Joey Pollack
|
||||||
|
|
||||||
|
; assemble with win2c64 (or lin2c64, or mac2c64) using the -R option
|
||||||
|
; win2c64 found here:
|
||||||
|
; https://www.aartbik.com/retro.php
|
||||||
|
|
||||||
|
; CONSTANTS
|
||||||
|
con_out .equ $1100 ; console output buffer address
|
||||||
|
con_in .equ $1200 ; console input buffer address
|
||||||
|
con_flags .equ $009A ; console flags address
|
||||||
|
prt_str_flag .equ $0002 ; print string flag
|
||||||
|
prmp_input_flag .equ $0004 ; prompt for input flag
|
||||||
|
|
||||||
|
; MAIN
|
||||||
|
main .org $0200 ; program load address for the Simple Test Machine
|
||||||
|
ldx #0
|
||||||
|
loop lda text,x
|
||||||
|
sta con_out,x
|
||||||
|
inx
|
||||||
|
cpx #12 ; length of text
|
||||||
|
bne loop
|
||||||
|
|
||||||
|
; null terminate the string
|
||||||
|
lda #0
|
||||||
|
sta con_out,x
|
||||||
|
|
||||||
|
; Print the prompt message
|
||||||
|
lda con_flags ; load the console flags
|
||||||
|
ora #prt_str_flag ; set the print string flag
|
||||||
|
sta con_flags ; store the modified flags
|
||||||
|
|
||||||
|
; Prompt the user for input
|
||||||
|
lda con_flags ; load the console flags
|
||||||
|
ora #prmp_input_flag ; set the prompt for input flag
|
||||||
|
sta con_flags ; store the flags back to memory - this should trigger reading input
|
||||||
|
|
||||||
|
; Echo the input back to the console
|
||||||
|
; iterate the input buffer and move each byte to the output buffer
|
||||||
|
ldx #0 ; initialize the offset counter
|
||||||
|
loop2 lda con_in,x ; load byte from the input buffer, offset by x register
|
||||||
|
sta con_out,x ; store byte into output buffer, offset by x register
|
||||||
|
inx ; increment the offset
|
||||||
|
cmp #0 ; check for the null byte
|
||||||
|
bne loop2 ; branch back to loop2 if we are not at the null byte yet
|
||||||
|
|
||||||
|
lda con_flags ; load the console flags
|
||||||
|
ora #prt_str_flag ; set the print string flag
|
||||||
|
sta con_flags ; store the modified flags
|
||||||
|
|
||||||
|
; End the program
|
||||||
|
rts ; 0x60
|
||||||
|
|
||||||
|
; MEMORY
|
||||||
|
text .byte "Enter Text: "
|
||||||
Loading…
Reference in New Issue