menu_de_demarrage
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
menu_de_demarrage [2019/07/30 20:04] – fool-duplex | menu_de_demarrage [2023/05/27 13:22] (current) – fool-duplex | ||
---|---|---|---|
Line 3: | Line 3: | ||
Disquette de développement : {{ :menu.fd |menu.fd}} | Disquette de développement : {{ :menu.fd |menu.fd}} | ||
- | < | + | |
+ | * [[Code source de MENU.TO7 v3.2|Code source de MENU.TO7]] | ||
- | RESET EQU $FFFE | ||
- | BEGRAM EQU $2100 | ||
- | ENDRAM EQU $A000 | ||
- | IRQRE EQU $A041 | ||
- | IRQPT EQU $2064 | ||
- | SYSPRA EQU $A7C0 | ||
- | NUPOST EQU $A7D8 | ||
- | EXT64 EQU $A7CB | ||
- | NUPO | ||
- | RELACH EQU $A02B | ||
- | RESEAU EQU $A025 | ||
- | M5VCT EQU $EFFE | ||
- | ADCNTC EQU $1FFE | ||
- | ADCRDU EQU $1FF4 | ||
- | ADTRCR EQU $1FFA | ||
- | TEMPO EQU $2039 | ||
- | DUREE EQU $203B | ||
- | TIMBRE EQU $203D | ||
- | OCTAVE EQU $203E | ||
- | |||
- | KTSTH EQU $0A | ||
- | JPUTCH EQU $82 | ||
- | JNOTEH EQU $9E | ||
- | |||
- | SIZITM EQU 44 | ||
- | SIZFIL EQU 12 | ||
- | |||
- | CR | ||
- | LF | ||
- | SPACE EQU $20 | ||
- | HYPHN EQU '- | ||
- | |||
- | |||
- | | ||
- | |||
- | START JMP MAIN | ||
- | |||
- | * Table des entrees de menu | ||
- | * Maximum 20 elements, 1 element = 44 octets, soit 880 octets au total | ||
- | |||
- | NBITM FCB 4 ; 4 elements dans le menu | ||
- | |||
- | ELEM1 FCC / | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | OFEL1 FCB $01 ; Disque source | ||
- | FILE1 FCC / | ||
- | |||
- | ELEM2 FCC / | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | FILE2 FCC /LOGO MO5/ ; Fichier correspondant, | ||
- | |||
- | ELEM3 FCC /LSE/ ; Titre 3 (32 octets max) | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | FILE3 FCC /LSE | ||
- | |||
- | ELEM4 FCC / | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | FILE4 FCC / | ||
- | |||
- | | ||
- | |||
- | * | ||
- | |||
- | MAIN | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | EXTOK EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | ZMEM1 EQU * ; Efface la memoire de $2100 à $5002 | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | ZMEM2 EQU * ; Efface la memoire de $563D à $9FFF | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | VIDES EQU * ; Saute les lignes vides | ||
- | | ||
- | | ||
- | | ||
- | |||
- | SKIP1 EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Cherche la longueur max (plus grand titre) | ||
- | CMAXLN EQU * | ||
- | | ||
- | | ||
- | |||
- | STRLEN EQU * ; Calcule longueur titre courant | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | SKIP2 EQU * ; 32 caracteres max | ||
- | | ||
- | | ||
- | | ||
- | |||
- | SKIP3 EQU * | ||
- | | ||
- | | ||
- | | ||
- | |||
- | NEXT | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Calcule alignement a gauche =(39-MAXLEN-4)/ | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Affiche les choix, A est le premier | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | DISITM EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | DISTIT EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | SELECT EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Copie le nom de fichier en FILE | ||
- | | ||
- | CPNAME EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | | ||
- | |||
- | THEEND EQU * | ||
- | | ||
- | | ||
- | * Mauvaise touche pressee | ||
- | BADKEY EQU * | ||
- | | ||
- | | ||
- | |||
- | * Attends une touche, uniquement si FLAGK=0 | ||
- | GETKEY EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | SCRUT EQU * | ||
- | | ||
- | | ||
- | | ||
- | |||
- | FLAGK FCB $00 | ||
- | |||
- | * Caractere dans B (a-z) change en majuscule | ||
- | UPCASE EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | ENDUP EQU * | ||
- | | ||
- | |||
- | * Routine d' | ||
- | PUTC | ||
- | | ||
- | |||
- | * Affiche ALINEA espaces | ||
- | ALIGN EQU * | ||
- | | ||
- | | ||
- | | ||
- | |||
- | ALOOP EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | ENDAL EQU * | ||
- | | ||
- | |||
- | * Affiche un message termine par $00 pointe par X | ||
- | PMSG | ||
- | | ||
- | | ||
- | | ||
- | PCAR | ||
- | | ||
- | | ||
- | |||
- | * Retour a la ligne | ||
- | CRLF | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Passe la video en page forme | ||
- | FORM | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | * Routine de traitement code reseau inconnu | ||
- | INCON EQU * | ||
- | | ||
- | |||
- | * Joue un pouet | ||
- | BEEP | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | PLAY | ||
- | | ||
- | |||
- | * Convertit un nombre 16 bits non signe en hexadecimal | ||
- | * D = nombre, X = pointeur sur buffer caractere | ||
- | CV16 | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Convertit un nombre 16 bits non signe en decimal | ||
- | * D = nombre, X = pointeur sur buffer caractere | ||
- | CV10 | ||
- | | ||
- | | ||
- | |||
- | CONVRT EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | LOOP2 EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | | ||
- | | ||
- | | ||
- | |||
- | CONTDV EQU * | ||
- | | ||
- | | ||
- | BEGNB EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | NOTHEX EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | CVEXIT EQU * | ||
- | | ||
- | | ||
- | * Division de D par ,U | ||
- | * D = reste, ,X = dividende (0..9 ou 0..F) | ||
- | DIVIZ EQU * | ||
- | | ||
- | |||
- | DVLOOP EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | DVEXIT EQU * | ||
- | | ||
- | | ||
- | | ||
- | |||
- | BASE10 EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | BASE16 EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Affiche no. poste contenu dans B | ||
- | DISPO EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | * Affiche un nombre contenu dans D (inutilise) | ||
- | DISP10 EQU * | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Affiche un nombre contenu dans D (inutilise) | ||
- | DSP10B EQU * | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Convertit un nombre 16 bits non signe en chaîne de caracteres (decimal) | ||
- | * D = nombre, resultat dans STRBUF | ||
- | CONV10 EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | * Affiche un nombre en hexadecimal 16 bits (inutilise) | ||
- | DISP16 EQU * | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | STRBUF EQU * | ||
- | | ||
- | | ||
- | MAXLEN FCB $00 ; Longueur du plus grand titre | ||
- | ALINEA FCB $00 ; Alignement a gauche | ||
- | | ||
- | MSG1 | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | |||
- | MSG1B FCB $11 | ||
- | | ||
- | | ||
- | | ||
- | MSG2 | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | MSG3 | ||
- | | ||
- | | ||
- | | ||
- | * Zone de consigne reseau | ||
- | CONSIG FCB $18 ; Longueur = 24 | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | FILE | ||
- | | ||
- | | ||
- | | ||
- | | ||
- | * Zone de compte-rendu reseau | ||
- | CPTRD FCB $08 ; Longueur = 8 | ||
- | | ||
- | | ||
- | ENDPRG EQU * | ||
- | |||
- | END | ||
- | </ |
menu_de_demarrage.txt · Last modified: 2023/05/27 13:22 by fool-duplex