1
0
mirror of https://github.com/open-simh/simh.git synced 2026-01-13 15:27:46 +00:00
2025-10-23 09:17:20 +02:00

54 lines
662 B
Plaintext

@20
RTA
BSE i [MARK STATE
1
ATR
SET i 12 [GIVE TTY TIME
-430
XSK i 12
JMP p-1
SET i 1 [TEXT DATA
2A-1
SET i 2 [TEXT LENGTH
2A-2B
#1A LDA i 1 [GET NEXT CHARACTER
STC 1D
RTA
SET i 11 [OUTPUT 11 BITS
-13 [1 START, 8 DATA
#1B BCL i [AND 2 STOP
#1C 1
SRO i
#1D
ADD 1C
ATR [OUTPUT BIT TO RELAY
SET i 12
-430 [DELAY FOR 110 BAUD
XSK i 12
JMP p-1
XSK i 11
JMP 1B [NEXT BIT
XSK i 2
JMP 1A [NEXT CHARACTER
HLT
[ASCII TEXT WITH ONE 0 START
[BIT AND TWO 1 STOP BITS
#2A 3220 [H
3212 [E
3230 [L
3230 [L
3236 [O
3100 [
3250 [T
3212 [E
3230 [L
3212 [E
3250 [T
3262 [Y
3240 [P
3212 [E
3032 [CR
3024 [LF
#2B