UDIASSEMBLER UD 100:D,I,J,T,P:133U0 D:DHX$(HX):,D(HX$(HX):FDHXPO:40:DS$HX$SP$SDTE(PO)[D:yDDITP13TE162(TE117)DHXTED:DTE63TE118,710D:DTE203,640DTE221,IR$"IX":740DTE253,IR$"IY":740DTE237,800 EIIUP(DI)eE"OP$OP$(IP)SP$:TE207,POPO1:TE(PO):HXTE:OP$OP$" "(34):1080:OP$OP$(34):xE6IP59IP64,E@:EJTE(DI1)ETTE128TE0,E^440Eh:ErTE(DI2)E|TE0,410EOP$OP$",":440E:NFIP29IP16,T(UPO):HXPO1T(T128)(T256)(T128)T(T128):40:OP$(OP$,(OP$)3)HX$TF\F:nFB4(TE16)16FB5(TE32)32FB6(TE64)64FB4,510FB5,590FB6,OP$OP$FE$(1,TE15):FOP$OP$FE$(3,TE15):F(B6),OP$OP$"("7GB5U,HX(PO1)256(PO2):40:OP$OP$HX$:POPO2:540^GHX(PO1):30:OP$OP$HX$:POPO1uG(B6),OP$OP$")"G0(B5),580GDGN(B6),OP$OP$"("GXOP$OP$FE$(2,TE15)Gb(B6),OP$OP$")"GlGv:GPOPO1:TE(PO)GHXTEHPU:AHTE64,OP$OP$(CB((TE248)81))SP$FE$(1,(TE7)1):HOP$OP$(CB((TE192)648))((TE56)8)","FE$(1,(TE7)1)HH:HOP$"LD "FE$(1,(TE56)81)","FE$(1,(TE7)1)HH:HPOPO1:TE(PO)!ITE52TE203TE57,FE$U(2,4)IR$:190:FE$(2,4)"HL":ITE54,HXTE:30:DS$DS$HX$:HX256(PO1)(PO2):40:DS$DS$HX$:OP$"LD ("IR$"+"(HX$,2)"),"(HX$,2):POPO2:=JTE203,HX(PO1):30:FE$(2,4)IR$"+"(HX$,2):FE$(1,7)"("FE$(2,4)")":190:DS$DS$(FE$(2,4U),(FE$(2,4))2,2):FE$(2,4)"HL":FE$(1,7)"(HL)":POPO1:J TE203,HX256(PO)(PO1):40:DS$DS$HX$:POPO1:FE$(1,7)"("IR$"+"(HX$,2)")":640:FE$(1,7)"(HL)":J:J POPO1:TE(PO):HXTE:30J*DS$DS$HX$K4TE(TE8)83TE143,1U 010*K>TE(TE8)81840,850,860,900UKHOP$"IN "FE$(1,(TE87)1)",(C)":~KROP$"OUT (C),"FE$(1,(TE56)81):K\OP$"SBC HL,":RP(TE48)161Kf(TE15)10,OP$"ADC HL,"KpRP4,OP$OP$FE$(2,RP1):KzOP$OP$"SP":,LHX(PO1)3U256(PO2):40:DS$DS$(HX$,2)(HX$,2)HLRP(TE48)161:POPO2\L(TE15)11,960tLOP$"LD ("HX$"),"LRP4,OP$OP$FE$(2,RP1):LOP$OP$"SP":LOP$"LD "LRP4,OP$OP$FE$(2,RP1)",("HX$")":LOP$OP$"SP,("HX$")"M4U M:MDITP1604BMDIDI2:TE(DI)(DI)255,1020_M(DI)255,OP$OP$(75):tMOP$OP$((DI1))zMM.HXPO:40:DS$HX$" ":TE(PO):HXTE:30:DS$DS$HX$:OP$"":1080:TETE127:OP$OP$" ":1080:N8(TE29TE255),OP$OP$(TEU ):OP$OP$"."NB NVIL0LN`"Diassembl}l}s(1),vagy dumpol}s(2)? ";vNjA$:A$"1"A$"2",A$:A(A$):1130Nt"Kezd{cm:";HX$:1240:POHX:ER1,1140N~:NQQ0NA160,1070NQQQQ1:QQ15,1170N"",1120:"",1168OQQ0:U ODS$,OP$:POPO1:1160.OHX(HX$):WO2:"Inicializ}l}s,adatok beolvas}sa"tO<OP$(81),FE$(3,8),CB(11)OFTP31000OPI13OZJ18OdFE$(I,J)OnOxOB,C,D,E,H,L,(HL),A,AF,BC,DE,HL,IX,IY,AF',SP,C,M,NC,NZ,P,PE,PO,Z PI111:U CB(I):0P51,56,49,54,70,71,75,72,4,45,69