-
Notifications
You must be signed in to change notification settings - Fork 3
/
ppcifuncs.asm
5079 lines (4744 loc) · 102 KB
/
ppcifuncs.asm
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
# The zlib/libpng License
#
# Copyright (c) 2003-2008 Leif Salomonsson
#
# This software is provided 'as-is', without any express or implied warranty.
# In no event will the authors be held liable for any damages arising from
# the use of this software.
#
# Permission is granted to anyone to use this software for any purpose,
# including commercial applications, and to alter it and redistribute it
# freely, subject to the following restrictions:
#
# 1. The origin of this software must not be misrepresented; you must not
# claim that you wrote the original software. If you use this software
# in a product, an acknowledgment in the product documentation would be
# appreciated but is not required.
#
# 2. Altered source versions must be plainly marked as such, and must not be
# misrepresented as being the original software.
#
# 3. This notice may not be removed or altered from any source distribution.
#
#
# ppcifuncs.asm
##################################
# ECX POWERPC INTERNAL FUNCTIONS #
##################################
# FOR SYSV / MORPHOS ABI #
##################################
# By Leif Salomonsson 2003-08 #
##################################
# ecx AT tele2 DOT se #
##################################
# Sept 2008, added os4 support for functions:
# stringf, writef, printf, inp, out, readstr, list, string,
# disposelink, new, newr, newm, dispose
# (and indirectly fastnew/fastdispose/fastdisposelist)
# Left todo: debugf .. and a bunch of Fxxx() funcs.
# Enable _AMIGAOS4_ to use.
.TEXT
.LONG P_FASTNEW # 0
.LONG P_FASTDISPOSE # 1
.LONG P_NEW # 2
.LONG P_NEWR # 3
.LONG P_DISPOSE # 4
.LONG P_STRINGF_OLD # 5
.LONG P_RAISE # 6
.LONG P_THROW # 7
.LONG P_RETHROW # 8
.LONG P_STRCOPY # 9
.LONG P_STRADD # 10
.LONG P_STRCMP # 11
.LONG P_STRLEN # 12
.LONG P_TRIMSTR # 13
.LONG P_ASTRCOPY # 14
.LONG P_RNDQ # 15
.LONG P_BOUNDS # 16
.LONG P_MIN # 17
.LONG P_MAX # 18
.LONG P_ABS # 19
.LONG P_SIGN # 20
.LONG P_STRING # 21
.LONG P_LIST # 22
.LONG P_WRITEF_OLD # 23
.LONG P_PRINTF_OLD # 24
.LONG P_CLEANUP # 25
.LONG P_FREESTACK # 26
.LONG P_INSTR # 27
.LONG P_UPPERSTR # 28
.LONG P_LOWERSTR # 29
.LONG P_OPENW # 30
.LONG P_READSTR # 31
.LONG P_CLOSEW # 32
.LONG P_LISTCOPY # 33
.LONG P_LISTADD # 34
.LONG P_LISTCMP # 35
.LONG P_VAL # 36
.LONG P_CTRLC # 37
.LONG P_MOD # 38
.LONG P_FORWARD # 39
.LONG P_PRIVATE_I2F # 40 - private float support
.LONG P_DISPOSELINK # 41
.LONG P_FASTDISPOSELIST # 42
.LONG P_KICKVERSION # 43
.LONG P_REALVAL # 44
.LONG P_INP # 45
.LONG P_OUT # 46
.LONG P_FORALL # 47
.LONG P_EXISTS # 48
.LONG P_MAPLIST # 49
.LONG P_SELECTLIST # 50
.LONG P_FABS # 51 (OLD)
.LONG P_FFLOOR # 52
.LONG P_FCEIL # 53
.LONG P_FSIN # 54
.LONG P_FCOS # 55
.LONG P_FTAN # 56
.LONG P_FEXP # 57
.LONG P_FLOG # 58
.LONG P_FPOW # 59
.LONG P_FSQRT # 60
.LONG P_FLOG10 # 61
.LONG P_FATAN # 62
.LONG P_FSINCOS # 63
.LONG P_FSINH # 64
.LONG P_FCOSH # 65
.LONG P_FTANH # 66
.LONG P_FTIEEE # 67
.LONG P_FFIEEE # 68
.LONG P_FASIN # 69
.LONG P_FACOS # 70
.LONG P_LEFTMOUSE # 71
.LONG P_WAITLEFTMOUSE # 72
.LONG P_WAITIMESSAGE # 73
.LONG P_SETSTDIN # 74
.LONG P_SETSTDOUT # 75
.LONG P_SETSTDRAST # 76
.LONG P_TEXTF_OLD # 77
.LONG P_REALF # 78
.LONG P_FILELENGTH # 79
.LONG P_MIDSTR # 80
.LONG P_PLOT # 81
.LONG P_LINE # 82
.LONG P_RND # 83
.LONG P_BOX # 84
.LONG P_RIGHTSTR # 85
.LONG P_SETCHUNKSIZE # 86
.LONG P_SETCOLOUR # 87
.LONG P_OPENS # 88
.LONG P_CLOSES # 89
.LONG P_OSTRCMP # 90
.LONG P_NEWM # 91
.LONG P_XTOD # 92 DEPRECATED BUT KEPT
.LONG P_DTOX # 93 DEPRECATED BUT KEPT
.LONG P_DEBUGF_OLD # 94
.LONG P_COLOUR # 95 (1.4.6)
.LONG P_PRIVATE_STRFMT_OLD # 96 (1.5) PRIVATE, OBSOLETE
.LONG P_STRINGF # 97 (1.5.4) New version
.LONG P_PRINTF # 98 (1.5.4) New version
.LONG P_WRITEF # 99 (1.5.4) New version
.LONG P_TEXTF # 100 (1.5.4) New version
.LONG P_DEBUGF # 101 (1.5.4) New version
# 1.10.0 May 2008 v55
.LONG P_PRIVATE_SHL64 # 102
.LONG P_PRIVATE_SHR64 # 103
.LONG P_PRIVATE_ASR64 # 104
.LONG P_PRIVATE_DIV64 # 105
.LONG P_MOD64 # 106
.LONG P_ABS64 # 107
.LONG P_PRIVATE_F2D64 # 108
.LONG P_PRIVATE_D642F # 109
.LONG P_CODEEND
# constants ######
.SET FCHUNKSIZE, 4096
.SET ALLOCMEM, -198 # D0, D1
.SET FREEMEM, -210 # A1, D0
.SET ALLOCPOOLED, -708
.SET FREEPOOLED, -714
.SET EMULCALLDIRECTOS, 100
.SET RAWPUTCHAR, -516
.SET VNEWRAWDOFMT, -820 # R3:base, R4:fmtstr,R5:putproc,R6:putdata,R7:va_list
.SET RAWDOFMT, -522 # A0, A1, A2, A3
.SET FPUTS, -342
.SET WRITE, -48
.SET FRAME, 1
.SET STACK, 1
.SET GLOB, 13
.SET SYS, 2
.SET OLDFRAME, 0
.SET LINKREG, 4
.SET OLDSTRUCT, 0
.SET HANDLESTACK, 4
.SET EXCEPTCODE, 8
# the brainfucked va_list
#OBJECT va_list
.SET VA_GPR, 0 # gpr:CHAR
.SET VA_FPR, 1 # fpr:CHAR
#pad:WORD
.SET VA_OVERFLOW, 4 # overflow_arg_area:PTR TO CHAR
.SET VA_REG_SAVE, 8 # reg_save_area:PTR TO CHAR
#ENDOBJECT
# WE USE UPPERCASE REGS :)
.SET R0, 0
.SET R1, 1
.SET R2, 2
.SET R3, 3
.SET R4, 4
.SET R5, 5
.SET R6, 6
.SET R7, 7
.SET R8, 8
.SET R9, 9
.SET R10, 10
.SET R11, 11
.SET R12, 12
.SET R13, 13
.SET R14, 14
.SET R15, 15
.SET R16, 16
.SET R17, 17
.SET R18, 18
.SET R19, 19
.SET R20, 20
.SET R21, 21
.SET R22, 22
.SET R23, 23
.SET R24, 24
.SET R25, 25
.SET R26, 26
.SET R27, 27
.SET R28, 28
.SET R29, 29
.SET R30, 30
.SET R31, 31
.SET F0, 0
.SET F1, 1
.SET F2, 2
.SET F3, 3
.SET F4, 4
.SET F5, 5
.SET F6, 6
.SET F7, 7
.SET F8, 8
.SET F9, 9
.SET F10, 10
.SET F11, 11
.SET F12, 12
.SET F13, 13
# GLOBALS ########
.SET MEMTABLE, -512
.SET MEMLIST, -20
.SET CURRFCHUNK, -100
.SET FCHUNKLEFT, -104
.SET EXCEPTSTRUCT, -148
.SET STDOUT, -8
.SET CONOUT, -12
.SET STDIN, -92
.SET STACKBOTTOM, -64
.SET CLIRETURNVAL, -28
.SET STDRAST, -16
.SET MEMPOOL, -120
.SET PV_STR_FMT, -196
.SET EXECBASE, -40
.SET DOSBASE, -44
.SET INTUITIONBASE, -48
.SET GFXBASE, -52
.SET EXCEPTION, -84
.SET EXCEPTIONINFO, -96
.SET PPCCLEANUP, -144
.SET QLARGSAVE, -152
.SET MATHBAS, -200
.SET MATHTRANS, -204
.SET CELLSMEM, -108
.SET FREECELLS, -112
.SET CHUNKSIZE, -116
.SET RANDSEED, -140
.SET FRNDSEEDH, -208
.SET FRNDSEEDL, -212
.SET SETAPEN, -342
.SET SETBPEN, -348
.SET VFPRINTF, -354
# os4
.SET IRAWDOFMT, 204
.SET IALLOCMEM, 104
.SET IFREEMEM, 164
.SET IALLOCPOOLED, 108
.SET IFREEPOOLED, 168
.SET IOPEN, 76
.SET ICLOSE, 80
.SET IREAD, 84
.SET IWRITE, 88
.SET ISETSIGNAL, 288
.SET IVFPRINTF, 324
.SET IMODIFYIDCMP, 156
.SET IREPLYMSG, 336
.SET IWAITPORT, 340
.SET IGETMSG, 324
.SET IDEBUGPRINTF, 748
.SET ILOCK, 112
.SET IEXAMINE, 124
.SET IUNLOCK, 116
.SET ISETAPEN, 284
.SET IMOVE, 216
.SET IDRAW, 220
.SET IWRITEPIXEL, 272
.SET IRECTFILL, 260
.SET ISETRGB32, 640
.SET ISETBPEN, 288
.SET ITEXT, 96
.SET IOPENWINDOWTAGLIST, 472
.SET ICLOSEWINDOW, 104
.SET IOPENSCREENTAGLIST, 480
.SET ICLOSESCREEN, 100
.SET IEXEC, -208
.SET IDOS, -212
.SET IGFX, -216
.SET IINTUI, -220
# Note: seems float values in .set does not work either.
#################################################################
################# MACROS ########################################
#################################################################
.MACRO M_INLINE_NEW
ADDI R3, R3, 8 # add memheader size
STW R3, 12(R1) # save size
.IFDEF _AMIGAOS4_
OR R4, R3, R3
LWZ R3, IEXEC(GLOB)
LWZ R0, IALLOCMEM(R3)
MTCTR R0 # to ctr
ADDI R5, 0, 1<<12 # memf_shared
ORIS R5, R5, 1 # memf_clear
.ELSE # morphos
LWZ R0, EMULCALLDIRECTOS(SYS)
MTCTR R0 # to ctr
STW R3, 0(SYS) # emulhandle.dregs[0] := size
ADDI R3, 0, 1 # memf_public
ORIS R3, R3, 1 # memf_clear
STW R3, 4(SYS) # emulhandle.dregs[1] := flags
LWZ R3, EXECBASE(GLOB)
STW R3, 56(SYS) # emulhandle.aregs[6] := execbase
ADDI R3, 0, ALLOCMEM
.ENDIF
BCTRL # call AllocMem()
OR. R3, R3, R3
BEQ _\@ipnew_end
LWZ R0, MEMLIST(GLOB)
STW R0, 0(R3) # set next
STW R3, MEMLIST(GLOB) # add to list
LWZ R0, 12(R1)
STW R0, 4(R3) # set size
ADDI R3, R3, 8 # skip head
_\@ipnew_end:
.ENDM
.MACRO M_INLINE_DISPOSE
ADDI R3, R3, -8 # get memheader
ADDI R4, GLOB, MEMLIST # adr of memlist var
_\@disposefind:
LWZ R5, 0(R4) # mem
OR. R5, R5, R5
BEQ _\@dispose_end # not found ?
CMPW 0, R5, R3
BEQ _\@disposefound
OR R4, R5, R5
B _\@disposefind
_\@disposefound: # R4:previous, R3, our mem
LWZ R0, 0(R3)
STW R0, 0(R4) # prev.next := this.next
.IFDEF _AMIGAOS4_
OR R4, R3, R3
LWZ R3, IEXEC(GLOB)
LWZ R0, IFREEMEM(R3)
MTCTR R0 # to ctr
LWZ R5, 4(R4) # get size
.ELSE # morphos
LWZ R0, EMULCALLDIRECTOS(SYS)
MTCTR R0 # to linkreg
STW R3, 36(SYS) # emulhandle.a1 := mem
LWZ R3, 4(R3)
STW R3, 0(SYS) # emulhandle.d0 := size
LWZ R0, EXECBASE(GLOB)
STW R0, 56(SYS) # emulhandle.a6 := execbase
ADDI R3, 0, FREEMEM
.ENDIF
BCTRL # call FreeMem()
_\@dispose_end:
.ENDM
.MACRO M_INLINE_RAISE # R3
STW R3, EXCEPTION(GLOB) # set exception global
LWZ R4, EXCEPTSTRUCT(GLOB) # get last exceptstruct
OR. R4, R4, R4
BEQ _\@raise_cleanup
LWZ R0, OLDSTRUCT(R4)
STW R0, EXCEPTSTRUCT(GLOB) # restore old exceptstruct
LWZ R1, HANDLESTACK(R4) # restore stackpointer
LWZ R0, EXCEPTCODE(R4) # get exceptioncode
MTCTR R0
BCTR # jump to handler
_\@raise_cleanup:
STW R3, CLIRETURNVAL(GLOB)
LWZ R0, PPCCLEANUP(GLOB)
MTCTR R0
BCTR # jump to exitcode
.ENDM
.MACRO M_FASTNEW
# we try and alloc from table first, then we try chunk, then we try sys.
P_FASTNEW: # (size:R3) ###############################################
CMPWI R3, 256
BGT _sysalloc # size was bigger than 256, alloc from system instead
ADDI R4, R3, 3
ANDI. R4, R4, 0xFFC
BEQ _fnewerror # size was nil0 = error
_alloc1:
ADDI R7, GLOB, MEMTABLE
LWZX R3, R7, R4
OR. R3, R3, R3 # something in bucket ?
BEQ _alloc2 # no, try chunkspace
LWZ R0, 0(R3) # next
STWX R0, R7, R4 # set to next mem
ADDI R0, 0, 0
STW R0, 0(R3) # clear nextfield
BLR # return
_alloc2:
LWZ R5, FCHUNKLEFT(GLOB)
SUB. R6, R5, R4
BLT _alloc3
STW R6, FCHUNKLEFT(GLOB) # update
LWZ R3, CURRFCHUNK(GLOB)
ADD R0, R3, R4
STW R0, CURRFCHUNK(GLOB)
BLR # return
_alloc3: # need new chunk
STWU R1, -16(R1)
MFLR R0
STW R0, 20(R1)
STW R4, 8(R1) # save size
ADDI R3, 0, FCHUNKSIZE
M_INLINE_NEW
LWZ R4, 8(R1)
LWZ R0, 20(R1)
MTLR R0
ADDI R1, R1, 16
OR. R3, R3, R3
BEQ _fnewerror
ADDI R0, 0, FCHUNKSIZE
SUB R0, R0, R4
STW R0, FCHUNKLEFT(GLOB) # set new chunkleft
ADD R0, R3, R4
STW R0, CURRFCHUNK(GLOB) # set new chunk
BLR # return
_fnewerror:
ADDI R3, 0, "EM"
ORIS R3, R3, "M"
M_INLINE_RAISE
_sysalloc:
STWU R1, -16(R1)
MFLR R0
STW R0, 20(R1)
M_INLINE_NEW
LWZ R0, 20(R1)
MTLR R0
ADDI R1, R1, 16
OR. R3, R3, R3
BEQ _fnewerror
BLR # return
.ENDM
.MACRO M_FASTDISPOSE
P_FASTDISPOSE: # (mem:R3, size:R4) ####################################
OR. R3, R3, R3
BEQ _fd_done # zero pointer !?!
CMPWI R4, 256
BGT _fd_sysfree # size was bigger than 256, free via system instead
ADDI R4, R4, 3
ANDI. R4, R4, 0xFFC
BEQ _fd_done # zero size !?!
ADDI R5, GLOB, MEMTABLE
LWZX R7, R5, R4 # R7 is first mem in bucket, or NIL
STW R7, 0(R3) # set next to the old mem
STWX R3, R5, R4 # install our mem in bucket
SRWI R4, R4, 2 # size in longs
ADDI R4, R4, -2 # sub two longs
OR. R4, R4, R4
BLE _fd_done
MTCTR R4
ADDI R5, 0, 0 # load zero in R5
_fd_clearmem:
STWU R5, 4(R3) # clear long
BDNZ _fd_clearmem
_fd_done:
BLR # return
_fd_sysfree:
STWU R1, -16(R1)
MFLR R0
STW R0, 20(R1)
M_INLINE_DISPOSE
LWZ R0, 20(R1)
MTLR R0
ADDI R1, R1, 16
BLR # return
.ENDM
.MACRO M_NEW
P_NEW: # (size:R3) ################################################
STWU R1, -16(R1)
MFLR R0
STW R0, 20(R1)
M_INLINE_NEW
LWZ R0, 20(R1)
MTLR R0
ADDI R1, R1, 16
BLR # return
.ENDM
.MACRO M_NEWR
P_NEWR: # (size:R3) ################################################
STWU R1, -16(R1)
MFLR R0
STW R0, 20(R1)
M_INLINE_NEW
OR. R3, R3, R3
BNE _ipnrr_end
ADDI R3, 0, "EM"
ORIS R3, R3, "M"
M_INLINE_RAISE
_ipnrr_end:
LWZ R0, 20(R1)
MTLR R0
ADDI R1, R1, 16
BLR # return
.ENDM
.MACRO M_DISPOSE
P_DISPOSE: # (mem:R3) #################################################
STWU R1, -16(R1)
MFLR R0
STW R0, 20(R1)
M_INLINE_DISPOSE
LWZ R0, 20(R1)
MTLR R0
ADDI R1, R1, 16
BLR # return
.ENDM
.MACRO M_STRINGF_OLD
# v44: NEW CALLING CONVENTION !!!
# string:R3, fmtstr:R4, array:R5
# "array" is a perfectly normal longword-array !
# v50: now acts as wrapper for P_STR_FMT
P_STRINGF_OLD: # (estr,fmtstr,varray) ( r3,r4,r5 )
STWU R1, -16(R1)
MFLR R0
STW R0, 20(R1)
STW R3, 8(R1) # save
# call P_STR_FMT
OR R3, R4, R4
OR R4, R5, R5
LWZ R0, PV_STR_FMT(GLOB)
MTCTR R0
BCTRL
# copy string from stackbottom into estr
# check maxlen against len
LWZ R4, 8(R1) # estr
LHZ R5, -4(R4) # maxlen
CMPW 0, R5, R3
BGE $+8
OR R3, R5, R5
OR. R3, R3, R3
BEQ _stringf_finnish
LWZ R5, STACKBOTTOM(GLOB)
ADDI R5, R5, -1
ADDI R4, R4, -1
MTCTR R3
_stringf_copy:
LBZU R0, 1(R5)
STBU R0, 1(R4)
BDNZ _stringf_copy
_stringf_finnish:
OR R4, R3, R3 # return len in r4
LWZ R3, 8(R1) # estr
STH R4, -2(R3) # currlen
ADDI R0, 0, 0
STBX R0, R3, R4 # nilbyte
LWZ R0, 20(R1)
MTLR R0
ADDI R1, R1, 16
BLR
.ENDM
.MACRO M_RAISE
P_RAISE: # exception:R3
M_INLINE_RAISE
.ENDM
.MACRO M_THROW
P_THROW: # exception:R3, exceptioninfo:R4
STW R3, EXCEPTION(GLOB) # set exception global
STW R4, EXCEPTIONINFO(GLOB) # ..
LWZ R4, EXCEPTSTRUCT(GLOB) # get last exceptstruct
OR. R4, R4, R4
BEQ _throw_cleanup
LWZ R0, OLDSTRUCT(R4)
STW R0, EXCEPTSTRUCT(GLOB) # restore old exceptstruct
LWZ R1, HANDLESTACK(R4) # restore stackpointer
LWZ R0, EXCEPTCODE(R4) # get exceptcode
MTCTR R0
BCTR # jump to handler
_throw_cleanup:
STW R3, CLIRETURNVAL(GLOB)
LWZ R0, PPCCLEANUP(GLOB) # get exitcode
MTCTR R0
BCTR # jump to exitcode
.ENDM
.MACRO M_RETHROW
P_RETHROW:
LWZ R3, EXCEPTION(GLOB) # is exception set ?
OR. R3, R3, R3
BEQ _reth_no_
LWZ R4, EXCEPTSTRUCT(GLOB) # get last exceptstruct
OR. R4, R4, R4
BEQ _rethrow_cleanup
LWZ R0, OLDSTRUCT(R4)
STW R0, EXCEPTSTRUCT(GLOB) # restore old exceptstruct
LWZ R1, HANDLESTACK(R4) # restore stackpointer
LWZ R0, EXCEPTCODE(R4) # get exceptcode
MTCTR R0
BCTR # jump to handler
_reth_no_:
BLR # return
_rethrow_cleanup:
STW R3, CLIRETURNVAL(GLOB)
LWZ R0, PPCCLEANUP(GLOB) # get exitcode
MTCTR R0
BCTR # jump to exitcode
.ENDM
.MACRO M_STRCOPY
P_STRCOPY: # estr, str, len=ALL
or r6, r3, r3
rlwinm r5, r5, 0, 1, 31
lhz r7, -4(r3)
cmpw r5, r7
blt _ips_lendone # blt
or r5, r7, r7
_ips_lendone:
addi r3, r3, -1
addi r4, r4, -1
cmpwi r5, 0
beq _ips_nil # beq nil
mtspr 9, r5
_ips_copy:
lbzu r5, 1(r4)
stbu r5, 1(r3)
or. r5, r5, r5
beq _ips_end # beq end
bdnz _ips_copy # bdnz copy
_ips_nil:
addi r5, r0, 0
stbu r5, 1(r3) # nilbyte
_ips_end:
subf r5, r6, r3 # get copylen
sth r5, -2(r6) # set copylen
or r3, r6, r6 # return dest
bclr 20, 0
.ENDM
.MACRO M_STRADD
P_STRADD: # estr, str, len=ALL
or r7, r3, r3 # save dest
rlwinm r5, r5, 0, 1, 31 # mask away high bit
lhz r6, -4(r3) # maxlen
lhz r8, -2(r3) # currlen
subf r6, r8, r6 #maxlen-currlen
cmpw r5, r6
blt _ipsa_lendone # blt
or r5, r6, r6 # trunc len
_ipsa_lendone:
add r6, r3, r8 # dest + currlen
addi r6, r6, -1
addi r4, r4, -1
cmpwi r5, 0
beq _ipsa_nil # beq
mtspr 9, r5
_ipsa_copy:
lbzu r5, 1(r4)
stbu r5, 1(r6)
or. r5, r5, r5
beq _ipsa_end # beq
bdnz _ipsa_copy # bdnz
_ipsa_nil:
addi r5, r0, 0
stbu r5, 1(r6) # nilbyte
_ipsa_end:
subf r5, r7, r6 # get tot len
sth r5, -2(r7) # set tot len
or r3, r7, r7 # return dest
bclr 20, 0
.ENDM
.MACRO M_STRCMP
P_STRCMP: # str1, str2, len=ALL
rlwinm. r5,r5,0,1,31
beq _ipsc_cmp_true
addi r3, r3, -1
addi r4, r4, -1
#addi r5, r5, -1
mtspr 9, r5
_ipsc_cmp:
lbzu r6, 1(r3)
lbzu r7, 1(r4)
cmpw r6, r7
bne _ipsc_cmp_false
or. r6, r6, r7
beq _ipsc_cmp_true
bdnz _ipsc_cmp
_ipsc_cmp_true:
addi r3, r0, -1
bclr 20, 0
_ipsc_cmp_false:
addi r3, r0, 0
bclr 20, 0
.ENDM
.MACRO M_STRLEN
P_STRLEN: # str
addi r4, r3, -1
_ipslen_len:
lbzu r5, 1(r4)
or. r5, r5, r5
bne _ipslen_len
subf r3, r3, r4 # compute len
bclr 20, 0
.ENDM
.MACRO M_TRIMSTR
P_TRIMSTR: # str
lbz r4, 0(r3)
cmpwi r4, 32
bgt _trs_done # bgt done
cmpwi r4, 0
beq _trs_done # beq done
addi r3, r3, 1
b P_TRIMSTR
_trs_done:
bclr 20, 0 # done
.ENDM
.MACRO M_ASTRCOPY
P_ASTRCOPY: # a, s, l=ALL
or r7, r3, r3
cmpwi r5, 0
beq _astr_end # beq end
addi r3, r3, -1
addi r4, r4, -1
addi r5, r5, -1
cmpwi r5, 0
beq _astr_nil # beq nil
mtspr 9, r5
_astr_copy:
lbzu r6, 1(r4)
stbu r6, 1(r3)
cmpwi 0, r6, 0
beq _astr_end # beq end
bdnz _astr_copy # bdnz
_astr_nil:
addi r6, r0, 0
stb r6, 1(r3)
_astr_end:
or r3, r7, r7 # return dest array
bclr 20, 0
.ENDM
.MACRO M_RNDQ
P_RNDQ: # seed
add. r3, r3, r3
bgt _rndq_end
xori r3, r3, 0x2b41
xoris r3, r3, 0x1d87
_rndq_end:
bclr 20, 0
.ENDM
.MACRO M_BOUNDS
P_BOUNDS: # x, a, b
subf r6, r4, r3
srawi r7, r6, 31
neg r6, r6
and r8, r6, r7
add r3, r3, r8
subf r6, r3, r5
srawi r7, r6, 31
andc r8, r6, r7
subf r3, r8, r5
bclr 20, 0
.ENDM
.MACRO M_MIN
P_MIN: # x, y
xoris r5, r4, 0x8000
xoris r6, r3, 0x8000
subfc r6, r6, r5
subfe r5, r5, r5
and r6, r6, r5
add r3, r6, r3
blr
.ENDM
.MACRO M_MAX
P_MAX: # x, y
xoris r5, r4, 0x8000
xoris r6, r3, 0x8000
subfc r6, r6, r5
subfe r5, r5, r5
andc r6, r6, r5
add r3, r6, r3
blr
.ENDM
.MACRO M_ABS
P_ABS: # v
srawi r4,r3,31
add r3,r4,r3
xor r3,r3,r4
bclr 20, 0
.ENDM
.MACRO M_SIGN
P_SIGN: # v
xoris r4, r3, 0x8000
srawi r5, r4, 31
subfze r3, r5
bclr 20, 0
.ENDM
.MACRO M_STRING
# V46: now uses mempool global
# or.. may take a mempool as second arg !
# V49: assumes mempool(r13) exists!
P_STRING: # len,mempool=NIL
stwu r1, -16(r1)
mflr r0
stw r0, 20(r1)
stw r3, 8(r1)
or. r4, r4, r4
bne _string_1
lwz r4, MEMPOOL(GLOB)
_string_1:
addi r3, r3, 20 # size:32,next:32,max:16,len:16,nil:8
andi. r3, r3, 0xfff8
.IFDEF _AMIGAOS4_
or r5, r3, r3
lwz r3, IEXEC(GLOB)
lwz r0, IALLOCPOOLED(R3)
.ELSE # morphos
stw r3, 12(r1)
stw r3, 0(r2)
stw r4, 32(r2) # pool
lwz r0, EXECBASE(GLOB)
stw r0, 56(r2)
lwz r0, 100(r2)
addi r3, 0, ALLOCPOOLED
.ENDIF
mtctr r0
bctrl
or. r3, r3, r3
beq _string_end
lwz r4, 12(r1)
stw r4, 0(r3)
addi r0, 0, 0
stw r0, 4(r3) # clear link
lwz r4, 8(r1) # len
slwi r4, r4, 16
stw r4, 8(r3) # maxlen,currlen
addi r3, r3, 12
stb r0, 0(r3) # nilterm
_string_end:
lwz r0, 20(r1)
mtlr r0
addi r1, r1, 16
blr
.ENDM
.MACRO M_LIST
# V46: now uses mempool global
# or.. may take a mempool as second arg !
P_LIST: # len:r3, mempool=NIL:r4
stwu r1, -16(r1)
mflr r0
stw r0, 20(r1)
stw r3, 8(r1)
or. r4, r4, r4
bne _list_1
lwz r4, MEMPOOL(GLOB)
_list_1:
slwi r3, r3, 2 # * 4
addi r3, r3, 12 # size:32,next:32,max:16,len:16
.IFDEF _AMIGAOS4_
or r5, r3, r3
lwz r3, IEXEC(GLOB)
lwz r0, IALLOCPOOLED(R3)
.ELSE # morphos
stw r3, 12(r1)
stw r3, 0(r2)
stw r4, 32(r2) # pool
lwz r0, EXECBASE(GLOB)
stw r0, 56(r2)
lwz r0, 100(r2)
addi r3, 0, ALLOCPOOLED
.ENDIF
mtctr r0
bctrl
or. r3, r3, r3
beq _list_end
lwz r4, 12(r1)
stw r4, 0(r3)
addi r0, 0, 0
stw r0, 4(r3) # clear link
lwz r4, 8(r1) # len
slwi r4, r4, 16
stw r4, 8(r3) # maxlen,currlen
addi r3, r3, 12
_list_end:
lwz r0, 20(r1)
mtlr r0
addi r1, r1, 16
blr
.ENDM
.MACRO M_WRITEF_OLD
P_WRITEF_OLD: # fstr:r3, args:r4
stwu r1, -16(r1)
mflr r0
stw r0, 20(r1)
lwz r5, STDOUT(GLOB)
or. r5, r5, r5
beq _writef_con
_writef_doit:
lwz r0, PV_STR_FMT(GLOB)
mtctr r0
bctrl # Str fmt, result at stackbottom, len in r3
stw r3, 8(r1) # save len
lwz r0, STDOUT(GLOB)
stw r0, 4(SYS) # d1
lwz r0, STACKBOTTOM(GLOB)
stw r0, 8(SYS) # d2
stw r3, 12(SYS) # d3
lwz r0, DOSBASE(GLOB)
stw r0, 56(SYS) # a6
addi r3, r0, -48
lwz r0, EMULCALLDIRECTOS(SYS)
mtctr r0
bctrl # Write()
lwz r3, 8(r1) # return len
_writef_end:
lwz r0, 20(r1)
mtlr r0
addi r1, r1, 16
blr
_writef_con:
stw r3, 8(r1)
stw r4, 12(r1)
bl $+28
.byte "CON:///100/Output/CLOSE",0 # 24 bytes
mflr r3
stw r3, 4(SYS) # d1
addi r3, r0, 1006
stw r3, 8(SYS) # d2
lwz r0, DOSBASE(GLOB)
stw r0, 56(SYS) # a6