mirror of
https://github.com/aap/pdp6.git
synced 2026-01-25 19:57:33 +00:00
42 lines
1.3 KiB
Plaintext
42 lines
1.3 KiB
Plaintext
|
|
tty.s
|
|
|
|
00001 TTY=120
|
|
00002
|
|
00003 AC0==0
|
|
00004 AC1==1
|
|
00005 AC2==1
|
|
00006 PDP==17
|
|
00007
|
|
00008 INTERNAL PUTC,PUTS
|
|
00009
|
|
00010 PUTC:
|
|
000000' 712300 000020 00011 CONSZ TTY,20 ; wait until not busy
|
|
000001' 254000 000000' 00012 JRST .-1
|
|
000002' 712140 000001 00013 DATAO TTY,AC1 ; transfer character
|
|
00014 ; CAIE AC1,12 ; return unless LF
|
|
00015 ; POPJ PDP,
|
|
00016 ; MOVEI AC1,15 ; put CR and two DEL
|
|
00017 ; PUSHJ PDP,PUTC
|
|
00018 ; MOVEI AC1,177
|
|
00019 ; PUSHJ PDP,PUTC
|
|
00020 ; PUSHJ PDP,PUTC
|
|
000003' 263740 000000 00021 POPJ PDP,
|
|
00022
|
|
00023 PUTS:
|
|
000004' 134040 000001 00024 ILDB AC1,AC2
|
|
000005' 336000 000001 00025 SKIPN AC1
|
|
000006' 263740 000000 00026 POPJ PDP,
|
|
000007' 260740 000000' 00027 PUSHJ PDP,PUTC
|
|
000010' 254000 000004' 00028 JRST PUTS
|
|
|
|
SYMBOL TABLE
|
|
|
|
AC0 000000
|
|
AC1 000001
|
|
AC2 000001
|
|
PDP 000017
|
|
PUTC 000000' INT
|
|
PUTS 000004' INT
|
|
TTY 000120
|