\r\n[GTO] [A]\r\n(w\/prgm= 001: 31 25 11)\r\n(61: 0000000000062f = prog step 001)\r\n\r\n[SST]\r\n(display 001: 31 25 11 then flicker and \"0.00\") \r\n(w\/prgm= 002: 21 22 01)\r\n(61: 0000000000052f = prog step 002)\r\n\r\n[SST]\r\n(display 002: 31 22 01, flicker, 0.00)\r\n(w\/prgm= 012: 35 22)\r\n(61: 0000022f62e22e)\r\n<\/pre>\nI had thought it would SST into the subroutine but it looks like it has continued down to the first executable instruction – in this case the RTN.<\/p>\n
The addresses in ram[61] are 22f, 62e, 22e.
\nThese translate (=120-(r+1)*7-(n+1)) to 005, 008, 012.
\n012 is the current program step. It is stored in its usual spot in ram[61] (nibbles 2,1,0).
\n008 is the f GSB 3 instruction
\n005 is the f GSB 2 instruction<\/p>\n
[SST]
\n(display 012: 35 22, not much flicker, 0.00)
\n(w\/prgm= 009: 35 22)
\n(61: 0000000022f52e)<\/p>\n
Mostly, it has shifted everything 3 “digits” to the right. Although it has also added 1 to the new rightmost item.
\nThe addresses now are: 005, 009.<\/p>\n
Of interest is that “000” is being shifted in from the left. I think the printed manual said something about RTN-ing from too deep a level of nesting takes you to “000” and stops. The manual (page 206) says “Subroutine branching is limited only by the number of returns that can be held pending by the HP-67. Three subroutine returns can be held pending at any one time in the HP-67.” It then goes on to show an example where main routine “A” calls subroutine “1” which calls subroutine “2” which calls subroutine “3”. So, my test case is one too deep anyway.<\/p>\n
Page 207 goes on to say, “If you are executing a program one step at a time with the SST key and encounter a GSB or GSB f instruction, the calculator will execute the entire subroutine before continuing to the next step. However, only one RTN instruction may be executed as the result of a GSB or GSB f instruction during single-step execution; so if a program contains a subroutine within a subroutine, execution will not return to the main program during SST execution.” This matches what we’re seeing with this process.<\/p>\n
The first SST executed the RTN at 014 and we saw instruction “012: 35 22” displayed.
\nThe second one executed the RTN at 012 and we see instruction “009: 35 22” displayed.<\/p>\n
\r\n[SST]\r\n(display 009: 35 22, flicker, 0.00)\r\n(w\/prgm= 006: 35 22)\r\n(61: 0000000000012f)\r\n\r\n[SST]\r\n(display 006: 35 22, flicker, 0.00)\r\n(w\/prgm= 007: 31 25 02)\r\n(61: 0000000000002f)\r\n<\/pre>\nRTN-ing when there isn’t a RTN address should stop the program or, if SST-ing, it positions you at the next program step.<\/p>\n
[A]
\n(display flicker, 0.00)
\n(w\/prgm= 007: 31 25 02)<\/p>\n
Running the program executes the RTN at step 006, stops the program and positions you at the next step (007), as expected.<\/p>\n
Conclusion<\/h2>\n
It looks like ram[61] contains: 00333222111ccc<\/p>\n
where c is the current program step, 1 is the first return address, 2 is the next one and 3 is the one after that.<\/p>\n
Return addresses are actually the address of the GSB (not the next instruction).<\/p>\n
The process for a RTN is:
\n– get the RTN address (shift right 3 times)
\n– add one<\/p>\n
Add one means:
\nA. decrement n, if no carry (n>=0) – you’re done
\nB. n=6, decrement r, if no carry – you’re done
\nC. r=15, decrement b, if carry – wrap to step 001 i.e. b=2<\/p>\n
The calculator can tell when it has gotten to the end of the return stack because the next RTN address is “000”.<\/p>\n
You can see how many RTNs are pending by looking at how many sets of 3 digits are in ram[61]. If there’s only one set (in position 2,1,0) that’s the user program counter and no returns are pending. If there are 3 sets then you are two levels deep (in a subroutine of a subroutine of the main program).<\/p>\n
You will never see 4 sets during functional testing as SST is going to complete one whole subroutine as a step (so that level won’t be present when you look, after the SST.<\/p>\n
Microcode<\/h2>\n
The microcode analysis summarizes to:<\/p>\n
\r\nPROG\r\n001: 31 25 11\r\n002: 31 22 01\r\n003: 35 22\r\n004: 31 25 01\r\n005: 31 22 02\r\n006: 35 22\r\n007: 31 25 02\r\n008: 31 22 03\r\n009: 35 22\r\n010: 31 25 03\r\n011: 35 22\r\n012: 84\r\n\r\n