Se encontraron 2409 coincidencias

por luiscoco
28 Feb 2019 04:55
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando POKE ($B757-$B75D)

Código: Seleccionar todo

3398
3399 * POKE
3400 B757 8D DB POKE BSR LB734 EVALUATE 2 EXPRESSIONS
3401 B759 9E 2B LDX BINVAL GET THE ADDRESS TO BE 'POKE'ED
3402 B75B E7 84 STB ,X STORE THE DATA IN THAT ADDRESS
3403 B75D 39 RTS
por luiscoco
28 Feb 2019 04:54
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Función PEEK ($B750-$B756)

Código: Seleccionar todo

3393
3394 * PEEK
3395 B750 8D EE PEEK BSR LB740 CONVERT FPA0 TO INTEGER IN REGISTER X
3396 B752 E6 84 LDB ,X GET THE VALUE BEING 'PEEK'ED
3397 B754 7E B4 F3 JMP LB4F3 CONVERT ACCB INTO A FP NUMBER
por luiscoco
28 Feb 2019 04:52
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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 ...
por luiscoco
28 Feb 2019 04:50
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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 ...
por luiscoco
28 Feb 2019 04:49
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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...
por luiscoco
28 Feb 2019 04:47
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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...
por luiscoco
28 Feb 2019 04:46
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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 ...
por luiscoco
28 Feb 2019 04:40
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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...
por luiscoco
28 Feb 2019 04:39
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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...
por luiscoco
28 Feb 2019 04:37
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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 ...
por luiscoco
28 Feb 2019 04:36
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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 ...
por luiscoco
28 Feb 2019 03:45
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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 ...
por luiscoco
28 Feb 2019 03:42
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 7803

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

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...
por luiscoco
25 Feb 2019 19:44
Foro: Tandy CoCo
Tema: Proyecto Basic CoCo/Dragon/DP400 (Discusiones)
Respuestas: 71
Vistas: 4891

Re: Proyecto Basic CoCo/Dragon/DP400 (Discusiones)

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...
por luiscoco
25 Feb 2019 14:35
Foro: Tandy CoCo
Tema: Proyecto Basic CoCo/Dragon/DP400 (Discusiones)
Respuestas: 71
Vistas: 4891

Re: Proyecto Basic CoCo/Dragon/DP400 (Discusiones)

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 ...
por luiscoco
25 Feb 2019 13:09
Foro: Tandy CoCo
Tema: Proyecto Basic CoCo/Dragon/DP400 (Discusiones)
Respuestas: 71
Vistas: 4891

Re: Proyecto Basic CoCo/Dragon/DP400 (Discusiones)

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...

Ir a búsqueda avanzada