; ------------------------ begin code snipit ------------------------------
LDA #$0
LDM "Score: \n"
STA $1FE11
STY $1FE12
INT #$13
LDA #$25
STA $FFFF25
LDA #255
STA $FFE13
LDA #0
STA $FFE14
LDA #$FF
STA $1299
GAME
LDA $1FE11
LDY $1FE12
INT #$56
LDA $FFE19
STA $FFE17
LDX #$FF
STX $FFE15
LDA #270
LDX #55
LDY #0
INT #$58
JSR DRAWSCREEN
INT #$15
; test if escape key was pressed
LDY #$1B
INT #$19
CPY #0
BNE END


; test for now
JSR ADDSCORE

; fill the screen with black
LDX #0
INT #$57

JMP GAME ; loop back up to the start of the game loop
END

; draw rectangle subroutine

DRAWRECT ; takes X,Y, and accumulator
; ------------------------------------------------------------------
STA $FFFF15
STX $FFFF11
STY $FFFF1
LDA $FFFF25
ADC #5
STA $FFFF25
MAJOR
LDY $FFFF1
MINI
LDA $FFFF25
INT #$16
INY
LDA $FFFF1
ADC #16
STA $FFFF15
CPY $FFFF15
BNE MINI
INX
LDA $FFFF11
ADC #32
STA $FFFF2
CPX $FFFF2
BNE MAJOR
RTS

; draw of the screen subroutine

DRAWSCREEN
INT #$14
LDX #5
LDY #5
STX $FFFF18
STY $FFFF19

BIGLOOP
LOOP
LDA #$FF
LDX $FFFF18
LDY $FFFF19
JSR DRAWRECT
LDA $FFFF18
ADC #36
STA $FFFF18
CMP #0
BNE LOOP
LDX #5
STX $FFFF18
LDA $FFFF19
ADC #20
STA $FFFF19
CMP #0
BNE BIGLOOP
RTS

; Add to Score subroutine
ADDSCORE
LDA $FFE19
ADC #1
STA $FFE19
RTS


; ---------------------------- end code snipit