2000 4C8520    jmp 2085
2003 4CBD20    jmp 20BD
2006 4C0620    jmp 2006
2009 4C0920    jmp 2009

sed 's/.......//;s/.....$//' TBtape.KIM > TBtape.hex
xxd -r -p < TBtape.hex  > TBtape.bin
run6502 -l 2000 TBtape.bin  -d 2000 28ff -x > TBtape.dis.txt

$ perl -p -e '$|++;$_=~s/\n/\r/' | ./run6502 -l 0 tinybasic.1400.65b -G 1406 -P 1409 -R 1400

PRINT 22000/7
?:?
?3142

  COLD_S   lda #$00                   ; Load accumulator with $00
           sta $20                    ; Store $00 in $20
           sta $22                    ; Store $00 in $22
! ;        lda #$02                   ; Load accumulator with $02
!          lda #$30                   ; Load accumulator with page of user RAM

  ; Begin test for free ram
  ;
           ldy #$01                   ; Load register Y with $01
!
! ; fake out the top of memory to a constant
!          lda #$40
!          sta $23
!
! MEM_T    LDA (C_22),Y               ; Load accumulator With the contents of a byte of memory
           tax                        ; Save it to X
           eor #$FF                   ; Next 4 instuctions test to see if this memeory location
           sta (C_22),Y               ; is ram by trying to write something new to it - new value
           cmp (C_22),Y               ; gets created by XORing the old value with $FF - store the
! ; patch out first of four bytes to defang the memory test
! ;         php                        ; result of the test on the stack to look at later
           txa                        ; Retrieve the old memory value
           sta (C_22),Y               ; Put it back where it came from
           inc $22                    ; Increment $22 (for next memory location)
           bne SKP_PI                 ; Goto $14A6 if we don't need to increment page
           inc $23                    ; Increment $23 (for next memory page)
! ; patch out three more  bytes to defang the memory test
! SKP_PI
! ;         PLP                        ; Now look at the result of the memory test
! ;         beq MEM_T                  ; Go test the next mempry location if the last one was ram
!
!          DEY                        ; If last memory location did not test as ram, decrement Y (should be $00 now)
           cld                        ; Make sure we're not in decimal mode