From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 11 Feb 2019 11:49:19 +0100
Subject: Add source files from Michael

---
 system/shard-x86-at/7/src/MACROS.ASM | 80 ++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 system/shard-x86-at/7/src/MACROS.ASM

(limited to 'system/shard-x86-at/7/src/MACROS.ASM')

diff --git a/system/shard-x86-at/7/src/MACROS.ASM b/system/shard-x86-at/7/src/MACROS.ASM
new file mode 100644
index 0000000..710ef4c
--- /dev/null
+++ b/system/shard-x86-at/7/src/MACROS.ASM
@@ -0,0 +1,80 @@
+;*************************************************************************
+;*======= Copyright (C) 1985,86 Martin Schoenbeck, Spenge ===============*
+;*                                                                       *
+;*         M A C R O s   fuer   E U M E L   -   U R L A D E R            *
+;*                                                                       *
+;*************************************************************************
+
+   .XLIST
+on  equ  0ffh
+off  equ  0
+
+test  equ  off
+
+deft macro text 
+local textend
+ db (textend-$-1)
+ db &text
+textend label byte
+ endm
+
+ke  macro text
+  local teend
+  call info
+  jmp teend
+  db '&text'
+teend:
+  endm
+
+trcpas  macro  name
+  local trcfield,endtrc
+  if trcswitch
+  push hl
+  ld hl,(trcfield)
+  inc hl
+  ld (trcfield),hl
+  pop hl
+  jr endtrc
+  db '&name'
+trcfield:
+  dw 0
+endtrc:
+  endif
+  endm
+
+
+ifz macro op
+local false
+     jnz false
+     op
+false:
+     endm
+
+ifnz macro op
+local false
+     jz false
+     op
+false:
+     endm
+
+ifc macro op
+local false
+     jnc false
+     op
+false:
+     endm
+
+ifnc macro op
+local false
+     jc false
+     op
+false:
+     endm
+
+popff macro
+     push cs
+     call x_iret
+     endm
+
+  .LIST
+
\ No newline at end of file
-- 
cgit v1.2.3