-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathALL.lst
11665 lines (11665 loc) · 526 KB
/
ALL.lst
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
-MODULE ALL
-LINE 60 "ALL.lss"
-INCLUDE 'AGT.INC'
-MODULE AGT
-LINE 13 "AGT.lss"
-IN72
-LINE 42 "AGT.lss"
-STITL AGT
-EJECT
*
************************************************************************
* *
* # ##### ####### *
* # # # # # *
* # # # # *
* # # # #### # *
* ####### # # # *
* # # # # # *
* # # ##### # *
* *
* AGT ALPHABETIC COMPARISION WITH UPPER AND LOWER EQUAL *
* *
************************************************************************
*
* AGT.lss
*
-LINE 16 "AGT.lss"
-PUBLIC AGT()
*
1 DEFINE('AGT(S1,S2)')
2 AGT_TT = REPLACE(&ALPHABET, &UCASE, &LCASE) :(AGT_END)
*
3 AGT LGT(REPLACE(S1, &ALPHABET, AGT_TT),
3 + REPLACE(S2, &ALPHABET, AGT_TT)) :S(RETURN)F(FRETURN)
*
4 AGT_END
*
* CE: .MSNOBOL4;
-INCLUDE 'AI.INC'
-MODULE AI
-LINE 18 "AI.lss"
-INCLUDE 'SEQ.INC'
-MODULE SEQ
-LINE 34 "SEQ.lss"
-IN72
-LINE 64 "SEQ.lss"
-STITL SEQ
-EJECT
*
************************************************************************
* *
* ##### ####### ##### *
* # # # # # *
* # # # # *
* ##### ##### # # *
* # # # # # *
* # # # # # *
* ##### ####### #### # *
* *
* SEQ SEQUENCE STATEMENT WITH COUNTER *
* *
************************************************************************
*
* SEQ.lss
*
-LINE 37 "SEQ.lss"
-PUBLIC SEQ()
*
5 DEFINE('SEQ(ARG_S,ARG_NAME,START,END)') :(SEQ_END)
*
6 SEQ START = IDENT(START) 1
7 $ARG_NAME = START - 1
8 ARG_S = CODE(ARG_S ' :S(SEQ_1)F(SEQ_2)') :F(ERROR)
9 SEQ_1 DIFFER(END) GE($ARG_NAME, END) :S(RETURN)
10 $ARG_NAME = $ARG_NAME + 1 :<ARG_S>
11 SEQ_2 EQ($ARG_NAME, START) :S(FRETURN)F(RETURN)
*
12 SEQ_END
*
* CE: .MSNOBOL4;
-IN72
-LINE 56 "AI.lss"
-STITL AI
-EJECT
*
************************************************************************
* *
* # ### *
* # # # *
* # # # *
* # # # *
* ####### # *
* # # # *
* # # ### *
* *
* AI APPLY INDEX *
* *
************************************************************************
*
* AI.lss
*
-LINE 22 "AI.lss"
-PUBLIC AI()
*
13 DEFINE('AI(A,I)J') :(AI_END)
*
14 AI IDENT(DATATYPE(I), 'ARRAY') :F(AI_1)
15 AI = ARRAY(PROTOTYPE(I))
16 SEQ(' AI<J> = A<I<J>> ', .J) :(RETURN)
17 AI_1 AI = A<I> :S(RETURN)F(FRETURN)
*
18 AI_END
*
* CE: .MSNOBOL4;
-INCLUDE 'AOPA.INC'
-MODULE AOPA
-LINE 16 "AOPA.lss"
-INCLUDE 'SEQ.INC'
-IN72
-LINE 72 "AOPA.lss"
-STITL AOPA
-EJECT
*
************************************************************************
* *
* # ####### ###### # *
* # # # # # # # # *
* # # # # # # # # *
* # # # # ###### # # *
* ####### # # # ####### *
* # # # # # # # *
* # # ####### # # # *
* *
* AOPA APPLY OPERATOR TO ARRAY *
* *
************************************************************************
*
* AOPA.lss
*
-LINE 20 "AOPA.lss"
-PUBLIC AOPA()
*
19 DEFINE('AOPA(A1,OP,A2)S1,I,S2,S') :(AOPA_END)
*
20 AOPA IDENT(DATATYPE(A1), 'ARRAY') :S(AOPA_1)
21 IDENT(DATATYPE(A2), 'ARRAY') :S(AOPA_2)
22 AOPA = EVAL('A1 ' OP ' A2') :(RETURN)
23 AOPA_1 S1 = '<I>'
24 S2 = IDENT(DATATYPE(A2), 'ARRAY') '<I>'
25 AOPA = ARRAY(PROTOTYPE(A1)) :(AOPA_COMMON)
26 AOPA_2 S2 = '<I>'
27 AOPA = ARRAY(PROTOTYPE(A2))
28 AOPA_COMMON
29 S = ' AOPA<I> = A1' S1 ' ' OP ' A2' S2
30 SEQ(S, .I) :(RETURN)
*
31 AOPA_END
*
* CE: .MSNOBOL4;
-INCLUDE 'APPENDA.INC'
-MODULE APPENDA
-LINE 12 "APPENDA.lss"
-INCLUDE 'SEQ.INC'
-INCLUDE 'SIZEA.INC'
-MODULE SIZEA
-IN72
-LINE 13 "SIZEA.lss"
-INCLUDE 'ARRAY0.INC'
-MODULE ARRAY0
-LINE 11 "ARRAY0.lss"
-INCLUDE 'SYSTEM.INC'
-MODULE SYSTEM
-IN72
-LINE 49 "SYSTEM.lss"
-LINE 129 "SYSTEM.lss"
-STITL SYSTEM
-EJECT
*
************************************************************************
* *
* ##### # # ##### ####### ####### # # *
* # # # # # # # # ## ## *
* # # # # # # # # # # *
* ##### # ##### # ##### # # # *
* # # # # # # # *
* # # # # # # # # # *
* ##### # ##### # ####### # # *
* *
* SYSTEM DETERMINE KIND OF SNOBOL4 *
* *
************************************************************************
*
* SYSTEM.lss
*
-LINE 52 "SYSTEM.lss"
-PUBLIC SYSTEM(), ISSPITBOL(), ISSNOBOL4()
-PUBLIC ISASCII(), ISEBCDIC(), ISCDC_DISPLAY_CODE()
*
32 DEFINE('SYSTEM()K,E,T')
33 DEFINE('ISSPITBOL()')
34 DEFINE('ISSNOBOL4()')
35 DEFINE('ISASCII()A')
36 DEFINE('ISEBCDIC()A')
37 DEFINE('ISCDC_DISPLAY_CODE()A') :(SYSTEM_END)
*
38 ISASCII A = &ANCHOR
39 &ANCHOR = 0
40 &ALPHABET '()' :S(ISASCII1)F(ISASCII2)
41 ISASCII1 &ANCHOR = A :(RETURN)
42 ISASCII2 &ANCHOR = A :(FRETURN)
*
* OR, TRY LLT('A',1)
43 ISEBCDIC A = &ANCHOR
44 &ANCHOR = 0
45 &ALPHABET '(+' :S(ISASCII1)F(ISASCII2)
*
46 ISCDC_DISPLAY_CODE
47 A = &ANCHOR
48 &ANCHOR = 0
49 &ALPHABET ')*' :S(ISASCII1)F(ISASCII2)
*
50 ISSPITBOL
51 DIFFER(.NAME, 'NAME') :S(RETURN)F(FRETURN)
*
52 ISSNOBOL4
53 IDENT(.NAME, 'NAME') :S(RETURN)F(FRETURN)
*
54 SYSTEM IDENT(DATATYPE(.X), 'STRING') :F(SYSTEM_2)
55 K = SIZE(&ALPHABET)
56 SYSTEM = EQ(K,512) 'HONEYWELL MAINBOL' :S(RETURN)
57 SYSTEM = EQ(K,256) 'IBM MAINBOL' :S(SYSTEM_0)
58 SYSTEM = EQ(K,128) 'PDP-10 MAINBOL' :S(RETURN)
59 SYSTEM = 'CDC MAINBOL'
60 ISASCII() :S(SYSTEM_1)
61 SYSTEM = 'UNIVAC MAINBOL' :(RETURN)
*
* DISTINGUISH IBM MAINBOL AND CSNOBOL, ASSUME ASCII FOR CSNOBOL4.
* IBM MAINBOL RUNS ON SYSTEM/360, WHICH IS EBCDIC.
*
* AFTER 1.5 (VERSION 1.5+), CSNOBOL4 SUPPORTS BLOCKS WITH THE
* -B COMMAND LINE SWITCH AND -BLOCKS/-NOBLOCKS
*
62 SYSTEM_0 ISASCII() :F(SYSTEM_1)
63 SYSTEM = 'CSNOBOL4 MAINBOL'
*
64 SYSTEM_1 E = &ERRLIMIT
65 &ERRLIMIT = 1
66 T = DATATYPE(1 # 1)
67 &ERRLIMIT = E
68 DIFFER(T, 'BLOCK') :S(RETURN)
69 SYSTEM = SYSTEM ' WITH BLOCKS' :(RETURN)
*
70 SYSTEM_2 SYSTEM = DIFFER(SUBSTR('ABC', 2, 1), 'B') 'FASBOL' :S(RETURN)
71 SYSTEM = EQ(SIZE(&ALPHABET), 128) 'SITBOL' :S(RETURN)
72 SYSTEM = 'SPITBOL' :(RETURN)
*
73 SYSTEM_END
*
* CE: .MSNOBOL4;
-IN72
-LINE 35 "ARRAY0.lss"
-STITL ARRAY0
-EJECT
*
************************************************************************
* *
* # ###### ###### # # # #### *
* # # # # # # # # # # # ## *
* # # # # # # # # # # # # # *
* # # ###### ###### # # # # # # *
* ####### # # # # ####### # ## # *
* # # # # # # # # # # # *
* # # # # # # # # # #### *
* *
* ARRAY0 ARRAY OF SIZE 0 *
* *
************************************************************************
*
* ARRAY0.lss
*
-LINE 15 "ARRAY0.lss"
-PUBLIC ARRAY0
*
74 ARRAY0 = ARRAY('-10000:-10000')
75 ARRAY0 = ?(SYSTEM() ? 'CSNOBOL4') ARRAY('0:-1')
*
* CE: .F.MSNOBOL4;
-INCLUDE 'BRKREM.INC'
-MODULE BRKREM
-LINE 11 "BRKREM.lss"
-INCLUDE 'SDIFF.INC'
-MODULE SDIFF
-LINE 10 "SDIFF.lss"
-IN72
-LINE 38 "SDIFF.lss"
-STITL SDIFF
-EJECT
*
************************************************************************
* *
* ##### ###### ### ####### ####### *
* # # # # # # # *
* # # # # # # *
* ##### # # # ##### ##### *
* # # # # # # *
* # # # # # # # *
* ##### ###### ### # # *
* *
* SDIFF SET DIFFERENCE *
* *
************************************************************************
*
* SDIFF.lss
*
-LINE 13 "SDIFF.lss"
-PUBLIC SDIFF()
*
76 DEFINE('SDIFF(S1,S2)') :(SDIFF_END)
*
77 SDIFF SDIFF = S1
78 IDENT(S2, NULL) :S(RETURN)
79 S2 = SPAN(S2)
80 SDIFF_1 SDIFF S2 = :S(SDIFF_1)F(RETURN)
*
81 SDIFF_END
*
* CE: .MSNOBOL4;
-IN72
-LINE 41 "BRKREM.lss"
-STITL BRKREM
-EJECT
*
************************************************************************
* *
* *
* ###### ###### # # ###### ####### # # *
* # # # # # # # # # ## ## *
* # # # # # # # # # # # # # *
* ###### ###### ### ###### ##### # # # *
* # # # # # # # # # # # *
* # # # # # # # # # # # *
* ###### # # # # # # ####### # # *
* *
* BRKREM BREAK(S) OR REM *
* *
************************************************************************
*
* BRKREM.lss
*
-LINE 15 "BRKREM.lss"
-PUBLIC BRKREM()
*
82 DEFINE('BRKREM(S)CS') :(BRKREM_END)
*
83 BRKREM BRKREM = IDENT(S) REM :S(RETURN)
84 CS = SDIFF(&ALPHABET, S)
85 IDENT(CS) :S(RETURN)
86 BRKREM = RPOS(0) | SPAN(CS) RPOS(0) | BREAK(S)
87 :(RETURN)
*
88 BRKREM_END
*
* CE: .MSNOBOL4;
-INCLUDE 'LOWA.INC'
-MODULE LOWA
-IN72
-LINE 10 "LOWA.lss"
-INCLUDE 'ARRAY0.INC'
-INCLUDE 'BRKREM.INC'
-LINE 44 "LOWA.lss"
-STITL LOWA
-EJECT
*
************************************************************************
* *
* # ####### # # # *
* # # # # # # # # *
* # # # # # # # # *
* # # # # # # # # *
* # # # # # # ####### *
* # # # # # # # # *
* ####### ####### ## ## # # *
* *
* LOWA LOW INDEX OF ARRAY *
* *
************************************************************************
*
* LOWA.lss
*
-LINE 15 "LOWA.lss"
-PUBLIC LOWA()
*
89 DEFINE('LOWA(A)L,U') :(LOWA_END)
*
90 LOWA LOWA = IDENT(A) 0 :S(RETURN)
91 LOWA = IDENT(A, ARRAY0) 0 :S(RETURN)
92 IDENT(DATATYPE(A), 'ARRAY') :F(FRETURN)
93 PROTOTYPE(A) (BRKREM(':,') . L) ((':' BRKREM(',') . U) | NULL)
94 IDENT(L) :S(FRETURN)
95 LOWA = L
96 LOWA = IDENT(U) 1 :(RETURN)
*
97 LOWA_END
*
* CE: .F.MSNOBOL4;
-INCLUDE 'SWAP.INC'
-STITL SWAP
-EJECT
*
-LINE 37 "SWAP.lss"
************************************************************************
* *
* ##### # # # ###### *
* # # # # # # # # # *
* # # # # # # # # *
* ##### # # # # # ###### *
* # # # # ####### # *
* # # # # # # # # *
* ##### ## ## # # # *
* *
* SWAP SWAP TWO VARIABLES *
* *
************************************************************************
*
* SWAP.lss
*
-LINE 12 "SWAP.lss"
-MODULE SWAP
-PUBLIC SWAP()
98 DEFINE('SWAP(SWAP_ARG1,SWAP_ARG2)') :(SWAP_END)
*
99 SWAP SWAP = $SWAP_ARG1
100 $SWAP_ARG1 = $SWAP_ARG2
101 $SWAP_ARG2 = SWAP
102 SWAP = :(RETURN)
*
103 SWAP_END
*
* CE: .MSNOBOL4;
-LINE 65 "SIZEA.lss"
-STITL SIZEA
-EJECT
*
************************************************************************
* *
* ##### ### ####### ####### # *
* # # # # # # # *
* # # # # # # *
* ##### # # ##### # # *
* # # # # ####### *
* # # # # # # # *
* ##### ### ####### ####### # # *
* *
* SIZEA SIZE OF ARRAY *
* *
************************************************************************
*
* SIZEA.lss
*
-LINE 20 "SIZEA.lss"
-PUBLIC SIZEA()
*
104 DEFINE('SIZEA(A)L,U') :(SIZEA_END)
*
105 SIZEA SIZEA = IDENT(A) 0 :S(RETURN)
106 SIZEA = IDENT(A, ARRAY0) 0 :S(RETURN)
107 IDENT(DATATYPE(A), 'ARRAY') :F(FRETURN)
108 L =
109 U =
110 PROTOTYPE(A) (BRKREM(':,') . L) ((':' BRKREM(',') . U) | NULL)
111 IDENT(L) :S(FRETURN)
112 U = IDENT(U) 1 :F(SIZEA_2)
113 SWAP(.L, .U)
114 SIZEA_2 SIZEA = LT(U, L) 0 :S(RETURN)
115 SIZEA = U - L + 1 :(RETURN)
*
116 SIZEA_END
*
* CE: .F.MSNOBOL4;
-IN72
-LINE 41 "APPENDA.lss"
-STITL AI
-EJECT
*
************************************************************************
* *
* # ###### ###### ####### # # ###### # *
* # # # # # # # ## # # # # # *
* # # # # # # # # # # # # # # *
* # # ###### ###### ##### # # # # # # # *
* ####### # # # # # # # # ####### *
* # # # # # # ## # # # # *
* # # # # ####### # # ###### # # *
* *
* APPENDA APPEND ELEMENT TO ARRRAY *
* *
************************************************************************
*
* APPENDA.lss
*
-LINE 17 "APPENDA.lss"
-PUBLIC APPENDA()
*
117 DEFINE('APPENDA(A,V)I') :(END_APPENDA)
*
118 APPENDA APPENDA = ARRAY(SIZEA(A) + 1)
119 SEQ(' APPENDA<I> = A<I>', .I)
120 APPENDA<I> = V :(RETURN)
*
121 END_APPENDA
*
* CE: .MSNOBOL4;
-INCLUDE 'ARRAY0.INC'
-INCLUDE 'ASM.INC'
-MODULE ASM
-INCLUDE 'JIT.INC'
-MODULE JIT
-LINE 15 "JIT.lss"
-INCLUDE 'CRACK.INC'
-MODULE CRACK
-LINE 16 "CRACK.lss"
-INCLUDE 'COUNT.INC'
-MODULE COUNT
-LINE 8 "COUNT.lss"
-IN72
-LINE 38 "COUNT.lss"
-STITL COUNT
-EJECT
*
************************************************************************
* *
* ##### ####### # # # # ####### *
* # # # # # # ## # # *
* # # # # # # # # # *
* # # # # # # # # # *
* # # # # # # # # # *
* # # # # # # # ## # *
* ##### ####### ##### # # # *
* *
* COUNT COUNT STRING OCCURRENCES *
* *
* COUNT(S1,S2) COUNTS THE NUMBER OF OCCURRENCES OF STRING S2 IN STRING *
* S1. *
* *
************************************************************************
*
* COUNT.lss
*
-LINE 11 "COUNT.lss"
-PUBLIC COUNT()
*
122 DEFINE('COUNT(S1,S2)FIRST,REST,P') :(COUNT_END)
*
123 COUNT COUNT = 0
124 S2 LEN(1) . FIRST REM . REST :F(RETURN)
125 P = POS(0) BREAKX(FIRST) S2
126 COUNT_1 S1 P = REST :F(RETURN)
127 COUNT = COUNT + 1 :(COUNT_1)
*
128 COUNT_END
*
* CE: .MSNOBOL4;
-IN72
-LINE 63 "CRACK.lss"
-STITL CRACK
-EJECT
*
************************************************************************
* *
* ##### ###### # ##### # # *
* # # # # # # # # # # *
* # # # # # # # # *
* # ###### # # # ### *
* # # # ####### # # # *
* # # # # # # # # # # *
* ##### # # # # ##### # # *
* *
* CRACK STRING TO ARRAY *
* *
************************************************************************
*
* CRACK.lss
*
-LINE 20 "CRACK.lss"
-PUBLIC CRACK(), %1
*
129 DEFINE('CRACK_1(S)P')
130 DEFINE('CRACK(S,B,F)I,PAT,N')
131 DEFINE('CRACK_4(S)')
132 OPSYN('%', 'CRACK_1', 1) :(CRACK_END)
*
133 CRACK_1 P = IDENT(P) ','
134 CRACK_1 = CRACK(S, P) :(RETURN)
*
135 CRACK F = IDENT(F) 'CRACK_4'
136 IDENT(B, NULL) :S(CRACK_3)
137 S RTAB(1) B ABORT | REM . S = S B
138 N = COUNT(S, B)
139 EQ(N, 0) :S(RETURN)
140 CRACK = ARRAY(N)
141 PAT = BREAK(B) . *CRACK<I> LEN(1)
142 CRACK_2 I = I + 1
143 S PAT = :F(RETURN)
144 CRACK<I> = APPLY(F, CRACK<I>) :S(CRACK_2)F(FRETURN)
145 CRACK_3 N = SIZE(S)
146 EQ(N, 0) :S(RETURN)
147 CRACK = ARRAY(N)
148 PAT = LEN(1) . *CRACK<I> :(CRACK_2)
*
149 CRACK_4 CRACK_4 = S :(RETURN)
*
150 CRACK_END
*
* CE: .MSNOBOL4;
-INCLUDE 'SEQ.INC'
-IN1024
-LINE 1405 "JIT.lss"
-STITL JIT
-EJECT
*
************************************************************************
* *
* # ### ####### *
* # # # *
* # # # *
* # # # *
* # # # # *
* # # # # *
* ##### ### # *
* *
* JIT JUST-IN-TIME CODE GENERATION *
* *
************************************************************************
*
* QMUL/QDIV NOT YET SUPPORTED
*
* JIT.lss
*
-LINE 20 "JIT.lss"
-CASE 1
-PLUSOPS 1
-LINE 23 "JIT.lss"
-LINE 24 "JIT.lss"
-LINE 25 "JIT.lss"
-LINE 26 "JIT.lss"
-LINE 27 "JIT.lss"
-LINE 30 "JIT.lss"
151 JIT = 'jit.c'
-LINE 577 "JIT.lss"
-LINE 578 "JIT.lss"
-LINE 579 "JIT.lss"
-LINE 580 "JIT.lss"
-LINE 581 "JIT.lss"
-LINE 582 "JIT.lss"
-LINE 585 "JIT.lss"
*
-PUBLIC INIT_JIT(), FINISH_JIT(), JIT_GET_STATE(), JIT_SET_STATE()
*
152 LOAD('INIT_JIT(STRING)', 'jit.so')
153 LOAD('FINISH_JIT()', 'jit.so')
154 LOAD('JIT_GET_STATE()INTEGER', 'jit.so')
155 LOAD('JIT_SET_STATE(INTEGER)', 'jit.so')
*
-PUBLIC JIT_NEW_STATE(), JIT_DESTROY_STATE(), JIT_CLEAR_STATE()
*
156 LOAD('JIT_NEW_STATE()INTEGER', 'jit.so')
157 LOAD('JIT_DESTROY_STATE()', 'jit.so')
158 LOAD('JIT_CLEAR_STATE()', 'jit.so')
*
-PUBLIC JIT_PROLOG(), JIT_EPILOG(), JIT_NOTE(), JIT_NAME()
*
159 LOAD('JIT_PROLOG()', 'jit.so')
160 LOAD('JIT_EPILOG()', 'jit.so')
161 LOAD('JIT_NOTE(STRING,INTEGER)INTEGER', 'jit.so')
162 LOAD('JIT_NAME(STRING)INTEGER', 'jit.so')
*
-PUBLIC JIT_ADDRESS(), JIT_DISASSEMBLE(), JIT_EMIT(), JIT_LABEL()
*
163 LOAD('JIT_ADDRESS(INTEGER)INTEGER', 'jit.so')
164 LOAD('JIT_DISASSEMBLE()', 'jit.so')
165 LOAD('JIT_EMIT()INTEGER', 'jit.so')
166 LOAD('JIT_PRINT()', 'jit.so')
167 LOAD('JIT_LABEL()INTEGER', 'jit.so')
*
-PUBLIC JIT_ELLIPSIS(), JIT_INTEGER_P(), JIT_CALLEE_SAVE_P()
*
168 LOAD('JIT_ELLIPSIS()', 'jit.so')
169 LOAD('GET_NOTE_I()INTEGER', 'jit.so')
170 LOAD('GET_NOTE_S1()STRING', 'jit.so')
171 LOAD('GET_NOTE_S2()STRING', 'jit.so')
172 LOAD('GET_NOTE_JIT(INTEGER)PREDICATE', 'jit.so')
173 LOAD('JIT_INTEGER_P(INTEGER)PREDICATE', 'jit.so')
174 LOAD('JIT_CALLEE_SAVE_P(INTEGER)PREDICATE', 'jit.so')
*
-PUBLIC JIT_PATCH_AT(), JIT_PATCH_ABS(), JIT_PATCH(), JIT_PREPARE()
*
175 LOAD('JIT_PATCH_AT(INTEGER,INTEGER)', 'jit.so')
176 LOAD('JIT_PATCH_ABS(INTEGER,INTEGER)', 'jit.so')
177 LOAD('JIT_PATCH(INTEGER)', 'jit.so')
178 LOAD('JIT_PREPARE()', 'jit.so')
*
-PUBLIC JIT_ALLOCAI(), JIT_DATA() JIT_FORWARD(), JIT_INDIRECT()
*
179 LOAD('JIT_ALLOCAI(INTEGER)INTEGER', 'jit.so')
180 LOAD('JIT_DATA(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
181 LOAD('JIT_FORWARD()INTEGER', 'jit.so')
182 LOAD('JIT_INDIRECT()INTEGER', 'jit.so')
*
-PUBLIC JIT_LIVE(), JIT_LINK(), JIT_R_NUM_(), JIT_V_NUM_(), JIT_F_NUM()
*
183 LOAD('JIT_LIVE(INTEGER)INTEGER', 'jit.so')
184 LOAD('JIT_LINK(INTEGER)', 'jit.so')
185 LOAD('JIT_R_NUM_()INTEGER', 'jit.so')
186 LOAD('JIT_V_NUM_()INTEGER', 'jit.so')
187 LOAD('JIT_F_NUM_()INTEGER', 'jit.so')
*
-PUBLIC R0_(), R1_(), R2_(), R3_(), V0_(), V1_(), V2()_, V3_()
*
188 LOAD('R0_()INTEGER', 'jit.so')
189 LOAD('R1_()INTEGER', 'jit.so')
190 LOAD('R2_()INTEGER', 'jit.so')
191 LOAD('R3_()INTEGER', 'jit.so')
192 LOAD('V0_()INTEGER', 'jit.so')
193 LOAD('V1_()INTEGER', 'jit.so')
194 LOAD('V2_()INTEGER', 'jit.so')
195 LOAD('V3_()INTEGER', 'jit.so')
*
-PUBLIC F0_(), F1_(), F2_(), F3_(), F4_(), F5_(), F6_(), F7_(), FP_()
*
196 LOAD('F0_()INTEGER', 'jit.so')
197 LOAD('F1_()INTEGER', 'jit.so')
198 LOAD('F2_()INTEGER', 'jit.so')
199 LOAD('F3_()INTEGER', 'jit.so')
200 LOAD('F4_()INTEGER', 'jit.so')
201 LOAD('F5_()INTEGER', 'jit.so')
202 LOAD('F6_()INTEGER', 'jit.so')
203 LOAD('F7_()INTEGER', 'jit.so')
204 LOAD('FP_()INTEGER', 'jit.so')
*
-PUBLIC JIT_ADDR(), JIT_ADDR_F(), JIT_ADDR_D()
*
205 LOAD('JIT_ADDR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
206 LOAD('JIT_ADDR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
207 LOAD('JIT_ADDR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_ADDI(), JIT_ADDI_F(), JIT_ADDI_D()
*
208 LOAD('JIT_ADDI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
209 LOAD('JIT_ADDI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
210 LOAD('JIT_ADDI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_ADDXR(), JIT_ADDXI(), JIT_ADDCR(), JIT_ADDCI()
*
211 LOAD('JIT_ADDXR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
212 LOAD('JIT_ADDXI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
213 LOAD('JIT_ADDCR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
214 LOAD('JIT_ADDCI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_SUBR(), JIT_SUBR_F(), JIT_SUBR_D()
*
215 LOAD('JIT_SUBR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
216 LOAD('JIT_SUBR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
217 LOAD('JIT_SUBR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_SUBI(), JIT_SUBI_F(), JIT_SUBI_D()
*
218 LOAD('JIT_SUBI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
219 LOAD('JIT_SUBI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
220 LOAD('JIT_SUBI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_SUBXR(), JIT_SUBXI(), JIT_SUBCR(), JIT_SUBCI()
*
221 LOAD('JIT_SUBXR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
222 LOAD('JIT_SUBXI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
223 LOAD('JIT_SUBCR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
224 LOAD('JIT_SUBCI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_MULR(), JIT_MULR_F(), JIT_MULR_D()
*
225 LOAD('JIT_MULR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
226 LOAD('JIT_MULR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
227 LOAD('JIT_MULR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_MULTI(), JIT_MULI_F(), JIT_MULI_D()
*
228 LOAD('JIT_MULI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
229 LOAD('JIT_MULI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
230 LOAD('JIT_MULI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_DIVR(), JIT_DIVR_U(), JIT_DIVR_F(), JIT_DIVR_D()
*
231 LOAD('JIT_DIVR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
232 LOAD('JIT_DIVR_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
233 LOAD('JIT_DIVR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
234 LOAD('JIT_DIVR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_DIVI(), JIT_DIVI_U(), JIT_DIVI_F(), JIT_DIVI_D()
*
235 LOAD('JIT_DIVI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
236 LOAD('JIT_DIVI_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
237 LOAD('JIT_DIVI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
238 LOAD('JIT_DIVI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_REMR(), JIT_REMR_U(), JIT_REMI(), JIT_REMI_U()
*
239 LOAD('JIT_REMR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
240 LOAD('JIT_REMR_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
241 LOAD('JIT_REMI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
242 LOAD('JIT_REMI_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_ANDR(), JIT_ANDI(), JIT_ORR(), JIT_ORI()
*
243 LOAD('JIT_ANDR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
244 LOAD('JIT_ANDI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
245 LOAD('JIT_ORR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
246 LOAD('JIT_ORI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_XORR(), JIT_XORI()
*
247 LOAD('JIT_XORR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
248 LOAD('JIT_XORI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_LSHR(), JIT_LSHI()
*
249 LOAD('JIT_LSHR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
250 LOAD('JIT_LSHI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_RSHR(), JIT_RSHR_U(), JIT_RSHI(), JIT_RSHI_U()
*
251 LOAD('JIT_RSHR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
252 LOAD('JIT_RSHR_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
253 LOAD('JIT_RSHI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
254 LOAD('JIT_RSHI_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_NEGR(), JIT_NEGR_F(), JIT_NEGR_D()
*
255 LOAD('JIT_NEGR(INTEGER,INTEGER)INTEGER', 'jit.so')
256 LOAD('JIT_NEGR_F(INTEGER,INTEGER)INTEGER', 'jit.so')
257 LOAD('JIT_NEGR_D(INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_COMR()
*
258 LOAD('JIT_COMR(INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_ABSR_F(), JIT_ABSR_D()
*
259 LOAD('JIT_ABSR_F(INTEGER,INTEGER)INTEGER', 'jit.so')
260 LOAD('JIT_ABSR_D(INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_SQRTR_F(), JIT_SQRTR_D()
*
261 LOAD('JIT_SQRTR_F(INTEGER,INTEGER)INTEGER', 'jit.so')
262 LOAD('JIT_SQRTR_D(INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_LTR(), JIT_LTR_U(), JIT_LTR_F(), JIT_LTR_D()
*
263 LOAD('JIT_LTR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
264 LOAD('JIT_LTR_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
265 LOAD('JIT_LTR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
266 LOAD('JIT_LTR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_LTI(), JIT_LTI_U(), JIT_LTI_F(), JIT_LTI_D()
*
267 LOAD('JIT_LTI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
268 LOAD('JIT_LTI_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
269 LOAD('JIT_LTI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
270 LOAD('JIT_LTI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_LER(), JIT_LER_U(), JIT_LER_F(), JIT_LER_D()
*
271 LOAD('JIT_LER(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
272 LOAD('JIT_LER_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
273 LOAD('JIT_LER_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
274 LOAD('JIT_LER_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_LEI(), JIT_LEI_U(), JIT_LEI_F(), JIT_LEI_D()
*
275 LOAD('JIT_LEI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
276 LOAD('JIT_LEI_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
277 LOAD('JIT_LEI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
278 LOAD('JIT_LEI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_GTR(), JIT_GTR_U(), JIT_GTR_F(), JIT_GTR_D()
*
279 LOAD('JIT_GTR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
280 LOAD('JIT_GTR_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
281 LOAD('JIT_GTR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
282 LOAD('JIT_GTR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_GTI(), JIT_GTI_U(), JIT_GTI_F(), JIT_GTI_D()
*
283 LOAD('JIT_GTI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
284 LOAD('JIT_GTI_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
285 LOAD('JIT_GTI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
286 LOAD('JIT_GTI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_GER(), JIT_GER_U(), JIT_GER_F(), JIT_GER_D()
*
287 LOAD('JIT_GER(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
288 LOAD('JIT_GER_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
289 LOAD('JIT_GER_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
290 LOAD('JIT_GER_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_GEI(), JIT_GEI_U(), JIT_GEI_F(), JIT_GEI_D()
*
291 LOAD('JIT_GEI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
292 LOAD('JIT_GEI_U(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
293 LOAD('JIT_GEI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
294 LOAD('JIT_GEI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_EQR(), JIT_EQR_F(), JIT_EQR_D()
*
295 LOAD('JIT_EQR(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
296 LOAD('JIT_EQR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
297 LOAD('JIT_EQR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_EQI(), JIT_EQI_F(), JIT_EQI_D()
*
298 LOAD('JIT_EQI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
299 LOAD('JIT_EQI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
300 LOAD('JIT_EQI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_NER(), JIT_NER_F(), JIT_NER_D()
*
301 LOAD('JIT_NER(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
302 LOAD('JIT_NER_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
303 LOAD('JIT_NER_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_NEI(), JIT_NEI_F(), JIT_NEI_D()
*
304 LOAD('JIT_NEI(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
305 LOAD('JIT_NEI_F(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
306 LOAD('JIT_NEI_D(INTEGER,INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_UNLTR_F(), JIT_UNLTR_D()
*
307 LOAD('JIT_UNLTR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
308 LOAD('JIT_UNLTR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_UNLER_F(), JIT_UNLER_D()
*
309 LOAD('JIT_UNLER_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
310 LOAD('JIT_UNLER_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_UNGTR_F(), JIT_UNGTR_D()
*
311 LOAD('JIT_UNGTR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
312 LOAD('JIT_UNGTR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_UNGER_F(), JIT_UNGER_D()
*
313 LOAD('JIT_UNGER_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
314 LOAD('JIT_UNGER_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_UNEQR_D(), JIT_UNEQR_D()
*
315 LOAD('JIT_UNEQR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
316 LOAD('JIT_UNEQR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_LTGTR_F(), JIT_LTGTR_D()
*
317 LOAD('JIT_LTGTR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
318 LOAD('JIT_LTGTR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_ORDR_F(), JIT_ORDR_D()
*
319 LOAD('JIT_ORDR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
320 LOAD('JIT_ORDR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_UNORDR_F(), JIT_UNORDR_D()
*
321 LOAD('JIT_UNORDR_F(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
322 LOAD('JIT_UNORDR_D(INTEGER,INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_MOVR(), JIT_MOVR_F(), JIT_MOVR_D()
*
323 LOAD('JIT_MOVR(INTEGER,INTEGER)INTEGER', 'jit.so')
324 LOAD('JIT_MOVR_F(INTEGER,INTEGER)INTEGER', 'jit.so')
325 LOAD('JIT_MOVR_D(INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_MOVI(), JIT_MOVI_F(), JIT_MOVI_D()
*
326 LOAD('JIT_MOVI(INTEGER,INTEGER)INTEGER', 'jit.so')
327 LOAD('JIT_MOVI_F(INTEGER,REAL)INTEGER', 'jit.so')
328 LOAD('JIT_MOVI_D(INTEGER,REAL)INTEGER', 'jit.so')
*
-PUBLIC JIT_EXTR_C(), JIT_EXTR_UC(), JIT_EXTR_S(), JIT_EXTR_US()
*
329 LOAD('JIT_EXTR_C(INTEGER,INTEGER)INTEGER', 'jit.so')
330 LOAD('JIT_EXTR_UC(INTEGER,INTEGER)INTEGER', 'jit.so')
331 LOAD('JIT_EXTR_S(INTEGER,INTEGER)INTEGER', 'jit.so')
332 LOAD('JIT_EXTR_US(INTEGER,INTEGER)INTEGER', 'jit.so')
*
-PUBLIC JIT_EXTR_I(), JIT_EXTR_UI(), JIT_EXTR_F(), JIT_EXTR_D_F()
*
333 LOAD('JIT_EXTR_I(INTEGER,INTEGER)INTEGER', 'jit.so')
334 LOAD('JIT_EXTR_UI(INTEGER,INTEGER)INTEGER', 'jit.so')
335 LOAD('JIT_EXTR_F(INTEGER,INTEGER)INTEGER', 'jit.so')
336 LOAD('JIT_EXTR_D_F(INTEGER,INTEGER)INTEGER', 'jit.so')
*