Service module (SM1C) and peripherial flags

[ThomasF]

Thanks for the info about the ET-11967 module!

I updated my Tiny41 software in the Pico board I have to shortcut DATA into FI if the Service SM-1C ROM is loaded, and yes, that seems to work!

As can be seen in the log none of the PF flag tests jumps except ?SERV and we end up at 4633 as expected.

Basically I added the following pseudo code (dataFI is active high - if "high" drive FI line low):

Code:

 if( serviceRom )
    dataFI = ~data56; // Invert DATA line since FI is active low
  else
    dataFI = modules.getFI(); // Get any FI-flags from modules

dataFI is then used to drive FI low (if dataFI[n] is active) for each nibble (i.e. each PF flag) during the next bus cycle.

That the test fails further on is another problem (probably when checking memory - have to trace and see what happens there) - but at least this shows that we are probably able to emulate the 11967 module as well ...

Cheers,
Thomas

Part of a trace from a HP-41CV running Service Module (SM-1C) loaded on the Pico41 board:

Code:

 D 2252>0000|00000000000000 *x 460A           04E - C=0      ALL
 D 2253>0000|00000000000000 *x 460B           2DC - PT= 13
 D 2254>0000|00000000000000 *x 460C           3D0 - LC 15 (F)
 D 2255>0000|00000000000000 *x 460D           3D0 - LC 15 (F)
 D 2256>0000|F0000000000000 *x 460E           3D0 - LC 15 (F)
 D 2257>0000|FF000000000000 *x 460F           3D0 - LC 15 (F)
 D 2258>0000|FFF00000000000 *x 4610           09C - PT= 5
 D 2259>0000|FFFF0000000000 *x 4611           3D0 - LC 15 (F)
 D 225A>0000|FFFF0000000000 *x 4612           3D0 - LC 15 (F)
 D 225B>0000|FFFF0000F00000 *x 4613           3D0 - LC 15 (F)
 D 225C>0000|FFFF0000FF0000 *x 4614           01C - PT= 3
 D 225D>0000|FFFF0000FFF000 *x 4615           3AC - ?PBSY
 D 225E>0000|FFFF0000FFF000 *x 4616           0DB - JNC      +1B [4631]
 D 225F>0000|FFFF0000FFF000 *x 4617           32C - ?CRDR
 D 2260>0000|FFFF0000FFF000 *x 4618           0CB - JNC      +19 [4631]
 D 2261>0000|FFFF0000FFF000 *x 4619           22C - ?WNDB
 D 2262>0000|FFFF0000FFF000 *x 461A           0BB - JNC      +17 [4631]
 D 2263>0000|FFFF0000FFF000 *x 461B           02C - ?PF 3
 D 2264>0000|FFFF0000FFF000 *x 461C           0AF - JC       +15 [4631]
 D 2265>0000|FFFF0000FFF000 *x 461D           06C - ?PF 4
 D 2266>0000|FFFF0000FFF000 *x 461E           09F - JC       +13 [4631]
 D 2267>0000|FFFF0000FFF000 *x 461F           0AC - ?EDAV
 D 2268>0000|FFFF0000FFF000 *x 4620           08F - JC       +11 [4631]
 D 2269>0000|FFFF0000FFF000 *x 4621           16C - ?IFCR
 D 226A>0000|FFFF0000FFF000 *x 4622           07B - JNC      +0F [4631]
 D 226B>0000|FFFF0000FFF000 *x 4623           2AC - ?SRQR
 D 226C>0000|FFFF0000FFF000 *x 4624           06B - JNC      +0D [4631]
 D 226D>0000|FFFF0000FFF000 *x 4625           12C - ?FRAV
 D 226E>0000|FFFF0000FFF000 *x 4626           05B - JNC      +0B [4631]
 D 226F>0000|FFFF0000FFF000 *x 4627           26C - ?FRNS
 D 2270>0000|FFFF0000FFF000 *x 4628           04B - JNC      +09 [4631]
 D 2271>0000|FFFF0000FFF000 *x 4629           0EC - ?ORAV
 D 2272>0000|FFFF0000FFF000 *x 462A           03F - JC       +07 [4631]
 D 2273>0000|FFFF0000FFF000 *x 462B           1AC - ?TFAIL
 D 2274>0000|FFFF0000FFF000 *x 462C           02F - JC       +05 [4631]
 D 2275>0000|FFFF0000FFF000 *x 462D           36C - ?ALM
 D 2276>0000|FFFF0000FFF000 *x 462E           01F - JC       +03 [4631]
 D 2277>0000|FFFF0000FFF000 *x 462F           2EC - ?SERV
 D 2278>0000|FFFF0000FFF000 *x 4630           01B - JNC      +03 [4633]

 D 2279>0000|FFFF0000FFF000 *x 4633           05E - C=0      MS
 D 227A>0000|FFFF0000FFF000 *x 4634           3F0 - PRPH SLCT
   227B>0000|0FFF0000FFF000 *x 4635           236 - C=C+1    XS