Version analysis of GTNME / GTNMEW

Cassette, Electron
Docked, 6502SP, Master
       Name: GTNME
       Name: GTNMEW

Cassette, Electron
Docked, 6502SP, Master
   INWK                 The commander name entered, terminated by a return
                        character (13)
   INWK                 The full filename, including drive and directory, in
                        the form ":0.E.JAMESON", for example, terminated by a
                        return character (13)

Docked
 Other entry points:

   GTNME                Skip the delay at the start of the routine

Docked, 6502SP, Master
.GTNMEW

Docked
6502SP
 LDY #8                 \ Wait for 8/50 of a second (0.16 seconds)
 JSR DELAY
\LDY #8                 \ These instructions are commented out in the original
\JSR DELAY              \ source

Cassette
Electron
 LDA #1                 \ Clear the top part of the screen, draw a border box,
 JSR TT66               \ and set the current view type in QQ11 to 1

 LDA #123               \ Print recursive token 123 ("{crlf}COMMANDER'S NAME? ")
 JSR TT27

 JSR DEL8               \ Wait for 8/50 of a second (0.16 seconds)
 LDA #1                 \ Clear the top part of the screen, draw a border box,
 JSR TT66               \ and set the current view type in QQ11 to 1

 LDA #123               \ Print recursive token 123 ("{crlf}COMMANDER'S NAME? ")
 JSR TT27

 JSR DEL8               \ Call DEL8 to wait for 30 delay loops

Cassette
 LDA #%10000001         \ Clear 6522 System VIA interrupt enable register IER
 STA VIA+&4E            \ (SHEILA &4E) bit 1 (i.e. enable the CA2 interrupt,
                        \ which comes from the keyboard)

Cassette, Electron
 LDA #15                \ Call OSBYTE with A = 15 (flush all buffers)
 TAX
 JSR OSBYTE

 LDX #LO(RLINE)         \ Set (Y X) to point to the RLINE parameter block
 LDY #HI(RLINE)         \ configuration block below

Cassette
Electron
 LDA #0                 \ Call OSWORD with A = 0 to read a line from the current
 JSR OSWORD             \ input stream (i.e. the keyboard)

\LDA #%00000001         \ These instructions are commented out in the original
\STA VIA+&4E            \ source, but they would set 6522 System VIA interrupt
                        \ enable register IER (SHEILA &4E) bit 1 (i.e. disable
                        \ the CA2 interrupt, which comes from the keyboard)

 BCS TR1                \ The C flag will be set if we pressed ESCAPE when
                        \ entering the name, in which case jump to TR1 to copy
                        \ the last saved commander's name from NA% to INWK
                        \ and return from the subroutine there
 LDA #0                 \ Set A = 0 for the following OSWORD call

 DEC KEYB               \ Decrement KEYB, so it is now &FF, to indicate that we
                        \ are reading from the keyboard using an OS command

 JSR OSWORD             \ Call OSWORD with A = 0 to read a line from the current
                        \ input stream (i.e. the keyboard)

 INC KEYB               \ Increment KEYB back to 0 to indicate we are done
                        \ reading the keyboard

 BCS TR1                \ The C flag will be set if we pressed ESCAPE when
                        \ entering the name, in which case jump to TR1 to copy
                        \ the last saved commander's name from NA% to INWK
                        \ and return from the subroutine there

Docked, 6502SP
Master
 LDX #4                 \ First we want to copy the drive and directory part of
                        \ the commander file from S1% (which equals NA%-5), so
                        \ set a counter in x for 5 bytes, as the string is of
                        \ the form ":0.E."
 LDX #4                 \ First we want to copy the drive and directory part of
                        \ the commander file from NA%-5, so set a counter in X
                        \ for 5 bytes, as the string is of the form ":0.E."

Docked, 6502SP, Master
.GTL3

 LDA NA%-5,X            \ Copy the X-th byte from NA%-5 to INWK
 STA INWK,X

 DEX                    \ Decrement the loop counter

 BPL GTL3               \ Loop back until the whole drive and directory string
                        \ has been copied to INWK to INWK+4

 LDA #7                 \ The call to MT26 below uses the OSWORD block at RLINE
 STA RLINE+2            \ to fetch the line, and RLINE+2 defines the maximum
                        \ line length allowed, so this changes the maximum
                        \ length to 7 (as that's the longest commander name
                        \ allowed)

 LDA #8                 \ Print extended token 8 ("{single cap}COMMANDER'S
 JSR DETOK              \ NAME? ")

 JSR MT26               \ Call MT26 to fetch a line of text from the keyboard
                        \ to INWK+5, with the text length in Y, so INWK now
                        \ contains the full pathname of the file, as in
                        \ ":0.E.JAMESON", for example

 LDA #9                 \ Reset the maximum length in RLINE+2 to the original
 STA RLINE+2            \ value of 9

Cassette, Electron
Docked, 6502SP
Master
 JMP TT67               \ We have a name, so jump to TT67 to print a newline
                        \ and return from the subroutine using a tail call
 RTS                    \ Return from the subroutine
 STY thislong           \ Store the length of the length of the commander's that
                        \ was entered in thislong

 RTS                    \ Return from the subroutine