|
|
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.