mirror of
https://github.com/aap/pdp6.git
synced 2026-02-06 00:25:23 +00:00
various changes
This commit is contained in:
41
code/tty.lst
Normal file
41
code/tty.lst
Normal file
@@ -0,0 +1,41 @@
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user