;*************  GEMDOS  **************
 NOLIST
TERM:MACRO
 CLR -(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
CONIN:MACRO
 MOVE #1,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
CONOUT:MACRO $\1
 MOVE \1,-(SP)
 MOVE #2,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
AUXIN:MACRO
 MOVE #3,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
AUXOUT:MACRO $\1
 MOVE \1,-(SP)
 MOVE #4,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
PRTOUT:MACRO $\1
 MOVE \1,-(SP)
 MOVE #5,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
RAWCONIO:MACRO $\1
 MOVE \1,-(SP)
 MOVE #6,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
CONIN_WE:MACRO
 MOVE #7,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
PRINTLINE:MACRO $\1
 PEA \1
 MOVE #9,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
READLINE:MACRO $\1
 PEA \1
 MOVE #10,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
CONSTAT:MACRO
 MOVE #$B,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
SETDRV:MACRO $\1
 MOVE \1,-(SP)
 MOVE #$E,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
CONOSTAT:MACRO
 MOVE #$10,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
PRTOSTAT:MACRO
 MOVE #$11,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
AUXISTAT:MACRO
 MOVE #$12,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
AUXOSTAT:MACRO
 MOVE #$13,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
CURDRV:MACRO
 MOVE #$19,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
SETDTA:MACRO $\1
 PEA \1
 MOVE #$1A,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
SUPER:MACRO $\1
 PEA \1
 MOVE #$20,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
GET_DATE:MACRO
 MOVE #$2A,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
SET_DATE:MACRO $\1
 MOVE \1,-(SP)
 MOVE #$2B,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
GET_TIME:MACRO
 MOVE #$2C,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
SET_TIME:MACRO $\1
 MOVE \1,-(SP)
 MOVE #$2D,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
GETDTA:MACRO
 MOVE #$2F,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
GETVNR:MACRO
 MOVE #$30,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
KEEPPROC:MACRO $\1,$\2
 MOVE \1,-(SP)
 MOVE.L \2,-(SP)
 MOVE #$31,-(SP)
 TRAP #1
 ADDQ.L #8,SP
 ENDM
GETDFREE:MACRO $\1,$\2
 MOVE \1,-(SP)
 PEA \2
 MOVE #$36,-(SP)
 TRAP #1
 ADDQ.L #8,SP
 ENDM
MKDIR:MACRO $\1
 PEA \1
 MOVE #$39,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
RMDIR:MACRO $\1
 PEA \1
 MOVE #$3A,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
CHDIR:MACRO $\1
 PEA \1
 MOVE #$3B,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
CREATE:MACRO $\1,$\2
 MOVE \1,-(SP)
 PEA \2
 MOVE #$3C,-(SP)
 TRAP #1
 ADDQ.L #8,SP
 ENDM
OPEN:MACRO $\1,$\2
 MOVE \1,-(SP)
 PEA \2
 MOVE #$3D,-(SP)
 TRAP #1
 ADDQ.L #8,SP
 ENDM
CLOSE:MACRO $\1
 MOVE \1,-(SP)
 MOVE #$3E,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
READ:MACRO $\1,$\2,$\3
 PEA \1
 MOVE.L \2,-(SP)
 MOVE \3,-(SP)
 MOVE #$3F,-(SP)
 TRAP #1
 ADD #12,SP
 ENDM
WRITE:MACRO $\1,$\2,$\3
 PEA \1
 MOVE.L \2,-(SP)
 MOVE \3,-(SP)
 MOVE #$40,-(SP)
 TRAP #1
 ADD #12,SP
 ENDM
UNLINK:MACRO $\1
 PEA \1
 MOVE #$41,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
LSEEK:MACRO $\1,$\2,$\3
 MOVE \1,-(SP)
 MOVE \2,-(SP)
 MOVE.L \3,-(SP)
 MOVE #$42,-(SP)
 TRAP #1
 ADD #10,SP
 ENDM
CHMOD:MACRO $\1,$\2,$\3
 MOVE \1,-(SP)
 MOVE \2,-(SP)
 PEA \3
 MOVE #$43,-(SP)
 TRAP #1
 ADD #10,SP
 ENDM
DUP:MACRO $\1
 MOVE \1,-(SP)
 MOVE #$45,-(SP)
 TRAP #1
 ADDQ.L #4,SP
 ENDM
FORCE:MACRO $\1,$\2
 MOVE \1,-(SP)
 MOVE \2,-(SP)
 MOVE #$46,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
GETDIR:MACRO $\1,$\2
 MOVE \1,-(SP)
 PEA \2
 MOVE #$47,-(SP)
 TRAP #1
 ADDQ.L #8,SP
 ENDM
MALLOC:MACRO $\1
 MOVE.L \1,-(SP)
 MOVE #$48,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
MFREE:MACRO $\1
 PEA \1
 MOVE #$49,-(SP)
 TRAP #1
 ADDQ.L #6,SP
 ENDM
SETBLOCK:MACRO $\1,$\2
 MOVE.L \1,-(SP)
 PEA \2
 CLR -(SP)
 MOVE #$4A,-(SP)
 TRAP #1
 ADD #12,SP
 ENDM
EXEC:MACRO $\1,$\2,$\3,$\4
 PEA \1
 PEA \2
 PEA \3
 MOVE \4,-(SP)
 MOVE #$4B,-(SP)
 TRAP #1
 ADD #16,SP
 ENDM
TERM_2:MACRO $\1
 MOVE \1,-(SP)
 MOVE #$4C,-(SP)
 TRAP #1
 ENDM
SFIRST:MACRO $\1,$\2
 MOVE \1,-(SP)
 PEA \2
 MOVE #$4E,-(SP)
 TRAP #1
 ADDQ.L #8,SP
 ENDM
SNEXT:MACRO
 MOVE #$4F,-(SP)
 TRAP #1
 ADDQ.L #2,SP
 ENDM
RENAME:MACRO $\1,$\2
 PEA \1
 PEA \2
 CLR -(SP)
 MOVE #$56,-(SP)
 TRAP #1
 ADD #12,SP
 ENDM
GSDTOF:MACRO $\1,$\2,$\3
 MOVE \1,-(SP)
 MOVE \2,-(SP)
 PEA \3
 MOVE #$57,-(SP)
 TRAP #1
 ADD #10,SP
 ENDM
 LIST
 END