So you can see my problem, my screen has the OK from basic, is there any way I can switch this off?
The way I got round this before was putting the game into an infinite loop but due to my potato coding that will mess up the screen I know what I should be doing using the Print AT control codes for the UGLS.
hmm. But I was sure there was a poke to switch off the OK message... I think that would be a better solution.
Code: Select all
ORG 44000
CLEARSCR EQU $DAF
MAINLOOP:
CALL BACKGROUND
CALL GAMELOOP
RET
GAMELOOP:
CALL MN_9
CALL MN_CR
CALL MN_19
CALL MN_CR
CALL MN_18
RET
BACKGROUNDFILE: INCBIN "bkg.scr"
BACKGROUND:
LD BC,$1830 ;LENGTH OF BLOCK TO COPY
LD HL,BACKGROUNDFILE ;SOURCE ADDRESS
LD DE,$4000 ;DESTINATION ADDRESS
LDIR ;COPY BC BYTES FROM HL TO DE
RET
;PRIMITIVE MAYAN NUMBER GLYPHS
; ALL THE NUMBERS ARE MADE UP OF THESE ATOMIC SUBROUTINES
; EMIT 1/4 OF THE LINE ROW
MN_LS: LD A, $8C
RST $10
RET
; EMIT 1/4 OF THE ROW OF DOTS LEFT ALIGNMENT
MN_DL: LD A, $88
RST $10
RET
; EMIT 1/4 OF THE ROW OF DOTS RIGHT ALIGNMENT
MN_DR: LD A, $84
RST $10
RET
; EMIT A BLANK SPACE
MN_SP: LD A, $80
RST $10
RET
; EMIT CARRAGE RETURN
MN_CR: LD A, $0D
RST $10
RET
; THESE ARE THE ROWS, EACH NUMBER POSITION HAS 4 ROWS,
; SO FOR 14 YOU WOULD HAVE 5, 5, 4, 0.
; FOR 3 YOU WOULD HAVE 3, 0, 0, 0.
; NUMBER 1 ROW
MN_AB: CALL MN_SP
CALL MN_SP
CALL MN_SP
CALL MN_SP
CALL MN_CR
RET
MN_A1: CALL MN_SP
CALL MN_DR
CALL MN_SP
CALL MN_SP
CALL MN_CR
RET
; NUMBER 2
MN_A2: CALL MN_DL
CALL MN_SP
CALL MN_SP
CALL MN_DR
CALL MN_CR
RET
; NUMBER 3
MN_A3: CALL MN_DL
CALL MN_SP
CALL MN_DL
CALL MN_DR
CALL MN_CR
RET
; NUMBER 4
MN_A4: CALL MN_DL
CALL MN_DL
CALL MN_DR
CALL MN_DR
CALL MN_CR
RET
; NUMBER 5
MN_A5: CALL MN_LS
CALL MN_LS
CALL MN_LS
CALL MN_LS
CALL MN_CR
RET
; MAYAN NUMBERS
; EACH NUMBER IS IN BASE 20 SO WE NEED 0-19.
; NUMBER 1
MN_1: CALL MN_CR
CALL MN_CR
CALL MN_CR
CALL MN_A1
RET
; NUMBER 2
MN_2: CALL MN_CR
CALL MN_CR
CALL MN_CR
CALL MN_A2
RET
; NUMBER 3
MN_3: CALL MN_CR
CALL MN_CR
CALL MN_CR
CALL MN_A3
RET
; NUMBER 4
MN_4: CALL MN_CR
CALL MN_CR
CALL MN_CR
CALL MN_A4
RET
; NUMBER 5
MN_5: CALL MN_CR
CALL MN_CR
CALL MN_CR
CALL MN_A5
RET
; NUMBER 6
MN_6: CALL MN_CR
CALL MN_CR
CALL MN_A1
CALL MN_A5
RET
; NUMBER 7
MN_7: CALL MN_CR
CALL MN_CR
CALL MN_A2
CALL MN_A5
RET
; NUMBER 8
MN_8: CALL MN_CR
CALL MN_CR
CALL MN_A3
CALL MN_A5
RET
; NUMBER 9
MN_9: CALL MN_CR
CALL MN_CR
CALL MN_A4
CALL MN_A5
RET
; NUMBER 10
MN_10: CALL MN_CR
CALL MN_CR
CALL MN_A5
CALL MN_A5
RET
; NUMBER 11
MN_11: CALL MN_CR
CALL MN_A1
CALL MN_A5
CALL MN_A5
RET
; NUMBER 12
MN_12: CALL MN_CR
CALL MN_A2
CALL MN_A5
CALL MN_A5
RET
; NUMBER 13
MN_13: CALL MN_CR
CALL MN_A3
CALL MN_A5
CALL MN_A5
RET
; NUMBER 14
MN_14: CALL MN_CR
CALL MN_A4
CALL MN_A5
CALL MN_A5
RET
; NUMBER 15
MN_15: CALL MN_CR
CALL MN_A5
CALL MN_A5
CALL MN_A5
RET
; NUMBER 16
MN_16: CALL MN_A1
CALL MN_A5
CALL MN_A5
CALL MN_A5
RET
; NUMBER 17
MN_17: CALL MN_A2
CALL MN_A5
CALL MN_A5
CALL MN_A5
RET
; NUMBER 18
MN_18: CALL MN_A3
CALL MN_A5
CALL MN_A5
CALL MN_A5
RET
; NUMBER 19
MN_19: CALL MN_A4
CALL MN_A5
CALL MN_A5
CALL MN_A5
RET
; NUMBER BLANK
MN_B:
CALL MN_AB
CALL MN_AB
CALL MN_AB
CALL MN_AB
RET
END 44000