Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/p.c09
There are 2 other files named p.c09 in the archive. Click here to see a list.
REP 1/1 ;09C1
; UPD ID= 1611 on 5/17/84 at 9:51 AM by HOFFMAN
WIT
; UPD ID= 1634 on 6/26/84 at 4:37 PM by MCARLETON
REP 3/2 ;09C2
;JEH 16-May-84 [1535] Define error bit for ref. mod. op code
;V13*****************
WIT
;
;MJC 18-JUN-84 [1540] Define OUTCHR Macro for TOPS-20
;JEH 16-May-84 [1535] Define error bit for ref. mod. op code
REP 54/15 ;09C3
RFMERR==1B11 ;[1535] Reference Mod. - phase D flagger err w/ mod's
WIT
RFMERR==1B11 ;[1535] Reference Mod. - phase D flagged err w/ mod's
INS 34/17 ;09C4
DEFINE OUTCHR(CHAR)< ;[1540] TO REPLACE UUO
PUSH PP,T1 ;[1540] SAVE T1
HRRZ T1,CHAR ;[1540] WHERE THE CHARACTER IS
PBOUT% ;[1540] TO PRIMARY OUT
POP PP,T1 ;[1540] RESTORE T1
>
SUM 37045