Se encontraron 2409 coincidencias

por luiscoco
11 Feb 2019 07:10
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando INPUT ($AFF5-$B02E) 2277 * 2278 * INPUT 2279 AFF5 C6 16 INPUT LDB #11*2 ‘ID’ ERROR 2280 AFF7 9E 68 LDX CURLIN GET CURRENT LINE NUMBER 2281 AFF9 30 01 LEAX 1,X ADD ONE 2282 AFFB 27 DF BEQ LAFDC ‘ID’ ERROR BRANCH IF DIRECT MODE 2283 AFFD 8D 03 BSR LB002 GET SOME INPUT DATA 2284 AFFF 0F 6F CLR...
por luiscoco
11 Feb 2019 07:05
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Mensaje de REDO ($AFCF-$AFF4) 2259 2260 AFCF 3F 52 45 44 4F LAFCF FCC '?REDO' ?REDO MESSAGE 2261 AFD4 0D 00 FCB CR,$00 2262 2263 AFD6 C6 22 LAFD6 LDB #2*17 ‘BAD FILE DATA’ ERROR 2264 AFD8 0D 6F TST DEVNUM CHECK DEVICE NUMBER AND BRANCH 2265 AFDA 27 03 BEQ LAFDF IF SET TO SCREEN 2266 AFDC 7E AC 46 L...
por luiscoco
11 Feb 2019 07:01
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Mueve un String ($AFA4-$AFCE) 2233 * MOVE A STRING WHOSE DESCRIPTOR IS LOCATED AT 2234 * FPA0+2 INTO THE STRING SPACE. TRANSFER THE 2235 * DESCRIPTOR ADDRESS TO THE ADDRESS IN VARDES 2236 * DON’T MOVE THE STRING IF IT IS ALREADY IN THE 2237 * STRING SPACE. REMOVE DESCRIPTOR FROM STRING 2238 * STACK...
por luiscoco
11 Feb 2019 07:01
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando LET y evaluación de una expresión sin token ($AF89-$AFA3) 2217 * 2218 * LET (EXBAS) 2219 * EVALUATE A NON-TOKEN EXPRESSION 2220 * TARGET = REPLACEMENT 2221 AF89 BD B3 57 LET JSR LB357 FIND TARGET VARIABLE DESCRIPTOR 2222 AF8C 9F 3B STX VARDES SAVE DESCRIPTOR ADDRESS OF 1ST EXPRESSION 2223 A...
por luiscoco
11 Feb 2019 06:53
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Convierte un numero de línea a binario ($AF67-$AF88) Esta función toma caracteres de la línea BASIC y los convierte en un valor entero, para lo cual al código del carácter que ya viene leído le resta el del "0" obteniendo 0-9 y lo almacena en CHARAC. Luego compara el valor del byte mas al...
por luiscoco
11 Feb 2019 06:52
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando ON ($AF42-$AF66) Se usa en ON GOTO, ON GOSUB Evalúa la expresión siguiente en la línea del BASIC que esta entre el "ON" y el "GO" y el valor lo coloca en FPA0, luego revisa por el token de "GO", si no existe hará ‘SYNTAX’ ERROR. si todo va bien revisara la sint...
por luiscoco
11 Feb 2019 06:50
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando IF ($AF14-$AF41) 2147 2148 * IF 2149 AF14 BD B1 41 IF JSR LB141 EVALUATE NUMERIC EXPRESSION 2150 AF17 9D A5 JSR GETCCH GET CURRENT INPUT CHARACTER 2151 AF19 81 81 CMPA #$81 TOKEN FOR GO 2152 AF1B 27 05 BEQ LAF22 TREAT ‘GO’ THE SAME AS ‘THEN’ 2153 AF1D C6 A7 LDB #$A7 TOKEN FOR THEN 2154 AF1F...
por luiscoco
11 Feb 2019 06:49
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Avanza el apuntador de entrada hasta el final de linea o sublinea ($AEE0-$AF13) 2118 * ADVANCE INPUT POINTER TO END OF SUBLINE OR LINE 2119 AEE8 C6 3A LAEE8 LDB #': COLON = SUBLINE TERMINATOR CHARACTER 2120 AEEA 86 LAEEA FCB SKP1LD SKPILD SKIP ONE BYTE; LDA #$5F 2121 * ADVANCE BASIC’S INPUT POINTER...
por luiscoco
11 Feb 2019 06:43
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando REM/ELSE ($AEE3-$AF13)

