mirror of
https://github.com/simh/simh.git
synced 2026-01-13 15:27:14 +00:00
68c9c5536f
This emulates the classic LINC. The design was settled in 1965, increasing memory to 2048 words, and adding a Z register, an overflow flag, and an interrupt facility.
54 lines
662 B
Plaintext
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
|