RetroWiki & Cacharreo [RW]

Evalúa una expresión numérica y retorna el entero en (X) o Error "FC" si > 32767 ($B73D-$B74F) 3377 3378 B734 8D 07 LB734 BSR LB73D * EVALUATE AN EXPRESSION, RETURN 3379 B736 9F 2B STX BINVAL * THE VALUE IN X; STORE IT IN BINVAL 3380 B738 BD B2 6D LB738 JSR LB26D SYNTAX CHECK FOR A COMMA ...

Función VAL ($B716-$B73C) 3360 3361 * VAL 3362 B716 BD B6 86 VAL JSR LB686 POINT X TO STRING ADDRESS 3363 B719 10 27 03 1C LBEQ LBA39 IF NULL STRING SET FPA0 3364 B71D DE A6 LDU CHARAD SAVE INPUT POINTER IN REGISTER U 3365 B71F 9F A6 STX CHARAD POINT INPUT POINTER TO ADDRESS OF STRING 3366 B721 3A ...

Evalúa una expresión numérica y retorna el entero en ACCB o Error "FC" si > 255 ($B709-$B715) 3352 * EVALUATE AN EXPRESSION - RETURN AN INTEGER IN 3353 * ACCB - 'FC' ERROR IF EXPRESSION > 255 3354 B709 9D 9F LB709 JSR GETNCH GET NEXT BASIC INPUT CHARACTER 3355 B70B BD B1 41 LB70B JSR LB14...

Hace un chequeo de sintaxis para ")" ($B6F5-$B708) 3341 * DO A SYNTAX CHECK FOR ")", THEN PULL THE PREVIOUSLY CALCULATED NUMERIC 3342 * ARGUMENT (ACCD) AND STRING ARGUMENT DESCRIPTOR ADDR OFF OF THE STACK 3343 B6F5 BD B2 67 LB6F5 JSR LB267 SYNTAX CHECK FOR A ")" 3344 B...

Función LEFT$($B6AB-$B6C7) 3291 3292 * LEFT$ 3293 B6AB 8D 48 LEFT BSR LB6F5 GET ARGUMENTS FROM STACK 3294 B6AD 4F CLRA CLEAR STRING POINTER OFFSET - OFFSET = 0 FOR LEFT$ 3295 B6AE E1 84 LB6AE CMPB ,X * COMPARE LENGTH PARAMETER TO LENGTH OF 3296 B6B0 23 03 BLS LB6B5 * STRING AND BRANCH IF LENGTH OF ...

Función ASC$ ($B6A0-$B6AA) 3284 * ASC$ 3285 B6A0 8D 02 ASC BSR LB6A4 PUT 1ST CHARACTER OF STRING INTO ACCB 3286 B6A2 20 DF BRA LB683 CONVERT ACCB INTO FP NUMBER IN FPA0 3287 B6A4 8D E0 LB6A4 BSR LB686 POINT X TO STRING DESCRIPTOR 3288 B6A6 27 5E BEQ LB706 'FC' ERROR IF NULL STRING 3289 B6A8 E6 84 L...

Funcion CHR$ ($B68C-$B69F) 3274 * CHR$ 3275 > B68C BD B7 0E CHR JSR LB70E CONVERT FPA0 TO AN INTEGER IN ACCD 3276 B68F C6 01 LB68F LDB #1 * RESERVE ONE BYTE IN 3277 B691 BD B5 6D JSR LB56D * THE STRING SPACE 3278 B694 96 53 LDA FPA0+3 GET ASCII STRING VALUE 3279 B696 BD B5 11 JSR LB511 SAVE RESERVE...

Funcion LEN ($B681-$B68B) 3263 * LEN 3264 B681 8D 03 LEN BSR LB686 POINT X TO PROPER STRING AND GET LENGTH 3265 B683 7E B4 F3 LB683 JMP LB4F3 CONVERT ACCB TO FP NUMBER IN FPA0 3266 * POINT X TO STRING ADDRESS LOAD LENGTH INTO 3267 * ACCB. ENTER WITH THE STRING DESCRIPTOR IN 3268 * BOTTOM TWO BYTES ...

Reserva ACCB Bytes de espacio de cadenas ($B50D-$B515) 3035 * RESERVE ACCB BYTES OF STRING SPACE. RETURN START 3036 * ADDRESS IN (X) AND FRESPC 3037 B50D 9F 4D LB50D STX V4D SAVE X IN V4D 3038 B50F 8D 5C LB50F BSR LB56D RESERVE ACCB BYTES IN STRING SPACE 3039 B511 9F 58 LB511 STX STRDES+2 SAVE NEW ...

FUNCION STR$ ($B4FD-$B50C) 3028 * STR$ 3029 B4FD BD B1 43 STR JSR LB143 'TM' ERROR IF STRING VARIABLE 3030 B500 CE 03 D9 LDU #STRBUF+2 *CONVERT FP NUMBER TO ASCII STRING IN 3031 B503 BD BD DC JSR LBDDC *THE STRING BUFFER 3032 B506 32 62 LEAS 2,S PURGE THE RETURN ADDRESS FROM THE STACK 3033 B508 8E ...

FUNCION MEM 3010 * 3011 * MEM 3012 * THIS IS NOT A TRUE INDICATOR OF FREE MEMORY BECAUSE 3013 * BASIC REQUIRES A STKBUF SIZE BUFFER FOR THE STACK 3014 * FOR WHICH MEM DOES NOT ALLOW. 3015 * 3016 B4EE 1F 40 MEM TFR S,D PUT STACK POINTER INTO ACCD 3017 B4F0 93 1F SUBD ARYEND SUBTRACT END OF ARRAYS 30...

Muy interesante, Sí, es mas conciso, yo me estoy arriesgando a que sea perdida de tiempo, pero bueno, ni modo. Yo tambien flipo con lo que haces y lo rápido que lo haces, nada que ver con mi lentitud, pero ni modo, adelante. Ya le daré soporte desde basic, porque si no solo quedan drivers desde Nitr...

Hay cosas que aun no entiendo del basic normal, cuando llama a las rutinas a veces ya cuanta con uno o dos parámetros en las manos y aveces no, por ejemplo el RIGHT$ no busca la coma ni el segundo parámetro, ya los tiene o los busca en el STACK, pero el POKE llama a evaluar 2 expresiones como si no ...

Hola Luis, creo que estamos confundiendo conceptos con ideas o ganas ... Si el programador escribe en un lenguaje de alto nivel, como por ejemplo tu nuevo Basic en lugar de ensamblador, entonces esto será *interpretado* linea a línea cada vez que se ejecute. Así es el Basic, que usará las rutinas q...