2019-07-06 10:16:57 +02:00
|
|
|
; 2019-07-02, Jede (jede@oric.org)
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.export _bgcolor
|
|
|
|
|
.import BGCOLOR
|
2019-07-17 21:48:53 +02:00
|
|
|
|
2019-07-06 10:16:57 +02:00
|
|
|
.include "telestrat.inc"
|
|
|
|
|
|
|
|
|
|
.proc _bgcolor
|
2019-07-18 20:48:10 +02:00
|
|
|
ldx BGCOLOR ; Get previous color
|
2019-07-06 10:16:57 +02:00
|
|
|
sta BGCOLOR
|
2019-07-18 20:48:10 +02:00
|
|
|
txa ; Return previous color
|
2019-07-06 10:16:57 +02:00
|
|
|
rts
|
|
|
|
|
.endproc
|
