Trailing-Edge
-
PDP-10 Archives
-
bb-jr93j-bb
-
7,6/ap018/movgen.c18
There are 10 other files named movgen.c18 in the archive. Click here to see a list.
REP 3/1 ;18C1
SUBTTL GENERATORS FOR "MOVE" VERB AL BLACKINGTON/CAM
WIT
SUBTTL GENERATORS FOR "MOVE" VERB AL BLACKINGTON/CAM/MEM
INS 22/1 ;18C2
;MEM 20-Oct-86 [1632] Fix MOVE +0 to DATA_NAME. Code had to be added
; to detect that +0 was the same as 0.
INS 22/8 ;18C3
LDB TD,DA.EDT ;[1646]IS IT EDITTED
JUMPN TD,[MOVEI TD,EDMODE
JRST GRP.A] ;[1646] YES
REP 28/8 ;18C4
HRRM TD,EMODEB ;RESET IT TO SIXBIT,ASCII OR EBCDIC ONLY
WIT
GRP.A: HRRM TD,EMODEB ;RESET IT TO SIXBIT,ASCII OR EBCDIC ONLY
REP 19/65 ;18C5
CAIE TC, 60 ;TEST TO SEE IF ITS A ZERO
JRST MLD.ON ;GO ONWARD IF NOT
SOJG TB, .-3 ;LOOP FOR ALL CHARS IN LITERAL
WIT
CAIN TC, 60 ;[1632]TEST TO SEE IF ITS A ZERO
JRST MLD.00 ;[1632]IT IS
CAIE TC, "-" ;[1632]HOW ABOUT A SIGN FIELD?
CAIN TC, "+" ;[1632]
SKIPA ;[1632]YES, CONTINUE SCANNING FOR ZEROS
JRST MLD.ON ;[1632]GO ONWARD IF NOT
MLD.0: SOJE TB, MLD.ON ;[1632]ONLY GOT A SIGN CHARACTER
ILDB TC, TA ;[1632]
CAIE TC, 60 ;[1632]ONLY ZEROS FROM NOW ON
JRST MLD.ON ;[1632]FOUND A NON-ZERO CHARACTER
MLD.00: SOJG TB, .-3 ;[1632]LOOP FOR ALL CHARS IN LITERAL
SUM 196206