|
|
1.1 root 1: .data
2: .set Sysval,0x0071e700
3: .text
4: .def Point; .scl 10; .type 010; .size 4; .endef
5: .def x; .val 0; .scl 8; .type 03; .endef
6: .def y; .val 2; .scl 8; .type 03; .endef
7: .def .eos; .val 4; .scl 102; .tag Point; .size 4; .endef
8: .data
9: .def Point; .scl 13; .type 010; .tag Point; .size 4; .endef
10: .text
11: .def Rectangl; .scl 10; .type 010; .size 8; .endef
12: .def origin; .val 0; .scl 8; .type 010; .tag Point; .size 4; .endef
13: .def corner; .val 4; .scl 8; .type 010; .tag Point; .size 4; .endef
14: .def .eos; .val 8; .scl 102; .tag Rectangl; .size 8; .endef
15: .data
16: .def Rectangl; .scl 13; .type 010; .tag Rectangl; .size 8; .endef
17: .text
18: .def Bitmap; .scl 10; .type 010; .size 20; .endef
19: .def base; .val 0; .scl 8; .type 024; .endef
20: .def width; .val 4; .scl 8; .type 016; .endef
21: .def rect; .val 8; .scl 8; .type 010; .tag Rectangl; .size 8; .endef
22: .def _null; .val 16; .scl 8; .type 022; .endef
23: .def .eos; .val 20; .scl 102; .tag Bitmap; .size 20; .endef
24: .data
25: .def Bitmap; .scl 13; .type 010; .tag Bitmap; .size 20; .endef
26: .text
27: .def Mouse; .scl 10; .type 010; .size 8; .endef
28: .def xy; .val 0; .scl 8; .type 010; .tag Point; .size 4; .endef
29: .def buttons; .val 8; .scl 8; .type 03; .endef
30: .def .eos; .val 12; .scl 102; .tag Mouse; .size 12; .endef
31: .data
32: .def mouse; .val mouse; .scl 2; .type 010; .tag Mouse; .size 12; .endef
33: .def Drect; .val Drect; .scl 2; .type 010; .tag Rectangl; .size 8; .endef
34: .def Jdisplayp; .val Jdisplayp; .scl 2; .type 030; .tag Bitmap; .size 20; .endef
35:
36: .globl Drect
37: Drect: .word 16:0, 16:0 # Drect.origin
38: .word 16:0, 16:0 # Drect.corner
39:
40: .globl Jdisplayp
41: Jdisplayp: .word 0
42:
43: argc: .word 0 # not global
44:
45: argv: .word 0 # not global
46:
47: .globl mouse
48: mouse: .word 16:0, 16:0 # mouse.jxy
49: .word 16:0, 16:0 # mouse.xy
50: .half 0 # mouse.buttons
51:
52: .text
53: .globl _start
54: .align 8
55: _start: SAVE %r3 # easy way to init save area on stack
56: movaw Sysval,%r8 # base of the routine pointers
57: PUSHW argc # push args to main
58: PUSHW argv #
59: call &2,main # main(argc,argv);
60: call &0,*(17*4)(%r8) # Uexit(); execs windowstart
61: # RESTORE %r3 # only if joff needs it
62: # RET # same here
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.