learn: record definition

src/record.asm

@@ -0,0 +1,213 @@
+; Assembly code emitted by HLA compiler
+; Version 2.16 build 4413 (prototype)
+; HLA compiler written by Randall Hyde
+; NASM compatible output
+
+ bits 32
+
+%define ExceptionPtr__hla_ [dword fs:0]
+
+
+        global     QuitMain__hla_
+        global     DfltExHndlr__hla_
+        global     _HLAMain
+        global     HWexcept__hla_
+        global     start
+
+
+section  .text code align=16
+
+
+        extern     STDOUT_PUTI32
+        extern     STDOUT_NEWLN
+        extern     DefaultExceptionHandler__hla_
+        extern     abstract__hla_
+        extern     HardwareException__hla_
+        extern     BuildExcepts__hla_
+        extern     STDOUT_PUTS
+        extern     Raise__hla_
+        extern     shortDfltExcept__hla_
+
+
+
+
+
+
+section  .text 
+
+
+
+
+;/* 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:
+ nop
+
+
+; procedure start
+
+start:
+;start   endp
+
+        call       BuildExcepts__hla_
+;       push dword 0
+        db         06ah ; 
+        db         00h ; 
+;       push        ebp
+        db         055h ; 
+;       push        ebp
+        db         055h ; 
+;        lea        ebp, [esp+4] 
+        db         08dh ; 
+        db         06ch ; 
+        db         024h ; 
+        db         04h ; 
+
+
+;       push strict dword str__hla_1889
+        db         068h ; 
+        dd         str__hla_1889
+        call       STDOUT_PUTS
+;       push strict dword str__hla_1890
+        db         068h ; 
+        dd         str__hla_1890
+        call       STDOUT_PUTS
+;       push        dword [Display__hla_1885]
+        db         0ffh ; 
+        db         035h ; 
+        dd         Display__hla_1885
+        call       STDOUT_PUTI32
+;       push strict dword str__hla_1891
+        db         068h ; 
+        dd         str__hla_1891
+        call       STDOUT_PUTS
+;       push        dword [Display__hla_1885+4]
+        db         0ffh ; 
+        db         035h ; 
+        dd         (Display__hla_1885+4)
+        call       STDOUT_PUTI32
+;       push strict dword str__hla_1892
+        db         068h ; 
+        dd         str__hla_1892
+        call       STDOUT_PUTS
+;       push        dword [Display__hla_1885+8]
+        db         0ffh ; 
+        db         035h ; 
+        dd         (Display__hla_1885+8)
+        call       STDOUT_PUTI32
+        call       STDOUT_NEWLN
+;       push strict dword str__hla_1893
+        db         068h ; 
+        dd         str__hla_1893
+        call       STDOUT_PUTS
+;       push        dword [Display__hla_1885+12]
+        db         0ffh ; 
+        db         035h ; 
+        dd         (Display__hla_1885+12)
+        call       STDOUT_PUTI32
+QuitMain__hla_:
+;       push dword 0
+        db         06ah ; 
+        db         00h ; 
+;        call       [__imp__ExitProcess@4]
+        db         0ffh ; 
+        db         015h ; 
+        dd         __imp__ExitProcess@4
+;_HLAMain endp
+
+
+
+
+
+
+
+
+
+section  .text 
+
+
+        align      (4)
+len__hla_1889 dd         0eh
+        dd         0eh
+str__hla_1889:
+ db "Display point:"
+ db 0
+
+ db 0
+
+        align      (4)
+len__hla_1890 dd         05h
+        dd         05h
+str__hla_1890:
+ db " x = "
+ db 0
+
+ db 0
+ db 0
+
+        align      (4)
+len__hla_1891 dd         05h
+        dd         05h
+str__hla_1891:
+ db " y = "
+ db 0
+
+ db 0
+ db 0
+
+        align      (4)
+len__hla_1892 dd         05h
+        dd         05h
+str__hla_1892:
+ db " z = "
+ db 0
+
+ db 0
+ db 0
+
+        align      (4)
+len__hla_1893 dd         0fh
+        dd         0fh
+str__hla_1893:
+ db "Display color: "
+ db 0
+
+
+
+
+
+section  .data data align=16
+
+        extern     MainPgmCoroutine__hla_
+        extern     __imp__MessageBoxA@16
+        extern     __imp__ExitProcess@4
+        align      (4)
+Display__hla_1885:
+        dd         00h
+        dd         01h
+        dd         02h
+        dd         0ah
+
+
+
+
+

src/record.hla

@@ -0,0 +1,28 @@
+program RecordDemo;
+#include("stdlib.hhf")
+
+type
+    Point: record
+        x: int32;
+        y: int32;
+        z: int32;
+    endrecord;
+
+    Pixel: record
+        pt: Point;
+        color: dword;
+    endrecord;
+
+static
+    Display: Pixel := Pixel:[Point:[0, 1, 2], 10];
+begin RecordDemo;
+    stdout.put(
+        "Display point:", 
+        " x = ", Display.pt.x, 
+        " y = ", Display.pt.y,
+        " z = ", Display.pt.z,
+        nl
+    );
+
+    stdout.put("Display color: ", (type int32 Display.color));
+end RecordDemo;