Spiff up the demo game source a little bit.
Chris Pressey
7 years ago
| 0 | // **************************** | |
| 1 | // * Demo Game for SixtyPical * | |
| 2 | // **************************** | |
| 3 | ||
| 4 | // ---------------------------------------------------------------- | |
| 5 | // Variables | |
| 6 | // ---------------------------------------------------------------- | |
| 7 | ||
| 0 | 8 | buffer[2048] screen @ 1024 |
| 1 | 9 | byte joy2 @ $dc00 |
| 2 | 10 | |
| 26 | 34 | inputs joy2, pos |
| 27 | 35 | outputs delta, pos, screen |
| 28 | 36 | trashes a, x, y, c, z, n, v, ptr |
| 37 | ||
| 38 | // (This one is less fibby.) | |
| 39 | ||
| 40 | vector dispatch_game_state | |
| 41 | inputs joy2, pos | |
| 42 | outputs delta, pos, screen | |
| 43 | trashes a, x, y, c, z, n, v, ptr | |
| 44 | ||
| 45 | // ---------------------------------------------------------------- | |
| 46 | // Routines | |
| 47 | // ---------------------------------------------------------------- | |
| 29 | 48 | |
| 30 | 49 | routine read_stick |
| 31 | 50 | inputs joy2 |
| 60 | 79 | } |
| 61 | 80 | } |
| 62 | 81 | |
| 63 | routine our_cinv | |
| 82 | // ---------------------------------------------------------------- | |
| 83 | // Game States | |
| 84 | // ---------------------------------------------------------------- | |
| 85 | ||
| 86 | routine game_state_play | |
| 64 | 87 | inputs joy2, pos |
| 65 | 88 | outputs delta, pos, screen |
| 66 | 89 | trashes a, x, y, c, z, n, v, ptr |
| 80 | 103 | goto save_cinv |
| 81 | 104 | } |
| 82 | 105 | |
| 106 | // ************************* | |
| 107 | // * Main Game Loop Driver * | |
| 108 | // ************************* | |
| 109 | ||
| 110 | routine our_cinv | |
| 111 | inputs joy2, pos | |
| 112 | outputs delta, pos, screen | |
| 113 | trashes a, x, y, c, z, n, v, ptr | |
| 114 | { | |
| 115 | goto dispatch_game_state | |
| 116 | } | |
| 117 | ||
| 83 | 118 | routine main |
| 84 | 119 | inputs cinv |
| 85 | outputs cinv, save_cinv, pos | |
| 120 | outputs cinv, save_cinv, pos, dispatch_game_state | |
| 86 | 121 | trashes a, n, z |
| 87 | 122 | { |
| 123 | // jsr clear_screen | |
| 124 | copy game_state_play, dispatch_game_state | |
| 125 | ||
| 88 | 126 | copy word 0, pos |
| 89 | 127 | with interrupts off { |
| 90 | 128 | copy cinv, save_cinv |
| 91 | 129 | copy our_cinv, cinv |
| 92 | 130 | } |
| 131 | // repeat forever {} | |
| 93 | 132 | } |