mig.insp: clean up exit a bit

2018-06-27 17:47:46 -07:00 · 2018-06-27 17:47:46 -07:00 · bff95f3880
parent 1aab6c6ea0
commit bff95f3880
1 changed files with 5 additions and 1 deletions
--- a/mig.insp.s
+++ b/mig.insp.s
@ -58,6 +58,7 @@ BufPtr    = BufLoc+2
 MigPage   = BufPtr+2

 ; entry points
+COut      = $fded
 COut1     = $fdf0
 TabV      = $fb5b
 PrByte    = $fdda
@ -161,7 +162,10 @@ godn:     inc   MigPage
          bra   dispmig
 :         cmp   #$9b            ; escape
          bne   jump
-          rts
+          lda   #18             ; make sure DaveX "hit a key"
+          jsr   TabV            ; is on a blank line
+          lda   #$8d            ; and displays properly
+          jmp   COut            ; CR and exit
 jump:     sbc   #$b0            ; check for digit for page jump
          bmi   uinput          ; nope
          cmp   #10             ; 10 or bigger?