mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2025-02-08 15:30:41 +00:00
Removed some redundant code.
This commit is contained in:
parent
56bea28ff9
commit
0c5425611c
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -177,6 +177,6 @@ BYTE00XX BEQ BYTE00A ; OSBYTE 0,0 - generate error
|
|||||||
RTS ; %000x1xxx host type, 'A'pple
|
RTS ; %000x1xxx host type, 'A'pple
|
||||||
BYTE00A BRK
|
BYTE00A BRK
|
||||||
DB $F7
|
DB $F7
|
||||||
HELLO ASC 'Applecorn MOS 2021-09-17'
|
HELLO ASC 'Applecorn MOS 2021-09-21'
|
||||||
DB $00 ; Unify MOS messages
|
DB $00 ; Unify MOS messages
|
||||||
|
|
||||||
|
@ -1110,13 +1110,7 @@ DRAWPNT >>> ENTMAIN
|
|||||||
:S2 LDA BGCOLOR ; Draw in background colour
|
:S2 LDA BGCOLOR ; Draw in background colour
|
||||||
:SETCOLOR STA Entry+5
|
:SETCOLOR STA Entry+5
|
||||||
JSR Entry+16 ; FDRAW: SetColor
|
JSR Entry+16 ; FDRAW: SetColor
|
||||||
LDA PLOTMODE
|
JSR Entry+25 ; FDRAW: DrawPoint
|
||||||
AND #$C0
|
|
||||||
CMP #$40
|
|
||||||
BEQ :POINT
|
|
||||||
JSR Entry+28 ; FDRAW: DrawLine
|
|
||||||
>>> XF2AUX,VDU25RET
|
|
||||||
:POINT JSR Entry+25 ; FDRAW: DrawPoint
|
|
||||||
>>> XF2AUX,VDU25RET
|
>>> XF2AUX,VDU25RET
|
||||||
|
|
||||||
* Reset colours and linetype
|
* Reset colours and linetype
|
||||||
|
Loading…
x
Reference in New Issue
Block a user