+d36879,233:" **** ASSEMBLER **** "Fn" ORGINAL M. BARTOS"^x" 1000 BERLIN"}" UPDATED AND EXTENDED"" VC 20 - VERSION"" BY "" FRED HAMMER "" AM HARTZBERG 27 " " 5411 HILLSCHEID "+" PRESS ANY KEY ";>A$:A$""200L36879,25z"";:657,128:"< ASSEMBLER STARTED >"H$"0123456789ABCDEF"AD$"033C":T%7:N0 EINGABESCHLEIFEX$AD$:360:DEDEN:400:AD$X$:N0AD$;T%);:204,0:MN$""T$:T$""280L"A(T$):A17A19A29A145A147A157280Z,A20340h6A13460@MN$MN$T$:T$;:280J DELETET(0)T%280^T$;:MN$(MN$,(MN$)1):280h HEX-UMRECHNUNGrDE0:Z014:N00:Z1116|(X$,Z0,1)(H$,Z1,1)N0Z11:Z116;:DEDE16(4Z0)N0::P DEZ-UMRECHNUNGxX$"":Z0411:Z1(DE16(Z01))Z10X$X$"0":450Z110X$X$((Z1),((Z1))1):450X$X$(Z155)DEDEZ116(Z01):: EINGABE ABGESCHLOSSEN204,1:" ")MN$"HEX"1080=MN$"DEC"1110QMN$"END"1150eMN$"TRA"1170yMN$"ADR"1330MN$"DIS"1430MN$"EXE"1380&MN$"LIS"MN$""18600MN$"MEM"2000:MN$"CHA"2160DMN$"FIL"2340N ASSEMBLER/X:DC$"":N0:X$AD$:360:XDE:B%0Vb MNEMONISCHEN CODE NACH DATA CODEllL(MN$):L3640uv650">>> ERROR !!<<<":N0:260DC$(MN$,3):L3N1:750(MN$,1)"B"DC$(MN$,3):N2:B%1:750(MN$,5,2)"#$"L8DC$DC$(32)"#":N2:750J(MN$,5,1)"$"L7DC$DC$(32)"$":N2:750f(MN$,5,1)"$"L9730(MN$,5,1)"$"L11DC$DC$(32)(MN$,1):N3:750(MN$,5,1)"("L11DC$DC$(32)"("(MN$,1):N2:750640(MN$,8,1)","DC$DC$(32)"$"(MN$,1):N2:7501DC$DC$"?":N3F OP-CODE FINDENpY1:I0255:AB$:AB$DC$YI:I255:Y1640 X,Y:N260,790,840 ZERO AND IMMIDEATE B%11030*L8L7X$"00"(MN$,2):360:X1,DE:2604L9X$"00"(MN$,6,2):360:X1,DE:260G>X$"00"(MN$,7,2):360:X1,DE:260VH ABSOLUTEzRX$"00"(MN$,8,2):360:X1,DE\X$"00"(MN$,6,2):360:X2,DE:260f DER 6502-BEFEHLSSATZp BRK,ORA (X,,,,ORA $,ASL $,,PHP,ORA #,ASL,,,ORA,ASL?,,BPL,ORA (Y,,,Pz ORA $X,ASL $X,,CLC,ORA Y,,,,ORA X,ASL X,,JSR?,AND (X,,,BIT $,AND $ ROL $,,PLP,AND #,ROL,,BIT?,AND?,ROL?,,BMI,AND (Y,,,,AND $X,ROL $X, SEC,AND Y,,,,AND X,ROL X,,RTI,EOR (X,,,,EOR $,LSR $,,PHA,EOR #) LSR,,JMP?,EOR?,LSR?,,BVC,EOR (Y,,,,EOR $X,LSR $X,,CLI,EOR Y,,,,EOR Xp LSR X,,RTS,ADC (X,,,,ADC $,ROR $,,PLA,ADC #,ROR,,JMI?,ADC?,ROR?, BVS,ADC (Y,,,,ADC $X,ROR $X,,SEI,ADC Y,,,,ADC X,ROR X,,,STA (X,, STY $,STA $,STX $,,DEY,,TXA,,STY?,STA?,STX?,,BCC,STA (Y,,,STY $XE STA $X,STX $Y,,TYA,STA Y,TXS,,,STA X,,,LDY #,LDA (X,LDX #,,LDY $ LDA $,LDX $,,TAY,LDA #,TAX,,LDY?,LDA?,LDX?,,BCS,LDA (Y,,, LDY $X LDA $X,LDX $Y,,CLV,LDA Y,TXS,,LDY X,LDA X,LDX Y,,CPY #,CMP (X,, CPY $,CMP $,DEC $,,INY,CMP #,DEX,,CPY?,CMP?,DEC?,,BNE,CMP (Y,,,\ CMP $X,DEC $X,,CLD,CMP Y,,,,CMP X,DEC X,,CPX #,SBC (X,,,CPX $ SBC $,INC $,,INX,SBC #,NOP,,CPX?,SBC?,INC?,,BEQ,SBC (Y,,,,SBC $X INC $X,,SED,SBC Y,,,,SBC X,INC X, BRANCH-BEFEHLE X$(MN$,4):360:DIXDE:(DI)128640&DI0S(DI)2:10707$S255(DI1)G.X1,S:260V8 HEX-ZAHL}B"HEX ($XXXX)";X$:X$(X$,4):360L6)"";X$") = "DE:260V DEZ-ZAHL`"DEC (NNNNN)";DE:X$(DE):X$(X$,(X$)1) j(X$)5X$"0"X$:11304 t5)""X$")":400:12)"= $"X$:260> ~ ENDr 204,0:" << ENDE ASSEMBLER >>"::36879,29:  MEMORY TRANSFER "<< MEMORY TRANSFER >>" "START (HEX)";A$:(A$)5(A$,1)"$"1190 X$(A$,4):360:ADE-!"END (HEX)";A$:(A$)5(A$,1)"$"1210F!X$(A$,4):360:EDEU!EA1210!"NEW-START(HEX)";A$:(A$)5(A$,1)"$"1240!X$(A$,4):360:A2DE!A2E1300!A2A1310!A2A1300! 1320 "ADAE:P(AD):ADAA2,P:AD,234::1320="ADEA1:P(AD):DEA2AAD:DE,P:AD,234:b"("< TRANSFER COMPLETED >":240u"2 NEUE ADRESSE"<"< ASSEMBLER STARTED >""F"NEW-ADR.(HEX)";AD$:(AD$)51350"P(AD$,1)"$"1350"ZAD$(AD$,4):N0::260#d EXECUTE #n" << PROGRAM EXECUTE >>"F#x"START (HEX)";X$:(X$)51400]#(X$,1)"$"1400#X$(X$,4):360:DE:N0:"READY.":270# DISASSEMBLER#" << DISASSEMBLER >>"#FE$AD$:"START (HEX)";A$:"END (HEX)";E$!$(A$)5(E$)5(A$,1)"$"(E$,1)"$"1450O$X$(A$,4):360:ADE:X$(E$,4):360:EDE]$EA1450$"PRINTER ? Y/N";:198,0:198,1:198,0:AN$"Y"1530$"COMMENT ";FF$$4,4:4$FF$ %" << DISASSEMBLER >>":"LINE# LOC CODE STATEMENT":9%"0001 0000 *="A$::N1V%ADAE:NN1:DEAD:400%("0000"((N),((N))1),4)" "X$" ";%"P(AD):DEP:400:S$(X$,2):%,I0P:MN$::(MN$)31750%6MN$""1810%@(MN$)41740&J(MN$,1)"#"MN$MN$"$":1680'&T(MN$,1)"$"1680@&^(MN$,5,1)"("1700Y&h(MN$,5,1)"$"1720&r1660:MN$(MN$,4)"$"A$(2)A$(1)","(MN$,1):1810&|K12:ADAD1:P(AD):DEP:400:A$(K)(X$,2)&S$S$" "(X$,2)::'ADAD1:P(AD):DEP:400:S$S$" "(X$,2)*'MN$MN$(X$,2):1810Z'ADAD1:P(AD):DEP:400:S$S$""(X$,2)'MN$(MN$,5)"$"(X$,2)"),"(MN$,1):1810'ADAD1:P(AD):DEP:400:S$S$""(X$,2)'MN$(MN$,5)(X$,2)","(MN$,1):1810(1660:MN$(MN$,3)"$"A$(2)A$(1):1810)( BRANCH-BEFEHLK(MN$"BRK"(MN$,1)"B"1810{(ADAD1:P(AD):DEP:400:S$S$""(X$,2)(P130A0AD(255P):1800(A0(AD1)P2(DEA0:400:MN$MN$"$"X$((S$" ",16)MN$::MN$"RTS")::DEAD:400=)&"START-ADR.= "A$:"END-ADR.+1 =$"X$Q)0AN$"Y"#4:4h)::AD$FE$:N0:260)D LISTE DER BEFEHLE)N"< ASSEMBLER COMMANDS >")X" LIS = COMMANDS ")b" HEX = HEX TO DEC "*l" DEC = DEC TO HEX ""*v" MEM = MEMORY DUMP "C*" CHA = CHANGE MEMORY "d*" FIL = FILL MEMORY "*" TRA = TRANSFORM MEM."*" DIS = DISASSEMBLER "*" ADR = ENTER ADRESS "*" EXE = EXECUTE PROGR." +" END = E N D ":+260&+ MEMORY DUMPE+" << MEMORY DUMP >>"v+FE$AD$:"START (HEX)";A$:"END (HEX)";E$+(A$)5(E$)5(A$,1)"$"(E$,1)"$"2020+X$(A$,4):360:ADE:X$(E$,4):360:EDE+EA2020#, "PRINTER ? Y/N";:198,0:198,1:198,0:AN$"Y"21007,"COMMENT ";FF$C, 4,4:4L,*FF$,4" << MEMORY DUMP >>":"LINE LOC CODE ":,>N0:ADAE:NN1:DEAD:400,H("0000"((N),((N))1),4)" "X$" ";-RA203:P(ADA2):DEP:400--\(X$,2)" ";:A2:ADADA21:"";:AD8-f:240L-p CHANGE MEMORYl-z" << CHANGE MEMORY >> "-FE$AD$:"START (HEX)";A$-(A$)5(A$,1)"$"2180-X$(A$,4):360:ADE-" << CHANGE MEMORY >>":"LINE LOC CODE ":N0.:ADA:NN1:DEAD:400D.("0000"((N),((N))1),4)" "X$" ";u.P(AD):DEP:400:(X$,2)" - ";:E0:X$"".AD$:AD$""2250.AD$(13)::240.AD$(20)E0" ";:X$(X$,(X$)1):EE1.AD$"^"AA1:2220 /AD$(32)AA1:2220;/(AD$)47(AD$)58(AD$)64(AD$)712320E/ 2250i/ AD$;:EE1:X$X$AD$:E22250/ X$" "X$:360:AD,DE:AA1:2220/$ FILL MEMORY/. " << FILL MEMORY >> "/8 FE$AD$:"START (HEX)";A$:"END (HEX)";E$)0B (A$)5(E$)5(A$,1)"$"(E$,1)"$"2360W0L X$(A$,4):360:ADE:X$(E$,4):360:EDEe0V EA23600` "BYTE (HEX)";A$:(A$)3(A$,1)"$"24000j X$" "(A$,2):360:A2DE0t ADAE:AD,A2:0~ "<< FILL COMPLETED >>":24091 A0255:36879,A:""A:"ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"M1 A$:A$""2450S1 a1 36879,29