https://dateipfa.de/.Public/denial/imag ... lyDude.jpgAthlor wrote:It's always interesting to see another's interpretation. Size was my priority and have since thought of a couple things I would have changed on mine. But what would be really cool now is to get an assembly dude to do a version.
This data loader writes the executable to disc:
Code: Select all
10 REM ** MAZE
11 OPEN2,8,2,"MAZE.PRG,P,W":FORT=1TO202:READA:PRINT#2,CHR$(A);:NEXT:CLOSE2:END
12 DATA1,16,12,16,216,7,158,32,52,49,49,48,0,0,0,169,45,133,251,169,30,133,252
13 DATA169,0,133,189,169,147,32,210,255,169,13,32,210,255,160,21,169,18,32,210
14 DATA255,169,32,162,21,32,210,255,202,208,250,169,13,32,210,255,136,208,233
15 DATA169,4,141,45,30,169,19,32,210,255,160,0,166,189,232,134,189,189,0,192,41
16 DATA3,133,155,133,156,166,155,24,165,251,125,197,16,133,253,165,252,125,193
17 DATA16,133,254,177,253,201,160,208,34,165,155,145,253,24,165,251,125,189,16
18 DATA133,251,165,252,125,193,16,133,252,169,32,145,251,165,253,133,251,165
19 DATA254,133,252,76,73,16,232,138,41,3,133,155,197,156,208,189,177,251,170
20 DATA169,32,145,251,224,4,176,18,56,165,251,253,197,16,133,251,165,252,253
21 DATA193,16,133,252,76,73,16,32,228,255,240,251,96,1,234,255,22,0,255,255,0,2
22 DATA212,254,44
Greetings,
Michael
Code: Select all
REM>Maze
DIM code 1023
FOR pass=4 TO 7 STEP 3
P%=&1001 - 2:O%=code
[OPT pass
EQUW &1001
.Basic
EQUW Basic_00
EQUW 2008
EQUB &9E
EQUB &20
EQUS STR$(Maze)
EQUB 0
.Basic_00
EQUB 0
EQUB 0
.Maze
LDA #&2D
STA &FB
LDA #&1E
STA &FC
LDA #0
STA &BD
LDA #147
JSR &FFD2
LDA #13
JSR &FFD2
LDY #21
.Maze_00
LDA #18
JSR &FFD2
LDA #32
LDX #21
.Maze_01
JSR &FFD2
DEX
BNE Maze_01
LDA #13
JSR &FFD2
DEY
BNE Maze_00
LDA #4
STA &1E2D
LDA #19
JSR &FFD2
LDY #0
.Maze_02
LDX &BD
INX
STX &BD
LDA &C000,X
AND #3
STA &9B
STA &9C
.Maze_03
LDX &9B
CLC
LDA &FB
ADC Maze_08,X
STA &FD
LDA &FC
ADC Maze_07,X
STA &FE
LDA (&FD),Y
CMP #160
BNE Maze_04
LDA &9B
STA (&FD),Y
CLC
LDA &FB
ADC Maze_06,X
STA &FB
LDA &FC
ADC Maze_07,X
STA &FC
LDA #32
STA (&FB),Y
LDA &FD
STA &FB
LDA &FE
STA &FC
JMP Maze_02
.Maze_04
INX
TXA
AND #3
STA &9B
CMP &9C
BNE Maze_03
LDA (&FB),Y
TAX
LDA #32
STA (&FB),Y
CPX #4
BCS Maze_05
SEC
LDA &FB
SBC Maze_08,X
STA &FB
LDA &FC
SBC Maze_07,X
STA &FC
JMP Maze_02
.Maze_05
JSR &FFE4
BEQ Maze_05
RTS
.Maze_06
EQUB &01
EQUB &EA
EQUB &FF
EQUB &16
.Maze_07
EQUB &00
EQUB &FF
EQUB &FF
EQUB &00
.Maze_08
EQUB &02
EQUB &D4
EQUB &FE
EQUB &2C
]
NEXT