;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; THIS FILE IS USED TO TEST THE C FUNCTION CALL IN ASM FILES                 ;
;       THE HEAD IS PLACED IN TESTASM.HD                                     ;
;       THE TAIL IS PLACED IN TESTASM.TL                                     ;
; THIS PROGRAM IS DERIVED FROM THE EXAMPLE OF 'DLMS'                         ;
;       AND THE RESULT IS THE SAME
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	.mmregs

        ; HEAD
        .INCLUDE        "TESTASM.HD"

        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        ; DATA SEGMENT                ;
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        .DATA

        .GLOBAL _X
_X      .WORD   04000H, 02000H, 01000H, 00800H, 00400H, 00200H, 00100H, 00080H
        .WORD   00040H, 00020H, 00010H, 00008H, 00004H, 00002H, 00001H, 00000H
        .WORD   0FFFFH, 0FFFEH, 0FFFCH, 0FFF8H, 0FFF0H, 0FFE0H, 0FFC0H, 0FF80H
        .WORD   0FF00H, 0FE00H, 0FC00H, 0F800H, 0F000H, 0E000H, 0C000H, 08000H

        .GLOBAL _DES
_DES    .WORD   02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H
        .WORD   02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H
        .WORD   02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H
        .WORD   02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H, 02000H

        .GLOBAL _DBUFFER
_DBUFFER .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
         .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
         .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
         .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H

        .GLOBAL _H
_H      .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        
        .GLOBAL _R
_R      .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        .WORD   00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H, 00000H
        
        .GLOBAL _DP   
        .BSS    _DP,    1

        .GLOBAL _OFLAG
        .BSS    _OFLAG, 1

        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        ; TEXT SEGMENT                ;
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        .TEXT

INIT:   LD      #0, ARP
        STM     #00280H, SP             ; STACK POINTER

        RSBX    C16
        RSBX    CMPT
        RSBX    FRCT

        ST      #_DBUFFER, *(_DP)

        ST      #20,*SP(6)
        ST      #12,*SP(5)
        ST      #4096,*SP(4)
        ST      #_DES,*SP(3)
        ST      #_DP,*SP(2)
        ST      #_R,*SP(1)
        ST      #_H,*SP(0)
        LD      #_X,A
        .REF    _dlms
        CALL    #_dlms
        LD      A,A
        STL     A,*(_OFLAG)
                  
WAIT:   B       WAIT

        ; TAIL
        .INCLUDE        "TESTASM.TL"