800 REM
802 IF A1=&h43 THEN GOTO 850
804 IF A1=&h4B THEN GOTO 852
806 IF A1=&h53 THEN GOTO 854
808 IF A1=&h5B THEN GOTO 856
810 IF A1=&h63 THEN GOTO 858
812 IF A1=&h6B THEN GOTO 860
814 IF A1=&h73 THEN GOTO 862
816 IF A1=&h7B THEN GOTO 864
820 RESTORE 5000
822 READ CK$
824 WW$=LEFT$(CK$,2)
826 IF A1$<>WW$ THEN GOTO 822
828 PRINT AD$;" ED ";LEFT$(CK$,2);" ";RIGHT$(CK$,LEN(CK$)-2):V=V+2:GOTO 110
850 PRINT AD$;" ED 43 ";A2$;" ";A3$;" LD ($";A3$;A2$;"),BC":V=V+4:GOTO 110
852 PRINT AD$;" ED 4B ";A2$;" ";A3$;" LD BC,($";A3$;A2$;")":V=V+4:GOTO 110
854 PRINT AD$;" ED 53 ";A2$;" ";A3$;" LD ($";A3$;A2$;"),DE":V=V+4:GOTO 110
856 PRINT AD$;" ED 5B ";A2$;" ";A3$;" LD DE,($";A3$;A2$;")":V=V+4:GOTO 110
858 PRINT AD$;" ED 63 ";A2$;" ";A3$;" LD ($";A3$;A2$;"),HL":V=V+4:GOTO 110
860 PRINT AD$;" ED 6B ";A2$;" ";A3$;" LD HL,($";A3$;A2$;")":V=V+4:GOTO 110
862 PRINT AD$;" ED 73 ";A2$;" ";A3$;" LD ($";A3$;A2$;"),SP":V=V+4:GOTO 110
864 PRINT AD$;" ED 7B ";A2$;" ";A3$;" LD SP,($";A3$;A2$;")":V=V+4:GOTO 110
900 REM
904 IF A1=&hCB THEN RESTORE 950:GOTO 940
906 RESTORE 6000
908 READ CK$
910 WW=VAL(LEFT$(CK$,1)):MM$=MID$(CK$,2,2)
912 IF A1$<>MM$ THEN GOTO 908
913 ON WW GOTO 920,925,930,935
914 PRINT AD$;" FD ";MM$;" ";RIGHT$(CK$,LEN(CK$)-3):V=V+2:GOTO 110
920 PRINT AD$;" ED ";MM$;" ";A2$;" ";RIGHT$(CK$,LEN(CK$)-3);A2$;")":V=V+3:GOTO 110
925 I=INSTR(CK$,"$"):MID$(CK$,I+1,4)=A3$+A2$
926 PRINT AD$;" FD ";A1$;" ";A2$;" ";A3$;RIGHT$(CK$,LEN(CK$)-3):V=V+4:GOTO 110
930 I=INSTR(CK$,"$"):MID$(CK$,I+1,2)=A2$
931 PRINT AD$;" FD ";A1$;" ";A2$;" ";RIGHT$(CK$,LEN(CK$)-3):V=V+3:GOTO 110
935 PRINT AD$;" FD 36 ";A2$;" ";A3$;" LD (IY+$";A2$;"),$";A3$:V=V+4:GOTO 110
940 READ CK$
941 WW$=LEFT$(CK$,2):IF WW$<>A3$ THEN GOTO 940
942 PRINT AD$;" FD CB ";A2$;" ";CK$;A2$;")":V=V+4:GOTO 110
950 DATA "06 RLC (IY+$","0E RRC (IY+$","16 RL (IY+$","1E RR (IY+$"
951 DATA "26 SLA (IY+$","2E SRA (IY+$","36 SLL (IY+$","3E SRL (IY+$"
952 DATA "46 BIT 0,(IY+$","4E BIT 1,(IY+$","56 BIT 2,(IY+$","5E BIT 3,(IY+$"
953 DATA "66 BIT 4,(IY+$","6E BIT 5,(IY+$","76 BIT 6,(IY+$","7E BIT 7,(IY+$"
954 DATA "86 RES 0,(IY+$","8E RES 1,(IY+$","96 RES 2,(IY+$","9E RES 3,(IY+$"
955 DATA "A6 RES 4,(IY+$","AE RES 5,(IY+$","B6 RES 6,(IY+$","BE RES 7,(IY+$"
956 DATA "C6 SET 0,(IY+$","CE SET 1,(IY+$","D6 SET 2,(IY+$","DE SET 3,(IY+$"
957 DATA "E6 SET 4,(IY+$","EE SET 5,(IY+$","F6 SET 6,(IY+$","FE SET 7,(IY+$"
10000 C=11
10010 K=3
10020 IF INT(C/K)<>(C/K) AND C>K*K THEN K=K+2:GOTO 10020
10030 REM
10040 IF INT(C/K)<>(C/K) THEN PRINT C;
10050 C=C+2
10060 IF C>1000 THEN END
10070 GOTO 10010