:59468,12: ASM COPYRIGHT (C) 1979 GLEN FISHERV CURSOR #10, MAY, 1979w BOX 550, GOLETA, CA. 93017}: AS OF MAY 30,1979ZPG$"ASM":NM$"10":62000dSIZ25:SY$(SIZ),AD(SIZ)nOP56:OP$(OP)xI1OP:OP$(I):I PASS 1B$:B$""20005C$(B$,1):L$(B$,2)dC$"."C$"#"C$"$"C$"'"PCPC1:1000~C$";"PCPC2:1000C$"="9000:B$:1000$C$"@"8100:PCV:1000.PCPC1:1000 PASS 2:I1OP:T$:I4B$:B$""3000(>T23:(B$)64(B$)90T18;@(B$)61T12KCT);B$;""eHC$(B$,1):L$(B$,2)RC$"="VPC:8300:"";V$:2100\C$"@"8100:PCV:8300:"";V$:2100fC$"#"C$"$"C$"'"L$"."B$:7000:2100kB$"."VPC:8300:V$:PCPC1:2100:pC$";"C$"."C$"+"L$B$:7000:2100Vz9500:L$".$"OP$:7000`2100{ "ASSEMBLY COMPLETE." X PUTVALbC$(L$,1):L$(L$,2)lC$"."C$";"C$"+""BAD OPERAND":v8200C$"+"VV(PC1):(V0V129)V127VV256@C$";"(V0V255)"BYTE TOO BIG":V0YH(V256):VV256HkPC,V:PCPC18300:T$V$:VPC1:8300:V$;" ";T$C$";"VH:PC,V:PCPC18300:T$V$:VPC1:8300:V$;" ";T$@V0: UNHEX JT(V$)48:T9TT7( TV16VT:V$(V$,2)9 ^V$""8010? hL  GETNUMh L1$(L$,1):L2$(L$,2) L1$"#"V(L2$): L1$"$"V$L2$:8000: L1$"'"V(L2$): V(L$):  GETVAL  L1$(L$,1):L2$(L$,2)  L1$"#"V(L2$): & L1$"$"V$L2$:8000:7 + L1$"'"V(L2$):C 0 9100:Q l JUSTIFYk v V$(" "(V),5):| (# STOW LABEL 2#SYSIZ"TOO MANY LABELS": <#SY$(SY)L$:AD(SY)PC:SYSY1: # LOOKUP #I(L$)11 #:T$(L$,I,1):T$"+"T$"-"9140 #I:V0:9160; #SV$(L$,I1):L$(L$,I1):8100S #L$SV$:T$"-"VVb #SY09190 #I0SY1:SY$(I)L$VAD(I)V: #I #"UNDEFINED LABEL" #9000:VPCV: % FIND OPCODE &%T$(B$,3):SF$(B$" ",4,2) 0%I1OP:OP$OP$(I) :%:(OP$,3)T$9560! D%II N%"INVALID OPCODE":OP$"0":TY$"-":[ X%I4(OP$)5u b%:(OP$,I,2)SF$9590 l%I:9550 v%TY$(OP$,I4,1):OP$(OP$,I2,2): '"ADC 6D;X 7D;Y 79;. 65..X75.@X61.@Y71.# 69." '"AND 2D;X 3D;Y 39;. 25..X35.@X21.@Y31.# 29."4 $'"ASL 0E;X 1E;. 06..X16.A 0A-"Z .'"BCC 90+","BCS B0+","BEQ F0+" 8'"BIT 2C;. 24.","BMI 30+","BNE D0+","BPL 10+" B'"BRK 00-","BVC 50+","BVS 70+" L'"CLC 18-","CLD D8-","CLI 58-","CLV B8-"V'"CMP CD;X DD;Y D9;. C5..XD5.@XC1.@YD1.# C9."I`'"CPX EC;. E4.# E0.","CPY CC;. C4.# C0."~j'"DEC CE;X DE;. C6..XD6.","DEX CA-","DEY 88-"t'"EOR 4D;X 5D;Y 59;. 45..X55.@X41.@Y51.# 49."~'"INC EE;X FE;. E6..XF6.","INX E8-","INY C8-"'"JMP 4C;@ 6C;","JSR 20;"9'"LDA AD;X BD;Y B9;. A5..XB5.@XA1.@YB1.# A9."]'"LDX AE;Y BE;. A6..YB6.# A2."'"LDY AC;X BC;. A4..XB4.# A0."'"LSR 4E;X 5E;. 46..X56.A 4A-"'"NOP EA-"'"ORA 0D;X 1D;Y 19;. 05..X15.@X01.@Y11.# 09."'"PHA 48-","PHP 08-","PLA 68-","PLP 28-"='"ROL 2E;X 3E;. 26..X36.A 2A-"a'"ROR 6E;X 7E;. 66..X76.A 6A-"|'"RTI 40-","RTS 60-"'"SBC ED;X FD;Y F9;. E5..XF5.@XE1.@YF1.# E9."("SEC 38-","SED F8-","SEI 78-" ("STA 8D;X 9D;Y 99;. 85..X95.@X81.@Y91."2("STX 8E;. 86..Y96.","STY 8C;. 84..X94."y("TAX AA-","TAY A8-","TSX BA-","TXA 8A-","TXS 9A-","TYA 98-"*@32768,=CRT*@1,=PTR*@128,=BIT7+@826,=TOP+LDA,;CRTADR,STA.,.PTR+LDA,;CRTADR+1,STA.,.PTR+1 +LDX#,#0+=OUTER,LDY#,#0(%+=INNER,LDA@Y,.PTR?4+CMP#,' ,BEQ,+SKIPZ>+EOR#,.BIT7,STA@Y,.PTReR+=SKIP\+INY,CPY#,#250,BNE,+INNERf+CLC,LDA.,.PTR,ADC#,#250z+STA.,.PTR+LDA.,.PTR+1,ADC#,#0+STA.,.PTR+1+INX,CPX#,#4,BNE,+OUTER+RTS+=CRTADR,;CRT."">0"";8);"CURSOR #";NM$;22);PG$n5"COPYRIGHT (C) 1979";22);"BY GLEN FISHER:I110:"";:?6)"A SIMPLE 6502 ASSEMBLER"D"HIT RETURN TO BEGIN"NT$:T$""62030X"";::100$