github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-08 01:11:18 +00:00
Code Issues Releases Wiki Activity

Minor edits to TAA; UUOS.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-06-15 08:31:23 +02:00
parent b99988823f
commit d25ff723bd
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/taa/uuos.100
View File

@@ -6,7 +6,7 @@
; SYSEN2; MSEND 140 (timestamp 1979-11-10)
; Caller must define DBP, and may define UUOERR if they provide UERROR.
TITLE UUOS
SUBTTL UUOS
; Useful locations relative to P inside UUO handlers
UUO40==-14
@@ -139,7 +139,7 @@ UOASCD: POP P,B
PUSHJ P,SIOTA
JRST UUORET
UOCTLP: MOVEI A,20
UOCTLP: MOVEI A,^P ; print ^P-code
PUSHJ P,IOTAD
MOVE A,B
PUSHJ P,IOTAD
@@ -157,7 +157,7 @@ UOSIX: SKIPN C,(P)
PUSHJ P,SIOTA
JRST UUORET
UOVPOS: MOVEI A,20
UOVPOS: MOVEI A,^P ; set vertical position
PUSHJ P,IOTAD
MOVEI A,"V
PUSHJ P,IOTAD
@@ -165,7 +165,7 @@ UOVPOS: MOVEI A,20
PUSHJ P,IOTAD
JRST UUORET
UOHPOS: MOVEI A,20
UOHPOS: MOVEI A,^P ; set horizontal position
PUSHJ P,IOTAD
MOVEI A,"H
PUSHJ P,IOTAD