) H0: IF H=1THEN ASSEMBLY IS IN HEXS2HE$"0123456789ABCDEF":SZ1:ZO$"000"~d" SIMPLE ASSEMBLER CONVENTIONS:"nM$(56),TY(56),OP(56)xI156:M$(I)zROP$(M$(I),4,1):TY(I)(ROP$)|OP$(M$(I),3):OP(I)(OP$)~M$(I)(M$(I),3) I:'"IMMEDIATE LDA #15B"ABSOLUTE LDA 1500["ZERO PAGE LDA 15q"ACCUMULATOR ASL"INDIRECT X LDA (15X)"INDIRECT Y LDA (15)Y"ZERO PAGE X LDA 15X"ZERO PAGE Y LDX 15Y"ABSOLUTE X LDA 1500X"ABSOLUTE Y LDA 1500Y6:"ENTER ALL NUMBERS IN ";PH19)"HEX":200d7)"DECIMAL":"PLEASE INPUT STARTINGADDRESS FOR ML PROGRAM": SA$H1H$SA$:5000:SADE:220SA(SA$)TASA:""H1DESA:SZ3:4000:H$;:240SA" ";!MN$:""20);? ADD NEW PSEUDO-OPS HERE](MN$,7)"FORWARD"FBSA(MN$,7)"RESOLVE"FRSAFB:FB1,FR2:" OK":230(MN$,4)"POKE""ADDR,NUMBER(DEC)";:ADR,NUM:ADR,NUM:230 MN$"END":" PROGRAM IS FROM"TA"TO"SA:$L(MN$):L$(MN$,3)>I156:L$M$(I)300EIN"850n, PRIMARY OPCODE CATEGORIES-TYTY(I):OPOP(I)1FBSATN0:20106TY01000@TY3TY1:L3OPOP8:1000JR$(MN$,L4):H16000TLR$(R$,1):LL(R$):LR$"#"480 ^LR$"("520.hTY8600FrTY3OPOP8:1000g|(R$,1)"X"(R$,1)"Y"630|(L$,1)"J"820TN(R$):TN255430TY1TY3TY4TY5OPOP42000H%TN256:L%TN256H%:TY2TY7OPOP8:470TY1TY3TY4TY5OPOP12:470-TY6TY94706850@3000UTN((R$,LL1))mTY1OPOP8:2000TY4TY52000850(R$,2)")Y"540(R$,2)"X)"570TN((R$,2,LL3))&TY1OPOP16:20000850:TN((R$,2,LL3))DTY12000 N850YXTN(R$):TNTNSA2:TN128TN127"TOO FAR";:850mbTN0TNTN256wl2000v(R$,2)")Y"540(R$,1)"X"720 *ZERO YTN((R$,LL1)):TN255680TY2TY5730TY1760770:TY1OPOP24:710'TY5OPOP28:7100850:3000aTN((R$,LL1)):TN255770:780yTY2OPOP16:760TY1TY3TY5OPOP20:7608502000H%TN256:L%TN256H%: TY2OPOP24:810TY1TY3TY5OPOP28:810 850*3000%4TN(R$).>7707H710LR" ERROR ":230f 1 BYTE INSTRUCTIONSSA,OP:SASA1:H11030OP:230DEOP:4000:H$:230 2 BYTE INSTRUCTIONSTN256" INCORRECT ARGUMENT. (#5 IN HEX IS #05)":230%SA,OP:SA1,TN:SASA2:H120305OP;TN:230MDEOP:4000:H$" ";fDETN:4000:H$:230 3 BYTE INSTRUCTIONS SA,OP:SA1,L%:SA2,H%:SASA3:H13030 OP;L%;H%:230 DEOP:4000:H$" "; DEL%:4000:H$" ";  DEH%:4000:H$:230, DECIMAL TO HEX (DE TO H$)pH$"":MSZ01:N%DE(16M):DEDEN%16M:H$H$(HE$,N%1,1)}:SZ1: HEX TO DECIMAL (H$ TO DE)D0:Q3:M14:W015:(H$,M,1)(HE$,W1,1)5030W D1W(16(Q)):DDD1:QQ1:M:DE(D):Cp ACCEPT HEX OPCODE INPUT AND TRANSLATE IT TO DECIMALyz(R$,1)"#"H$"00"(R$,2):5000:R$"#"(DE):LS(R$):AZ$(R$,1):ZA$(R$,LS,1):AZ$"("6050ZA$"Y"H$"00"(R$,2,2):5000:R$"("(DE)")Y":"ZA$")"H$"00"(R$,2,2):5000:R$"("(DE)"X)":<ZA$"X"ZA$"Y"6070cH$(ZA$,4LS)R$:5000:R$(DE):~LS5H$(R$,4):6090H$"00"(R$,2)5000:R$(DE)ZA$: NADC1097,AND1033,ASL3002,BCC8144,BCS8176,BEQ8240,BIT7036,BMI80485 *NBNE8208,BPL8016,BRK0000,BVC8080,BVS8112,CLC0024,CLD0216,CLI0088z 4NCLV0184,CMP1193,CPX4224,CPY4192,DEC2198,DEX0202,DEY0136,EOR1065 >NINC2230,INX0232,INY0200,JMP6076,JSR9032,LDA1161,LDX5162,LDY5160!HNLSR3066,NOP0234,ORA1001,PHA0072,PHP0008,PLA0104,PLP0040,ROL3034I!RNROR3098,RTI0064,RTS0096,SBC1225,SEC0056,SED0248,SEI0120,STA1129!\NSTX2134,STY2132,TAX0170,TAY0168,TSX0186,TXA0138,TXS0154,TYA0152