;Kukulcan - Idee Maxit ORG #A000 ; Initialiser l'AMSDOS (Dans le cas d'une exécution par RUN du LOADER) LD C,7 CALL &BCCE ; MODE 1 LD A,1 CALL &BC0E ; BORDER 0 LD BC,0 CALL &BC38 ; INK 0,0 LD a,0 LD BC,0 CALL &BC32 ; INK 1,26 LD a,1 LD BC,&1A1A CALL &BC32 ; PEN 1 ld a,1 CALL &BB90 ; Connexion ROM superieure (BASIC) CALL &B90F ;Dans A nous avons l'état précédent de la ROM ;Transfert de &C000 vers &4000 du contenu de la ROM LD HL,&C000 ;ROM Basic LD DE,&4000 ;Destination LD BC,&4000 ;Longueur a transférer LDIR ;Transfert ;restauration de l'état antérieur de la ROM CALL &B90C ;Traitement LD A,(&4001) ADD A,&30 LD (NUMERO),A LD A,(&4002) ADD A,&30 LD (DIZAINE),A LD A,(&4003) ADD A,&30 LD (UNITE),A ; AFFICHAGE TEXTE CALL affichage_texte LOOPINFINI JP LOOPINFINI TEXT DB "--- VERSION DU FIRMWARE BASIC ---" DB 10,13 DB "RELEASE : " NUMERO DB "X" DB "." DIZAINE DB "X" UNITE DB "X" DB 0 affichage_texte LD HL,TEXT boucle LD A,(HL) CP 0 RET Z CALL &BB5A INC HL JR boucle