|
|
This page contains no introduction. |
Uncompiled Code#
The last two code roms (springer.8 and springer.9) contain some uncompiled code fragments in them.
The first one is in springer.8 at 0x1A5:
JR Z,DIV560 ; NO
RES 0,(HL)
CALL DIVOR ; DIVER'S Y0
LD A,L
AND 0FH ; Y0=16N
JR NZ,DIV560 ; NO.
INC L
CALL DIVOR
LD HL,TCB040 ; RES 16N-F
RES 6,(HL)
;
; LEFT LIMIT
;
DIV560 EQU $
LD A,(IX+1)
SUB 3*8+5
JR NC,DIV570
LD (IX+1),3*8+5 ; LEFT LIMIT
;
; SIFT
;
DIV570 EQU $
LD A,(IX)
SUB 5*8+4 ; DOWN SIFT
JR NC,DIV600 ; NO.
LD (IX),5*8+4 ; SET TAGDIV
LD C,A
LD B,00H
CALL DIVOR ; Y0
ADD HL,BC ; Y0 COORDINATE
LD A,L
AND 0FH ; Y0=16N ?
JR Z,DIV580 ; YES
ADD A,0F2H ; 16N<Y0=<16N+2 ?
JR C,DIV580 ; YES
SUB 0F4H ; 16N-2<=Y0<16N+2 ?
EX DE,HL
JR NC,DIV590 ; NO.
DIV580 EQU $
LD HL,TCB0
The second one is in springer.8 at 500:
(COM120) ; Y0-LIMIT
DIV620 EQU $
AND A ; CLEAR CY
LD BC,13
SBC HL,BC ; UNDER LIMIT ?
AND A ; CLEAR CY
SBC HL,DE
JR NC,DIV630
ADD HL,DE
EX DE,HL
DIV630 EQU $
EX DE,HL
CALL DIVY
;
; MAGIC HAND & DISPLAY
;
DIV640 EQU $
LD A,(IX+2)
AND 0FH ; DIRECTION
LD B,00H
ADD A,A
ADD A,A ; A*4
LD C,A
LD HL,DIVCHA
ADD HL,BC
EX DE,HL ; SAVE HL
LD A,(COM150)
AND 80H ; MAGIC HAND ?
LD HL,TCB010
JR Z,DIV680 ; NO.
BIT 1,(HL) ; MAGIC HAND DATA
JR NZ,DIV650
SET 1,(HL)
LD HL,TCB050 ; COUNTER
LD (HL),00H ; CLEAR
JR DIV660
DIV650 EQU $
LD HL,TCB050
INC (HL)
BIT 4,(HL) ; END OF M-HAND ?
JR NZ,DIV670 ; YES
LD A,(HL)
DIV660 EQU $
CP 03H ; SHORT HAND
INC DE
INC DE
JR NC,DIV700 ; NO.
INC DE
JR DIV700
DIV670 EQU $
DEC (HL)
JR DIV690
DIV680 EQU $
RE
The third one is in springer.9 at 0x60E:
D-1 SRC
<LIST
TITLE DIVER CONTORL
;
;
;
; TCB USAGE
; TCB010 0 UP-SHIFT
; 1 MAGIC HAND DATA
; 2 DOWM-SHIFT
; TCB040 0 FIRST CONTACT
; 1 STRUGGLE
; 2 MEDUSA
; 3 MO
; 4 OCTPUS
; 5 REACTION
; 6 *16 STOP
; 7 OCTPUS X-MOVING
; TCB050 STRUGGLE COUNTER
; TCB060 OXYGEN COUNTER
; TCB070 VERTOR
; TCB080 DIRECTION COUNTER
; TCB090 DOT COUNTER
; TCB100 PICTURE COUNTER
; TCB110 +Y DATA
; TCB120 +X DATA
; TCB130 -Y DATA
; TCB140 -X DATA
; TCB150 REACTION COUNTER
KEHEHE EQU 0
DIVER EQU $
LD HL,TCB040
BI