2018-12-10 04:08:57 +00:00
|
|
|
.setcpu "6502"
|
|
|
|
|
|
|
|
|
|
.include "apple2.inc"
|
|
|
|
|
.include "../inc/apple2.inc"
|
|
|
|
|
.include "../inc/prodos.inc"
|
|
|
|
|
.include "../mgtk.inc"
|
|
|
|
|
.include "../desktop.inc"
|
|
|
|
|
.include "../macros.inc"
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.org $800
|
|
|
|
|
|
|
|
|
|
entry:
|
|
|
|
|
|
|
|
|
|
;;; Copy the DA to AUX for easy bank switching
|
|
|
|
|
.scope
|
|
|
|
|
lda ROMIN2
|
|
|
|
|
copy16 #$0800, STARTLO
|
|
|
|
|
copy16 #da_end, ENDLO
|
|
|
|
|
copy16 #$0800, DESTINATIONLO
|
|
|
|
|
sec ; main>aux
|
|
|
|
|
jsr AUXMOVE
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
.endscope
|
|
|
|
|
|
|
|
|
|
.scope
|
|
|
|
|
;; run the DA
|
|
|
|
|
sta RAMRDON
|
|
|
|
|
sta RAMWRTON
|
|
|
|
|
jsr init
|
|
|
|
|
|
|
|
|
|
;; tear down/exit
|
|
|
|
|
sta ALTZPON
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
sta RAMRDOFF
|
|
|
|
|
sta RAMWRTOFF
|
|
|
|
|
rts
|
|
|
|
|
.endscope
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
2018-12-29 00:18:08 +00:00
|
|
|
da_window_id = 60
|
|
|
|
|
da_width = 400
|
|
|
|
|
da_height = 118
|
|
|
|
|
da_left = (screen_width - da_width)/2
|
|
|
|
|
da_top = 50
|
2018-12-10 04:08:57 +00:00
|
|
|
|
|
|
|
|
.proc winfo
|
|
|
|
|
window_id: .byte da_window_id
|
|
|
|
|
options: .byte MGTK::Option::go_away_box
|
|
|
|
|
title: .addr str_title
|
|
|
|
|
hscroll: .byte MGTK::Scroll::option_none
|
|
|
|
|
vscroll: .byte MGTK::Scroll::option_none
|
|
|
|
|
hthumbmax: .byte 32
|
|
|
|
|
hthumbpos: .byte 0
|
|
|
|
|
vthumbmax: .byte 32
|
|
|
|
|
vthumbpos: .byte 0
|
|
|
|
|
status: .byte 0
|
|
|
|
|
reserved: .byte 0
|
|
|
|
|
mincontwidth: .word da_width
|
|
|
|
|
mincontlength: .word da_height
|
|
|
|
|
maxcontwidth: .word da_width
|
|
|
|
|
maxcontlength: .word da_height
|
|
|
|
|
port:
|
|
|
|
|
viewloc: DEFINE_POINT da_left, da_top
|
|
|
|
|
mapbits: .addr MGTK::screen_mapbits
|
|
|
|
|
mapwidth: .word MGTK::screen_mapwidth
|
|
|
|
|
maprect: DEFINE_RECT 0, 0, da_width, da_height
|
|
|
|
|
pattern: .res 8, $FF
|
|
|
|
|
colormasks: .byte MGTK::colormask_and, MGTK::colormask_or
|
|
|
|
|
penloc: DEFINE_POINT 0, 0
|
|
|
|
|
penwidth: .byte 1
|
|
|
|
|
penheight: .byte 1
|
|
|
|
|
penmode: .byte 0
|
|
|
|
|
textback: .byte $7F
|
|
|
|
|
textfont: .addr DEFAULT_FONT
|
|
|
|
|
nextwinfo: .addr 0
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
str_title:
|
|
|
|
|
PASCAL_STRING "About this Apple II"
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
2019-01-05 02:27:47 +00:00
|
|
|
.proc ii_bitmap
|
2018-12-10 04:08:57 +00:00
|
|
|
viewloc: DEFINE_POINT 59, 5
|
|
|
|
|
mapbits: .addr iie_bits
|
|
|
|
|
mapwidth: .byte 8
|
|
|
|
|
reserved: .res 1
|
|
|
|
|
maprect: DEFINE_RECT 0, 0, 50, 25
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc iic_bitmap
|
|
|
|
|
viewloc: DEFINE_POINT 62, 4
|
|
|
|
|
mapbits: .addr iic_bits
|
|
|
|
|
mapwidth: .byte 7
|
|
|
|
|
reserved: .res 1
|
|
|
|
|
maprect: DEFINE_RECT 0, 0, 45, 27
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc iigs_bitmap
|
|
|
|
|
viewloc: DEFINE_POINT 65, 5
|
|
|
|
|
mapbits: .addr iigs_bits
|
|
|
|
|
mapwidth: .byte 6
|
|
|
|
|
reserved: .res 1
|
|
|
|
|
maprect: DEFINE_RECT 0, 0, 38, 25
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc iii_bitmap
|
|
|
|
|
viewloc: DEFINE_POINT 57, 5
|
|
|
|
|
mapbits: .addr iii_bits
|
|
|
|
|
mapwidth: .byte 8
|
|
|
|
|
reserved: .res 1
|
|
|
|
|
maprect: DEFINE_RECT 0, 0, 54, 24
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc iie_card_bitmap
|
|
|
|
|
viewloc: DEFINE_POINT 56, 9
|
|
|
|
|
mapbits: .addr iie_card_bits
|
|
|
|
|
mapwidth: .byte 8
|
|
|
|
|
reserved: .res 1
|
|
|
|
|
maprect: DEFINE_RECT 0, 0, 55, 21
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc laser128_bitmap
|
|
|
|
|
viewloc: DEFINE_POINT 60, 4
|
|
|
|
|
mapbits: .addr laser128_bits
|
|
|
|
|
mapwidth: .byte 7
|
|
|
|
|
reserved: .res 1
|
|
|
|
|
maprect: DEFINE_RECT 0, 0, 47, 29
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
iie_bits:
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0111111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110000),px(%0000000),px(%0000000),px(%0000000),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1001100),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1111111),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011111),px(%1111111),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110000),px(%0000000),px(%0000000),px(%0000000),px(%0110011),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0111111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111100),px(%0000000),px(%0111111),px(%0000000),px(%0001111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0011111),px(%1111111)
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0111111),px(%1111111)
|
|
|
|
|
.byte px(%1111100),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0001111),px(%1111111)
|
|
|
|
|
.byte px(%1110001),px(%1110011),px(%0011001),px(%1001100),px(%1100110),px(%0110011),px(%1100011),px(%1111111)
|
|
|
|
|
.byte px(%1000111),px(%1001100),px(%1100110),px(%0110011),px(%0011001),px(%1001100),px(%1111000),px(%1111111)
|
|
|
|
|
.byte px(%0011110),px(%0110011),px(%0011001),px(%1001100),px(%1100110),px(%0110011),px(%0011110),px(%0111111)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1000111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111000),px(%1111111)
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000011),px(%1111111)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
iic_bits:
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000111),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111000),px(%0000000),px(%0000000),px(%0000000),px(%1110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1001100),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011111),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111000),px(%0000000),px(%0000000),px(%0000000),px(%1110011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1110011),px(%1111111)
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000111),px(%1111111)
|
|
|
|
|
.byte px(%1111111),px(%1111100),px(%1111111),px(%1111111),px(%1111001),px(%1111111),px(%1111111)
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0111111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0011111)
|
|
|
|
|
.byte px(%1100110),px(%1101101),px(%1011011),px(%0110110),px(%1101101),px(%1011011),px(%0011111)
|
|
|
|
|
.byte px(%1100110),px(%1101101),px(%1011011),px(%0110110),px(%1101101),px(%1011011),px(%0011111)
|
|
|
|
|
.byte px(%1001110),px(%1101101),px(%1011011),px(%0110110),px(%1101101),px(%1011011),px(%1001111)
|
|
|
|
|
.byte px(%1001110),px(%1101101),px(%1011011),px(%0110110),px(%1101101),px(%1011011),px(%1001111)
|
|
|
|
|
.byte px(%1001111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1001111)
|
|
|
|
|
.byte px(%0011110),px(%0110011),px(%0011001),px(%1001100),px(%1100110),px(%0110011),px(%1100111)
|
|
|
|
|
.byte px(%0011001),px(%1001100),px(%1100110),px(%0110011),px(%0011001),px(%1001100),px(%1100111)
|
|
|
|
|
.byte px(%0011110),px(%0110011),px(%0011001),px(%1001100),px(%1100110),px(%0110011),px(%1100111)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1100111)
|
|
|
|
|
.byte px(%1000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0001111)
|
|
|
|
|
|
|
|
|
|
iigs_bits:
|
|
|
|
|
.byte px(%1000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0011111)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1001111)
|
|
|
|
|
.byte px(%0011000),px(%0000000),px(%0000000),px(%0000000),px(%0000001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1001100),px(%1100110),px(%0111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1001100),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1001111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011001),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1001111)
|
|
|
|
|
.byte px(%0011000),px(%0000000),px(%0000000),px(%0000000),px(%0000001),px(%1001111)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1001111)
|
|
|
|
|
.byte px(%1000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0011111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1100110),px(%0110000),px(%0011111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1100000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0111111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111110),px(%0111111)
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%1111111)
|
|
|
|
|
|
|
|
|
|
iii_bits:
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110000),px(%0000000),px(%0000000),px(%0000000),px(%0111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1001100),px(%1111110),px(%0111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1111111),px(%1111110),px(%0111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011111),px(%1111111),px(%1111110),px(%0110011),px(%0011001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%0011001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0110000),px(%0000000),px(%0000000),px(%0000000),px(%0111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000011),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111000),px(%0000000),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111100),px(%0000111),px(%1111111),px(%1111111),px(%0000111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001),px(%1111111)
|
|
|
|
|
.byte px(%1111110),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000001),px(%1111111)
|
|
|
|
|
.byte px(%1111100),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111000),px(%1111111)
|
|
|
|
|
.byte px(%1110001),px(%1110011),px(%0011001),px(%1001100),px(%1100111),px(%1110011),px(%0011110),px(%0011111)
|
|
|
|
|
.byte px(%1000111),px(%1001100),px(%1100110),px(%0110011),px(%0011001),px(%1111100),px(%1100111),px(%1000111)
|
|
|
|
|
.byte px(%0011110),px(%0110011),px(%0011001),px(%1001100),px(%1100110),px(%0111111),px(%0011001),px(%1110011)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1110011)
|
|
|
|
|
.byte px(%1000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000111)
|
|
|
|
|
|
|
|
|
|
iie_card_bits:
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000111),px(%1111111)
|
|
|
|
|
.byte px(%1100001),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1100111),px(%1111111)
|
|
|
|
|
.byte px(%1100001),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1100111),px(%1100111),px(%1111111)
|
|
|
|
|
.byte px(%1100001),px(%1111111),px(%1111111),px(%1111000),px(%0000011),px(%1100111),px(%1100111),px(%1111111)
|
|
|
|
|
.byte px(%1100001),px(%1000111),px(%1100110),px(%0111000),px(%0000011),px(%1111111),px(%1100111),px(%1000011)
|
|
|
|
|
.byte px(%1100001),px(%1000111),px(%1100110),px(%0111000),px(%0000011),px(%1111111),px(%1100111),px(%1000011)
|
|
|
|
|
.byte px(%1110011),px(%1111111),px(%1100110),px(%0111000),px(%0000011),px(%1111111),px(%1100111),px(%1000011)
|
|
|
|
|
.byte px(%1110011),px(%0000111),px(%1111111),px(%1111000),px(%0000011),px(%1100000),px(%1100110),px(%0000000)
|
|
|
|
|
.byte px(%1110011),px(%0000111),px(%1000011),px(%1111111),px(%1111111),px(%1100000),px(%1100111),px(%0000001)
|
|
|
|
|
.byte px(%1110011),px(%0000111),px(%1000011),px(%1111111),px(%1111111),px(%1100000),px(%1100111),px(%1000011)
|
|
|
|
|
.byte px(%1110011),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1100111),px(%1100111)
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000111),px(%1111111)
|
|
|
|
|
.byte px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111)
|
|
|
|
|
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111100)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111100)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111100),px(%0000000),px(%0000000),px(%0011100)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111100)
|
|
|
|
|
.byte px(%0011111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111100)
|
|
|
|
|
.byte px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000)
|
|
|
|
|
.byte px(%1110011),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1100111)
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000111)
|
|
|
|
|
|
|
|
|
|
laser128_bits:
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0111111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0111000),px(%0000000),px(%0000000),px(%0000000),px(%1111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1001100),px(%1111110),px(%0111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011001),px(%1111111),px(%1111110),px(%0111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%0011111),px(%1111111),px(%1111110),px(%0111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0110011),px(%1111111),px(%1111111),px(%1111110),px(%0110011),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0111000),px(%0000000),px(%0000000),px(%0000000),px(%1111111),px(%0011111)
|
|
|
|
|
.byte px(%1111110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%0011111)
|
|
|
|
|
.byte px(%1111111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0111111)
|
|
|
|
|
.byte px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111)
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000011)
|
|
|
|
|
.byte px(%1100110),px(%0111001),px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111001)
|
|
|
|
|
.byte px(%1100111),px(%0011100),px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000001)
|
|
|
|
|
.byte px(%1100111),px(%1001110),px(%0111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001)
|
|
|
|
|
.byte px(%1100111),px(%1100111),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000001)
|
|
|
|
|
.byte px(%1100111),px(%1110011),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001)
|
|
|
|
|
.byte px(%1100111),px(%1111000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000001)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001)
|
|
|
|
|
.byte px(%1100111),px(%1001100),px(%1100110),px(%0110011),px(%1111111),px(%1111111),px(%1111001)
|
|
|
|
|
.byte px(%1100110),px(%0110011),px(%0011001),px(%1001100),px(%1100110),px(%0110011),px(%0011001)
|
|
|
|
|
.byte px(%1100111),px(%1001100),px(%1100110),px(%0110011),px(%0011001),px(%1001100),px(%1111001)
|
|
|
|
|
.byte px(%1100110),px(%0110011),px(%0011001),px(%1001100),px(%1100110),px(%0110011),px(%0011001)
|
|
|
|
|
.byte px(%1100111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111111),px(%1111001)
|
|
|
|
|
.byte px(%1110000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000000),px(%0000011)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
str_ii:
|
|
|
|
|
PASCAL_STRING "Apple ]["
|
|
|
|
|
|
|
|
|
|
str_iiplus:
|
|
|
|
|
PASCAL_STRING "Apple ][+"
|
|
|
|
|
|
|
|
|
|
str_iii:
|
|
|
|
|
PASCAL_STRING "Apple /// (emulation)"
|
|
|
|
|
|
2019-01-05 02:27:47 +00:00
|
|
|
str_iie_original:
|
|
|
|
|
PASCAL_STRING "Apple //e (original)"
|
2018-12-10 04:08:57 +00:00
|
|
|
|
|
|
|
|
str_iie_enhanced:
|
|
|
|
|
PASCAL_STRING "Apple IIe (enhanced)"
|
|
|
|
|
|
|
|
|
|
str_iie_card:
|
|
|
|
|
PASCAL_STRING "Apple IIe Card"
|
|
|
|
|
|
2019-01-05 02:27:47 +00:00
|
|
|
str_iic_original:
|
2018-12-10 04:08:57 +00:00
|
|
|
PASCAL_STRING "Apple IIc"
|
|
|
|
|
|
2019-01-05 02:27:47 +00:00
|
|
|
str_iic_rom0:
|
|
|
|
|
PASCAL_STRING "Apple IIc (ROM 0)"
|
|
|
|
|
|
|
|
|
|
str_iic_rom3:
|
|
|
|
|
PASCAL_STRING "Apple IIc (ROM 3)"
|
|
|
|
|
|
|
|
|
|
str_iic_rom4:
|
|
|
|
|
PASCAL_STRING "Apple IIc (ROM 4)"
|
|
|
|
|
|
2018-12-10 04:08:57 +00:00
|
|
|
str_iic_plus:
|
|
|
|
|
PASCAL_STRING "Apple IIc Plus"
|
|
|
|
|
|
|
|
|
|
str_iigs:
|
2019-01-05 02:27:47 +00:00
|
|
|
PASCAL_STRING "Apple IIgs (ROM #)"
|
2018-12-10 04:08:57 +00:00
|
|
|
|
|
|
|
|
str_laser128:
|
|
|
|
|
PASCAL_STRING "Laser 128"
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
str_prodos_version:
|
|
|
|
|
PASCAL_STRING "ProDOS 0.0.0"
|
|
|
|
|
|
|
|
|
|
str_slot_n:
|
|
|
|
|
PASCAL_STRING "Slot 0: "
|
|
|
|
|
|
|
|
|
|
str_memory_prefix:
|
|
|
|
|
PASCAL_STRING "Memory: "
|
|
|
|
|
|
|
|
|
|
str_memory_suffix:
|
|
|
|
|
PASCAL_STRING "K"
|
|
|
|
|
|
|
|
|
|
memory:.word 0
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
str_diskii: PASCAL_STRING "Disk II"
|
|
|
|
|
str_block: PASCAL_STRING "Generic Block Device"
|
|
|
|
|
str_smartport: PASCAL_STRING "SmartPort Device"
|
|
|
|
|
str_ssc: PASCAL_STRING "Super Serial Card"
|
|
|
|
|
str_80col: PASCAL_STRING "80 Column Card"
|
|
|
|
|
str_mouse: PASCAL_STRING "Mouse Card"
|
|
|
|
|
str_silentype: PASCAL_STRING "Silentype"
|
|
|
|
|
str_clock: PASCAL_STRING "Clock"
|
|
|
|
|
str_comm: PASCAL_STRING "Communications Card"
|
|
|
|
|
str_serial: PASCAL_STRING "Serial Card"
|
|
|
|
|
str_parallel: PASCAL_STRING "Parallel Card"
|
|
|
|
|
str_used: PASCAL_STRING "Used"
|
|
|
|
|
str_printer: PASCAL_STRING "Printer"
|
|
|
|
|
str_joystick: PASCAL_STRING "Joystick"
|
|
|
|
|
str_io: PASCAL_STRING "I/O Card"
|
|
|
|
|
str_modem: PASCAL_STRING "Modem"
|
|
|
|
|
str_audio: PASCAL_STRING "Audio Card"
|
|
|
|
|
str_storage: PASCAL_STRING "Mass Storage"
|
|
|
|
|
str_network: PASCAL_STRING "Network Card"
|
|
|
|
|
str_mockingboard: PASCAL_STRING "Mockingboard"
|
|
|
|
|
str_unknown: PASCAL_STRING "(unknown)"
|
|
|
|
|
str_empty: PASCAL_STRING "(empty)"
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
str_cpu_prefix: PASCAL_STRING " CPU: "
|
|
|
|
|
str_6502: PASCAL_STRING "6502"
|
|
|
|
|
str_65C02: PASCAL_STRING "65C02"
|
|
|
|
|
str_658xx: PASCAL_STRING "658xx"
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
model_str_ptr: .addr 0
|
|
|
|
|
model_pix_ptr: .addr 0
|
|
|
|
|
|
|
|
|
|
line1: DEFINE_POINT 0, 37
|
|
|
|
|
line2: DEFINE_POINT da_width, 37
|
|
|
|
|
|
|
|
|
|
pos_slot1: DEFINE_POINT 45, 50
|
|
|
|
|
pos_slot2: DEFINE_POINT 45, 61
|
|
|
|
|
pos_slot3: DEFINE_POINT 45, 72
|
|
|
|
|
pos_slot4: DEFINE_POINT 45, 83
|
|
|
|
|
pos_slot5: DEFINE_POINT 45, 94
|
|
|
|
|
pos_slot6: DEFINE_POINT 45, 105
|
|
|
|
|
pos_slot7: DEFINE_POINT 45, 116
|
|
|
|
|
|
|
|
|
|
slot_pos_table:
|
|
|
|
|
.addr 0, pos_slot1, pos_slot2, pos_slot3, pos_slot4, pos_slot5, pos_slot6, pos_slot7
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
model_pos: DEFINE_POINT 150, 12
|
|
|
|
|
pdver_pos: DEFINE_POINT 150, 23
|
|
|
|
|
mem_pos: DEFINE_POINT 150, 34
|
|
|
|
|
|
|
|
|
|
.proc event_params
|
|
|
|
|
kind: .byte 0
|
|
|
|
|
;;; EventKind::key_down
|
|
|
|
|
key := *
|
|
|
|
|
modifiers := * + 1
|
|
|
|
|
;;; EventKind::update
|
|
|
|
|
window_id := *
|
|
|
|
|
;;; otherwise
|
|
|
|
|
xcoord := *
|
|
|
|
|
ycoord := * + 2
|
|
|
|
|
.res 4
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc findwindow_params
|
|
|
|
|
mousex: .word 0
|
|
|
|
|
mousey: .word 0
|
|
|
|
|
which_area: .byte 0
|
|
|
|
|
window_id: .byte 0
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc trackgoaway_params
|
|
|
|
|
clicked: .byte 0
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc dragwindow_params
|
|
|
|
|
window_id: .byte 0
|
|
|
|
|
dragx: .word 0
|
|
|
|
|
dragy: .word 0
|
|
|
|
|
moved: .byte 0
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc winport_params
|
|
|
|
|
window_id: .byte da_window_id
|
|
|
|
|
port: .addr grafport
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc grafport
|
|
|
|
|
viewloc: DEFINE_POINT 0, 0
|
|
|
|
|
mapbits: .word 0
|
|
|
|
|
mapwidth: .word 0
|
|
|
|
|
cliprect: DEFINE_RECT 0, 0, 0, 0
|
|
|
|
|
pattern: .res 8, 0
|
|
|
|
|
colormasks: .byte 0, 0
|
|
|
|
|
penloc: DEFINE_POINT 0, 0
|
|
|
|
|
penwidth: .byte 0
|
|
|
|
|
penheight: .byte 0
|
|
|
|
|
penmode: .byte 0
|
|
|
|
|
textback: .byte 0
|
|
|
|
|
textfont: .addr 0
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
;;; Per Tech Note: Apple II Miscellaneous #7: Apple II Family Identification,
|
|
|
|
|
;;; and c/o JohnMBrooks
|
|
|
|
|
|
|
|
|
|
;;; Machine $FBB3 $FB1E $FBC0 $FBDD $FBBE $FBBF
|
|
|
|
|
;;; -----------------------------------------------------------------------------
|
|
|
|
|
;;; Apple ][ $38 [$AD] [$60] [$2F]
|
|
|
|
|
;;; Apple ][+ $EA $AD [$EA] [$EA]
|
|
|
|
|
;;; Apple /// (emulation) $EA $8A
|
2019-01-05 02:27:47 +00:00
|
|
|
;;; Apple IIe $06 [$AD] $EA [$00]
|
2018-12-10 04:08:57 +00:00
|
|
|
;;; Apple IIe (enhanced) $06 [$AD] $E0 [$00]
|
|
|
|
|
;;; Apple IIe Option Card $06 [$AD] $E0 $02 $00
|
|
|
|
|
;;; Apple IIc $06 $00 $FF
|
|
|
|
|
;;; Apple IIc (3.5 ROM) $06 $00 $00
|
|
|
|
|
;;; Apple IIc (Org. Mem. Exp.) $06 $00 $03
|
|
|
|
|
;;; Apple IIc (Rev. Mem. Exp.) $06 $00 $04
|
|
|
|
|
;;; Apple IIc Plus $06 $00 $05
|
|
|
|
|
;;; Apple IIgs $06 [$4C] $E0 (and SEC, JSR $FE1F, CC=IIgs)
|
|
|
|
|
;;; Laser 128 $06 $AC [$E0]
|
|
|
|
|
;;;
|
|
|
|
|
;;; (Values in [] are for reference, not needed for compatibility check)
|
|
|
|
|
|
2019-01-05 02:27:47 +00:00
|
|
|
.enum model
|
|
|
|
|
ii ; Apple ][
|
|
|
|
|
iiplus ; Apple ][+
|
|
|
|
|
iie_original ; Apple IIe (original)
|
|
|
|
|
iie_enhanced ; Apple IIe (enhanced)
|
|
|
|
|
iic_original ; Apple IIc
|
|
|
|
|
iic_rom0 ; Apple IIc (3.5 ROM)
|
|
|
|
|
iic_rom3 ; Apple IIc (Org. Mem. Exp.)
|
|
|
|
|
iic_rom4 ; Apple IIc (Rev. Mem. Exp.)
|
|
|
|
|
iic_plus ; Apple IIc Plus
|
|
|
|
|
iigs ; Apple IIgs
|
|
|
|
|
iie_card ; Apple IIe Option Card
|
|
|
|
|
iii ; Apple /// (emulation)
|
|
|
|
|
laser128 ; Laser 128
|
|
|
|
|
LAST
|
|
|
|
|
.endenum
|
2018-12-10 04:08:57 +00:00
|
|
|
|
|
|
|
|
model_str_table:
|
2019-01-05 02:27:47 +00:00
|
|
|
.addr str_ii ; Apple ][
|
|
|
|
|
.addr str_iiplus ; Apple ][+
|
|
|
|
|
.addr str_iie_original ; Apple IIe (original)
|
|
|
|
|
.addr str_iie_enhanced ; Apple IIe (enhanced)
|
|
|
|
|
.addr str_iic_original ; Apple IIc
|
|
|
|
|
.addr str_iic_rom0 ; Apple IIc (3.5 ROM)
|
|
|
|
|
.addr str_iic_rom3 ; Apple IIc (Org. Mem. Exp.)
|
|
|
|
|
.addr str_iic_rom4 ; Apple IIc (Rev. Mem. Exp.)
|
|
|
|
|
.addr str_iic_plus ; Apple IIc Plus
|
|
|
|
|
.addr str_iigs ; Apple IIgs
|
|
|
|
|
.addr str_iie_card ; Apple IIe Option Card
|
|
|
|
|
.addr str_iii ; Apple /// (emulation)
|
|
|
|
|
.addr str_laser128 ; Laser 128
|
2018-12-10 04:08:57 +00:00
|
|
|
|
|
|
|
|
model_pix_table:
|
2019-01-05 02:27:47 +00:00
|
|
|
.addr ii_bitmap ; Apple ][
|
|
|
|
|
.addr ii_bitmap ; Apple ][+
|
|
|
|
|
.addr ii_bitmap ; Apple IIe (original)
|
|
|
|
|
.addr ii_bitmap ; Apple IIe (enhanced)
|
|
|
|
|
.addr iic_bitmap ; Apple IIc
|
|
|
|
|
.addr iic_bitmap ; Apple IIc (3.5 ROM)
|
|
|
|
|
.addr iic_bitmap ; Apple IIc (Org. Mem. Exp.)
|
|
|
|
|
.addr iic_bitmap ; Apple IIc (Rev. Mem. Exp.)
|
|
|
|
|
.addr iic_bitmap ; Apple IIc Plus
|
|
|
|
|
.addr iigs_bitmap ; Apple IIgs
|
|
|
|
|
.addr iie_card_bitmap ; Apple IIe Option Card
|
|
|
|
|
.addr iii_bitmap ; Apple /// (emulation)
|
|
|
|
|
.addr laser128_bitmap ; Laser 128
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Based on Tech Note Miscellaneous #2 "Apple II Family Identification Routines"
|
|
|
|
|
;;; http://www.1000bit.it/support/manuali/apple/technotes/misc/tn.misc.02.html
|
|
|
|
|
;;; Note that IIgs resolves as IIe (enh.) and is identified by ROM call.
|
|
|
|
|
;;;
|
|
|
|
|
;;; Format is: model (enum), then byte pairs [$FFxx, expected], then $00
|
|
|
|
|
|
|
|
|
|
model_lookup_table:
|
|
|
|
|
.byte model::ii
|
|
|
|
|
.byte $B3, $38, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iiplus
|
|
|
|
|
.byte $B3, $EA, $1E, $AD, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iii
|
|
|
|
|
.byte $B3, $EA, $1E, $8A, 0
|
|
|
|
|
|
|
|
|
|
.byte model::laser128
|
|
|
|
|
.byte $B3, $06, $1E, $AC, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iie_original
|
|
|
|
|
.byte $B3, $06, $C0, $EA, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iie_card ; must check before IIe enhanced check
|
|
|
|
|
.byte $B3, $06, $C0, $E0, $DD, $02, $BE, $00, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iie_enhanced
|
|
|
|
|
.byte $B3, $06, $C0, $E0, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iic_original
|
|
|
|
|
.byte $B3, $06, $C0, $00, $BF, $FF, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iic_rom0
|
|
|
|
|
.byte $B3, $06, $C0, $00, $BF, $00, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iic_rom3
|
|
|
|
|
.byte $B3, $06, $C0, $00, $BF, $03, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iic_rom4
|
|
|
|
|
.byte $B3, $06, $C0, $00, $BF, $04, 0
|
|
|
|
|
|
|
|
|
|
.byte model::iic_plus
|
|
|
|
|
.byte $B3, $06, $C0, $00, $BF, $05, 0
|
|
|
|
|
|
|
|
|
|
.byte $FF ; sentinel
|
2018-12-10 04:08:57 +00:00
|
|
|
|
|
|
|
|
.proc identify_model
|
|
|
|
|
;; Read from ROM
|
|
|
|
|
lda ROMIN2
|
|
|
|
|
|
2019-01-05 02:27:47 +00:00
|
|
|
ldx #0 ; offset into table
|
|
|
|
|
|
|
|
|
|
;; For each model...
|
|
|
|
|
m_loop: ldy model_lookup_table,x ; model number
|
|
|
|
|
bmi fail ; hit end of table
|
|
|
|
|
inx
|
|
|
|
|
|
|
|
|
|
;; For each byte/expected pair in table...
|
|
|
|
|
b_loop: lda model_lookup_table,x ; offset from $FB00
|
|
|
|
|
beq match ; success!
|
|
|
|
|
sta @lsb
|
|
|
|
|
inx
|
|
|
|
|
|
|
|
|
|
lda model_lookup_table,x
|
|
|
|
|
inx
|
|
|
|
|
@lsb := *+1
|
|
|
|
|
cmp $FB00 ; self-modified
|
|
|
|
|
|
|
|
|
|
beq b_loop ; match, keep looking
|
|
|
|
|
|
|
|
|
|
;; No match, so skip to end of this entry
|
|
|
|
|
: inx
|
|
|
|
|
lda model_lookup_table-1,x
|
|
|
|
|
beq m_loop
|
|
|
|
|
|
|
|
|
|
inx
|
|
|
|
|
bne :-
|
|
|
|
|
|
|
|
|
|
fail: ldy #0
|
|
|
|
|
|
|
|
|
|
match: tya
|
|
|
|
|
;; A has model; but now test for IIgs
|
|
|
|
|
sec
|
2018-12-10 04:08:57 +00:00
|
|
|
jsr ID_BYTE_FE1F
|
2019-01-05 02:27:47 +00:00
|
|
|
bcs :+ ; not IIgs
|
|
|
|
|
|
|
|
|
|
;; Is IIgs; Y holds ROM revision
|
|
|
|
|
tya
|
|
|
|
|
ora #'0' ; convert to ASCII digit
|
|
|
|
|
ldx str_iigs ; string length
|
|
|
|
|
dex
|
|
|
|
|
sta str_iigs,x ; second-to-last character
|
2018-12-10 04:08:57 +00:00
|
|
|
lda #model::iigs
|
2019-01-05 02:27:47 +00:00
|
|
|
|
|
|
|
|
;; A has model
|
|
|
|
|
: asl
|
2018-12-10 04:08:57 +00:00
|
|
|
tax
|
|
|
|
|
copy16 model_str_table,x, model_str_ptr
|
|
|
|
|
copy16 model_pix_table,x, model_pix_ptr
|
|
|
|
|
|
|
|
|
|
;; Read from LC RAM
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
;;; KVERSION Table
|
|
|
|
|
;;; $00 1.0.1
|
|
|
|
|
;;; $01 1.0.2
|
|
|
|
|
;;; $01 1.1.1
|
|
|
|
|
;;; $04 1.4
|
|
|
|
|
;;; $05 1.5
|
|
|
|
|
;;; $07 1.7
|
|
|
|
|
;;; $08 1.8
|
|
|
|
|
;;; $08 1.9
|
|
|
|
|
;;; $21 2.0.1
|
|
|
|
|
;;; $23 2.0.3
|
|
|
|
|
;;; $24 2.4.x
|
|
|
|
|
|
|
|
|
|
.proc identify_prodos_version
|
|
|
|
|
;; Read ProDOS version field from global page in main
|
|
|
|
|
sta RAMRDOFF
|
|
|
|
|
sta RAMWRTOFF
|
|
|
|
|
lda KVERSION
|
|
|
|
|
sta RAMRDON
|
|
|
|
|
sta RAMWRTON
|
|
|
|
|
|
|
|
|
|
cmp #$24
|
|
|
|
|
bcs v_2x
|
|
|
|
|
cmp #$20
|
|
|
|
|
bcs v_20x
|
|
|
|
|
|
|
|
|
|
;; $00...$08 are 1.x (roughly)
|
|
|
|
|
v_1x: and #$0F
|
|
|
|
|
clc
|
|
|
|
|
adc #'0'
|
|
|
|
|
sta str_prodos_version + 10
|
|
|
|
|
lda #'1'
|
|
|
|
|
sta str_prodos_version + 8
|
|
|
|
|
lda #10
|
|
|
|
|
sta str_prodos_version ; length
|
|
|
|
|
bne done
|
|
|
|
|
|
|
|
|
|
;; $20...$23 are 2.0.x (roughly)
|
|
|
|
|
v_20x: and #$0F
|
|
|
|
|
clc
|
|
|
|
|
adc #'0'
|
|
|
|
|
sta str_prodos_version + 12
|
|
|
|
|
lda #'0'
|
|
|
|
|
sta str_prodos_version + 10
|
|
|
|
|
lda #'2'
|
|
|
|
|
sta str_prodos_version + 8
|
|
|
|
|
lda #12
|
|
|
|
|
sta str_prodos_version ; length
|
|
|
|
|
bne done
|
|
|
|
|
|
|
|
|
|
;; $24...??? are 2.x (so far?)
|
|
|
|
|
v_2x: and #$0F
|
|
|
|
|
clc
|
|
|
|
|
adc #'0'
|
|
|
|
|
sta str_prodos_version + 10
|
|
|
|
|
lda #'2'
|
|
|
|
|
sta str_prodos_version + 8
|
|
|
|
|
lda #10
|
|
|
|
|
sta str_prodos_version ; length
|
|
|
|
|
bne done
|
|
|
|
|
|
|
|
|
|
done: rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc init
|
|
|
|
|
sta ALTZPON
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
lda LCBANK1
|
|
|
|
|
|
|
|
|
|
jsr identify_model
|
|
|
|
|
jsr identify_prodos_version
|
|
|
|
|
jsr identify_memory
|
|
|
|
|
|
|
|
|
|
MGTK_CALL MGTK::OpenWindow, winfo
|
|
|
|
|
jsr draw_window
|
|
|
|
|
MGTK_CALL MGTK::FlushEvents
|
|
|
|
|
;; fall through
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc input_loop
|
|
|
|
|
MGTK_CALL MGTK::GetEvent, event_params
|
|
|
|
|
bne exit
|
|
|
|
|
lda event_params::kind
|
|
|
|
|
cmp #MGTK::EventKind::button_down ; was clicked?
|
|
|
|
|
beq handle_down
|
|
|
|
|
cmp #MGTK::EventKind::key_down ; any key?
|
|
|
|
|
beq handle_key
|
|
|
|
|
jmp input_loop
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
.proc exit
|
|
|
|
|
MGTK_CALL MGTK::CloseWindow, winfo
|
|
|
|
|
DESKTOP_CALL DT_REDRAW_ICONS
|
|
|
|
|
rts ; exits input loop
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc handle_key
|
|
|
|
|
lda event_params::key
|
|
|
|
|
cmp #CHAR_ESCAPE
|
|
|
|
|
beq exit
|
|
|
|
|
cmp #'E'
|
|
|
|
|
bne input_loop
|
|
|
|
|
jmp handle_egg
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc handle_down
|
|
|
|
|
copy16 event_params::xcoord, findwindow_params::mousex
|
|
|
|
|
copy16 event_params::ycoord, findwindow_params::mousey
|
|
|
|
|
MGTK_CALL MGTK::FindWindow, findwindow_params
|
|
|
|
|
bne exit
|
|
|
|
|
lda findwindow_params::window_id
|
|
|
|
|
cmp winfo::window_id
|
|
|
|
|
bne input_loop
|
|
|
|
|
lda findwindow_params::which_area
|
|
|
|
|
cmp #MGTK::Area::close_box
|
|
|
|
|
beq handle_close
|
|
|
|
|
cmp #MGTK::Area::dragbar
|
|
|
|
|
beq handle_drag
|
|
|
|
|
jmp input_loop
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc handle_close
|
|
|
|
|
MGTK_CALL MGTK::TrackGoAway, trackgoaway_params
|
|
|
|
|
lda trackgoaway_params::clicked
|
|
|
|
|
beq input_loop
|
|
|
|
|
bne exit
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc handle_drag
|
|
|
|
|
copy winfo::window_id, dragwindow_params::window_id
|
|
|
|
|
copy16 event_params::xcoord, dragwindow_params::dragx
|
|
|
|
|
copy16 event_params::ycoord, dragwindow_params::dragy
|
|
|
|
|
MGTK_CALL MGTK::DragWindow, dragwindow_params
|
|
|
|
|
lda dragwindow_params::moved
|
|
|
|
|
bpl :+
|
|
|
|
|
|
|
|
|
|
;; Draw DeskTop's windows
|
|
|
|
|
sta RAMRDOFF
|
|
|
|
|
sta RAMWRTOFF
|
|
|
|
|
jsr JUMP_TABLE_REDRAW_ALL
|
|
|
|
|
sta RAMRDON
|
|
|
|
|
sta RAMWRTON
|
|
|
|
|
|
|
|
|
|
;; Draw DA's window
|
|
|
|
|
jsr draw_window
|
|
|
|
|
|
|
|
|
|
;; Draw DeskTop icons
|
|
|
|
|
DESKTOP_CALL DT_REDRAW_ICONS
|
|
|
|
|
|
|
|
|
|
: jmp input_loop
|
|
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc handle_egg
|
|
|
|
|
lda egg
|
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
copy16 model_str_table,x, model_str_ptr
|
|
|
|
|
copy16 model_pix_table,x, model_pix_ptr
|
|
|
|
|
|
|
|
|
|
inc egg
|
|
|
|
|
lda egg
|
|
|
|
|
cmp #model::LAST
|
|
|
|
|
bne :+
|
|
|
|
|
lda #0
|
|
|
|
|
sta egg
|
|
|
|
|
|
|
|
|
|
: jsr clear_window
|
|
|
|
|
jsr draw_window
|
|
|
|
|
done: jmp input_loop
|
|
|
|
|
|
|
|
|
|
egg: .byte 0
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc clear_window
|
|
|
|
|
MGTK_CALL MGTK::GetWinPort, winport_params
|
|
|
|
|
cmp #MGTK::Error::window_obscured
|
|
|
|
|
bne :+
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
: MGTK_CALL MGTK::SetPort, grafport
|
|
|
|
|
MGTK_CALL MGTK::PaintRect, grafport::cliprect
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc draw_window
|
|
|
|
|
ptr := $06
|
|
|
|
|
|
|
|
|
|
MGTK_CALL MGTK::GetWinPort, winport_params
|
|
|
|
|
cmp #MGTK::Error::window_obscured
|
|
|
|
|
bne :+
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
: MGTK_CALL MGTK::SetPort, grafport
|
|
|
|
|
MGTK_CALL MGTK::HideCursor
|
|
|
|
|
|
|
|
|
|
copy16 model_pix_ptr, bits_addr
|
|
|
|
|
MGTK_CALL MGTK::PaintBits, $0000, bits_addr
|
|
|
|
|
|
|
|
|
|
MGTK_CALL MGTK::MoveTo, model_pos
|
|
|
|
|
ldax model_str_ptr
|
|
|
|
|
jsr draw_pascal_string
|
|
|
|
|
|
|
|
|
|
MGTK_CALL MGTK::MoveTo, pdver_pos
|
|
|
|
|
addr_call draw_pascal_string, str_prodos_version
|
|
|
|
|
|
|
|
|
|
MGTK_CALL MGTK::SetPenMode, penmode
|
|
|
|
|
MGTK_CALL MGTK::MoveTo, line1
|
|
|
|
|
MGTK_CALL MGTK::LineTo, line2
|
|
|
|
|
|
|
|
|
|
MGTK_CALL MGTK::MoveTo, mem_pos
|
|
|
|
|
addr_call draw_pascal_string, str_memory_prefix
|
|
|
|
|
addr_call draw_pascal_string, str_from_int
|
|
|
|
|
addr_call draw_pascal_string, str_memory_suffix
|
|
|
|
|
addr_call draw_pascal_string, str_cpu_prefix
|
|
|
|
|
jsr cpuid
|
|
|
|
|
jsr draw_pascal_string
|
|
|
|
|
|
|
|
|
|
lda #7
|
|
|
|
|
sta slot
|
|
|
|
|
lda #1<<7
|
|
|
|
|
sta mask
|
|
|
|
|
|
|
|
|
|
loop: lda slot
|
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
copy16 slot_pos_table,x, slot_pos
|
|
|
|
|
MGTK_CALL MGTK::MoveTo, 0, slot_pos
|
|
|
|
|
lda slot
|
|
|
|
|
clc
|
|
|
|
|
adc #'0'
|
|
|
|
|
sta str_slot_n + 6
|
|
|
|
|
addr_call draw_pascal_string, str_slot_n
|
|
|
|
|
|
|
|
|
|
;; Check ProDOS slot bit mask
|
|
|
|
|
sta RAMRDOFF
|
|
|
|
|
lda SLTBYT
|
|
|
|
|
sta RAMRDON
|
|
|
|
|
and mask
|
|
|
|
|
bne check
|
|
|
|
|
|
|
|
|
|
ldax #str_empty
|
|
|
|
|
jsr draw_pascal_string
|
|
|
|
|
jmp next
|
|
|
|
|
|
|
|
|
|
check: lda slot
|
|
|
|
|
jsr probe_slot
|
|
|
|
|
jsr draw_pascal_string
|
|
|
|
|
|
|
|
|
|
next: lsr mask
|
|
|
|
|
dec slot
|
|
|
|
|
bne loop
|
|
|
|
|
|
|
|
|
|
MGTK_CALL MGTK::ShowCursor
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
slot: .byte 0
|
|
|
|
|
mask: .byte 0
|
|
|
|
|
penmode:.byte MGTK::notpencopy
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
;;; Firmware Detector: Slot # in A, returns string ptr in A,X
|
|
|
|
|
;;;
|
|
|
|
|
;;; Uses a variety of sources:
|
|
|
|
|
;;; * TechNote ProDOS #21: Identifying ProDOS Devices
|
|
|
|
|
;;; * TechNote Miscellaneous #8: Pascal 1.1 Firmware Protocol ID Bytes
|
|
|
|
|
;;; * "ProDOS BASIC Programming Examples" disk
|
|
|
|
|
|
|
|
|
|
.proc probe_slot
|
|
|
|
|
ptr := $6
|
|
|
|
|
|
|
|
|
|
;; Point ptr at $Cn00
|
|
|
|
|
clc
|
|
|
|
|
adc #$C0
|
|
|
|
|
sta ptr+1
|
|
|
|
|
lda #0
|
|
|
|
|
sta ptr
|
|
|
|
|
|
|
|
|
|
;; Get Firmware Byte
|
|
|
|
|
.macro getfwb offset
|
|
|
|
|
ldy #offset
|
|
|
|
|
lda (ptr),y
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
;; Compare Firmware Byte
|
|
|
|
|
.macro cmpfwb offset, value
|
|
|
|
|
getfwb offset
|
|
|
|
|
cmp #value
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
.macro result arg
|
|
|
|
|
ldax #arg
|
|
|
|
|
rts
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
;;; ---------------------------------------------
|
|
|
|
|
;;; Per Miscellaneous Technical Note #8
|
|
|
|
|
;;; ProDOS and SmartPort Devices
|
|
|
|
|
|
|
|
|
|
cmpfwb $01, $20 ; $Cn01 == $20 ?
|
|
|
|
|
bne notpro
|
|
|
|
|
|
|
|
|
|
cmpfwb $03, $00 ; $Cn03 == $00 ?
|
|
|
|
|
bne notpro
|
|
|
|
|
|
|
|
|
|
cmpfwb $05, $03 ; $Cn05 == $03 ?
|
|
|
|
|
bne notpro
|
|
|
|
|
|
|
|
|
|
;;; Per ProDOS Technical Note #21
|
|
|
|
|
cmpfwb $FF, $00 ; $CnFF == $00 ?
|
|
|
|
|
bne :+
|
|
|
|
|
result str_diskii
|
|
|
|
|
:
|
|
|
|
|
|
|
|
|
|
cmpfwb $07, $00 ; $Cn07 == $00 ?
|
|
|
|
|
beq :+
|
|
|
|
|
result str_block
|
|
|
|
|
|
|
|
|
|
;;; TODO: Follow SmartPort Technical Note #4
|
|
|
|
|
;;; and identify specific device type via STATUS call
|
|
|
|
|
:
|
|
|
|
|
result str_smartport
|
|
|
|
|
notpro:
|
|
|
|
|
;;; ---------------------------------------------
|
|
|
|
|
;;; Per Miscellaneous Technical Note #8
|
|
|
|
|
;;; Pascal 1.1 Devices
|
|
|
|
|
|
|
|
|
|
cmpfwb $05, $38 ; $Cn05 == $38 ?
|
|
|
|
|
bne notpas
|
|
|
|
|
|
|
|
|
|
cmpfwb $07, $18 ; $Cn07 == $18 ?
|
|
|
|
|
bne notpas
|
|
|
|
|
|
|
|
|
|
cmpfwb $0B, $01 ; $Cn0B == $01 ?
|
|
|
|
|
bne notpas
|
|
|
|
|
|
|
|
|
|
getfwb $0C ; $Cn0C == ....
|
|
|
|
|
|
|
|
|
|
.macro sig byte, arg
|
|
|
|
|
cmp #byte
|
|
|
|
|
bne :+
|
|
|
|
|
result arg
|
|
|
|
|
:
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
sig $31, str_ssc
|
|
|
|
|
sig $88, str_80col
|
|
|
|
|
sig $20, str_mouse
|
|
|
|
|
|
|
|
|
|
notpas:
|
|
|
|
|
;;; ---------------------------------------------
|
|
|
|
|
;;; Based on ProDOS BASIC Programming Examples
|
|
|
|
|
|
|
|
|
|
;;; Silentype
|
|
|
|
|
cmpfwb 23, 201
|
|
|
|
|
bne :+
|
|
|
|
|
cmpfwb 55, 207
|
|
|
|
|
bne :+
|
|
|
|
|
cmpfwb 76, 234
|
|
|
|
|
bne :+
|
|
|
|
|
result str_silentype
|
|
|
|
|
:
|
|
|
|
|
|
|
|
|
|
;;; Clock
|
|
|
|
|
cmpfwb 0, 8
|
|
|
|
|
bne :+
|
|
|
|
|
cmpfwb 1, 120
|
|
|
|
|
bne :+
|
|
|
|
|
cmpfwb 2, 40
|
|
|
|
|
bne :+
|
|
|
|
|
result str_clock
|
|
|
|
|
:
|
|
|
|
|
|
|
|
|
|
;;; Communications Card
|
|
|
|
|
cmpfwb 5, 24
|
|
|
|
|
bne :+
|
|
|
|
|
cmpfwb 7, 56
|
|
|
|
|
bne :+
|
|
|
|
|
result str_comm
|
|
|
|
|
:
|
|
|
|
|
|
|
|
|
|
;;; Serial Card
|
|
|
|
|
cmpfwb 5, 56
|
|
|
|
|
bne :+
|
|
|
|
|
cmpfwb 7, 24
|
|
|
|
|
bne :+
|
|
|
|
|
result str_serial
|
|
|
|
|
:
|
|
|
|
|
|
|
|
|
|
;;; Parallel Card
|
|
|
|
|
cmpfwb 5, 72
|
|
|
|
|
bne :+
|
|
|
|
|
cmpfwb 7, 72
|
|
|
|
|
bne :+
|
|
|
|
|
result str_parallel
|
|
|
|
|
:
|
|
|
|
|
|
|
|
|
|
;;; Generic Devices
|
|
|
|
|
cmpfwb 11, 1
|
|
|
|
|
bne :+
|
|
|
|
|
getfwb 12
|
|
|
|
|
clc
|
|
|
|
|
ror
|
|
|
|
|
ror
|
|
|
|
|
ror
|
|
|
|
|
ror
|
|
|
|
|
|
|
|
|
|
cmp #0
|
|
|
|
|
bne :+
|
|
|
|
|
result str_used
|
|
|
|
|
:
|
|
|
|
|
cmp #1
|
|
|
|
|
bne :+
|
|
|
|
|
result str_printer
|
|
|
|
|
:
|
|
|
|
|
cmp #2
|
|
|
|
|
bne :+
|
|
|
|
|
result str_joystick
|
|
|
|
|
:
|
|
|
|
|
cmp #3
|
|
|
|
|
bne :+
|
|
|
|
|
result str_io
|
|
|
|
|
:
|
|
|
|
|
cmp #4
|
|
|
|
|
bne :+
|
|
|
|
|
result str_modem
|
|
|
|
|
:
|
|
|
|
|
cmp #5
|
|
|
|
|
bne :+
|
|
|
|
|
result str_audio
|
|
|
|
|
:
|
|
|
|
|
cmp #6
|
|
|
|
|
bne :+
|
|
|
|
|
result str_clock
|
|
|
|
|
:
|
|
|
|
|
cmp #7
|
|
|
|
|
bne :+
|
|
|
|
|
result str_storage
|
|
|
|
|
:
|
|
|
|
|
cmp #8
|
|
|
|
|
bne :+
|
|
|
|
|
result str_80col
|
|
|
|
|
:
|
|
|
|
|
cmp #9
|
|
|
|
|
bne :+
|
|
|
|
|
result str_network
|
|
|
|
|
:
|
|
|
|
|
jsr detect_mockingboard
|
|
|
|
|
bcc :+
|
|
|
|
|
result str_mockingboard
|
|
|
|
|
:
|
|
|
|
|
result str_unknown
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;; Detect Mockingboard
|
|
|
|
|
;;; Assumes $06 points at $Cn00, returns carry set if found
|
|
|
|
|
|
|
|
|
|
.proc detect_mockingboard
|
|
|
|
|
ptr := $06
|
|
|
|
|
tmp := $08
|
|
|
|
|
|
|
|
|
|
ldy #4 ; $Cn04
|
|
|
|
|
ldx #2 ; try 2 times
|
|
|
|
|
|
|
|
|
|
loop: lda (ptr),Y ; 6522 Low-Order Counter
|
|
|
|
|
sta tmp ; read 8 cycles apart
|
|
|
|
|
lda (ptr),Y
|
|
|
|
|
|
|
|
|
|
sec ; compare counter offset
|
|
|
|
|
sbc tmp
|
|
|
|
|
cmp #($100 - 8)
|
|
|
|
|
bne fail
|
|
|
|
|
dex
|
|
|
|
|
bne loop
|
|
|
|
|
|
|
|
|
|
found: sec
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
fail: clc
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
;;; Update str_memory with memory count in kilobytes
|
|
|
|
|
|
|
|
|
|
.proc identify_memory
|
|
|
|
|
copy16 #0, memory
|
|
|
|
|
jsr check_ramworks_memory
|
|
|
|
|
sty memory ; Y is number of 64k banks
|
|
|
|
|
cpy #0 ; 0 means 256 banks
|
|
|
|
|
bne :+
|
|
|
|
|
inc memory+1
|
|
|
|
|
: inc16 memory ; Main 64k memory
|
|
|
|
|
asl16 memory ; * 64
|
|
|
|
|
asl16 memory
|
|
|
|
|
asl16 memory
|
|
|
|
|
asl16 memory
|
|
|
|
|
asl16 memory
|
|
|
|
|
asl16 memory
|
|
|
|
|
ldax memory
|
|
|
|
|
jsr int_to_string
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
;;; Calculate RamWorks memory; returns number of banks in Y
|
|
|
|
|
;;; (256 banks = 0, since there must be at least 1)
|
|
|
|
|
;;; Note the bus floats for RamWorks RAM when the bank has no RAM,
|
|
|
|
|
;;; or bank selection may wrap to an earlier bank.
|
|
|
|
|
;;; RamWorks-style cards are not guaranteed to have contiguous banks.
|
|
|
|
|
;;; a user can install 64Kb or 256Kb chips in a physical bank, in the
|
|
|
|
|
;;; former case, a gap in banks will appear. Additionally, the piggy
|
|
|
|
|
;;; back cards may not have contiguous banks depending on capacity
|
|
|
|
|
;;; and installed chips.
|
|
|
|
|
;;; AE RamWorks cards can only support 8M max (banks $00-$7F), but
|
|
|
|
|
;;; the various emulators support 16M max (banks $00-$FF).
|
|
|
|
|
;;;
|
|
|
|
|
;;; If RamWorks is not present, bank switching is a no-op and the
|
|
|
|
|
;;; same regular 64Kb AUX bank is present throughout the test; this
|
|
|
|
|
;;; will be handled by an invalid signature check for other banks.
|
|
|
|
|
.proc check_ramworks_memory
|
|
|
|
|
sigb0 := $00
|
|
|
|
|
sigb1 := $01
|
|
|
|
|
|
|
|
|
|
;; DAs are loaded with $1C00 as the io_buffer, so
|
|
|
|
|
;; $1C00-$1FFF MAIN is free.
|
|
|
|
|
buf0 := DA_IO_BUFFER
|
|
|
|
|
buf1 := DA_IO_BUFFER + $100
|
|
|
|
|
|
|
|
|
|
;; Run from clone in main memory
|
|
|
|
|
php
|
|
|
|
|
sei ; don't let interrupts happen while the memory map is munged
|
|
|
|
|
|
|
|
|
|
sta RAMRDOFF
|
|
|
|
|
sta RAMWRTOFF
|
|
|
|
|
|
|
|
|
|
;; Assumes ALTZPON on entry/exit
|
|
|
|
|
RWBANK := $C073
|
|
|
|
|
|
|
|
|
|
;; Iterate downwards (in case unpopulated banks wrap to earlier ones),
|
|
|
|
|
;; saving bytes and marking each bank.
|
|
|
|
|
ldx #255 ; bank we are checking
|
|
|
|
|
: stx RWBANK
|
|
|
|
|
copy sigb0, buf0,x ; preserve bytes
|
|
|
|
|
copy sigb1, buf1,x
|
|
|
|
|
txa ; bank num as first signature
|
|
|
|
|
sta sigb0
|
|
|
|
|
eor #$FF ; complement as second signature
|
|
|
|
|
sta sigb1
|
|
|
|
|
dex
|
|
|
|
|
cpx #255
|
|
|
|
|
bne :-
|
|
|
|
|
|
|
|
|
|
;; Iterate upwards, tallying and restoring valid banks.
|
|
|
|
|
ldx #0 ; bank we are checking
|
|
|
|
|
ldy #0 ; populated bank count
|
|
|
|
|
loop: stx RWBANK ; select bank
|
|
|
|
|
txa
|
|
|
|
|
cmp sigb0 ; verify first signature
|
|
|
|
|
bne next
|
|
|
|
|
eor #$FF
|
|
|
|
|
cmp sigb1 ; verify second signature
|
|
|
|
|
bne next
|
|
|
|
|
iny ; match - count it, and restore
|
|
|
|
|
copy buf0,x, sigb0
|
|
|
|
|
copy buf1,x, sigb1
|
|
|
|
|
next: inx ; next bank
|
|
|
|
|
bne loop ; if we hit 256 banks, make sure we exit
|
|
|
|
|
|
|
|
|
|
;; Switch back to RW bank 0 (normal aux memory)
|
|
|
|
|
lda #0
|
|
|
|
|
sta RWBANK
|
|
|
|
|
|
|
|
|
|
;; Back to executing from aux memory
|
|
|
|
|
sta RAMRDON
|
|
|
|
|
sta RAMWRTON
|
|
|
|
|
plp ; restore interrupt state
|
|
|
|
|
rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
.proc draw_pascal_string
|
|
|
|
|
params := $6
|
|
|
|
|
textptr := $6
|
|
|
|
|
textlen := $8
|
|
|
|
|
|
|
|
|
|
stax textptr
|
|
|
|
|
ldy #0
|
|
|
|
|
lda (textptr),y
|
|
|
|
|
beq exit
|
|
|
|
|
sta textlen
|
|
|
|
|
inc16 textptr
|
|
|
|
|
MGTK_CALL MGTK::DrawText, params
|
|
|
|
|
exit: rts
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
str_from_int:
|
|
|
|
|
PASCAL_STRING "000000"
|
|
|
|
|
|
|
|
|
|
.proc int_to_string
|
|
|
|
|
stax value
|
|
|
|
|
|
|
|
|
|
;; Fill buffer with spaces
|
|
|
|
|
ldx #6
|
|
|
|
|
lda #' '
|
|
|
|
|
: sta str_from_int,x
|
|
|
|
|
dex
|
|
|
|
|
bne :-
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
sta nonzero_flag
|
|
|
|
|
ldy #0 ; y = position in string
|
|
|
|
|
ldx #0 ; x = which power index is subtracted (*2)
|
|
|
|
|
|
|
|
|
|
;; For each power of ten
|
|
|
|
|
loop: lda #0
|
|
|
|
|
sta digit
|
|
|
|
|
|
|
|
|
|
;; Keep subtracting/incrementing until zero is hit
|
|
|
|
|
sloop: cmp16 value, powers,x
|
|
|
|
|
bpl subtract
|
|
|
|
|
|
|
|
|
|
lda digit
|
|
|
|
|
bne not_pad
|
|
|
|
|
bit nonzero_flag
|
|
|
|
|
bmi not_pad
|
|
|
|
|
|
|
|
|
|
;; Pad with space
|
|
|
|
|
lda #' '
|
|
|
|
|
bne :+
|
|
|
|
|
;; Convert to ASCII
|
|
|
|
|
not_pad:
|
|
|
|
|
clc
|
|
|
|
|
adc #'0' ; why not ORA $30 ???
|
|
|
|
|
pha
|
|
|
|
|
lda #$80
|
|
|
|
|
sta nonzero_flag
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
;; Place the character, move to next
|
|
|
|
|
: sta str_from_int+2,y
|
|
|
|
|
iny
|
|
|
|
|
inx
|
|
|
|
|
inx
|
|
|
|
|
cpx #8 ; up to 4 digits (*2) via subtraction
|
|
|
|
|
beq done
|
|
|
|
|
jmp loop
|
|
|
|
|
|
|
|
|
|
subtract:
|
|
|
|
|
inc digit
|
|
|
|
|
sub16 value, powers,x, value
|
|
|
|
|
jmp sloop
|
|
|
|
|
|
|
|
|
|
done: lda value ; handle last digit
|
|
|
|
|
ora #'0'
|
|
|
|
|
sta str_from_int+2,y
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
powers: .word 10000, 1000, 100, 10
|
|
|
|
|
value: .word 0 ; remaining value as subtraction proceeds
|
|
|
|
|
digit: .byte 0 ; current digit being accumulated
|
|
|
|
|
nonzero_flag: ; high bit set once a non-zero digit seen
|
|
|
|
|
.byte 0
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
;;; Identify CPU - string pointer returned in A,X
|
|
|
|
|
|
|
|
|
|
.proc cpuid
|
|
|
|
|
sed
|
|
|
|
|
lda #$99
|
|
|
|
|
clc
|
|
|
|
|
adc #$01
|
|
|
|
|
cld
|
|
|
|
|
bmi p6502
|
|
|
|
|
clc
|
|
|
|
|
.pushcpu
|
|
|
|
|
.setcpu "65816"
|
|
|
|
|
sep #%00000001 ; two-byte NOP on 65C02
|
|
|
|
|
.popcpu
|
|
|
|
|
bcs p658xx
|
|
|
|
|
; 65C02
|
|
|
|
|
result str_65C02
|
|
|
|
|
p6502: result str_6502
|
|
|
|
|
p658xx: result str_658xx
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
;;; ============================================================
|
|
|
|
|
|
|
|
|
|
da_end = *
|
|
|
|
|
.assert * < $1B00, error, "DA too big"
|
|
|
|
|
;; I/O Buffer starts at MAIN $1C00
|
|
|
|
|
;; ... but icon tables start at AUX $1B00
|
