changeset 119:b4e43c5bc0fd

source fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Fri, 04 Jan 2019 16:34:34 +0900
parents 8f2154d95a04
children fbb3301a2564
files TL1/TL1.txt src/a09.c
diffstat 2 files changed, 141 insertions(+), 130 deletions(-) [+]
line wrap: on
line diff
--- 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 **
--- 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;