forked from MightyPork/crsn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
705 B
27 lines
705 B
(
|
|
; we don't have strings yet 👌
|
|
(ld @stdout 'P') (ld @stdout 'r') (ld @stdout 'e') (ld @stdout 's') (ld @stdout 's') (ld @stdout ' ')
|
|
(ld @stdout 'q') (ld @stdout ' ')
|
|
(ld @stdout 't') (ld @stdout 'o') (ld @stdout ' ')
|
|
(ld @stdout 'q') (ld @stdout 'u') (ld @stdout 'i') (ld @stdout 't')
|
|
(ld @stdout '…') (ld @stdout ' ')
|
|
|
|
(:loop)
|
|
(ld r0 @stdin)
|
|
|
|
; exit by pressing 'q'
|
|
(cmp r0 'q'
|
|
(=? (ld @stdout '\n')
|
|
(halt)))
|
|
|
|
; uppercase ASCII
|
|
(cmp r0 'a' (<? (j :badchar)))
|
|
(cmp r0 'z' (>? (j :badchar)))
|
|
(sub r0 ' ')
|
|
(ld @stdout r0)
|
|
(j :loop)
|
|
|
|
(:badchar)
|
|
(ld @stdout '🐈') ; show a kitty if not ASCII
|
|
(j :loop)
|
|
)
|
|
|