From 333b605b2afd472b823aeda0adf0e8b1ea9843c0 Mon Sep 17 00:00:00 2001
From: fishsoupisgood <github@madingley.org>
Date: Mon, 27 May 2019 02:41:51 +0100
Subject: initial commit from asl-1.41r8.tar.gz

---
 tests/t_fl90/macros.inc | 57 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 tests/t_fl90/macros.inc

(limited to 'tests/t_fl90/macros.inc')

diff --git a/tests/t_fl90/macros.inc b/tests/t_fl90/macros.inc
new file mode 100644
index 0000000..d949ddc
--- /dev/null
+++ b/tests/t_fl90/macros.inc
@@ -0,0 +1,57 @@
+; MACROS.INC
+;******************************************************************************
+;* überall gebrauchte Makros                                                  *
+;*                                                                            *
+;* Alfred Arnold, Oktober 1993                                                *
+;******************************************************************************
+
+proc            macro   name,{NoExpand} ; Prozedureintritt
+                section name
+                forward LocalSize       ; lokal reservierter Speicher auf Stack
+LocalSize       eval    0
+                public  name
+name            label   $
+                endm
+
+subproc         macro   name,{NoExpand} ; Prozedureintritt für private Routine
+                section name
+                forward LocalSize       ; lokal reservierter Speicher auf Stack
+LocalSize       eval    0
+                public  name:Parent
+name            label   $
+                endm
+
+endp            macro   name,{NoExpand} ; Prozeduraustritt
+LocalSize       eval    0-LocalSize     ; damit man's im Listing lesen kann
+                endsection name
+                endm
+
+link            macro   reg,count,{NoExpand} ; Stack-Rahmen einrichten
+                push    reg             ; alten Basepointer retten
+                ld      reg,sp          ; neuen aufbauen
+                if      count<>0
+                 add    sp,count        ; Platz auf Stack reservieren
+                endif
+                endm
+
+unlk            macro   reg,{NoExpand}  ; Stack-Rahmen abbauen
+                ld      sp,reg          ; Speicherreservierung zurücknehmen
+                pop     reg             ; alten Basepointer zurück
+                endm
+
+retd            macro   dist,{NoExpand} ; Return and Deallocate
+                if      dist<>0
+                 push   hl              ; Arbeitsregister retten
+                 ld     hl,(sp+2)       ; Rücksprungadresse umkopieren
+                 ld     (sp+2+dist),hl
+                 ld     hl,(sp)         ; Arbeitsregister zurück
+                 add    sp,2+dist       ; Stack aufräumen
+                endif
+                ret
+                endm
+
+DefLocal        macro   Name,Size,{NoExpand} ; eine lokale Variable definieren
+LocalSize       eval    LocalSize-Size  ; zählt lok. reservierten Speicher
+Name            equ     LocalSize       ; liegt an neuem unteren Ende des Stackrahmens
+                endm
+
-- 
cgit v1.2.3