Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/rmsio.c10
There are 2 other files named rmsio.c10 in the archive. Click here to see a list.
INS 23/1 ;10C1
;KWS 17-OCT-84 [1132] Pass RMS asciz string rather than ascii string
REP 44/22 ;10C2
OP.T20: ;
CAIE T1,7 ;IS BYTESIZE 7? (IN ASCII)
JRST CVTVID ;NO, CONVERT IT TO ASCIZ STRING
HRRZ T1,F.WVID(FT) ;GET ADDRESS OF ASCIZ VALUE OF ID STRING
$STORE T1,FNA,(T4) ; AND STORE IT IN THE FAB FOR RMS-20
JRST OP.PNX ;
CVTVID: MOVEI T1,.RCFNM(FTL) ;
$STORE T1,FNA,(T4) ;STORE ADDRESS OF ASCIZ ID IN FAB
HRRZ T3,F.SZID(FT) ;SIZE OF NAME
MOVSI T4,(POINT 7,) ;BUILD BYTE POINTER TO NAME
HRR T4,T1 ;
MOVE T2,F.WVID(FT) ;SOURCE BYTE POINTER
CVT.1: ILDB C,T2 ;GET CHARACTER
TLNE T2,1000 ;EBCDIC?
LDB C,PTR.97## ;
TLNN T2,1000 ;SIXBIT?
WIT
;[1132] Deleted 5 lines of obsolete code
OP.T20: MOVEI T2,.RCFNM(FTL) ;[1132]
$STORE T2,FNA,(T4) ;STORE ADDRESS OF ASCIZ ID IN FAB
HRRZ T3,F.SZID(FT) ;SIZE OF NAME
MOVSI T4,(POINT 7,) ;BUILD BYTE POINTER TO NAME
HRR T4,T2 ;[1132]
MOVE T2,F.WVID(FT) ;SOURCE BYTE POINTER
CVT.1: ILDB C,T2 ;GET CHARACTER
CAIN T1,11 ;[1132] EBCDIC
LDB C,PTR.97## ;
CAIN T1,6 ;[1132] SIXBIT?
REP 64/22 ;10C3
WIT
SETZ C, ;[1132]MAKE STRING ASCIZ
IDPB C,T4 ;[1132]
SUM 175955