Commit Diff


commit - af89170a9b0a0275973f7b0546afe0429c631473
commit + 157ff21cb9c18757bf8529fa8aaa0493b1518724
blob - 2823c1254c4e837ac40866dff999492de81e7abc
blob + 4c078cb41d150a7936a424c36a0596041c1eec95
Binary files BASASM,PRG and BASASM,PRG differ
blob - fb6ebcefc3acff2cf2336dbaa55d21589edbcef2
blob + b5addadce71b1c4e3a06e6560b15404473040e78
--- BASASM.lst
+++ BASASM.lst
@@ -1,5 +1,5 @@
 0 REM BASASM - A SIMPLE ASSEMBLER MADE
-1 REM V.29     IN BASIC.  PESCO 2026
+1 REM V.30     IN BASIC.  PESCO 2026
 2 REM  10 VARIABLES    700 *SAVE ML PRG
 3 REM 100 LOAD OPCODES 720 *PRINT SEQ F
 4 REM 130 SUBROUTINES  740 *MEMSTAT
@@ -65,8 +65,8 @@
 138 REM
 139 REM SUB: PARSE ARGUMENT, SYM OR NUM
 140 EX = 0: B$ = A$
-141 HI = (RIGHT$(A$,1) = "↑")
-142 PL = (RIGHT$(A$,1) = "+")
+141 HI = (RIGHT$(A$,1) = "%")
+142 PL = (RIGHT$(A$,1) = "↑")
 143 IF NOT (HI OR PL) THEN 156
 144 EX = 1
 145 A$ = LEFT$(A$, LEN(A$) - 1)
blob - 39f8222c30892f2ae04238a302488e682f5676e6
blob + 24fdefd27ab385913c8aa4ecbfb0a4ff424b89d6
Binary files TEST.B,PRG and TEST.B,PRG differ
blob - 9f1a65b1af0d350367ef7d3ecd0a10be461b998c
blob + dd61cc7a33a380716b0c85dfcd0559e558a787a4
--- TEST.B.lst
+++ TEST.B.lst
@@ -1,7 +1,7 @@
 1000 DATA 'START
 1001 DATA  JMP, STXRT
 1002 DATA .DSZ, HALLO
-1003 DATA .DB, HALLO↑
+1003 DATA .DB, HALLO%
 1004 DATA .DB, 1 2 3
 1005 DATA  PHA
 1006 DATA  STA, 2048:  REM OK, FULL RNG
@@ -21,10 +21,10 @@
 1029 DATA .=, 49200, .DZ, 10
 1030 DATA .LIM, 49210
 1040 DATA  AND#, 255
-1041 DATA  ORA, $C80A+
+1041 DATA  ORA, $C80A↑
 1042 DATA  ADC#, -1025
-1050 DATA  JMP, START+
+1050 DATA  JMP, START↑
 1099 DATA .LIM, $C100:  REM 49408
-2000 DATA .=,49200, BEQR, FAR+
+2000 DATA .=,49200, BEQR, FAR↑
 2001 DATA .=,49328, 'FAR
 9999 DATA .END