Se encontraron 2409 coincidencias

por luiscoco
11 Feb 2019 04:53
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando STOP ($AE09-$AE2F) 1994 * 1995 * STOP 1996 AE09 1A 01 STOP ORCC #$01 SET CARRY FLAG 1997 AE0B 26 33 LAE0B BNE LAE40 BRANCH IF ARGUMENT EXISTS 1998 AE0D 9E A6 LDX CHARAD * SAVE CURRENT POSITION OF 1999 AE0F 9F 2F STX TINPTR * BASIC’S INPUT POINTER 2000 AE11 06 00 LAE11 ROR ENDFLG ROTATE CARR...
por luiscoco
11 Feb 2019 04:52
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando END ($AE02-$AE08)

Código: Seleccionar todo

1989 *
1990 * END
1991 AE02 BD A4 26 END JSR LA426 CLOSE FILES
1992 AE05 9D A5 JSR GETCCH GET CURRENT INPUT CHAR
1993 AE07 20 02 BRA LAE0B
por luiscoco
11 Feb 2019 04:33
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Chequeo de BREAK ($ADEB-$AE01) 1976 * 1977 * BREAK CHECK 1978 ADEB BD A1 C1 LADEB JSR LA1C1 GET A KEYSTROKE ENTRY 1979 ADEE 27 0A BEQ LADFA RETURN IF NO INPUT 1980 ADF0 81 03 LADF0 CMPA #3 CONTROL C? (BREAK) 1981 ADF2 27 15 BEQ STOP YES 1982 ADF4 81 13 CMPA #$13 CONTROL S? (PAUSE) 1983 ADF6 27 03 B...
por luiscoco
11 Feb 2019 04:31
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando RESTORE ($ADE4-$ADEA)

Código: Seleccionar todo

1970 *
1971 * RESTORE
1972 ADE4 9E 19 RESTOR LDX TXTTAB BEGINNING OF PROGRAM ADDRESS
1973 ADE6 30 1F LEAX -1,X MOVE TO ONE BYTE BEFORE PROGRAM
1974 ADE8 9F 33 LADE8 STX DATPTR SAVE NEW DATA POINTER
1975 ADEA 39 RTS
por luiscoco
11 Feb 2019 01:48
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

RUTINA PRINCIPAL DEL INTERPRETE DE COMANDOS ($AD9E-$ADD9) Al parecer hace lo siguiente: - Ejecuta el HOOK A RAM para esta función, pudiendo acabar en otra función - Activa IRQ,FIRQ - Prueba si se presionó el BREAK del teclado. - Toma la dirección de por donde va (CHARAD) y la pone en TINPTR, Tempor...
por luiscoco
11 Feb 2019 01:45
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando FOR ($AD47-$AD9D) 1878 * 1879 * FOR 1880 * 1881 * THE FOR COMMAND WILL STORE 18 BYTES ON THE STACK FOR 1882 * EACH FOR-NEXT LOOP WHICH IS BEING PROCESSED. THESE 1883 * BYTES ARE DEFINED AS FOLLOWS: 0- $80 (FOR FLAG); 1884 * 1,2=INDEX VARIABLE DESCRIPTOR POINTER; 3-7=FP VALUE OF STEP; 1885 *...
por luiscoco
11 Feb 2019 01:42
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Comando NEW ($AD17-$AD25) 1851 1852 * NEW 1853 AD17 26 FB NEW BNE LAD14 BRANCH IF ARGUMENT GIVEN 1854 AD19 9E 19 LAD19 LDX TXTTAB GET START OF BASIC 1855 AD1B 6F 80 CLR ,X+ * PUT 2 ZERO BYTES THERE - ERASE 1856 AD1D 6F 80 CLR ,X+ * THE BASIC PROGRAM 1857 AD1F 9F 1B STX VARTAB AND THE NEXT ADDRESS I...
por luiscoco
11 Feb 2019 01:40
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Encuentra linea de Basic ($AD01-$AD16) 1836 * 1837 * FIND A LINE NUMBER IN THE BASIC PROGRAM 1838 * RETURN WITH CARRY SET IF NO MATCH FOUND 1839 AD01 DC 2B LAD01 LDD BINVAL GET THE LINE NUMBER TO FIND 1840 AD03 9E 19 LDX TXTTAB BEGINNING OF PROGRAM 1841 AD05 EE 84 LAD05 LDU ,X GET ADDRESS OF NEXT L...
por luiscoco
11 Feb 2019 01:38
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Computa dirección de inicio de la próxima linea ($ACEF-$AD00) 1826 * COMPUTE THE START OF NEXT LINE ADDRESSES FOR THE BASIC PROGRAM 1827 ACEF 9E 19 LACEF LDX TXTTAB POINT X TO START OF PROGRAM 1828 ACF1 EC 84 LACF1 LDD ,X GET ADDRESS OF NEXT LINE 1829 ACF3 27 21 BEQ LAD16 RETURN IF END OF PROGRAM 1...
por luiscoco
11 Feb 2019 01:37
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Borrar linea de basic ($ACC0-$ACEE) 1802 * DELETE OLD LINE FROM BASIC PROGRAM 1803 ACC0 37 02 LACC0 PULU A GET A BYTE FROM WHAT’S LEFT OF PROGRAM 1804 ACC2 A7 80 STA ,X+ MOVE IT DOWN 1805 ACC4 9C 1B CMPX VARTAB COMPARE TO END OF BASIC PROGRAM 1806 ACC6 26 F8 BNE LACC0 BRANCH IF NOT AT END 1807 ACC8...
por luiscoco
11 Feb 2019 01:36
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Insertar linea de basic ($ACA5-$ACBF) 1788 * TAKE A LINE FROM THE LINE INPUT BUFFER 1789 * AND INSERT IT INTO THE BASIC PROGRAM 1790 ACA5 BD AF 67 LACA5 JSR LAF67 CONVERT LINE NUMBER TO BINARY 1791 ACA8 9E 2B LDX BINVAL GET CONVERTED LINE NUMBER 1792 ACAA BF 02 DA STX LINHDR STORE IT IN LINE INPUT ...
por luiscoco
11 Feb 2019 01:34
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

