Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 07:49:20 +00:00
Code Issues Projects Releases Wiki Activity

This Apple DA: Distinguish 65802/65816

Browse Source
This commit is contained in:
Joshua Bell 2019-03-27 19:13:21 -07:00
parent 6d76fea638
commit 6abca47257
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -390,7 +390,8 @@ str_empty: PASCAL_STRING "(empty)"
str_cpu_prefix: PASCAL_STRING " CPU: " str_cpu_prefix: PASCAL_STRING " CPU: "
str_6502: PASCAL_STRING "6502" str_6502: PASCAL_STRING "6502"
str_65C02: PASCAL_STRING "65C02" str_65C02: PASCAL_STRING "65C02"
str_658xx: PASCAL_STRING "658xx" str_65802: PASCAL_STRING "65802"
str_65816: PASCAL_STRING "65816"
;;; ============================================================ ;;; ============================================================
@ -1387,7 +1388,16 @@ nonzero_flag: ; high bit set once a non-zero digit seen
; 65C02 ; 65C02
result str_65C02 result str_65C02
p6502: result str_6502 p6502: result str_6502
p658xx: result str_658xx
;; Distinguish 65802 and 65816 by machine ID
p658xx: lda ROMIN2
sec
jsr ID_BYTE_FE1F
lda LCBANK1
lda LCBANK1
bcs p65802
result str_65816 ; Only IIgs supports 65816
p65802: result str_65802 ; Other boards support 65802
.endproc .endproc
;;; ============================================================ ;;; ============================================================