INSTALL:
.ifdef __APPLE2ENH__
; No page switching if 80 column store is enabled
INSTALL:
.ifdef __APPLE2ENH__
; No page switching if 80 column store is enabled
bit RD80COL
bpl :+
lda #$01
bit RD80COL
bpl :+
lda #$01
; Beagle Bros Shape Mechanic fonts don't
; scale well so use fixed scaling factor
; Beagle Bros Shape Mechanic fonts don't
; scale well so use fixed scaling factor
sta SCALE
; Done, reset the error code
sta SCALE
; Done, reset the error code
php ; Save Z flag
beq :+ ; Not horizontal
sec
php ; Save Z flag
beq :+ ; Not horizontal
sec
plp ; Restore Z flag
bne :+ ; Not vertical
sec
plp ; Restore Z flag
bne :+ ; Not vertical
sec
: jsr HPOSN
clc
lda FONT+2*99 ; "connection char"
: jsr HPOSN
clc
lda FONT+2*99 ; "connection char"