all repos — xrxs @ c35d47c8b829529347e70f9d81d8a13fb99d3943

experimental networked application/game server with 9p

uxn-client/xrxs.tal (raw)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
( utility macros )

%+  { ADD } %-   { SUB }  %*  { MUL } %/   { DIV }  
%<  { LTH } %>   { GTH }  %=  { EQU } %!   { NEQ } 
%++ { ADD2 } %-- { SUB2 } %** { MUL2 } %// { DIV2 } 
%<< { LTH2 } %>> { GTH2 } %== { EQU2 } %!! { NEQ2 }  

%INC-X { .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2 } ( -- )
%INC-Y { .Screen/y DEI2 #0008 ADD2 .Screen/y DEO2 } ( -- )

%CENTER-X { .Screen/width DEI2 #01 SFT2 }
%CENTER-Y { .Screen/height DEI2 #01 SFT2 }

%MOD { DIVk MUL SUB }
%MOD2 { DIV2k MUL2 SUB2 }

%NEXT-TILE { DUP2 #0010 ADD2 }

%DEBUG  { ;print-hex JSR2 #0a .Console/write DEO }
%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }

%RTN { JMP2r }

( devices )

|00 @System     [ &vector $2 &wst      $1 &rst    $1 &pad   $4 &r      $2 &g      $2 &b    $2 &debug  $1 &halt $1 ]
|10 @Console    [ &vector $2 &read     $1 &pad    $5 &write $1 &error  $1 ]
|20 @Screen     [ &vector $2 &width    $2 &height $2 &pad   $2 &x      $2 &y      $2 &addr $2 &pixel  $1 &sprite $1 ]
|30 @Audio0     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|40 @Audio1     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|50 @Audio2     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|60 @Audio3     [ &vector $2 &position $2 &output $1 &pad   $3 &adsr   $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|80 @Controller [ &vector $2 &button   $1 &key    $1 ]
|90 @Mouse      [ &vector $2 &x        $2 &y      $2 &state $1 &wheel  $1 ]
|a0 @File       [ &vector $2 &success  $2 &offset $2 &pad   $2 &name   $2 &length $2 &load $2 &save   $2 ]
|b0 @DateTime   [ &year   $2 &month    $1 &day    $1 &hour  $1 &minute $1 &second $1 &dotw $1 &doty   $2 &isdst $1 ]

( variables )

|0000

@state $1
@cart $64
@realm $64

( program )

|0100 ( -> )

	( theme ) 
	#02c1 .System/r DEO2 
	#02cd .System/g DEO2 
	#02cb .System/b DEO2

	;spritesheet .File/name DEO2
	#0100 .File/length DEO2
	
	#0000 .File/offset DEO2
	;uxnlogo .File/load DEO2
  
  #0200 .File/offset DEO2
  ;xrxslogo .File/load DEO2

	;draw-uxn-logo JSR2
	;draw-xrxs-logo JSR2
BRK

@draw-uxn-logo ( -> )

  CENTER-X #0020 SUB2 .Screen/x DEO2
  CENTER-Y #0010 SUB2 .Screen/y DEO2
  
  #0100 #0000 &while EQU2k ,&end JCN
    DUP2 ;uxnlogo ADD2 .Screen/addr DEO2
    #81 .Screen/sprite DEO INC-X
    
    NEXT-TILE #0040 MOD2 #0000 NEQ2 ,&no-inc-y JCN
      CENTER-X #0020 SUB2 .Screen/x DEO2
      INC-Y
    &no-inc-y
  #0010 ADD2 ,&while JMP &end POP2 POP2
  
RTN

@draw-xrxs-logo ( -> )

  CENTER-X .Screen/x DEO2
  CENTER-Y #0010 SUB2 .Screen/y DEO2
  
  #0100 #0000 &while EQU2k ,&end JCN
    DUP2 ;xrxslogo ADD2 .Screen/addr DEO2
    #81 .Screen/sprite DEO INC-X
    
    NEXT-TILE #0040 MOD2 #0000 NEQ2 ,&no-inc-y JCN
      CENTER-X .Screen/x DEO2
      INC-Y
    &no-inc-y
  #0010 ADD2 ,&while JMP &end POP2 POP2
  
RTN

( constants )
@spritesheet "xrxs.chr 00

( sprites )
@uxnlogo $128
@xrxslogo $128