RUTINA PRINCIPAL DEL BASIC EN MODO DIRECTO ($AC73-$ACA4) 1761 1762 * THIS IS THE MAIN LOOP OF BASIC WHEN IN DIRECT MODE 1763 AC73 BD B9 5C LAC73 JSR LB95C MOVE CURSOR TO START OF LINE 1764 AC76 8E AB ED LDX #LABE1-1 POINT X TO ‘OK’, CR MESSAGE 1765 AC79 BD B9 9C JSR LB99C PRINT ‘OK’, CR 1766 AC7C B...
por luiscoco
11 Feb 2019 01:32
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Rutina de errores ($AC46-$AC72) 1741 1742 * ERROR SERVICING ROUTINE 1743 AC46 BD 01 8E LAC46 JSR RVEC16 HOOK INTO RAM 1744 AC49 BD 01 91 JSR RVEC17 HOOK INTO RAM 1745 AC4C BD A7 E9 JSR LA7E9 TURN OFF CASSETTE 1746 AC4F BD A9 74 JSR LA974 DISABLE ANA MUX 1747 AC52 BD AD 33 JSR LAD33 RESET STACK, STR...
por luiscoco
11 Feb 2019 01:31
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Chequeo para ver si hay cupo para almacenar 2*ACCB ($AC33-$AC45) 1730 * CHECK TO SEE IF THERE IS ROOM TO STORE 2*ACCB 1731 * BYTES IN FREE RAM - OM ERROR IF NOT 1732 AC33 4F LAC33 CLRA * ACCD CONTAINS NUMBER OF EXTRA 1733 AC34 58 ASLB * BYTES TO PUT ON STACK 1734 AC35 D3 1F ADDD ARYEND END OF PROGR...
por luiscoco
11 Feb 2019 01:29
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Chequeo de memoria para array y los mueve ($AC1E-$AC32) 1714 * CHECK FOR MEMORY SPACE FOR NEW TOP OF 1715 * ARRAYS AND MOVE ARRAYS TO NEW LOCATION 1716 AC1E 8D 17 LAC1E BSR LAC37 ACCD = NEW BOTTOM OF FREE RAM - IS THERE 1717 * ROOM FOR THE STACK? 1718 * MOVE BYTES FROM V43(X) TO V41(U) UNTIL (X) = ...
por luiscoco
11 Feb 2019 01:23
Foro: Tandy CoCo
Tema: Nuevo proyecto Basic CoCo/Dragon/DP400
Respuestas: 147
Vistas: 8367

Re: Nuevo proyecto Basic CoCo/Dragon/DP400

Busca en stack por FOR y GOSUB ($ABF9-$AC1D) 1684 * SEARCH THE STACK FOR ‘GOSUB/RETURN’ OR ‘FOR/NEXT’ DATA. 1685 * THE ‘FOR/NEXT’ INDEX VARIABLE DESCRIPTOR ADDRESS BEING 1686 * SOUGHT IS STORED IN VARDES. EACH BLOCK OF FOR/NEXT DATA IS 18 1687 * BYTES WITH A $80 LEADER BYTE AND THE GOSUB/RETURN DAT...

Ir a búsqueda avanzada