Artifact 62b09637a53df3ee451cf16bfda97203f7925538c796ab87922f75c089ae4c1d:

• File psl-1983/3-1/kernel/20/macro.mac — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 18822) [annotate] [blame] [check-ins using] [more...]

	search monsym,macsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern L0003
	1
; (!*ENTRY COMMENTOUTCODE MACRO 1)
L2922:	intern L2922
 MOVE 1,0
 POPJ 15,0
	1
; (!*ENTRY COMPILETIME EXPR 1)
L2923:	intern L2923
 POPJ 15,0
	1
; (!*ENTRY BOTHTIMES EXPR 1)
L2924:	intern L2924
 POPJ 15,0
	1
; (!*ENTRY LOADTIME EXPR 1)
L2925:	intern L2925
 POPJ 15,0
	1
; (!*ENTRY CONTERROR MACRO 1)
L2932:	intern L2932
 ADJSP 15,9
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVE 1,1(1)
 MOVE 2,0(1)
 MOVEM 2,-1(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 MOVE 7,1(1)
 CAME 0,1(7)
 JRST L2933
 MOVE 3,0(1)
 MOVEM 3,-2(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 JRST L2934
L2933: MOVE 7,0(15)
 CAMN 0,1(7)
 JRST L2935
 MOVE 2,0(15)
 MOVE 2,0(2)
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+351
 MOVEM 1,-2(15)
 MOVE 2,0(15)
 MOVE 2,1(2)
 MOVEM 2,0(15)
 JRST L2933
L2935: MOVE 2,-2(15)
 MOVE 1,L2926
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-2(15)
L2934: MOVE 1,0(15)
 MOVE 1,0(1)
 MOVEM 1,-3(15)
 LDB 11,L2927
 CAIN 11,9
 JRST L2936
 MOVE 2,1
 MOVE 1,L2928
 PUSHJ 15,SYMFNC+249
 JRST L2937
L2936: MOVE 1,0(1)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-4(15)
 MOVEM 0,-5(15)
 MOVEM 0,-6(15)
 MOVEM 0,-7(15)
 MOVE 2,-3(15)
 MOVE 2,1(2)
 MOVEM 2,-5(15)
 LDB 11,L2929
 CAIN 11,9
 JRST L2938
 MOVE 1,0
 JRST L2939
L2938: MOVE 1,0(2)
 MOVEM 1,-8(15)
 MOVE 2,1
 MOVE 1,L2928
 PUSHJ 15,SYMFNC+249
 PUSHJ 15,SYMFNC+172
 MOVE 3,1
 MOVEM 3,-7(15)
 MOVEM 3,-6(15)
L2940: MOVE 1,-5(15)
 MOVE 1,1(1)
 MOVEM 1,-5(15)
 LDB 11,L2927
 CAIN 11,9
 JRST L2941
 MOVE 1,-6(15)
 JRST L2939
L2941: MOVE 1,0(1)
 MOVEM 1,-8(15)
 MOVE 2,1
 MOVE 1,L2928
 PUSHJ 15,SYMFNC+249
 PUSHJ 15,SYMFNC+172
 MOVE 7,-7(15)
 MOVEM 1,1(7)
 MOVE 2,-7(15)
 MOVE 2,1(2)
 MOVEM 2,-7(15)
 JRST L2940
L2939: MOVE 2,-4(15)
 PUSHJ 15,SYMFNC+278
 MOVE 2,L2930
 PUSHJ 15,SYMFNC+278
L2937: MOVEM 1,-3(15)
 MOVE 4,1
 MOVE 3,-2(15)
 MOVE 2,-1(15)
 MOVE 1,L2931
 ADJSP 15,-9
 JRST SYMFNC+250
L2927:	point 6,1,5
L2929:	point 6,2,5
L2931:	<30_30>+236
L2930:	<30_30>+244
L2928:	<30_30>+234
L2926:	<30_30>+155
L2945:	<30_30>+716
	<9_30>+<1_18>+L2946
L2946:	<30_30>+717
	<30_30>+128
	1
; (!*ENTRY CASE FEXPR 1)
CASE:	intern CASE
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+261
 MOVEM 1,-1(15)
L2947: MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 LDB 11,L2942
 CAIN 11,9
 JRST L2948
 MOVE 1,-2(15)
 ADJSP 15,-5
 JRST SYMFNC+261
L2948: MOVE 2,0(1)
 MOVE 2,0(2)
 MOVEM 2,-3(15)
 MOVE 3,0(1)
 MOVE 3,1(3)
 MOVE 3,0(3)
 MOVEM 3,-4(15)
 LDB 11,L2943
 CAIE 11,9
 JRST L2949
 MOVE 2,L2944
 MOVE 1,-3(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+303
 CAMN 1,0
 JRST L2950
L2949: MOVE 6,-4(15)
 MOVEM 6,-2(15)
 JRST L2947
L2950: MOVE 2,-3(15)
 MOVE 1,-1(15)
 PUSHJ 15,L2951
 CAMN 1,0
 JRST L2947
 MOVE 1,-4(15)
 ADJSP 15,-5
 JRST SYMFNC+261
L2942:	point 6,1,5
L2943:	point 6,2,5
L2944:	<9_30>+<1_18>+L2945
; (!*ENTRY INTHISCASE EXPR 2)
L2951:	intern L2951
 ADJSP 15,2
L2955: MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L2952
 CAIN 11,9
 JRST L2956
 MOVE 1,0
 JRST L2957
L2956: LDB 11,L2953
 CAIE 11,9
 JRST L2958
 MOVE 7,0(2)
 MOVE 6,L2954
 CAME 6,0(7)
 JRST L2958
 MOVE 2,0(2)
 MOVE 2,1(2)
 MOVE 2,0(2)
 PUSHJ 15,SYMFNC+282
 CAME 1,0
 JRST L2958
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+208
 MOVE 2,1
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+237
 CAME 1,0
 JRST L2958
 MOVE 1,SYMVAL+84
 JRST L2957
L2958: MOVE 2,-1(15)
 MOVE 2,0(2)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+198
 CAMN 1,0
 JRST L2959
 MOVE 1,SYMVAL+84
 JRST L2957
L2959: MOVE 2,-1(15)
 MOVE 2,1(2)
 MOVE 1,0(15)
 JRST L2955
L2957: ADJSP 15,-2
 POPJ 15,0
L2952:	point 6,2,5
L2953:	point 6,0(2),5
L2954:	<30_30>+719
	1
; (!*ENTRY SETF MACRO 1)
SETF:	intern SETF
 MOVE 2,1(1)
 MOVE 2,1(2)
 MOVE 2,0(2)
 MOVE 1,1(1)
 MOVE 1,0(1)
 JRST SYMFNC+721
L2967:	36
	byte(7)37,114,32,105,115,32,110,111,116,32,97,32,107,110,111,119,110,32,102,111,114,109,32,102,111,114,32,97,115,115,105,103,110,109,101,110,116,0
	2
; (!*ENTRY EXPANDSETF EXPR 2)
L2968:	intern L2968
 ADJSP 15,3
L2969: MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 LDB 11,L2960
 CAIN 11,9
 JRST L2970
 MOVE 3,2
 MOVE 2,1
 MOVE 1,L2961
 ADJSP 15,-3
 JRST SYMFNC+235
L2970: MOVE 2,L2962
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+522
 MOVE 3,1
 MOVEM 3,-2(15)
 CAMN 3,0
 JRST L2971
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+172
 MOVE 2,1
 MOVE 1,0(15)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+177
 MOVE 2,-2(15)
 ADJSP 15,-3
 JRST SYMFNC+278
L2971: MOVE 2,L2963
 MOVE 1,0(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+522
 MOVE 2,1
 MOVEM 2,-2(15)
 CAMN 2,0
 JRST L2972
 MOVE 3,2
 MOVE 2,-1(15)
 MOVE 1,0(15)
 MOVE 6,3
 ADJSP 15,-3
 JRST SYMFNC+288
L2972: MOVE 1,0(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+318
 MOVE 3,1
 MOVEM 3,-2(15)
 CAMN 3,0
 JRST L2973
 MOVE 6,L2964
 CAME 6,0(3)
 JRST L2973
 MOVE 2,1(3)
 MOVE 1,0(15)
 MOVE 6,2
 PUSHJ 15,SYMFNC+288
 MOVE 2,-1(15)
 JRST L2969
L2973: MOVE 3,-1(15)
 MOVE 2,0(15)
 MOVE 1,L2965
 PUSHJ 15,SYMFNC+235
 MOVE 2,1
 MOVE 1,L2966
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-3
 JRST SYMFNC+156
L2960:	point 6,1,5
L2966:	<4_30>+<1_18>+L2967
L2965:	<30_30>+720
L2964:	<30_30>+256
L2963:	<30_30>+722
L2962:	<30_30>+723
L2961:	<30_30>+260
	2
; (!*ENTRY ONOFF!* EXPR 2)
L2979:	intern L2979
 ADJSP 15,5
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 0,-2(15)
 MOVEM 1,-3(15)
L2980: LDB 11,L2974
 CAIE 11,9
 JRST L2981
 MOVE 1,-3(15)
 MOVE 1,0(1)
 MOVEM 1,-4(15)
 LDB 11,L2975
 CAIN 11,30
 JRST L2982
 CAME 0,-1(15)
 JRST L2983
 MOVE 1,L2976
 JRST L2984
L2983: MOVE 1,L2977
L2984: MOVE 2,1
 MOVE 1,-4(15)
 PUSHJ 15,SYMFNC+130
 JRST L2985
L2982: PUSHJ 15,SYMFNC+725
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+262
 MOVE 2,L2978
 MOVE 1,-4(15)
 PUSHJ 15,SYMFNC+522
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+335
 MOVEM 1,-2(15)
 CAMN 1,0
 JRST L2985
 MOVE 1,1(1)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+261
L2985: MOVE 1,-3(15)
 MOVE 1,1(1)
 MOVEM 1,-3(15)
 JRST L2980
L2981: MOVE 1,0
 ADJSP 15,-5
 POPJ 15,0
L2974:	point 6,-3(15),5
L2975:	point 6,1,5
L2978:	<30_30>+726
L2977:	<30_30>+727
L2976:	<30_30>+728
L2987:	0
	byte(7)42,0
	1
; (!*ENTRY MKFLAGVAR EXPR 1)
L2988:	intern L2988
 PUSHJ 15,SYMFNC+140
 MOVE 2,1
 MOVE 1,L2986
 PUSHJ 15,SYMFNC+176
 JRST SYMFNC+560
L2986:	<4_30>+<1_18>+L2987
	1
; (!*ENTRY ON MACRO 1)
ON:	intern ON
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+234
 MOVE 3,SYMVAL+84
 MOVE 2,1
 MOVE 1,L2989
 JRST SYMFNC+235
L2989:	<30_30>+724
	1
; (!*ENTRY OFF MACRO 1)
OFF:	intern OFF
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+234
 MOVE 3,0
 MOVE 2,1
 MOVE 1,L2990
 JRST SYMFNC+235
L2990:	<30_30>+724
; (!*ENTRY INSTANTIATEINFORM EXPR 2)
L2994:	intern L2994
 ADJSP 15,6
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L2991
 CAIN 11,9
 JRST L2995
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+303
 CAMN 1,0
 JRST L2996
 MOVE 1,-1(15)
 JRST L2997
L2996: MOVE 1,-1(15)
 ADJSP 15,-6
 JRST SYMFNC+234
L2995: MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVEM 2,-2(15)
 LDB 11,L2991
 CAIN 11,9
 JRST L2998
 MOVE 1,0
 JRST L2999
L2998: MOVE 1,0(2)
 MOVEM 1,-5(15)
 MOVE 2,1
 MOVE 1,0(15)
 PUSHJ 15,L2994
 PUSHJ 15,SYMFNC+172
 MOVE 3,1
 MOVEM 3,-4(15)
 MOVEM 3,-3(15)
L3000: MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 LDB 11,L2992
 CAIN 11,9
 JRST L3001
 MOVE 1,-3(15)
 JRST L2999
L3001: MOVE 1,0(1)
 MOVEM 1,-5(15)
 MOVE 2,1
 MOVE 1,0(15)
 PUSHJ 15,L2994
 PUSHJ 15,SYMFNC+172
 MOVE 7,-4(15)
 MOVEM 1,1(7)
 MOVE 2,-4(15)
 MOVE 2,1(2)
 MOVEM 2,-4(15)
 JRST L3000
L2999: MOVE 2,L2993
 ADJSP 15,-6
 JRST SYMFNC+278
L2997: ADJSP 15,-6
 POPJ 15,0
L2991:	point 6,2,5
L2992:	point 6,1,5
L2993:	<30_30>+244
L3004:	<30_30>+187
	<9_30>+<1_18>+L3005
L3005:	<30_30>+729
	<30_30>+128
; (!*ENTRY SETMACROREFERENCE EXPR 1)
L3006:	intern L3006
 MOVE 3,L3002
 MOVE 2,1
 MOVE 1,L3003
 JRST SYMFNC+235
L3003:	<30_30>+260
L3002:	<9_30>+<1_18>+L3004
	1
; (!*ENTRY DS MACRO 1)
DS:	intern DS
 MOVE 3,1(1)
 MOVE 3,1(3)
 MOVE 3,1(3)
 MOVE 2,1(1)
 MOVE 2,1(2)
 MOVE 2,0(2)
 MOVE 1,1(1)
 MOVE 1,0(1)
 JRST MAKEDS
L3017:	<30_30>+729
	<30_30>+128
L3018:	<30_30>+246
	<9_30>+<1_18>+L3021
L3019:	<30_30>+270
	<9_30>+<1_18>+L3022
L3020:	<30_30>+260
	<9_30>+<1_18>+L3023
L3021:	<30_30>+264
	<30_30>+128
L3022:	<9_30>+<1_18>+L3024
	<30_30>+128
L3023:	<30_30>+729
	<9_30>+<1_18>+L3025
L3024:	<9_30>+<1_18>+L3026
	<9_30>+<1_18>+L3027
L3025:	<9_30>+<1_18>+L3028
	<30_30>+128
L3026:	<30_30>+184
	<9_30>+<1_18>+L3029
L3027:	<9_30>+<1_18>+L3030
	<30_30>+128
L3028:	<30_30>+228
	<9_30>+<1_18>+L3017
L3029:	<9_30>+<1_18>+L3031
	<30_30>+128
L3030:	<30_30>+156
	<9_30>+<1_18>+L3032
L3031:	<30_30>+188
	<9_30>+<1_18>+L3017
L3032:	<4_30>+<1_18>+L3033
	<30_30>+128
L3033:	36
	byte(7)65,114,103,117,109,101,110,116,32,109,105,115,109,97,116,99,104,32,105,110,32,83,77,97,99,114,111,32,101,120,112,97,110,115,105,111,110,0
; (!*ENTRY MAKEDS EXPR 3)
MAKEDS:	intern MAKEDS
 ADJSP 15,9
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 0,-4(15)
 MOVE 1,L3007
 PUSHJ 15,SYMFNC+172
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+278
 MOVEM 1,-3(15)
 MOVE 6,-1(15)
 MOVEM 6,-5(15)
L3034: LDB 11,L3008
 CAIE 11,9
 JRST L3035
 MOVE 1,-5(15)
 MOVE 1,0(1)
 MOVEM 1,-6(15)
 MOVE 2,-3(15)
 MOVE 1,L3009
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-3(15)
 MOVE 1,-6(15)
 PUSHJ 15,L3006
 MOVE 2,-3(15)
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-3(15)
 MOVE 2,-5(15)
 MOVE 2,1(2)
 MOVEM 2,-5(15)
 JRST L3034
L3035: MOVE 2,-3(15)
 MOVE 1,L3010
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-3(15)
 MOVE 7,-2(15)
 CAME 0,1(7)
 JRST L3036
 MOVE 2,-2(15)
 MOVE 2,0(2)
 MOVE 1,-1(15)
 PUSHJ 15,L2994
 JRST L3037
L3036: MOVEM 0,-5(15)
 MOVEM 0,-6(15)
 MOVEM 0,-7(15)
 MOVE 6,-2(15)
 MOVEM 6,-5(15)
 LDB 11,L3008
 CAIN 11,9
 JRST L3038
 MOVE 1,0
 JRST L3039
L3038: MOVE 1,-5(15)
 MOVE 1,0(1)
 MOVEM 1,-8(15)
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,L2994
 PUSHJ 15,SYMFNC+172
 MOVE 2,1
 MOVEM 2,-7(15)
 MOVEM 2,-6(15)
L3040: MOVE 1,-5(15)
 MOVE 1,1(1)
 MOVEM 1,-5(15)
 LDB 11,L3011
 CAIN 11,9
 JRST L3041
 MOVE 1,-6(15)
 JRST L3039
L3041: MOVE 1,0(1)
 MOVEM 1,-8(15)
 MOVE 2,1
 MOVE 1,-1(15)
 PUSHJ 15,L2994
 PUSHJ 15,SYMFNC+172
 MOVE 7,-7(15)
 MOVEM 1,1(7)
 MOVE 2,-7(15)
 MOVE 2,1(2)
 MOVEM 2,-7(15)
 JRST L3040
L3039: MOVE 2,L3012
 PUSHJ 15,SYMFNC+278
 MOVE 2,L3013
 PUSHJ 15,SYMFNC+278
L3037: MOVE 2,1
 MOVE 1,L3014
 PUSHJ 15,SYMFNC+249
 MOVE 2,-3(15)
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-3(15)
 PUSHJ 15,SYMFNC+329
 PUSHJ 15,SYMFNC+172
 MOVE 2,L3015
 PUSHJ 15,SYMFNC+278
 MOVE 2,0(15)
 PUSHJ 15,SYMFNC+278
 MOVE 2,L3016
 ADJSP 15,-9
 JRST SYMFNC+278
L3008:	point 6,-5(15),5
L3011:	point 6,1,5
L3016:	<30_30>+257
L3015:	<9_30>+<1_18>+L3017
L3014:	<30_30>+545
L3013:	<30_30>+244
L3012:	<9_30>+<1_18>+L3018
L3010:	<9_30>+<1_18>+L3019
L3009:	<9_30>+<1_18>+L3020
L3007:	<30_30>+541
	1
; (!*ENTRY DEFCONST MACRO 1)
L3044:	intern L3044
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVE 1,L3042
 PUSHJ 15,SYMFNC+172
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 MOVE 2,1(2)
 MOVEM 2,0(15)
L3045: CAMN 0,0(15)
 JRST L3046
 MOVE 1,0(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-2(15)
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+234
 MOVE 3,1
 MOVE 2,-2(15)
 MOVE 1,L3043
 PUSHJ 15,SYMFNC+235
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 MOVE 2,1(2)
 MOVE 2,1(2)
 MOVEM 2,0(15)
 JRST L3045
L3046: MOVE 1,-1(15)
 ADJSP 15,-3
 JRST SYMFNC+329
L3043:	<30_30>+732
L3042:	<30_30>+264
	2
; (!*ENTRY EVDEFCONST EXPR 2)
L3048:	intern L3048
 MOVE 3,2
 MOVE 2,L3047
 JRST SYMFNC+300
L3047:	<30_30>+733
L3051:	20
	byte(7)85,110,107,110,111,119,110,32,99,111,110,115,116,32,102,111,114,109,32,37,114,0
	1
; (!*ENTRY CONST MACRO 1)
CONST:	intern CONST
 PUSH 15,1
 MOVE 2,L3049
 MOVE 1,1(1)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+522
 CAME 1,0
 JRST L3052
 MOVE 2,0(15)
 MOVE 1,L3050
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-1
 JRST SYMFNC+156
L3052: ADJSP 15,-1
 POPJ 15,0
L3050:	<4_30>+<1_18>+L3051
L3049:	<30_30>+733
	0
; (!*ENTRY STRINGGENSYM EXPR 0)
L3053:	intern L3053
 HRRZI 1,4
 JRST L3054
; (!*ENTRY STRINGGENSYM1 EXPR 1)
L3054:	intern L3054
 ADJSP 15,2
L3055: MOVEM 1,0(15)
 MOVEM 0,-1(15)
 SETZM 2
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L3056
 MOVE 2,0(15)
 MOVE 1,SYMVAL+735
 PUSHJ 15,SYMFNC+164
 HRRZI 2,57
 MOVEM 1,-1(15)
 PUSHJ 15,SYMFNC+282
 CAMN 1,0
 JRST L3057
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+241
 MOVE 3,1
 MOVE 2,0(15)
 MOVE 1,SYMVAL+735
 PUSHJ 15,SYMFNC+167
 MOVE 1,SYMVAL+735
 ADJSP 15,-2
 JRST SYMFNC+401
L3057: HRRZI 3,48
 MOVE 2,0(15)
 MOVE 1,SYMVAL+735
 PUSHJ 15,SYMFNC+167
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+349
 JRST L3055
L3056: SETZM 2
 MOVE 1,SYMVAL+735
 PUSHJ 15,SYMFNC+164
 PUSHJ 15,SYMFNC+241
 MOVE 3,1
 SETZM 2
 MOVE 1,SYMVAL+735
 PUSHJ 15,SYMFNC+167
 ADJSP 15,-2
 JRST SYMFNC+734
L3072:	33
	byte(7)37,114,32,105,115,32,97,110,32,105,108,108,101,103,97,108,32,97,99,116,105,111,110,32,105,110,32,70,111,114,69,97,99,104,0
	1
; (!*ENTRY FOREACH MACRO 1)
L3073:	intern L3073
 ADJSP 15,7
 MOVE 2,1(1)
 MOVE 2,0(2)
 MOVEM 2,-6(15)
 MOVE 1,1(1)
 MOVE 1,1(1)
 MOVE 3,0(1)
 MOVEM 3,-5(15)
 MOVE 1,1(1)
 MOVE 4,0(1)
 MOVEM 4,-4(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 MOVE 5,0(1)
 MOVEM 5,-1(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 CAME 5,L3058
 JRST L3074
 CAME 3,L3059
 JRST L3075
 MOVE 1,L3060
 JRST L3076
L3075: MOVE 1,L3061
 JRST L3076
L3074: CAMN 5,L3062
 JRST L3077
 CAME 5,L3063
 JRST L3078
L3077: CAME 3,L3059
 JRST L3079
 MOVE 1,L3064
 JRST L3076
L3079: MOVE 1,L3065
 JRST L3076
L3078: CAME 5,L3066
 JRST L3080
 CAME 3,L3059
 JRST L3081
 MOVE 1,L3067
 JRST L3076
L3081: MOVE 1,L3068
 JRST L3076
L3080: MOVE 2,5
 MOVE 1,L3069
 PUSHJ 15,SYMFNC+155
 PUSHJ 15,SYMFNC+156
L3076: MOVEM 1,-3(15)
 MOVE 1,-6(15)
 PUSHJ 15,SYMFNC+172
 MOVE 2,-2(15)
 PUSHJ 15,SYMFNC+151
 MOVE 2,L3070
 PUSHJ 15,SYMFNC+278
 MOVE 2,1
 MOVE 1,L3071
 PUSHJ 15,SYMFNC+249
 MOVE 3,1
 MOVE 2,-4(15)
 MOVE 1,-3(15)
 ADJSP 15,-7
 JRST SYMFNC+235
L3071:	<30_30>+252
L3070:	<30_30>+253
L3069:	<4_30>+<1_18>+L3072
L3068:	<30_30>+294
L3067:	<30_30>+293
L3066:	<30_30>+737
L3065:	<30_30>+292
L3064:	<30_30>+290
L3063:	<30_30>+738
L3062:	<30_30>+739
L3061:	<30_30>+287
L3060:	<30_30>+289
L3059:	<30_30>+740
L3058:	<30_30>+741
L3085:	<30_30>+545
	<9_30>+<1_18>+L3086
L3086:	<30_30>+128
	<30_30>+128
	1
; (!*ENTRY EXIT MACRO 1)
EXIT:	intern EXIT
 CAME 0,1(1)
 JRST L3087
 MOVE 1,L3082
 POPJ 15,0
L3087: MOVE 7,1(1)
 CAMN 0,1(7)
 JRST L3088
 MOVE 2,1(1)
 MOVE 1,L3083
 PUSHJ 15,SYMFNC+151
 MOVE 2,1
 MOVE 1,L3084
 JRST SYMFNC+249
L3088: MOVE 2,1(1)
 MOVE 1,L3084
 JRST SYMFNC+151
L3084:	<30_30>+545
L3083:	<30_30>+264
L3082:	<9_30>+<1_18>+L3085
L3090:	<30_30>+544
	<9_30>+<1_18>+L3091
L3091:	<30_30>+743
	<30_30>+128
	1
; (!*ENTRY NEXT MACRO 1)
NEXT:	intern NEXT
 MOVE 1,L3089
 POPJ 15,0
L3089:	<9_30>+<1_18>+L3090
L3098:	<9_30>+<1_18>+L3100
	<30_30>+128
L3099:	<30_30>+545
	<9_30>+<1_18>+L3101
L3100:	<30_30>+544
	<9_30>+<1_18>+L3102
L3101:	<30_30>+128
	<30_30>+128
L3102:	<30_30>+743
	<30_30>+128
	1
; (!*ENTRY WHILE MACRO 1)
WHILE:	intern WHILE
 ADJSP 15,2
 MOVEM 1,0(15)
 MOVE 2,1(1)
 MOVE 2,0(2)
 MOVE 1,L3092
 PUSHJ 15,SYMFNC+249
 MOVE 2,L3093
 PUSHJ 15,SYMFNC+249
 MOVE 2,1
 MOVE 1,L3094
 PUSHJ 15,SYMFNC+249
 MOVEM 1,-1(15)
 MOVE 2,L3095
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+177
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+278
 MOVE 2,L3096
 PUSHJ 15,SYMFNC+278
 MOVE 2,0
 PUSHJ 15,SYMFNC+278
 MOVE 2,L3097
 ADJSP 15,-2
 JRST SYMFNC+278
L3097:	<30_30>+541
L3096:	<30_30>+743
L3095:	<9_30>+<1_18>+L3098
L3094:	<30_30>+270
L3093:	<9_30>+<1_18>+L3099
L3092:	<30_30>+272
L3110:	<30_30>+544
	<9_30>+<1_18>+L3111
L3111:	<30_30>+743
	<30_30>+128
	1
; (!*ENTRY REPEAT MACRO 1)
REPEAT:	intern REPEAT
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVE 2,1(1)
 MOVEM 2,-1(15)
 LDB 11,L3103
 CAIN 11,9
 JRST L3112
 MOVE 1,0
 JRST L3113
L3112: MOVE 1,2
 CAME 0,1(1)
 JRST L3114
 MOVE 2,0(1)
 MOVE 1,L3104
 PUSHJ 15,SYMFNC+249
 MOVE 2,L3105
 PUSHJ 15,SYMFNC+249
 MOVE 2,1
 MOVE 1,L3106
 PUSHJ 15,SYMFNC+249
 JRST L3115
L3114: MOVE 1,0(1)
L3115: PUSHJ 15,SYMFNC+172
 MOVE 3,1
 MOVEM 3,-3(15)
 MOVEM 3,-2(15)
L3116: MOVE 1,-1(15)
 MOVE 1,1(1)
 MOVEM 1,-1(15)
 LDB 11,L3107
 CAIN 11,9
 JRST L3117
 MOVE 1,-2(15)
 JRST L3113
L3117: CAME 0,1(1)
 JRST L3118
 MOVE 2,0(1)
 MOVE 1,L3104
 PUSHJ 15,SYMFNC+249
 MOVE 2,L3105
 PUSHJ 15,SYMFNC+249
 MOVE 2,1
 MOVE 1,L3106
 PUSHJ 15,SYMFNC+249
 JRST L3119
L3118: MOVE 1,0(1)
L3119: PUSHJ 15,SYMFNC+172
 MOVE 7,-3(15)
 MOVEM 1,1(7)
 MOVE 2,-3(15)
 MOVE 2,1(2)
 MOVEM 2,-3(15)
 JRST L3116
L3113: MOVE 2,L3108
 PUSHJ 15,SYMFNC+278
 MOVE 2,0
 PUSHJ 15,SYMFNC+278
 MOVE 2,L3109
 ADJSP 15,-4
 JRST SYMFNC+278
L3103:	point 6,2,5
L3107:	point 6,1,5
L3109:	<30_30>+541
L3108:	<30_30>+743
L3106:	<30_30>+270
L3105:	<9_30>+<1_18>+L3110
L3104:	<30_30>+272
L3135:	<9_30>+<1_18>+L3137
	<30_30>+128
L3136:	<30_30>+545
	<9_30>+<1_18>+L3138
L3137:	<30_30>+544
	<9_30>+<1_18>+L3139
L3138:	<30_30>+128
	<30_30>+128
L3139:	<30_30>+743
	<30_30>+128
	1
; (!*ENTRY FOR MACRO 1)
FOR:	intern FOR
 ADJSP 15,11
 MOVEM 1,0(15)
 MOVEM 0,-3(15)
 MOVE 2,1(1)
 MOVE 2,0(2)
 MOVE 2,1(2)
 MOVE 2,0(2)
 MOVEM 2,-7(15)
 MOVE 3,1(1)
 MOVE 3,0(3)
 MOVE 3,1(3)
 MOVE 3,1(3)
 MOVEM 3,-4(15)
 MOVE 4,1(1)
 MOVE 4,1(4)
 MOVE 4,0(4)
 MOVE 4,0(4)
 MOVEM 4,-1(15)
 MOVE 5,1(1)
 MOVE 5,1(5)
 MOVE 5,0(5)
 MOVE 5,1(5)
 MOVE 5,0(5)
 MOVEM 5,-2(15)
 MOVE 3,0(3)
 MOVE 1,L3120
 PUSHJ 15,SYMFNC+235
 PUSHJ 15,SYMFNC+172
 MOVEM 1,-5(15)
 MOVE 2,-4(15)
 MOVE 2,1(2)
 MOVEM 2,-4(15)
 MOVE 3,-7(15)
 MOVE 2,0(2)
 MOVE 1,L3121
 PUSHJ 15,SYMFNC+235
 MOVEM 1,-8(15)
 MOVE 7,-4(15)
 MOVE 7,1(7)
 MOVE 7,0(7)
 CAIN 7,1
 JRST L3140
 MOVE 3,1
 MOVE 2,-4(15)
 MOVE 2,1(2)
 MOVE 2,0(2)
 MOVE 1,L3122
 PUSHJ 15,SYMFNC+235
 MOVEM 1,-8(15)
L3140: MOVE 6,L3123
 MOVEM 6,-6(15)
 MOVE 6,-1(15)
 CAMN 6,L3124
 JRST L3141
 MOVE 2,L3125
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+522
 MOVEM 1,-1(15)
 PUSHJ 15,SYMFNC+748
 MOVEM 1,-3(15)
 MOVE 2,-2(15)
 MOVE 1,L3126
 PUSHJ 15,SYMFNC+249
 MOVE 3,-3(15)
 MOVE 2,1
 MOVE 1,-1(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,-3(15)
 MOVE 1,L3120
 PUSHJ 15,SYMFNC+235
 MOVEM 1,-2(15)
 MOVE 1,-1(15)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+234
 MOVE 3,1
 MOVE 2,-3(15)
 MOVE 1,L3120
 PUSHJ 15,SYMFNC+235
 MOVE 2,-5(15)
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-5(15)
 MOVE 2,-3(15)
 MOVE 1,L3127
 PUSHJ 15,SYMFNC+249
 MOVE 2,1
 MOVE 1,L3128
 PUSHJ 15,SYMFNC+249
 MOVEM 1,-6(15)
 MOVE 1,-3(15)
 PUSHJ 15,SYMFNC+172
 MOVEM 1,-3(15)
L3141: MOVE 2,-3(15)
 MOVE 1,-7(15)
 PUSHJ 15,SYMFNC+151
 MOVEM 1,-9(15)
 MOVE 2,-8(15)
 MOVE 1,L3129
 PUSHJ 15,SYMFNC+249
 MOVE 2,-6(15)
 PUSHJ 15,SYMFNC+249
 MOVE 2,1
 MOVE 1,L3130
 PUSHJ 15,SYMFNC+249
 MOVEM 1,-10(15)
 MOVE 3,-4(15)
 MOVE 3,1(3)
 MOVE 3,0(3)
 MOVE 2,-7(15)
 MOVE 1,L3131
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,-7(15)
 MOVE 1,L3120
 PUSHJ 15,SYMFNC+235
 MOVE 2,L3132
 PUSHJ 15,SYMFNC+151
 MOVE 2,-2(15)
 PUSHJ 15,SYMFNC+278
 MOVE 2,-10(15)
 PUSHJ 15,SYMFNC+278
 MOVE 2,L3133
 PUSHJ 15,SYMFNC+278
 MOVE 2,1
 MOVE 1,-5(15)
 PUSHJ 15,SYMFNC+291
 MOVE 2,-9(15)
 PUSHJ 15,SYMFNC+278
 MOVE 2,L3134
 ADJSP 15,-11
 JRST SYMFNC+278
L3134:	<30_30>+541
L3133:	<30_30>+743
L3132:	<9_30>+<1_18>+L3135
L3131:	<30_30>+243
L3130:	<30_30>+270
L3129:	<30_30>+239
L3128:	<30_30>+545
L3127:	<30_30>+749
L3126:	<30_30>+750
L3125:	<30_30>+751
L3124:	<30_30>+741
L3123:	<9_30>+<1_18>+L3136
L3122:	<30_30>+286
L3121:	<30_30>+238
L3120:	<30_30>+260
	end