initial adaptation of register set

2021-01-26 00:03:07 +01:00
1 parent e0549d1424
commit a0c49432a7
@@ -423,23 +423,6 @@ Print_Bits:
         RTS


-; ***************
-Mon_Set_Register: ; XXX this needs adaptation
-; ***************
-
-         JSR  Get_LAC           ; get 1st. parameter
-         JSR  LAC_To_PC
-         LDY  #3
-@loop    JSR  Get_LAC
-         BCS  @exit
-         LDA  Long_AC
-         STA  Addr_Mode,Y
-         INY
-         CPY  #9
-         BCC  @loop
-@exit    JMP  Main
-
-
 ; *****
 Mon_Go:
 ; *****