Add CPU check to PLASMA16

2024-11-01 07:07:48 +00:00 · 2017-12-04 10:44:37 -08:00 · 2017-12-04 10:44:37 -08:00 · 40ae932940
commit 40ae932940
parent f1bdedf938
1 changed files with 32 additions and 1 deletions
--- a/src/vmsrc/plvm802.s
+++ b/src/vmsrc/plvm802.s
@ -99,7 +99,38 @@ NOS     =       $03             ; TOS-1
 ;*                            *
 ;******************************
 *        =      $2000
-        LDX     #$FE
+;*
+;* CHECK CPU TYPE
+;*
+        CLC
+        XCE                     ; SWITCH TO NATIVE MODE
+        BCS     ++              ; NOPE, NOT 65802/65816
+        LDY     #$00
+-       LDA     BADCPU,Y
+        BEQ     +
+        ORA     #$80
+        JSR     $FDED
+        INY
+        BNE     -
+       LDA     $C000
+        BPL     -
+        LDA     $C010
+        JSR     PRODOS
+        !BYTE   $65
+        !WORD   BYEPARMS
+BYEPARMS !BYTE  4
+        !BYTE   4
+        !WORD   0
+        !BYTE   0
+        !WORD   0
+BADCPU  !TEXT   "65C802/65C816 CPU REQUIRED.", 13
+        !TEXT   "PRESS ANY KEY...", 0
++      XCE                     ; SWITCH BACK TO EMULATED MODE
+
+;*
+;* INITIALIZE STACK
+;*      
+INITSP  LDX     #$FE
        TXS
        LDX     #$00
        STX     $01FF