Merge pull request #71 from peterferrie/master

fix the hangs
2025-08-09 22:25:12 +00:00 · 2018-12-30 13:12:09 -05:00
parent f1160b90e0 1f9d89e250
commit 314f4e9794
1 changed files with 7 additions and 5 deletions
--- a/src/id/inspect0.a
+++ b/src/id/inspect0.a
@@ -432,7 +432,7 @@ read13

 .readaddr
         dec   tmp
-         bmi   .badread
+         bmi   .badread2
         clc
         ldx   #$02       ; 512 nibbles
         ldy   #0
@@ -442,7 +442,7 @@ read13
 ---      iny
         bne   +
         dex
-         beq   .badread
+         beq   .badread1
 +
 -        lda   $C0EC
         bpl   -
@@ -473,7 +473,7 @@ read13
 +        plp
         bcc   .readaddr
         eor   #$AD
-         bne   read13
+         bne   .readaddr
 --       ldy   #$9A
 -        ldx   $C0EC
         bpl   -
@@ -489,8 +489,10 @@ read13
         bpl   -
         eor   $800,x
         cmp   #$01       ; set carry if non-zero
-         !byte $24
-.badread
+         !byte $2c
+.badread1
+         plp
+.badread2
         sec
         lda   $C0E8
         rts