commit 157ff21cb9c18757bf8529fa8aaa0493b1518724 from: Sven M. Hallberg date: Thu Jun 11 19:01:44 2026 UTC BASASM.30 - new high/inc operator syntax Use up arrow for increment and percent for high byte. This frees up the plus sign for hypothetical future use in more proper arithmetic expressions. 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