Código: Seleccionar todo

2112
2113 * REM, ELSE
2114 ELSE
2115 AEE3 8D 06 REM BSR LAEEB MOVE INPUT POINTER TO END OF LINE
2116 AEE5 9F A6 STX CHARAD RESET BASIC’S INPUT POINTER
2117 AEE7 39 LAEE7 RTS
por luiscoco
11 Feb 2019 06:43
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando DATA ($AEE0-$AEE2)

Código: Seleccionar todo

2108 *
2109 * DATA
2110 AEE0 8D 06 DATA BSR LAEE8 MOVE INPUT POINTER TO END OF SUBLINE OR LINE
2111 AEE2 8C FCB SKP2 SKIP 2 BYTES
por luiscoco
11 Feb 2019 06:40
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando RETURN ($AEC0-$AEDF) 2089 * 2090 * RETURN 2091 AEC0 26 FD RETURN BNE LAEBF EXIT ROUTINE IF ARGUMENT GIVEN 2092 AEC2 86 FF LDA #$FF * PUT AN ILLEGAL VARIABLE NAME IN FIRST BYTE OF 2093 AEC4 97 3B STA VARDES * VARDES WHICH WILL CAUSE ‘FOR/NEXT’ DATA ON THE 2094 * STACK TO BE IGNORED 2095 AEC6...
por luiscoco
11 Feb 2019 06:39
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando GOTO ($AEA4-$AEBF) 2073 * GOTO 2074 AEA4 9D A5 LAEA4 JSR GETCCH GET CURRENT INPUT CHAR 2075 AEA6 BD AF 67 JSR LAF67 GET LINE NUMBER TO BINARY IN BINVAL 2076 AEA9 8D 40 BSR LAEEB ADVANCE BASIC’S POINTER TO END OF LINE 2077 AEAB 30 01 LEAX $01,X POINT TO START OF NEXT LINE 2078 AEAD DC 2B LDD...
por luiscoco
11 Feb 2019 06:39
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando GO ($AE86-$AEA3) 2057 * 2058 * GO 2059 AE86 1F 89 GO TFR A,B SAVE INPUT CHARACTER IN ACCB 2060 AE88 9D 9F LAE88 JSR GETNCH GET A CHARACTER FROM BASIC 2061 AE8A C1 A5 CMPB #$A5 ‘TO’ TOKEN 2062 AE8C 27 16 BEQ LAEA4 BRANCH IF GOTO 2063 AE8E C1 A6 CMPB #$A6 ‘SUB’ TOKEN 2064 AE90 26 45 BNE LAED7...
por luiscoco
11 Feb 2019 06:36
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando RUN ($AE75-$AE85) 2049 * 2050 * RUN 2051 AE75 BD 01 94 RUN JSR RVEC18 HOOK INTO RAM 2052 AE78 BD A4 26 JSR LA426 CLOSE ANY OPEN FILES 2053 AE7B 9D A5 JSR GETCCH * GET CURRENT INPUT CHARACTER 2054 AE7D 10 27 FE A0 LBEQ LAD21 * IF NO LINE NUMBER 2055 AE81 BD AD 26 JSR LAD26 ERASE ALL VARIABLE...
por luiscoco
11 Feb 2019 06:35
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando CLEAR ($AE41-$AE74) 2024 * 2025 * CLEAR 2026 AE41 27 2C CLEAR BEQ LAE6F BRANCH IF NO ARGUMENT 2027 AE43 BD B3 E6 JSR LB3E6 EVALUATE ARGUMENT 2028 AE46 34 06 PSHS B,A SAVE AMOUNT OF STRING SPACE ON STACK 2029 AE48 9E 27 LDX MEMSIZ GET CURRENT TOP OF CLEARED SPACE 2030 AE4A 9D A5 JSR GETCCH G...
por luiscoco
11 Feb 2019 04:54
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8347

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando CONT ($AE30-$AE40) 2014 2015 * CONT 2016 AE30 26 0E CONT BNE LAE40 RETURN IF ARGUMENT GIVEN 2017 AE32 C6 20 LDB #2*16 ‘CAN’T CONTINUE’ ERROR 2018 AE34 9E 2D LDX OLDPTR GET CONTINUE ADDRESS (INPUT POINTER) 2019 AE36 10 27 FE 0C LBEQ LAC46 ‘CN’ ERROR IF CONTINUE ADDRESS = 0 2020 AE3A 9F A6 ST...

Ir a búsqueda avanzada