Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-02-02 19:31:45 +00:00
Code Issues Projects Releases Wiki Activity

this.apple DA: Add Laser 128 bitmap

Browse Source
This commit is contained in:
Joshua Bell 2018-04-07 22:44:20 -07:00
parent 68082e361b
commit 0e31586753
1 changed files with 54 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
desk.acc/this.apple.s
View File

@ -128,6 +128,15 @@ 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)
@ -266,6 +275,39 @@ iie_card_bits:
.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(%0000001),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:
@ -295,6 +337,11 @@ str_iic_plus:
str_iigs:
PASCAL_STRING "Apple IIgs"
str_laser128:
PASCAL_STRING "Laser 128"
;;; ============================================================
str_prodos_version:
PASCAL_STRING "ProDOS 0.0.0"
@ -430,14 +477,18 @@ textfont: .addr 0
iigs := 6
iie_card := 7
iii := 8
laser128 := 9
.endscope
model_str_table:
.addr str_ii, str_iiplus, str_iie, str_iie_enhanced
.addr str_iic, str_iic_plus, str_iigs, str_iie_card, str_iii
.addr str_iic, str_iic_plus, str_iigs, str_iie_card
.addr str_iii, str_laser128
model_pix_table:
.addr iie_bitmap, iie_bitmap, iie_bitmap, iie_bitmap
.addr iic_bitmap, iic_bitmap, iigs_bitmap, iie_card_bitmap, iii_bitmap
.addr iic_bitmap, iic_bitmap, iigs_bitmap, iie_card_bitmap
.addr iii_bitmap, laser128_bitmap
.proc identify_model
;; Read from ROM
@ -475,6 +526,7 @@ iie: lda #model::iie
bpl done
iie_or_iigs:
;; TODO: Identify Laser 128
sec
jsr $FE1F
bcc iigs