Various tweaks to the Q65 decoder; new numbering of the end-of-line decoding flags.

2026-06-07 08:24:53 -04:00 · 2020-12-31 15:52:06 -05:00
parent bcbca02c08
commit 8a4b5b6a40
6 changed files with 16 additions and 6 deletions
@@ -785,6 +785,11 @@ contains
          iaptype=idec/100
          navg=mod(idec,100)
       endif
+       if(iaptype.eq.1) then
+          iaptype=3
+       else
+          iaptype=iaptype-2
+       endif
       cflags='q  '
       write(cflags(2:2),'(i1)') iaptype
       if(navg.ge.2) write(cflags(3:3),'(i1)') navg