# HG changeset patch # User Shinji KONO # Date 1546587274 -32400 # Node ID b4e43c5bc0fdb94878bee7d0b6242f4075eddfd5 # Parent 8f2154d95a04ab9921e30c9f4f78f096722f63f5 source fix diff -r 8f2154d95a04 -r b4e43c5bc0fd TL1/TL1.txt --- a/TL1/TL1.txt Fri Jan 04 10:47:39 2019 +0900 +++ b/TL1/TL1.txt Fri Jan 04 16:34:34 2019 +0900 @@ -1,4 +1,4 @@ -1000 *******TL/1************** +1000 *******TL/1*************2 1010 GAME EQU $B503 1020 TXTTOP EQU $FB7E 1030 BASE EQU $FB @@ -44,7 +44,7 @@ 1430 TEND RMB 2 1440 WEND RMB 2 1450 AMODE RMB 1 -1450 RSW RMB 1 +1460 RSW RMB 1 1470 GEND RMB 2 1480 SSW RMB 1 1490 @@ -53,8 +53,8 @@ 1520 COMP LDA #BASE 1530 TFR A,DP 1540 CLRA -5005 STA OUTDN -5006 STA LSW +1550 STA OUTDN +1560 STA LSW 1570 STA INDEX 1580 STA AMODE 1590 STA LSIZE @@ -70,12 +70,12 @@ 1690 BNE C1 1700 INCA 1710 STA TCOUNT -1720 LDA #" " +1720 LDA #' ' 1730 STA CH 1740 LDX TXTTOP 1750 LEAX 2,X 1760 STX SREG -1790 LEAX WTBLE,PCR +1770 LEAX WTBLE,PCR 1780 STX TEND 1790 LEAX OBJECT,PCR 1800 STX PC @@ -92,7 +92,7 @@ 1910 BNE *+4 1920 BSR REGNAM 1930 CLR LSIZE -1340 BSR REG0 +1940 BSR REG0 1950 LBSR PROG 1960 LBSR STPOUT 1970 LDX TEND @@ -128,7 +128,7 @@ 2270 STB TCOUNT 2280 BRA PLOOP 2290 ** -2330 * REGIST ZERO +2300 * REGIST ZERO 2310 ** 2320 REG0 LDX TEND 2330 CLR ,X+ @@ -156,7 +156,6 @@ 2550 BNE ERR4 2560 LDA VAL 2570 ADDA LSIZE -2575 STA LSIZE 2580 BSR WORD1 2590 LDA #$3A 2600 LBSR CHECK @@ -180,7 +179,7 @@ 2780 ** 2790 STAT BSR SSTAT 2800 LDB SSW -2310 BEQ RTS1 +2810 BEQ RTS1 2820 LBRA ERROR 2830 ** 2840 * STATEMENTS LIST @@ -202,6 +201,9 @@ 3000 SS1 CMPA #$34 3010 BCS SS2 3020 CMPA #$38 +3030 BCC SS2 +3040 ADDA #4 +3050 PSHS A 3060 BSR WORD1 3070 BSR STLIST 3080 PULS A @@ -245,7 +247,7 @@ 3460 BCS SS5 3470 LBRA PFCALL 3480 ** -3490 * ASS I GMENT STATEMENT +3490 * ASSIGNMENT STATEMENT 3500 ** 3510 SS5 CMPA #7 3520 BCS ASSIGN @@ -255,8 +257,8 @@ 3560 LDB VAL 3570 PSHS B 3580 CMPA #5 -5590 BNE ASS1 -5600 LBSR SUBSC1 +3590 BNE ASS1 +3600 LBSR SUBSC1 3610 LDB ,S 3620 LDA LSW 3630 BNE AS0 @@ -284,7 +286,7 @@ 3850 BNE *+9 3860 LBSR WORD 3870 BSR ASSIGN -3680 BRA AS3 +3880 BRA AS3 3890 LDA #$3D 3900 LBSR CHECK 3910 LDA #$27 @@ -295,14 +297,14 @@ 3960 PULS B 3970 STB GLL 3980 TSTA -3390 BNE AS4 +3990 BNE AS4 4000 LBSR PUTX 4010 LDA #$A7 4020 LDS OPER 4030 LBRA PUTAB 4040 AS4 DECA 4050 BNE AS5 -4050 LBSR PUTX +4060 LBSR PUTX 4070 LDA #$33 4080 LBSR PUTA 4090 LBRA STABX @@ -320,8 +322,8 @@ 4210 ** 4220 SSEND COM SSW 4230 RTS -4242 ** -4250 CMPA #$58 +4240 ** +4250 SS6 CMPA #$58 4260 BCC SSEND 4270 CMPA #$52 4280 BCS SSEND @@ -351,9 +353,9 @@ 4520 SS7 DECB 4530 BNE SS8 4540 CMPA #4 -4531 BEQ *+5 +4550 BEQ *+5 4560 LBRA ERROR -4370 LDB VAL +4570 LDB VAL 4580 PSHS B 4590 LDB GL 4600 PSHS B @@ -377,8 +379,8 @@ 4780 LDA #$A1 4790 LBSR PUTABX 4800 LBSR PUTHS -4610 FCB 2 -4020 FDB $2305 +4810 FCB 2 +4820 FDB $2305 4830 LDA #$6C 4840 LDB OPER 4850 LBSR PUTAB @@ -399,9 +401,9 @@ 5000 FDB $2603 5010 BSR SLAOUT 5020 LDS INDEX -5130 PSHS B +5030 PSHS B 5040 LBSR STAT -5500 PULS B +5050 PULS B 5060 STB INDEX 5070 BSR PEROUT 5080 BSR MINOUT @@ -410,7 +412,7 @@ 5110 ** IF—THEN 5120 ** 5130 SS9 DECB -3140 BNE SS10 +5140 BNE SS10 5150 LBSR EXPR 5160 LDA #$65 5170 LBSR CHECK @@ -420,7 +422,7 @@ 5210 BSR SLAOUT 5220 LDB INDEX 5230 PSHS B -5340 LBSR STAT +5240 LBSR STAT 5250 PULS B 5260 CMPB INDEX 5270 BEQ *+4 @@ -436,7 +438,7 @@ 5370 LDA #$66 5380 LBSR CHECK 5390 CLRB -3400 S10A INCB +5400 S10A INCB 5410 PSHS B 5420 STB ACC 5430 LBSR LEXPR @@ -449,13 +451,14 @@ 5500 LDB INDEX 5510 PSHS B 5520 LBSR STAT +5530 BSR SLAOUT 5540 BSR PEROUT 5550 BSR PLUOUT 5560 PULS B 5570 STB INDEX 5580 PULS B 5590 LDA SY -5600 CMPA #$XX +5600 CMPA #$67 5610 BNE S10A 5620 PSHS B 5630 LBSR WORD @@ -472,6 +475,7 @@ 5740 LBSR PUTHS 5750 FDB $0297 5760 FCB OUTDN +5770 LDA #$3D 5780 LBSR CHECK 5790 WTLP CLR ACC 5800 BSR WTERM @@ -483,17 +487,17 @@ 5860 WTEN LDA #$36 5870 LBRA CHECK 5880 ** -3890 WTERM CMPA #$6C -3900 BNE WR1 +5890 WTERM CMPA #$6C +5900 BNE WR1 5910 LBSR PUTHS 5920 FDB $03BD 5930 FDB PUTSTR 5940 LDA CH -5950 WR01 CMPA #""" +5950 WR01 CMPA #'"' 5960 BEQ WR02 5970 LBSR PUTA 5980 LBSR GETCH -5390 BRA WR01 +5990 BRA WR01 6000 WR02 CLRA 6010 STA INDEX 6020 LBSR PUTA @@ -504,7 +508,7 @@ 6070 BNE WR3 6080 LBSR WORD 6090 CMPA #$37 -6121 BEQ WR2 +6100 BEQ WR2 6110 LBSR PUTHS 6120 FDB $03BD 6130 FDB CRLFA @@ -523,10 +527,11 @@ 6260 LBSR PUTHS 6270 FDB $03BD 6280 FDB SPACEA +6290 RTS 6300 ** 6310 WR4 CMPA #$A9 6320 BNE WR5 -6320 LBSR SUBSC +6330 LBSR SUBSC 6340 LBSR PUTHS 6350 FDB $03BD 6360 FDB PUTCA @@ -546,9 +551,9 @@ 6500 FDB $03BD 6510 FDB PUTDA 6520 WR66 CLR INDEX -530 RTS11 RTS +6530 RTS11 RTS 6540 ** -6750 * PUTX & PUTB +6550 * PUTX & PUTB 6560 ** 6570 PUTABX PSHS D 6580 BSR PUTX @@ -562,7 +567,7 @@ 6660 BEQ RTS11 6670 STB INDEX 6680 ADDB #LB+1 -6490 LDA #$DE +6690 LDA #$DE 6700 *** 6710 * PUT ACC A&B 6720 ** @@ -575,7 +580,7 @@ 6790 LBSR AOUT 6800 LDX RNDH 6810 RTS -6820 •* +6820 ** 6830 * PUTHS STRING 6840 ** 6850 PUTHS LDX ,S++ @@ -604,7 +609,7 @@ 7080 CMPX WEND 7090 BNE ER0 7100 JMP GAME -7010 ** +7110 ** 7120 * WORD DECORDER 7130 ** 7140 WORD BSR WORDS @@ -617,17 +622,17 @@ 7210 ** SKIP CONT ,SPACE.; 7220 WD1 CMPA #$21 7230 BCS SKIP -7340 CMPA #"." +7240 CMPA #'.' 7250 BEQ SKIP -7260 CMPA #";" +7260 CMPA #';' 7270 BNE WD2 7280 SKIP BSR GETCH 7290 BRA WD1 7300 ** 7310 * COMMENT 7320 ** -7330 WD2 CMPA #"%" -7440 BNE WD3 +7330 WD2 CMPA #'%' +7340 BNE WD3 7350 BSR GETCH 7360 CMPA #$20 7370 BCC *--4 @@ -635,7 +640,7 @@ 7390 ** 7400 * ASCC CONST 7410 ** -7420 WD3 CMPA #"'" +7420 WD3 CMPA #'\'' 7430 BNE WD4 7440 BSR GETCH 7450 STA VAL @@ -645,15 +650,16 @@ 7490 STA CH 7500 PULS X,PC 7510 * HEX CONSTANT -7520 WD4 CMPA #"$" +7520 WD4 CMPA #'$' 7530 BNE WD5 7540 WD40 BSR GETCH +7550 BSR TSTNA 7560 BEQ WD41 7570 BCC RTS2 -7580 +7580 CMPA #'F'+1 7590 BCC RTS2 7600 SUBA #7 -7610 WD41 SUBA #"0" +7610 WD41 SUBA #'0' 7620 LDB VAL 7630 ASLB 7640 ASLB @@ -661,27 +667,27 @@ 7660 ASLB 7670 PSHS B 7680 ADDA ,S+ -7693 STA VAL +7690 STA VAL 7700 BRA WD40 7710 ** 7720 * TEST ALPHA NUMERIC -7730 TSTNA CMPA #"0" +7730 TSTNA CMPA #'0' 7740 BCS NAF 7750 CMPA #'9'+1 7760 BCS NT -7770 CMPA #"A" +7770 CMPA #'A' 7780 BCS NAF 7790 CMPA #'Z'+1 7800 BCS AT 7810 NAF CLRB CLEAR C -7823 AT LDB #-1 -7833 RTS2 RTS +7820 AT LDB #-1 +7830 RTS2 RTS 7840 NT CLRB -7350 RTS +7850 RTS 7860 ** DECIMAL CONSTANT 7870 WD5 BSR TSTNA -7883 BNE WD6 -7890 WD50 SUBA #"0" +7880 BNE WD6 +7890 WD50 SUBA #'0' 7900 PSHS A 7910 LDA VAL 7920 LDB #10 @@ -751,11 +757,11 @@ 8560 CMPA #6 8570 BCS *+3 8580 NEGB -8390 STB GL +8590 STB GL 8600 ANDA #$FD 8610 S07 STA SY 8620 RTSS RTS -8620 ** +8630 ** 8640 * ARITHMATIC EXPRESSION 8650 ** 8660 WEXPR LBSR WORD @@ -764,20 +770,20 @@ 8690 RTE RTS 8700 ** WORD * LEXPR 8710 WLEXPR LBSR WORD -8620 ** +8720 ** 8730 * LOGICAL EXPRESSION -8640 ** +8740 ** 8750 LEXPR BSR REXPR 8760 LE1 LDY SY 8770 CMPA #$82 8780 BCS RTE -6790 CMPA #$8A+1 +8790 CMPA #$8A+1 8800 BCC RTE 8810 PSHS A 8820 LBSR WORD 8830 BSR REXPR 8840 LDB LSW -3850 BNE LE2 +8850 BNE LE2 8860 LBSR PUTHS 8870 FDB $0397 8880 FCB WT1 @@ -788,16 +794,16 @@ 8930 LBSR PUTAB 8940 BRA LE1 8950 LE2 PULS A -8560 BSR OCORD +8960 BSR OCORD 8970 BRA LE1 8980 ** 8990 * RELATIONAL EXPRESS -8900 ** +9000 ** 9010 REXPR BSR AEXPR 9020 RE1 LDA SY 9030 CMPA #$21 -5040 BCS RTE -9350 CMPA #$30 +9040 BCS RTE +9050 CMPA #$30 9060 BCC RTE 9070 PSHS A 9080 LBSR WORD @@ -842,14 +848,14 @@ 9470 PULS A 9480 ADDA AMODE 9490 LDB OPER -3500 LBRA PUTAB +9500 LBRA PUTAB 9510 * PUT 'TAB:PULS A' 9520 PUTPUL LBSR PUTHS 9530 FCB 2 9540 FDB $1632 9550 RTE1 RTS -9560 -9570 +9560 * PUT 'PULS B' +9570 PUTPLB LDA #$33 9580 BRA PUTA1 9590 ** 9600 * ADDING EXPRESSION @@ -860,7 +866,7 @@ 9650 BEQ AE2 9660 CMPA #$8B 9670 BNE RTE1 -9650 AE2 PSHS A +9680 AE2 PSHS A 9690 LBSR WORD 9700 BSR MEXPR 9710 PULS A @@ -880,7 +886,7 @@ 9850 BSR TERM 9860 LDB LSW 9870 BEQ ME3 -9830 LDA #$C6 +9880 LDA #$C6 9890 BSR OCORD 9900 FCB $8C 9910 ME3 BSR PUTPUL @@ -901,9 +907,9 @@ 10060 * TERM 10070 ** 10080 TERM LDA SY -10050 BNE TM1 +10090 BNE TM1 10100 * SAVE L-COMMAND -10110 SLOAD, PSHS A +10110 SLOAD PSHS A 10120 LBSR OLOAD 10130 LDA VAL 10140 STA OPER @@ -924,7 +930,7 @@ 10290 BRA SLOAD 10300 * SYSTEM VAR MHIGH & MOD 10310 TM2 CMPA #$16 -10220 BRA *+6 +10320 BRA *+6 10330 CMPA #$17 10340 BNE TM3 10350 STA VAL @@ -990,7 +996,7 @@ 10950 PFC3 BEQ PFC4 10960 LBSR PUTA 10970 DECA -10380 BRA PFC3 +10980 BRA PFC3 10990 PFC4 LDA #$BD 11000 LBSR PUTA 11010 LDD ,X @@ -1030,7 +1036,7 @@ 11350 FCB $8D 11360 FDB GETDA 11370 RTS -11280 * FUNCTION NOTASL ET AL +11380 * FUNCTION NOTASL ET AL 11390 TM7 CMPA #$40 11400 BCS TM8 11410 CMPA #$49+1 @@ -1038,7 +1044,7 @@ 11430 PSHS A 11440 BSR SUBSC 11450 PULS A -11450 LBRA PUTA +11460 LBRA PUTA 11470 * ARRAY 11480 TM8 CMPA #$5 11490 BNE TM9 @@ -1076,7 +1082,7 @@ 11810 LBRA CHECK 11820 SUBSC1 LBSR WORD 11830 LDA #$36 -11240 LBSR CHECK +11840 LBSR CHECK 11850 LBSR LEXPR 11860 LDB LSW 11870 BEQ SBS5 @@ -1098,7 +1104,7 @@ 12030 CLR INDEX 12040 RTS 12050 ** FOR EXPANTION -12060 TM10 BRA ERROR +12060 TM10 LBRA ERROR 12070 ** 12080 * LIBRARY ADDRESSS TABLE 12090 ** @@ -1126,11 +1132,12 @@ 12310 DEFPF BSR SETPFT 12320 LDX XR 12330 TST ,X -12740 BNE TWICE +12340 BNE TWICE 12350 COM ,X 12360 LDX 1,X 12370 STX YR 12380 LDX XR +12390 LEAX 1,X 12400 BSR PCST 12410 LDX YR 12420 DP1 BEQ RT10 @@ -1139,7 +1146,7 @@ 12450 LDX YR 12460 BSR PCST 12470 LDX ZR -17480 STX YR +12480 STX YR 12490 BRA DP1 12500 ** 12510 * CALL PORC-FUNC @@ -1156,7 +1163,7 @@ 12620 LDX PC 12630 BSR STAABX 12640 LDX XR -12650 TST , X +12650 TST ,X 12660 BNE PC2ADD 12670 LEAX 1,X 12680 BSR PCST @@ -1175,7 +1182,7 @@ 12810 PULDEF BSR PULSTK 12820 PCST LDD PC 12830 STAABX STD ,X -12840 PT10 RTS +12840 RT10 RTS 12850 ** 12860 JMPOUT LDA #$7E 12870 AOUT LDX PC @@ -1209,11 +1216,12 @@ 13150 ** 13160 * PUSH STRCK & DEFINE 13170 ** -13189 PSHDEF LDX SP +13180 PSHDEF LDX SP 13190 BSR PCST 13200 LEAX -2,X 13210 STX SP 13220 RTS +13230 ** 13240 OUTPC3 BSR AOUT 13250 LDD PC 13260 ADDD #3 @@ -1223,7 +1231,7 @@ 13300 LDAAX LDA #$B7 13310 BSR OUTPC3 13320 LDA #$A6 -13730 LA1 BSR AOUT +13330 LA1 BSR AOUT 13340 BRA INCPC1 13350 ** 13360 * STA B,X @@ -1242,9 +1250,9 @@ 13490 RTS 135n0 ** 13510 * END OF LOAD -13320 ** +13520 ** 13530 ENDL LDX PFTBEG -13340 LDA PFMAX +13540 LDA PFMAX 13550 EL1 BEQ EL 13560 TST ,X 13570 BEQ UDERR @@ -1270,6 +1278,7 @@ 13770 ** 13780 * INPUT ROUTINE 13790 * GET ONE CHR FORM MEMORY +13800 ** 13810 MEMIN LDX SREG 13820 LDA ,X+ 13830 BEQ LEND @@ -1277,10 +1286,10 @@ 13850 MEM2 LBRA PUTCA 13860 LEND LDA #$D 13870 BSR MEM2 -13860 LDA #$A +13880 LDA #$A 13890 TST ,X++ 13900 BPL MEM1 -13910 LDA #"/" +13910 LDA #'/' 13920 RTS 13930 ********************** 13940 * ADVANCE WORD @@ -1290,18 +1299,18 @@ 13980 FCC "ROC" 13990 FCB $31,-'F' 14000 FCC "UNC" -14010 FCB $32, 'V' +14010 FCB $32,'V' 14020 FCC "AR" 14030 FCB $33,-'A' 14040 FCC "RRAY" -14030 FCB $34, -'B' +14050 FCB $34,-'B' 14060 FCC "EGIN" 14070 FCB $35,';' 14080 FCB $36,-'[' 14090 FCB $37,-'(' -'4100 FCB $38,-'E' +14100 FCB $38,-'E' 14110 FCC "ND" -14120 FCB $39, -'=' +14120 FCB $39,-'=' 14130 FCB $3A,-']' 14140 FCB $3B,-')' 14150 FCB $3C,-';' @@ -1318,21 +1327,21 @@ 14260 FCC "OR" 14270 FCB $61,-'T' 14280 FCC "O" -14290 FCB $52, -'R' +14290 FCB $52,-'R' 14300 FCC "EPEATI1 14310 FCB $60,-'U' 14320 FCC "NTIL" -14330 FCB $54, -'W' +14330 FCB $54,-'W' 14340 FCC "HILE" 14350 FCB $64,-'D' 14360 FCC "O" 14370 FCB $56,-'C' 14380 FCC "ASE" -14390 FCB $66, -'O' +14390 FCB $66,-'O' 14400 FCC "F" 14410 FCB $67,-'E' 14420 FCC "LSE" -14430 FCB $57, -'W' +14430 FCB $57,-'W' 14440 FCC "RITE" 14450 FCB $69,-'A' 14460 FCC "SCII" @@ -1366,16 +1375,16 @@ 14740 FCB,$43,-'C','O','M' 14750 FCB $44,-'L','S','R' 14760 FCB $46,-'R','O','R' -14790 FCB $47,-'A','S','R' -14590 FCB $48,-'A','S','L' -14590 FCB $49,-'R','O','L' -14590 FCB $06,-'M','E','M' +14770 FCB $47,-'A','S','R' +14780 FCB $48,-'A','S','L' +14790 FCB $49,-'R','O','L' +14800 FCB $06,-'M','E','M' 14810 FCB $A0,-'T' 14820 FCC "RUE" 14830 FCB $A1,-'F' 14840 FCC "ALSE" 14850 FCB $16,-'M' -14660 FCC "HIGH" +14860 FCC "HIGH" 14870 FCB $17,-'M' 14880 FCC "OD" 14890 FCB $70,-'R','N','D' @@ -1389,8 +1398,8 @@ 14970 * & I/0 CONTROL 14980 ** 14990 SYSTEM EQU $8837 -13000 RUB EQU $8 -13010 STACK EQU $FEE00 +15000 RUB EQU $8 +15010 STACK EQU $FEE00 15020 ** OBJECT START 15030 C LDS #STACK 15040 VARPTR LDX #0 @@ -1407,20 +1416,20 @@ 15150 LDD LB 15160 STD ,X++ 15170 STX LB -13180 RTS +15180 RTS 15190 ** 15200 * PULL LB 15210 ** -13220 PULLB LDX LB +15220 PULLB LDX LB 15230 LDX ,--X 15240 STX LB 15250 TSTA 15260 RTS 15270 ** -13280 * RND FUNCTION +15280 * RND FUNCTION 15290 ** 15300 RND PSHS A -13310 LDA RNDL +15310 LDA RNDL 15320 LDB $125 15330 MUL 15340 ADDD #1 @@ -1439,7 +1448,7 @@ 15470 * DVISITION SET MOD 15480 ** 15490 DIV STB WT1 -13500 BEQ ERDIV +15500 BEQ ERDIV 15510 TFR A,B 15520 CLRA 15530 STA WT2 @@ -1450,17 +1459,18 @@ 15580 CMPB WT1 15590 BCS DV2 15600 SUBB WT1 -15510 ORCC #1 -15520 BRA *+4 -15530 DV2 ANDCC #$FE CLR C +15610 ORCC #1 +15620 BRA *+4 +15630 DV2 ANDCC #$FE CLR C 15640 ROLA 15650 DEC WT2 +15660 BNE DV1 15670 STB MOD 15680 TSTA 15690 RTS 15700 ** 15710 ERDIV STB OUTDN -17720 LBSR CRLF +15720 LBSR CRLF 15730 LBSR PUTSTR 15740 FCC "ERR DIV 0" 15750 MONIT JMP SYSTEM @@ -1488,7 +1498,7 @@ 15970 DECB 15980 BNE P0 15990 COMA 3,X -16000 LDA #"0" +16000 LDA #'0' 16010 LDB #4 16020 P1 LEAX 1,X 16030 DECB @@ -1514,41 +1524,41 @@ 16230 PSHS A 16240 BSR GETCA 16250 CMPA #RUB -16265 BNE GD1 -16275 PULS A +16260 BNE GD1 +16270 PULS A 16280 LDB #10 16290 LBSR DIV 16300 BRA GETDA+1 -16310 GD1 SUBA #"0" +16310 GD1 SUBA #'0' 16320 BCS GD2 16330 CMPA #10 16340 BCC GD2 -16355 STA DBUF -16365 PULS A +16350 STA DBUF +16360 PULS A 16370 LDB #10 16380 MUL 16390 ADDB DBUF -16405 TFR B,A -16415 BRA GETDA+1 +16400 TFR B,A +16410 BRA GETDA+1 16420 GD2 PULS A,PC 16430 ** -16445 * SPACE A TIMES -16455 ** +16440 * SPACE A TIMES +16450 ** 16460 SPACEA BEQ CL1 16470 PSHS A -16485 LDA #" " +16480 LDA #' ' 16490 BSR PUTCA 16500 PULS A -16310 DECA +16510 DECA 16520 BRA SPACEA 16530 ** 16540 * STR OUT 16550 ** 16560 PUTSTR PSHS X 16570 LDX 2,S -16560 STR1 LDA ,X+ +16580 STR1 LDA ,X+ 16590 BEQ STR2 -16650 LBSR PUTCA +16600 LBSR PUTCA 16610 BRA STR1 16620 STR2 STX 2,S 16630 PULS X,PC @@ -1558,9 +1568,9 @@ 16670 CRLF LDA #$0D 16680 BSR PUTCA 16690 LDA #$0A -16755 BRA PUTCA +16700 BRA PUTCA 16710 ** -16725 * CRLF A TIMES +16720 * CRLF A TIMES 16730 ** 16740 CRLFA BEQ CL1 16750 PSHS A @@ -1585,7 +1595,7 @@ 16940 LEAX INAT,PC 16950 ASLB 16960 JSR [B,X] -16970 PULS X, PC +16970 PULS X,PC 16980 ** 16990 * INPUT ROUTINE ADDRESS 17000 ** diff -r 8f2154d95a04 -r b4e43c5bc0fd src/a09.c --- a/src/a09.c Fri Jan 04 10:47:39 2019 +0900 +++ b/src/a09.c Fri Jan 04 16:34:34 2019 +0900 @@ -440,6 +440,7 @@ { int t; srcptr++; + if (*srcptr=='\\')srcptr++; t=*srcptr; if(t)srcptr++; if (*srcptr=='\'')srcptr++; @@ -799,7 +800,7 @@ case '#': if(mode==5)seterror(2);else mode=0; srcptr++; - if (*srcptr=='"') { + if (*srcptr=='"') { // ?? operand = (srcptr[1]<<8) + srcptr[2] ; srcptr += 3; break;