Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
nstrng.c06
There is 1 other file named nstrng.c06 in the archive. Click here to see a list.
INS 4/2 ;06C1
;JEH 22-MAR-83 [1060] USE SPACES AS LEADING PADDING CHARACTER
REP 8/32 ;06C2
MOVE T2,(T4) ;;GET FLAGS
TXNE T2,US%RIN ;IS RECEIVING ITEM NUMERIC?
JRST PADZRO ;YES, PAD WITH ZEROES
HLRZ T2,SPCZRO(T3) ;GET A SPACE IN PROPER MODE
WIT
MOVE T4,(T4) ;[1060] GET FLAGS
HLRZ T2,SPCZRO(T3) ;[1060] GET A SPACE IN PROPER MODE
TXNE T4,US%RRJ ;[1060] IS DESTINATION RIGHT JUSTIFIED
JRST PADDS1 ;[1060] YES, STICK WITH SPACES
TXNE T4,US%RIN ;[1060] IS RECEIVING ITEM NUMERIC?
JRST PADZRO ;YES, PAD WITH ZEROES
SUM 239905