U<ALTL1.S 3;UCU<(;--------------------------------------+(; Programme d'emulation ALTL1.S !(; Auteurs : J-F Gallet & C Muset !(; Date : 13 Juin 1985 . Rev 1.00 !(;Ce fichier contient la premiere partie!(; du logiciel d'emulation MINITEL sur !(; ALICE UU<32 ou 90 . !(;Fournie a MATRA . !(;--------------------------------------+ ORG $3400 EXC MINTL;1. Declarations :;--0 = $01 = $12 = $23 = $3#CR68 = $BF40 ;REGISTRE DU 6850DIV16 = 1 kUU< ;PARAMETRES RES68 = 3 BITSL = $8 RTSLO = 0 RTSHI = $40 RIE = $80*SR68 = CR68 ;REGISTRE D'ETAT DU 6850*RDRF = 1 ;BITS DU REGISTRE D'ETAT TDRE = 2 DCD = $4 CTS = $8 FE = $10 OVRN = $20 PE = $40 IRQ = $80TDR68 = CR68+1 UU< ;EMISSIONRDR68 = TDR68 ;RECEPTION0DEB12 = $BF4A ;DEBLOCAGE EMISSION + 1200 BDS$EMI75 = $BF4C ;EMISSION 75 BAUDS#BLEMI = $BF4E ;BLOCAGE EMISSION'DEVNU = $E8 ;SUPPORT D'IMPRESSION#TABCO = $3009 ;TABLE DU CLAVIER+ADCLV = $D421 UU< ;DEF. STANDART DU CLAVIERALINI = $F72E ;INIT D'ALICE$POLCA = $F883 ;SCRUTE LE CLAVIER'OUTCA = $F9C6 ;IMPRIME UN CARACTERESOUND = $FFAB ;EMET UN SON#NMIAD = $FFFC ;VECTEUR D'IT NMI$R0VIS = $BF20 ;REGISTRES DU 9345R1VIS = R0VAUU<IS+1R2VIS = R1VIS+1R3VIS = R2VIS+1R4VIS = R3VIS+1R5VIS = R4VIS+1R6VIS = R5VIS+1R7VIS = R6VIS+1 AFF40 = $0 INC = $1 LEC40 = $8 EXEC = $84G0 = $0 ;DEFINITION DES JEUX DE CARACTERES G1 = $1 G2 = $2&TRANS = $1 ;BIT DE TRANSPAREUU<NCE!LIGN = $2 ;BIT DE LIGNAGE!DBHT = $4 ;DOUBLE HAUTEUR!DBLG = $8 ;DOUBLE LARGEURTBRK = $92 ;TOUCHE BREAK( ;Variables utilisees par le programme :/STACK = $30E0 ;ADRESSE DE LA PILE EN ENTREE&ERCNT = STACK+2 ;COMPTEU&UU<RS D'ERREURS2TEMPO = ERCNT ;TEMPO (UTILISEE A LA CONNEXION)ERFIN = ERCNT+$40CURAD = ERFIN+1 ;POSITION COURANTE SUR L'ECRAN+R2IMG = CURAD+2 ;SAUVEGARDE DES REGISTRESR3IMG = R2IMG+1R6IMG = R3IMG+1R7IMG = R6IMG+1%ATT = R7IMG+1 ;ATTRIBUTS COUR*UU<ANTS+JEU = ATT+1 ;JEU DE CARACTERE COURANT,ROULO = JEU+1 ;MODE PAGE (0) ROULEAU (1)5LOCAL = ROULO+1 ;MODE (LOCAL=0 OU CONNECTE=1 OU FF)5IMPDL = LOCAL+1 ;MODE D'IMPRESSION (DOUBLE LARGEUR)*ELOUP = IMPDL+1 ;MODE LOUPE (-,HAUT,BAS)&PRCUR = ELUU<OUP+1 ;SAUVEGARDE DE CURAD$PRATT = PRCUR+2 ; ATT-PRSOU = PRATT+1 ;SAUVEGARDE DU SOULIGNEMENT/PRR23 = PRSOU+1 ;SAUVEGARDE DE R2IMG ET R3IMG.OLDCA = PRR23+2 ;PRECEDENT CARACTERE AFFICHE)VISCA = OLDCA+1 ;CARACTERE A VISUALISER0TRIBF [UU<= VISCA+1 ;POINTEUR D'ENTREE EN EMISSION1TROBF = TRIBF+2 ;POINTEUR DE SORTIE EN EMISSION1RCIBF = TROBF+2 ;POINTEUR D'ENTREE EN RECEPTION2RCOBF = RCIBF+2 ;POINTEUR DE SORTIE EN RECEPTION$TRDBF = RCOBF+2 ;BUFFER D'EMISSIONTRFBF = TRDBF+$15&RCDBF wUU<= TRFBF+1 ;BUFFER DE RECEPTIONRCFBF = RCDBF+$E0/NDATA = RCFBF+1 ;FIN DE LA ZONE DES VARIABLES ;Relais avec ALTL1.S :!ACCUE = $3C50 ;PAGE D'ACCUEIL"ESCAP = ACCUE+3 ;FONCTION ESCAPENUMER = ESCAP+3 ;NUMEROTAION&ENQ = NUMER+3 ;IDENTIFICATI?UU<ON RAM1LOUPE = ENQ+3 ;LOUPE ;2. Inits :;--MINTL JMP MIN05 ;2.0 Relais avec ALTL2.S : JMP MIN10 JMP RECEP JMP RS010 JMP CURF5 JMP CON05 JMP RCINP JMP COMRC JMP COM10 JUU<MP TRNOR JMP VISU JMP BUSY ;2.1 Init des variables :MIN05 STS STACKMIN10 LDS STACK LDX #ERCNTMIN20 CLR 0,X INX CPX #VISCA BNE MIN20$ ;2.2 Adresse du buffer d'emission : LDX UU< #TRDBF STX TRIBF STX TROBF ;2.3 Init de l'ecran LDX #R0VIS LDD #$0170 STD 2,X STD R2IMG% LDD #$8118 ;REGISTRE TGS JSR INDMD% LDD #$8228 ;REGISTRE MAT JSR INDMD% UU< LDD #$8367 ;REGISTRE PAT JSR INDMD% LDD #$8708 ;REGISTRE ROR JSR INDMD JSR ACCUE JSR INIT ;2.4 Adresse des buffers : LDX #RCDBF STX RCIBF STX RCOBF ;2.5 Reset du 6850 : LUU<DAA #RES68+BITSL+RTSHI STAA CR68 LDAA #DIV16+BITSL+RTSHI STAA CR68 STAA BLEMI ;2.6 Init du programme d'it : LDD #I6850 LDX NMIAD STD 1,X LDAA #$7E STAA 0,X;3. Reception :;--RECEP QUU< LDX RCOBF CPX RCIBF BEQ SCRUT' LDAB 0,X ;CARACTERE RECU BITB #$80 BEQ REC05 RTSREC05 CMPB #$20 BHS REC10 LDX #RCTAD ABX ABX LDX 0,X JSR 0,X %UU<BRA SCRUTREC10 TBA JSR RCNOR;4. Scrute le clavier :;--SCRUT1 JSR POLCA ;ACQUISITION DU CARACTERE BEQ ENVOI;5. Touche speciale ?;-- CLRB LDX #SPICATSP10 CMPA 0,X* BEQ TSP20 EUU< ;CARACTERE SPECIAL INCB INX CPX #FITAB BNE TSP10 JSR ANFIN) JSR TRNOR ;CARACTERE NORMAL BRA ENVOITSP20 LDX #TRTAD ABX ABX LDX 0,X JSR 0,X;6. Envoi d'un octeUU<t :;--ENVOI LDAA SR68 ANDA #TDRE BEQ FIN LDX TRIBF CPX TROBF BEQ FIN LDAA 0,X) STAA TDR68 ;ENVOI DE L'OCTET INX CPX #TRFBF BNE ENV10 LDX #TRDBFENV10 STUU<X TRIBFFIN JMP RECEP;7. Reception d'un octet :;-- ;7.1 Interruption :I6850 LDAA SR68" BITA #IRQ ;IT 6850 ? BEQ I68RT BITA #PE+OVRN+FE+CTS+DCD BNE I68ER BITA #RDRF BEQ I68RT UU<LDAA RDR68 BEQ I68RT BSR STORCI68RT RTII68ER CLRB BITA #DCD BNE I68E2 INCB BITA #CTS BNE I68E1 INCB BITA #FE BNE I68E1 INCB BITA #OVRN BNE I68E1 UU< INCB LDAA #$1A BSR STORC JSR STOEMI68E1 LDX #ERCNT ABX INC 0,X, LDAA RDR68 ;POUR RESETER LE BIT BRA I68RTI68E2 LDX #$8000I68E3 LDAA RDR68 LDAA SR68 BITA UU<#DCD BEQ I68E1 DEX BNE I68E3 JMP MIN10 ;7.2 Stockage de l'octet :STORC TSTA BEQ STORT LDX RCIBF INX CPX #RCFBF BNE STO10 LDX #RCDBFSTO10 CPX RCOBF BEQ STOUU<RT PSHX LDX RCIBF STAA 0,X PULX STX RCIBFSTORT RTS&;8. Traitement d'un caractere recu :;-- ;8.1 Caractere normal :RCNOR STAA OLDCA JSR VISU JSR RCINP RTS ;8.2 Pas de traitement UU<:NULLBIDON JSR RCINP RTS ;8.3 Bip :BELL JSR RCINP LDD #$8001 JSR SOUND RTS ;8.4 Tabulation verticale :VT JSR RCINP LDD CURAD& TSTA ;TEST RANGEE 0 BNE DEY00 R7UU<TS ;8.5 Back-space :BS JSR RCINP BSR DECRX LDAA ATT ANDA #DBLG BEQ BS10 LDAA CURAD+1) CMPA #$28 ;SI FIN DE RANGEE* BNE BS10 ;ET DOUBLE LARGEUR& DEC CURAD+1 ; => RANGEE 39UU<BS10 BSR RANG1 RTSRANG1 LDAA ATT* ANDA #DBHT ;SI DOUBLE HAUTEUR BEQ RANRT$ LDAA CURAD ;ET RANGEE 1 CMPA #1 BNE RANRT% INC CURAD ; => RANGEE 2RANRT JMP CAL67DECRXUU< LDD CURAD TSTB BNE DERX1 INCB TSTA BEQ DERX1 BSR DEY00 LDAB #$28DERX1 LDAA CURAD DECB JMP C6700DEY00 TST ROULO BNE DEY40DEY10" BSR DECRY ;MODE PAUU<GE LDAA ATT ANDA #DBHT BEQ DEY30 LDD CURAD CMPA #$1 BNE DEY202 INCA ;DOUBLE HAUTEUR : RANGEE 2DEY20 JMP C6700DEY30 JMP CAL67%DEY40 ;MODE ROULEAU LDAA UU< ATT ANDA #DBHT BEQ DEY10& LDAA CURAD ;RANGEE 1 OU 2 CMPA #$3 BHS DEY10 BSR ROLDN BSR ROLDN! LDAA #$02 ;RANGEE 2 LDAB CURAD+1 JMP C6700DECRY LDAA CURAD CMPUU<A #1 BNE DERY1- TST ROULO ;TEST PAGE OU ROULEAU BNE ROLDN) LDAA #$19 ;CAS DU MODE PAGEDERY1 DECA STAA CURAD RTSROLDN8 LDAA #$1F ;DECALAGE DE LA PAGE VERS LE BASRDN101 BSR UU< RDN1L ;DECALAGE LIGNE PAR LIGNE CMPA #$08 BNE RDN10 LDX CURAD STX PRCUR LDX #$0100 STX CURAD1 JSR CAN05 ;EFFACE LA PREMIERE LIGNE LDAA ATT> ANDA #DBHT ;EN DOUBLE HAUTEUR\UU< : EFFACE LA LIGNE 2 BEQ RND20 LDX #$0200 STX CURAD JSR CAN05RND20 LDD PRCUR BRA C6700RDN1L CLRB$ STD R4VIS ;DESTINATION DECA STD R6VIS ;SOURCE+ LDAB #$F5 zUU< ;MOVE TRIPLE BUFFER STAB R0VIS+EXEC JSR BUSY RTS ;8.6 Tabulation :HT JSR RCINP BSR INCRX JSR RANG1 BRA CAL67INCRX LDAB CURAD+1 INCB STAB CURAD+1 CMPB #$28 BNE INRUU<X1 CLRB+ TST CURAD ;CAS DE LA RANGEE 0 BNE INRX2 LDAB #$27INRX2 STAB CURAD+1 TST CURAD BEQ INRX1 BSR INY00INRX1 RTSINY00 TST ROULO BEQ INY10INY05% LDAA ATT ^UU< ;MODE ROULEAU ANDA #DBHT BEQ INY10- LDAA CURAD ;TEST RANGEE 23 OU 24 CMPA #$17 BLO INY10 BSR ROLUP BSR ROLUP" LDAA #$18 ;RANGEE 24 LDAB CURAD+1 BRA C6700INY10 UU< BSR INCRY LDAA ATT ANDA #DBHT BEQ CAL67 BSR INCRYINY20 LDAA CURAD CMPA #$3 BHS CAL673 LDAA #2 ;DOUBLE HAUTEUR => RANGEE 2 STAA CURADCAL67 LDD CURADC6700 STD UU<CURAD TSTA BEQ CALFI ADDA #$7CALFI STD R6VIS STD R6IMG RTSINCRY LDAA CURAD CMPA #$18 BNE INRY1/ TST ROULO ;MODE PAGE OU ROULEAU ? BNE ROLUP CLRAINRY1 INCUU<A STAA CURAD RTSROLUP. LDAA #$08 ;DECALAGE VERS LE HAUTRUP10- BSR RUP1L ;DECALAGE D'UNE LIGNE CMPA #$1F BNE RUP10 LDX CURAD STX PRCUR LDX #$1800 STX CURAD+ JSR UU<CAN05 ;RAZ DERNIERE LIGNE LDD PRCUR BRA C6700RUP1L8 CLRB ;DECALE D'UNE LIGNE VERS LE HAUT$ STD R4VIS ;DESTINATION INCA STD R6VIS ;SOURCE+ LDAB #$F5 ;MOVE TRIPLE BUFFER@UU< STAB R0VIS+EXEC JSR BUSY RTS ;8.7 Line feed :LF JSR RCINP LDD CURAD TSTA BNE LF010* LDD PRR23 ;APRES LA RANGEE 0 STD R2IMG LDAA PRATT STAA ATT LDD PRCUR .UU<BRA C6700LF010 TST ROULO BEQ LF020% JMP INY05 ;MODE ROULEAULF020 BSR INCRY LDAA ATT BITA #DBHT BEQ CAL67 JMP INY20 ;8.8 Form-feed :TRFF JSR RCINP JSR INIT LDAA KUU< #$20 STAA R1VIS LDD #$0818EFF20 STAA R6VIS PSHB CLR R7VIS LDAB #$28EFF10 PSHA LDAA #AFF40+INC STAA R0VIS+EXEC PULA JSR BUSY DECB BNE EFF10 INCA PULB UU< DECB BNE EFF20 BRA RS010 ;8.9 Carriage return :CR JSR RCINP CLR CURAD+1 JSR CAL67 RTS ;8.10 Repetition :REPET JSR COMRC CPX RCIBF BEQ REPRT LDAB 0,X SUBB #$40 UU< BLE REP30REP20 PSHB JSR VISU PULB DECB BNE REP20REP30 JSR RCINP JSR RCINPREPRT RTS ;8.11 Cancel :CANCE JSR RCINPCAN05 LDX CURAD PSHX LDAA #$20 STAA OLDIUU<CACAN10 JSR VISU LDAA R0VIS BITA #$20 BEQ CAN10 PULX STX CURAD JMP CAL67 ;8.12 Home :RS JSR RCINPRS010 JSR INIT LDD #$0100 JMP C6700 ;8.13 Positionnement curseur :TR}UU<US JSR COMRC CPX RCIBF BEQ USRT JSR COM10 CPX RCIBF BEQ USRT DEX LDAA 0,X SUBA #$30 BLO USER BNE US05 BSR SAUV0US05 CMPA #$10 BHS US10 CLR UU<CURAD+1 LDAB #$0A MUL LDAA 1,X SUBA #$30 ABA STAA CURAD CLRB BRA US20US10 SUBA #$10 BNE US15 BSR SAUV0US15 LDAB 1,X SUBB #$41US20 CMPA #$19 BHS USJUU<ER CMPB #$28 BHS USER STD CURADUSER JSR RCINP JSR RCINP JSR RCINP JSR INITUSRT JMP CAL67SAUV0 TST CURAD) BEQ SAURT ;DEJA EN RANGEE 0 PSHA LDAA ATT STUU<AA PRATT CLR ATT LDD CURAD STD PRCUR LDD R2IMG STD PRR23 LDD #$0170 STD R2IMG PULASAURT RTS ;8.14 Curseur :CURON JSR RCINP LDAA #$8A STAA R0VIS+EXEC JSR UU<BUSY LDAA R1VIS ORAA #$40 BRA CURSRCUROF JSR RCINPCURF5 LDAA #$8A STAA R0VIS+EXEC JSR BUSY LDAA R1VIS ANDA #$BFCURSR STAA R1VIS LDAA #$82 STAA R0VIS+EXEC JSR UU< BUSY RTS ;8.15 Caracteres separateurs :SEPAR JSR COMRC CPX RCIBF BEQ SEPRT LDAA 0,X CMPA #$49 BNE SEP10 BSR CONECSEP10 JSR RCINP JSR RCINPSEPRT RTSCONEC TST LOvUU<CAL BEQ CON05 RTSCON05 INC LOCAL LDAA #RTSLO+BITSL+DIV16 STAA CR68 LDAA #$F8 BSR LETRC) LDX #0 ;INIT DE LA TEMPO+ STX TEMPO ; AVANT RACCROCHAGECON10 LDX TEMPO UU<DEX STX TEMPO$ BEQ CON12 ;RACCROCHAGE JSR POLCA ;BREAK ? CMPA #TBRK BNE CON15CON12 JMP MIN10CON15 LDAA SR68 LDAB RDR68 BITA #DCD+CTS BNE CON10 LDX #$800CON20UU< JSR POLCA ;BREAK ? CMPA #TBRK BEQ CON12 DEX BNE CON20 LDAA SR68 LDAB RDR68 BITA #DCD+CTS BNE CON10 LDAA #$F0 BSR LETRC LDX #ERCNTCON30 CLR 0,X IUU<NX CPX #ERFIN BNE CON30" LDAA #RIE+RTSLO+BITSL+DIV16 STAA CR68 STAA DEB12 STAA EMI75 JSR INIT LDD #$8268 STAB R1VIS STAA R0VIS+EXEC JSR BUSY LDX #$9900CON40 DE7UU<X BNE CON40 LDAA #$13 JSR STOEM LDAA #$53 JSR STOEM RTSLETRC STAA R3VIS LDD #$43 STD R0VIS LDAB #$26 STD R6VIS LDAA #$1 STAA R2VIS+EXEC JSR BUSY UU< RTS ;8.15 Erreur :SUB LDD #$0100 STD R0VIS LDD #$0170 STAA R2VIS STAB R3VIS+EXEC BSR RCINP RTS, ;8.16 Incremente le pointeur de reception :RCINP BSR COMRC STX RCOBF RTS( ;8.17 C;UU<alcul du pointeur de reception :COMRC LDX RCOBFCOM10 INX CPX #RCFBF BNE COM20 LDX #RCDBFCOM20 RTS ;8.18 Changement du jeu :INIT CLR ATT LDD #$0170 STD R2IMG STD R2VIS LUU<DAA #G0 STAA JEU RTSSOGR JSR RCINP LDAA JEU CMPA #G1 BEQ SOG10 LDAA ATT ANDA #LIGN STAA PRSOUSOG10 LDAA R3IMG ANDA #$7F STAA R3IMG LDAA ATT ANDA #$FF-LIG000o0&100ο p0́;:̂(;:̃g;:̇;:995 S0\0(&_}0&'0}0'9}0'0'0% DB0 '0'0$000M'&090&}0&OL09&0007~0 _$L&(;>99UU<0M&00000 }0'~6z0'~699" !&7'(6(2;>Z&L3Z& G906990'@/7:3Z&99990< 0: '80~699"~690'I90'A 0%.&9$0 =00_ &A$($09999"~6}0'UU<60000000p0299(;>!@ 9(;>!!(;>990'I&999}0'9|0 @t00 0'&~4'@A &' &@A &̆60o0&@JL9"̂h!(;>Ι &: S: 9#C &&*;UU<>9 p"+91911&190p0"0990'00000000!099000'00990'o0'l0'a#Z_A'$ B'C' H'K' 9009090'#;:m'' 0999:UU<9999}0&5D9h0' <08090''0 }0'~4'!0 ~.:l;:9B H  C A 6002901&1900;::0"0'0'& 0" 0'$0$ 0" J060L066W69(P90!0UU<&0'(;>#0#9`$ 0'ɀ@ 0 ;: } +95m5m5m5m5m ATTENTE BNE NUM90NUM80 JSR POLCA BEQ NUM80 INX CMPA #TBRK1 BNE NUM70 ;SUITE DE LA NUMEROTATION JMP MIN10 ;RESETNUM90 BSR PUU<ULSE JSR ATBRK INX BRA NUM70NUMBR JSR RS010 RTSNUMFI JMP CON05ACQRP PSHX PSHB BRA ACQ20ACQ10 PULB PULX PSHX PSHBACQ20 PSHB LDD 0,X STD RCOBFUU< LDD 2,X STD RCIBF JSR RECEP PULB LDX #TRDBFACQ30 JSR POLCA BEQ ACQ30! CMPA #$8B ;CTRL A ?. BEQ ACQ10 ;ON REPETE LA QUESTION DECB BEQ ACQ10 STAA 0,X UU< CMPA #TBRK BEQ ACQRT CMPA #$0D BEQ ACQRT STAA OLDCA PSHX PSHB JSR VISU PULB PULX INX BRA ACQ30ACQRT PULX PULB JSR CURF5 LDX #TRDBF STX TRIBUU<F STX TROBF LDX #RCDBF STX RCIBF STX RCOBF RTSPULSE PSHA BSR OUVER BSR FERME PULA DECA BNE PULSE BSR ATENT RTSOUVER LDAA #$4A STAA CR68 BSRYUU< TEMP2 RTSFERME LDAA #$0A STAA CR68 BSR TEMP1 RTSATEN2 LDAA #$20 BRA AT010ATENT LDAA #$0BAT010 BSR TEMP2 DECA BNE AT010 RTSTEMP2 PSHX LDX #$2A00 UU< BRA TEMPTEMP1 PSHX LDX #$1564TEMP DEX BNE TEMP PULX RTSATBRK JSR POLCA CMPA #TBRK BEQ ATB10 RTSATB10 JMP MIN100;6. Enregistrement du programme sur cassette :;--ENREGUU< LDX #BLKN2 STX BLKAD JSR K7NAM LDAA #$1 STAA BLKTY LDX #MINTL STX BLKDB LDX #FIACC STX BLKND JSR K7DAT RTS ;7. Loupe :;--LOUPE LDAB ELOUP INCB CMPBUU< #3 BNE LOU10 CLRBLOU10 STAB ELOUP LDX #LOUTA ABX ABX LDX 0,X JMP 0,XLOUHT LDD #$8708 BRA LOU20LOUBA LDD #$8714LOU20 STAB R1VIS STAA R0VIS+EXEC JSR >UU< BUSY BSR COLOU ORAB #$80 BRA LOU30LOUFI LDD #$8708 STAB R1VIS STAA R0VIS+EXEC JSR BUSY BSR COLOU ANDB #$7FLOU30 STAB R1VIS LDAA #$82 STAA R0VIS+EXEC JSR BU UU<SY RTSCOLOU LDAA #$8A STAA R0VIS+EXEC JSR BUSY LDAB R1VIS RTS;8. Donnees :;--LOUTA DFD LOUFI DFD LOUHT DFD LOUBA'PRO1T ;TRAITEMENTS SUR PRO1 DFD IDEN1 ;$78 DFD IDEN2 ;$7UU<9 DFD ENQR2 ;$7A DFD ENQRO ;$7B*ROM ;IDENTIFICATION ALICETEL& DFD $0141 ;SOH + CODE 'MATRA' = A, DFD $6801 ;CALCULATEUR = h + N0 VERSION DFO $04 ;EOTRAM1 ;ZONE RAM1 DFO 0# BLC $10 ;A METTRE UU<EN RAM !!!RAM2 ;ZONE RAM2 DFO 0 BLC $10 ;EN RAM AUSSI !!!BLKN2 'ALICETEL DFD $0200 DFO $01 DFD MINTL DFD MINTLADTNM DFD NUMTX DFD NUMTFNUMTX DFO $1F DFD $5841 DFD $1811 'Entrez votre num'UU< DFD $1942 'ero : DFD $2080NUMTFTABES DFO $23 DFO $25 DFO $35 DFO $36 DFO $37 DFO $39 DFO $3A DFO $3B DFO $48 DFO $49 DFO $4C DFO $4D DFO $4E DFO $4F DFO $58 DFO $59 DFO $5A UU< DFO $5C DFO $5D DFO $5FTRTES DFD MASEC ;$23 DFD TRANP ;$25 DFD DISPO ;$35 DFD DISPO ;$36 DFD DISPO ;$37 DFD PRO1 ;$39 DFD PRO2 ;$3A DFD PRO3 ;$3B DFD CLIGN ;$48 DFD FIXE ;$49 DFD SIMTL ;$4C DFUU<D DOUHT ;$4D DFD DOULA ;$4E DFD DOUTL ;$4F DFD MASQA ;$58 DFD FILIG ;$59 DFD LIGNG ;$5A DFD FONDN ;$5C DFD INVER ;$5D DFD DEMAS ;$5FTESFI DFD POSCR ;$61 ;9. Reaffectation du clavier :;--CLVTB DFD TABNO DFD UU< TABCO DFD TABSH DFD TABCO-TABCO ;CODE DES TOUCHES "CONTROL" DFD $0094 ; @ DFD $0818 ;QB DFD $1695 ;CD DFD $8C96 ;EF DFD $9798 ;GH DFD $9193 ;IJ DFD $9A9B ;KL DFD $1A8F ;/N DFD $0393 ;OP DFD $8 UU<B8D ;AR DFD $0A8E ;ST DFD $9017 ;UV DFD $0B15 ;ZX DFD $1909 ;YW DFD $0 DFD $000D ; ENTER DFD $1F07 ;ESP 0 DFD $8081 ;12 DFD $8283 ;34 DFD $8485 ;56 DFD $8687 ;78 DFD $8889 ;9: DFD $9C1B ;M, DFD $8UU<A1C ;-. DFD $1D00 ;; DFD $0092 ; BREAK DFD $080A ;FLECHES DFD $090B.TABSH ;CODE DES TOUCHES "SHIFTEES" DFD $009D ; @ DFD $5F14 ;QB DFD $127B ;CD DFD $017C ;EF DFD $7D7E ;GH DFD $5D7F ;IJ DFD $0C0E UU<;KL DFD $3F5C ;/N DFD $0607 ;OP DFD $0002 ;AR DFD $6004 ;ST DFD $5B13 ;UV DFD $5E11 ;ZX DFD $0510 ;YW DFD $0000 DFD $000D ; ENTER DFD $1E30 ;ESP 0 DFD $2122 ;12 DFD $2324 ;34 DFD $2526 ;56 DFD $28UU<728 ;78 DFD $292A ;9: DFD $0F3C ;M, DFD $3D3E ;-. DFD $2B00 ;; DFD $0092 ; BREAK DFD $080A ;FLECHES DFD $090B;10. Page videotex d'accueil :;--ICI BLC $4200-ICIDBACC DFO $1F DFD $3030 DFD $UU<1B54 DFO $18 DFO $1F DFD $4067 DFD $1B5D 'F DFO $0C DFO $1F DFD $4541+ 'Appelez un des numeros qui suivent : DFD $0A0D '6139155 DFD $0A0D '6149166 DFD $UU<0A0D '6159177 DFD $0A0D '6199111 DFO $1F DFD $4141 DFO $80FIACC = DBACC+$300 ;11. Fin;--U+U<U+3U<ALTL2.X 4i~@40'B0@%H$4 +P%X$5 A?_' \A{& AS::0 449@HHHHď09P0009090 0 Ŷ0'ʀ0 00 0000 0'0%0000~<0'0h'0000UU< ٶ0%Ҷ0h'˶0'č0000900 00 000&00 000&00~<440'840'.41 &$(4!!X& _& !(4!940A40B4~<440'41x%x$ @::9@ @!UU<<40'18'Z&9@ @ @&<4867<4832'Z&9440' 40'19440'40'41C' F'G'9_i&\0 i&@ i&@ @O04:4s40H0TTTT@49440'40' 40'19A}0 B1;UU<E049}0'98A?1_'Z< ' '-'0%&  $1:8\ ' &Ά @@A1 '! '-& '&~4b@\ ݽ4 9~4<7 38<7710431''Z'ާ' ' 0<7438 834 10010196 2J&9J@9 @9  J&UU<9<* <d &89'9~4A2x2u42oE2q]90\&_0@::ṅ ̇!(4! ʀ ̇!(4!!(4!9(4!!9@@@>E>J>n>sAhALICETEL44A!A?XAEntrez votre numBero : #%5679:;HILMUU<NOXYZ\]_=<>>>>>?!<<<==-=Q=y==<<=>AAA    _{|}~] ?\`[^ 0!"#$%&'()*<=>+ 00T@g]F EAAppelez un des numeros qui suivent : 6139155 6149166 61;U3U<59177 6199111AAU*U<U/U<ALPAG1.S3SUHEU<(;--------------------------------------+(; Page d'accueil pour ALICETEL !(; ALPAG1.S !(; Auteur : J-F Gallet & C Muset !(; Date : 13 Juin 85 !(; Version : 1.00 !(; VegUU<rsion fournie a MATRA !(;--------------------------------------+ ORG $4200 EXC MINTL;1. Equivalents :;--MINTL = $3400NOIR = $1B40ROUGE = $1B41JAUNE = $1B43MAGEN = $1B45CYAN = $1B46BLANC = UU< $1B47AIGU = $1942GRAVE = $1941FF = $0CSO = $0ESI = $0FCAN = $18ESC = $1BRS = $1EUS = $1FRC = $0A0DAG1 = $607EAD1 = $7D30AG2 = $7E21AD2 = $227DAG3 UU<= $5F20AD3 = $205FCG6 = $6F30CD6 = $603FCG7 = $226FCD7 = $3F21TG2 = $7E6BTD2 = $377DTG3 = $206ATD3 = $3520EG4 = $5F5FRP3 = $1243RP2 = $1242;2. Tableau :;--DBACCUU< DFO US DFD $3030 DFO CAN DFO US DFD $4067 DFO ESC DFO $5D 'F DFO FF DFD ROUGE DFO SO DFO ESC DFO $5A DFD AG1 ;A 1 DFD AD1 DFO UU< $20 DFD AG3 ;L DFD RP3 DFD AG3 ;I DFD AG1 ;C DFD AD1 DFO $20 DFD AG1 ;E DFD AD1 DFO $20 DFD AG1 ;T DFD AD1 DFO $20 DFD AG1 ;E DFD UU<AD1 DFO $20 DFD AG3 ;L DFD RP3 DFD RC DFD AG2 ;A 2 DFD AD2 DFO $20 DFD AG3 ;L DFD RP3 DFD AG3 ;I DFD AG2 ;C DFD AD2 DFO $20 DFD AG2 HUU< ;E DFD AD2 DFO $20 DFD TG2 ;T DFD TD2 DFO $20 DFD AG2 ;E DFD AD2 DFO $20 DFD AG3 ;L DFD RP3 DFD RC DFD EG4 ;A 3 DFD EG4 DFO $20 UU< DFD AG3 ;L DFD RP3 DFD AG3 ;I DFD AG3 ;C DFD RP3 DFD EG4 ;E DFO $20 DFD RP2 DFD TG3 ;T DFD TD3 DFO $20 DFD EG4 ;E DFO $20 DFD RP2 UU< DFD AG3 ;L DFD RP3 DFD RC DFD AG3 ;A 4 DFD AD3 DFO $20 DFD CG6 ;L DFO $20 DFD RP2 DFD AG3 ;I DFD CG6 ;C DFD CD6 DFO $20 DFD CG6 ;E GUU< DFD CD6 DFO $20 DFD TG3 ;T DFD TD3 DFO $20 DFD CG6 ;E DFD CD6 DFO $20 DFD CG6 ;L DFO $20 DFD RP2 DFO SI 'Rev DFO SO DFO ESC DFO UU< $5A DFO $0D DFD AG3 ;A 5 DFD AD3 DFO $20 DFD CG7 ;L DFD EG4 DFO $20 DFD AG3 ;I DFD CG7 ;C DFD CD7 DFO $20 DFD CG7 ;E DFD CD7 DFO $2UU<0 DFD TG3 ;T DFD TD3 DFO $20 DFD CG7 ;E DFD CD7 DFO $20 DFD CG7 ;L DFD EG4 DFO SI ' 1.0 DFO $0D DFD JAUNE' '... vous souhaite la bienvenue . DFiUU<D RC 'Appelez un des num DFD AIGU 'eros qui suivent : DFO US DFD $4950 DFD JAUNE DFO SO DFD $7C7C DFD $7C7C DFO $7C DFD RC DFO US DFD $4A4F DFD qUU< JAUNE DFO SO DFO $3A DFD BLANC DFD $5F6B DFD ROUGE DFO $5F DFD BLANC DFD $5F6B DFD JAUNE DFO $65 DFO SI DFD RC '613 91 55 DFO US DFD $4UU<B4E DFO SO DFD JAUNE DFD $3A20 DFD ROUGE DFD $5F5F DFD $735F DFD $5F20 DFD JAUNE DFO $65 DFO US DFD $4B5B DFD JAUNE '614 91 66 DFD RC '615wUU< 91 77 DFO US DFD $4C4D DFO SO DFD JAUNE DFD $3A20 DFD $2020 DFD ROUGE DFD $205F DFD JAUNE DFD $2020 DFD $2020 DFO $65 DFO US DFD $4C5B DUU<FD JAUNE '619 91 11 DFO US DFD $4D4C DFO SO DFD JAUNE DFD $2B20 DFD $2020 DFD CYAN DFD $7E5F DFD ROUGE DFO $5F DFD CYAN DFD $5F7D DFD JAUNE ,UU< DFD $2020 DFD $2027 DFO US DFD $4E4F DFO SO DFD CYAN DFD $5F5F DFO $5F DFD JAUNE DFD CYAN+$10 DFO SI '* DFD CYAN DFO SO DFD $5F5F DF*UU<O $5F DFO US DFD $4F4E DFO SO DFD CYAN DFD $5F5F DFD $202F DFD $2F2F DFD $205F DFO $5F DFO US DFD $504D DFO SO DFD ROUGE DFD $6F20 DFUU<D MAGEN DFD $205F DFD $5F5F DFD $5F5F DFD $2020 DFD ROUGE DFO $3F DFO US DFD $5151 DFO SO DFD CYAN DFD $6A20 DFO $35 DFO US DFD $5250 UU< DFO SO DFD CYAN DFD $687E DFD $207D DFO $34 DFO SI DFD JAUNE DFD RC DFO $0A# ' Appuyez sur CTRL N pour num DFD AIGU 'eroter ... DFD RC DFD RC DFDUU< ROUGE DFO ESC DFO $5A+ 'N'oubliez pas de revenir en position DFD RC '"t DFD AIGU 'el DFD AIGU 'ephone" apr DFD GRAVE 'es utilisation . DFO US DFD $5841 UU<DFD BLANC DFO ESC DFO $54% ' (C) Copyright J-F Gallet,1985 DFO CAN DFO RS DFO $80FIACC ;3. Fin;--U+U<UU<ALPAG1.X4BU:EU<00@g]F AZ`~}0 _ C_ `~}0 `~}0 `~}0 `~}0 _ C ~!"} _ C_ ~!"} ~!"} ~k7} ~!"} _ C ____ _ C_ _ C__ B j5 __ B_ C _ _ o0 B_ o0`? o0`? j5 o0`? o0 BRevZ _ _ "o__ _ "o?! "o?! j5 "o?! "o__ 1.0 C... vous souhaite la bienvenue . AppeleUU<z un des numBeros qui suivent :IPC||||| JOC:G_kA_G_kCe 613 91 55KNC: A__s__ CeK[C614 91 66 615 91 77LMC: A _C eL[C619 91 11MLC+ F~_A_F_}C 'NOF___CV*F___ONF__ /// __PMAo E _____ A?QQFj 5RPUU<Fh~ }4C Appuyez sur CTRL N pour numBeroter ... AZN'oubliez pas de revenir en position "tBelBephone" aprAes utilisation .XAGT (C) Copyright J-F Gallet,1985U+U<UU<ALICETEL44U8DU<~4$~4'~4~7~80~8f~9~9~9~:~:~;>000o0&100ο p0́;:̂(;:̃g;:̇;:995 S0\0(&_}0&'0}0'9}0'0'0% DB0 '0'0$000M'&090&}0&OL09&0007~0 _$L&(;>99UU<0M&00000 }0'~6z0'~699" !&7'(6(2;>Z&L3Z& G906990'@/7:3Z&99990< 0: '80~699"~690'I90'A 0%.&9$0 =00_ &A$($09999"~6}0'UU<60000000p0299(;>!@ 9(;>!!(;>990'I&999}0'9|0 @t00 0'&~4'@A &' &@A &̆60o0&@JL9"̂h!(;>Ι &: S: 9#C &&*;UU<>9 p"+91911&190p0"0990'00000000!099000'00990'o0'l0'a#Z_A'$ B'C' H'K' 9009090'#;:m'' 0999:UU<9999}0&5D9h0' <08090''0 }0'~4'!0 ~.:l;:9B H  C A 6002901&1900;::0"0'0'& 0" 0'$0$ 0" J060L066W69(P90!0UU<&0'(;>#0#9`$ 0'ɀ@ 0 ;: } +95m5m5m5m5mi~@40'B0@%H$4 +P%X$5 A?_' \A{& AS::0 449@HHHHď09P0009090 0 Ŷ0'ʀ0 00 UU<0000 0'0%0000~<0'0h'0000 ٶ0%Ҷ0h'˶0'č0000900 00 000&00 000&00~<440'840'.41 &$(4!!X& _#UU<& !(4!940A40B4~<440'41x%x$ @::9@ @<40'18'Z&9@ @ @&<4867<4832'Z&9440' 40'19440'40'41C' F'G'9_i&\0 i&@ i&@}UU< @O04:4s40H0TTTT@49440'40' 40'19A}0 B1E049}0'98A?1_'Z< ' '-'0%&  $1:8\ ' &Ά @@A1 '! '-& '&~4b@\ ݽ4 9~4<7 38<7710431''ZfUU<'ާ' ' 0<7438 834 10010196 2J&9J@9 @9  J&9<* <d &89'9~4A2x2u42oE2q]90\&_0@::ṅ ̇!(4! ʀ ̇!(4!!(4!9(4!!9@@@>E>J>n>sAhUU<ALICETEL44A!A?XAEntrez votre numBero : #%5679:;HILMNOXYZ\]_=<>>>>>?!<<<==-=Q=y==<<=>AAA    _{|}~] ?\`[^ 0!"#$%&'()*<=>+ UU< 00@g]F AZ`~}0 _ C_ `~}0 `~}0 `~}0 `~}0 _ C ~!"} _ C_ ~!"} ~!"} ~k7} ~!"} _ C ____ _ C_ _ C__ B j5 __ B_ C _ _ o0 B_ o0`? o0`? j5 o0`? o0 BRevZ _ _ "o__ _ "o?! "o?! j5 "o?! "o__ 1.0 C... vous souhaite la bienvUU<enue . Appelez un des numBeros qui suivent :IPC||||| JOC:G_kA_G_kCe 613 91 55KNC: A__s__ CeK[C614 91 66 615 91 77LMC: A _C eL[C619 91 11MLC+ F~_A_F_}C 'NOF___CV*F___ONF__ /// __PMAo E _____ A?hUU<QQFj 5RPFh~ }4C Appuyez sur CTRL N pour numBeroter ... AZN'oubliez pas de revenir en position "tBelBephone" aprAes utilisation .XAGT (C) Copyright J-F Gallet,1985 BSR COLCA BRA ESCFIESC10 CMPA #$50 BLO EScU3U<C20 CMPA # U+U<U