User:Eientei95/MSX1

Flashpoint

 CP 1
 JR NZ,SALLXX
 LD A,(IX+STAGE)
 ADD A,1
 DAA
 LD (IX+STAGE),A
 LD L,(IX+ADDR)
 INC L
 INC L
 LD (IX+ADDR),L
 LD A,(IX+ROUNO)
 ADD A,10H
 LD (IX+ROUNO),A
 CP 50H
 JR C,SALLX1
 AND 0FH
 LD (IX+ROUNO),A
 LD A,(IX+STAGE)
 SUB 5
 DAA
 LD (IX+STAGE),A
 LD A,(IX+ADDR)
 SUB 10
 LD (IX+ADDR),A
SALLX1:LD A,9AH
 CALL PUTBOX
 LD L,(IX+ADDR)
 LD H,(IX+ADDR+1)
 CALL PUTSML
 CALL STGNUM
 JR SALLY
SALLXX: CP 0FFH
 JR NZ,SALLY
 LD A,(IX+STAGE)
 SUB 1
 DAA
 LD (IX+STAGE),A
 LD L,(IX+ADDR)
 DEC L
 DEC L
 LD (IX+ADDR),L
 LD A,(IX+ROUNO)
 SUB 10H
 LD (IX+ROUNO),A
;CP 50H
 JR NC,SALLX2
 AND 0FH
 OR 40H
 LD (IX+ROUNO),A
 LD A,(IX+STAGE)
 ADD A,5
 DAA
 LD (IX+STAGE),A
 LD A,(IX+ADDR)
 ADD A,10
 LD (IX+ADDR),A
SALLX2:LD A,9AH
 CALL PUTBOX
 LD L,(IX+ADDR)
 LD H,(IX+ADDR+1)
 CALL PUTSML
 CALL STGNUM
SALLY:LD A,(IX+YSTEP)
 CP 1
 JR NZ,SALLYY
 LD L,(IX+ADDR)
 LD H,(IX+ADDR+1)
 LD DE,60H
 ADD HL,DE
 LD (IX+ADDR),L
 LD (IX+ADDR+1),H
 LD A,(IX+STAGE)
 ADD A,5
 DAA
 CP 91H
 JR C,SALLY1
 SUB 90H
 DAA
SALLY1:LD (IX+STAGE),A
 LD A,(IX+ROUNO)
 INC A
 LD (IX+ROUNO),A
 AND 0FH
 CP 03H
 JR NZ,SALLY2
 LD L,(IX+ADDR)
 LD H,(IX+ADDR+1)
 LD DE,60H
 OR A
 SBC HL,DE
 LD (IX+ADDR),L
 LD (IX+ADDR+1),H
 LD A,(IX+ROUNO)
 DEC A
 LD (IX+ROUNO),A
 LD A,9CH
 CALL PUTBOX
 CALL WAIT
 LD B,22
STGCL1:PUSH B:
!5c_
 LD (ISDEMO),A
STNQUT:CALL CLRSCR
 LD HL,VIVRAM+2C0H

SALLX1
 AND 0FH
 LD (IX+ROUNO),A
 LD A,(IX+STAGE)
 SUB 5
 DAA
 LD (IX+STAGE),A
 LD A,(IX+ADDR)
 SUB 10
 LD (IX+ADDR),A
SALLX1:LD A,9AH
 CALL PUTBOX
 LD L,(IX+ADDR)
 LD H,(IX+ADDR+1)
 CALL PUTSML
 CALL STGNUM
 JR SALLY
SALLXX: CP 0FFH
 JR NZ,SALLY
 LD A,(IX+STAGE)
 SUB 1
 DAA
 LD (IX+STAGE),A
 LD L,(IX+ADDR)
 DEC L
 DEC L
 LD (IX+ADDR),L
 LD A,(IX+ROUNO)
 SUB 10H
 LD (IX+ROUNO),A
;CP 50H
 JR NC,SALLX2
 AND 0FH
 OR 40H
 LD (IX+ROUNO),A
 LD A,(IX+STAGE)
 ADD A,5
 DAA
 LD (IX+STAGE),A
 LD A,(IX+ADDR)
 ADD A,10
 LD (IX+ADDR),A
SALLX2:LD A,9AH
 CALL PUTBOX
 LD L,(IX+ADDR)
 LD H,(IX+ADDR+1)
 CALL PUTSML
 CALL STGNUM
SALLY:LD A,(IX+YSTEP)
 CP 1
 JR NZ,SALLYY
 LD L,(IX+ADDR)
 LD H,(IX+ADDR+1)
 LD DE,60H
 ADD HL,DE
 LD (IX+ADDR),L
 LD (IX+ADDR+1),H
 LD A,(IX+STAGE)
 ADD A,5
 DAA
 CP 91H
 JR C,SALLY1
 SUB 90H
 DAA
SALLY1:LD (IX+STA:
 CP 03H
 JR NZ,SALLY2
DDR+1)
 LD DE,60H
 OR A
 SBC HL,DE
 LD (IX+ADDR),L
 LD (IX+ADDR+1),H
 LD A,(IX+ROUNO)
 DEC A
 LD (IX+ROUNO),A
 LD A,9CH
 CALL PUTBOX
 CALL WAIT
 LD B,22
STGCL1:PUSH B:
 LD (ISDEMO),A
STNQUT:CALL CLRSCR
 LD HL,VIVRAM+2C0H

AR:DI
  LD IX,0FA20H
 WRS
  LD IX,0FA60H
; LD HL,(0FACCH)
; LD (IX+1),L
; LD (IX+2),H
  CALL WRS
  LD HL,NULSTR
  LD (0F932H),HL
  LD HL,FMDAT1
  LD (0F934H),HL
  LD HL,FMDAT2
  LD (0F936H),HL
  LD HL,FMDAT3
  LD (0F938H),HL
  LD HL,FMDAT4

LD A,(0FA80H)
LD E,A
LD D,0
LD HL,SUNYI
ADD HL,DE
LD A,(HL)
EX AF,AF'
LD E,A
LD HL,SUNYI
ADD HL,DE
EX AF,AF'
CP (HL)
JR C,EXT
EX AF,AF'
  PUSH AF
  XOR A
  LD (0FA84H),A ;LEN
  POP AF
LD (0FA80H),A
  DE