Miner 2049er (Apple II)

Miner 2049er
Developer: Livesay Computer Games Publisher: Micro Fun Platform: Apple II Released in US: 1982 This game has uncompiled source code.

Miner 2049er has Bounty Bob trying to traverse through every tiny square meter in each mine, but this version also has loads of Apple logos.

Source Code Remnants

To do: Get the offsets from a legit disk copy.

Scattered throughout the disk are some source code remnants.

S		;RETURN TO SYSTEM.
;
;-----------------------------
;
	IF	(* AND 00FFH)=0FFH
	DB	00
	ENDIF
:ACTION_PTR: 	DW	0
;
; STATE TABLE
;
:ST_TABLE:
	DW	:ST0
	DW	:ST1
	DW	:ST2
	DW	:ST3
	DW	:ST4
	DW	:

         DY	#OIACOUNT	;SET DOT A COUNT TO 0
	LDA	#0		;TO MAKE SURE IT IS PLOTTED
	STA	[:DOTPTR],Y	;ON BOTH SCREENS
	LDY	#OISTATE
	LDA	#2
	STA	[ELVPTR],Y
:ST1EXIT:
	RTS
;
;------------------------------
;
;        - STATE 2 -
;
;------------------------------
;
:ST2:
	LDY	#OIDETECT
	LDA	#TRUE
	STA	[BOBPTR],Y
	LDY	#OIACOUNT
	LDA	[:DOTPTR],Y
	BEQ	:ST2DOTOK
	TAX
	DEX
	TXA
	STA	[:DOTPTR],Y
	JMP	:ST2EXIT
:ST2DOTOK:
	LDY	#OIPLOT
	LDA	#FALSE
	STA	[:DOTPTR],Y
	LDA	BOB_DEAD
	BNE	:ST2HALT
	LDA	HALT
	BNE	:ST2HALT
	JMP	:ST2NHLT
:ST2HALT:
	LDY	#OIDETECL
                  73,79
	DB	122,126	;#4
	DB	101,143
:LVL9:
	DB	5
	DB	128,132
	DB	39,44
	DB	114,118
	DB	66,71
	DB	122,126
	DB	93,98
	DB	110,114
	DB	120,125
	DB	126,130
	DB	147,167
:LVL10:
	DB	1
	DB	122,126
	DB	148,167
;
;
SLD

        DB	101,143
	DB	5
	        32
	DB	39
                114,118
	DB	122,1
                93,98
	DB
	DB	120,
        	126,130
                167

                :LVL1
                  VL1
	DW	:LVL2
	DW	:LVL3
	DW	:LVL4
	DW	:LVL5
	DW	:LVL6
	DW	:LVL7
	DW	:LVL8
	DW	:LVL9
	DW	:LVL10
:LVL1:
	DB	00
:LVL2:
	DB	7	;NUMBER OF SLIDES
	DB	130,141	;(X,Y) CAPTURE #1
	DB	-1,+1	;(X,Y) VECTOR #1
	DB	46,102	;#2
	DB	+1,+1

:ST2OK:
	STA	[CANPTR],Y
	RTS
;

AY
	LDA	PLATPTRS,Y
	STA	PLTFPTR
	LDA	PLATPTRS+1,Y
	STA	PLTFPTR+1
	TXA
	PHA
	LDY	#OIACT
	LDA	[PLTFPTR],Y
	BEQ	:NOTACTIVE
	JSR	PLATFORM_STATE_MACHINE
:NOTACTIVE:
	PLA
	TAX
	INX
	CPX	PLTS_SPAWNED
	BCC	:NXTPLATFORM
	LDA	HALT	;IF HALT FLAG SET THEN
	BEQ	:EXIT	;CHECK TO SEE IF PLATFORM IS ACIVE
	LDX	#00
:NXTCHK:
	TXA
	ASL	A
	TAY
	LDA	PLATPTRS,Y
	STA	PLTFPTR
	LDA	PLATPTRS+1,Y
	STA	PLTFPTR+1
	LDY	#OIACT
	LDA	[PLTFPTR],Y
	BEQ	:OK
	LDY	#OIRDY
	LDA	[PLTFPTR],Y
	BEQ	:NOTRDY
:OK:
	INX
	CPX	PLTS_SPAWNED
	BCC	:NXTCHK
	LDA	#TRUE
	STA	LDM_READY
	LDA	#00
	STA	PLTS_SPAWNED
:NOTRDY:
:EXIT:
	RTS
;
:VIPTR:	EQU	PTR1
;
:INDVPTR: DW	0000H
;
:NOPLATFORMS: DB	00
;
;*****************************
;
PLTFPTR:	EQU	PTR0
;
;*****************************
;PROCEDURE:PLATFORM_STATE_MACHINE
;INPUTS: PLTFPTR - PTR TO OIBLOCK
;OUTPUTS:NONE
;CALLS:
;DESTROYS:ALL
;DESCRIPTION: DOES PLATFORM LOGIC.
;
PLATFORM_STATE_MACHINE: PROC
	LDY	#OIPRIOR
	LDA	[PLTFPTR],Y
	TAX
	LDA	PRIORITY_FLAGS,X
	BEQ	:ALRIGHT
	RTS
:ALRIGHT:
	LDY	#OIXVECT	;GET PI PTR
	LDA	[PLTFPTR],Y
	STA	:VIPTR
	LDY	#OIYVECT
	LDA	[PLTFPTR],Y
	STA	:VIPTR+1
	LDA	HALT
	BEQ	:NOHALT
	LDY	#OIDETECT ;CHECK DETECTED FLAG
	LDA	[PLTFPTR],Y
	BNE	:NOHALT
	LDA	#4
	LDY	#OISTATE
	STA	[PLTFPTR],Y
:NOHALT:
	LDY	#OISTATE
	LDA	[PLTFPTR],Y
	ASL	A	;STATE NO.
	TAX
	LDA	:ST_TABLE,X
	STA	:ACTION_PTR
	LDA	:ST_TABLE+1,X
	STA	:ACTION_PTR+1
	JMP	[:ACTION_PTR] ;GOTO PROPER STATE
;
:VIPTR:	EQU	PTR1
;
;-----------------------------
;
;        - STATE 0 -
;
;--------------------------
;
:ST0:
	LDY	#OIPLOT	;SET PLOT
	LDA	#TRUE
	STA	[PLTFPTR],Y
	LDY	#OIFUNC	;SET DRAW
	LDA	#FDRSHP
	STA	[PLTFPTR],Y
	LDY	#OISTINX ;SET AI TO PLATFORM POS
	LDA	#00
	STA	[PLTFPTR],Y
	LDY	#VIXLOC
	LDA	[:VIPTR],Y
	LDY	#OINX	;GET XPOS
	STA	[PLTFPTR],Y
	LDY	#VIYLOC
	LDA	[:VIPTR],Y
	LDY	#OINY
	STA	[PLTFPTR],Y
	LDA	#FALSE	;RESET READY
	LDY	#OIRDY
	STA	[P

TITLE	'SIGNON LEVEL DATA MODULE (6)'
;******************************
;
; SIGNON LEVEL DATA MODULE
;
;******************************
;
; REVISION LOG:
;
; 06/09/82 - FILE CREATED
;
;*****************************
;
; JUMP'S:
;
LDM_INIT:
	DS	3
LDM_ENTRY:
	JMP	RUN_LVL
;
;******************************
;
; DATA STRUCTURE'S:
;
LDMSTB:
	DW	MICROFUN_IMG	; DS