Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/movgen.c04
There are no other files named movgen.c04 in the archive.
INS 18/1 ;04C1
;
;JEH 05-NOV-81 [1324] NON-BIS MOVE OF FIELD > 3770 FAILS
;JSM 14-OCT-81 [1323] FLAG RIGHT TRUNC ON EDITED ALPHA-NUM FIELDS
;
;V12B ****************
REP 43/106 ;04C2
NOTBDP: SETZM CONVSV## ;DON'T WORRY ABOUT SAVING ACS ANYMORE
IFE BIS,< PUSHJ PP,B2PARD## ;BUILD PARAMETERS IN TEMP>
WIT
NOTBDP: SETZM CONVSV## ;DON'T WORRY ABOUT SAVING ACS
IFE BIS,< ;[1324]
IFE ANS74,< MOVE TA,ESIZEZ ;[1324] TEST ON SIZE OF FIELD
CAILE TA,MXPSZ. ;[1324] BREAK INTO SMALLER PARTS
JRST GMOVE9 ;[1324] IF GREATER THAN 3770
>; [1324] END OF IFE ANS74
PUSHJ PP,B2PARD## ;[1324] ELSE USE AS ONE CHUNK
>;[1324] END OF IFE BIS
INS 9/143 ;04C3
CAMG TE,ESIZEA ;[1323] "A" LONGER THAN "B"?
PUSHJ PP,RTERA. ;[1323] YES, WARN RIGHT TRUNCATION
SUM 210951