; Assembly code emitted by HLA compiler
; Version 1.106 build 21507 (prototype)
; HLA compiler written by Randall Hyde
; FASM compatible output

  format MS COFF

ExceptionPtr__hla_ equ fs:0


offset32 equ  
ptr equ  

macro global [symbol]
{
 local isextrn
 if defined symbol & ~ defined isextrn
   public symbol
 else if used symbol
   extrn symbol
   isextrn = 1
 end if
}

macro global2 [symbol,type]
{
 local isextrn
 if defined symbol & ~ defined isextrn
   public symbol
 else if used symbol
   extrn symbol:type
   isextrn = 1
 end if
}







  section '.text' code readable executable align 16


        public     QuitMain__hla_
        public     DfltExHndlr__hla_
        public     _HLAMain
        public     HWexcept__hla_
        public     start
        global    MEM_SIZE,near32
        global    STDOUT_NEWLN,near32
        global    DefaultExceptionHandler__hla_,near32
        global    abstract__hla_,near32
        global    HardwareException__hla_,near32
        global    BuildExcepts__hla_,near32
        global    STDOUT_PUTS,near32
        global    Raise__hla_,near32
        global    BLOB_LENGTH,near32
        global    shortDfltExcept__hla_,near32






  section '.data' data readable writeable align 16

        global2    MainPgmCoroutine__hla_,byte
        global2    __imp__MessageBoxA@16,dword
        global2    __imp__ExitProcess@4,dword
        align      (4)
 dd 0ffffffffh




  section '.text' code readable executable align 16


        align      (4)
len__hla_1883 dd         0ch
        dd         0ch
 label str__hla_1883 byte
 db "Hello,world!"
 db 0

 db 0
 db 0
 db 0



;/* HWexcept__hla_ gets called when Windows raises the exception. */


; procedure HWexcept__hla_

HWexcept__hla_:
        jmp        HardwareException__hla_
;HWexcept__hla_ endp


; procedure DfltExHndlr__hla_

DfltExHndlr__hla_:
        jmp        DefaultExceptionHandler__hla_
;DfltExHndlr__hla_ endp




; procedure _HLAMain

_HLAMain:


; procedure start

start:
;start   endp

        call       BuildExcepts__hla_
        db         06ah
        db         00h
        db         089h
        db         0e5h
        db         055h


        db         068h
        dd         str__hla_1883
        call       STDOUT_PUTS
        call       STDOUT_NEWLN
QuitMain__hla_:
        db         06ah
        db         00h
        db         0ffh
        db         015h
        dd         __imp__ExitProcess@4
;_HLAMain endp