home *** CD-ROM | disk | FTP | other *** search
- ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
- ;
- ; BIZTOSAN MINDENKI LÅTOTT MÅR AMIGÅT, AZON PEDIG A MEMPEEK, VAGY VALAMI
- ; HASONLò NEVÿ PROGRAMOT, AMIVEL A MEMòRIÅT LEHETETT VIZUÅLISAN KUKKOLNI.
- ; MEGCSINÅLTAM PC-RE IS - HABÅR NEM EGY NAGY VALAMI - NÉHA MÉG HASZNOS
- ; IS LEHET... ;-) KELL HOZZÅ VGA+EGÉR. A NAGY KÜLÖNBSÉG AZ AMIGÅS
- ; VERZIòHOZ KÉPEST, HOGY ITT NEM AZ EGÉR TOLOGATÅSÅVAL LEHET MOZGATNI A
- ; POINTERT... ÉRDEMES MEGNÉZNI MI VAN AKKOR HA A 0A000H-S CîMRE ÉR...
- ;
- ; FORDîTÅSA: TASM MEMPEEK.ASM
- ; TLINK MEMPEEK.OBJ /X /T
- ;
- ;▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
-
- CODE SEGMENT
- ASSUME CS:CODE
- ORG 100H
-
- .286
-
- START: CALL DETECTIONS ; MEGNÉZZÜK, VAN -E ELÉG HARDWARE
- MOV AX,13H
- INT 10H ; 320X200X256 (MERT EZ ELÉG GYORS)
- CALL BARWRITER ; KIîRJUK AZ INFO-SORT
- MOV AX,0A000H
- MOV ES,AX ; A VIDEOMEM-BE îRUNK MAJD
- MOV AX,0
- MOV DS,AX ; A 0000:0000-ÅS CîMEN KEZDÜNK
- XOR SI,SI
- XOR DI,DI
- MAINLOOP: CALL RASTERWAIT ; A FOLYAMATOS SCROLLHOZ KELL A
- MOV DS,AX ; RASZTERFIGYELÉS
- MOV SI,0
- MOV CX,64000/2-320*16 ; CX*2 -NYI BYTE-OT MOZGATUNK
- MOV DI,320*16 ; ES:DI-HEZ
- REP MOVSW ; ITT
- CALL SEGMENTKIIRO
- MOUSEIN: PUSH AX
- MOV BX,0
- MOV AX,3
- INT 33H ; AZ EGÉR FIGYELÉSE
- POP AX
- CMP BX,3
- JE EXITUS ; KÉT GOMB EGYSZERRE=KILÉPÉS
- CMP BX,2
- JE INCREMENT ; NÖVELÉS
- CMP BX,1
- JE DECREMENT ; CSÖKKENTÉS
- JMP MAINLOOP ; HA SEMMI, AKKOR ELºLRºL
- INCREMENT: ADD AX,80 ; 80*4 = 320 BYTE = 1 SOR PLUSZ
- JMP MAINLOOP
- DECREMENT: SUB AX,80 ; 80*4 = 320 BYTE = 1 SOR MINUSZ
- JMP MAINLOOP
- EXITUS: MOV AX,3
- INT 10H ; VISSZA SZÖVEGES MòDBA
- MOV AX,CS
- MOV DS,AX
- LEA DX,COPYRIGHT ; EGY KIS ÜZENET KIîRÅSA
- MOV AH,9
- INT 21H
- INT 20H
-
- RASTERWAIT: PUSH AX ; EZ A RUTIN MEGVÅRJA AMîG AZ
- PUSH DX ; ELEKTRONSUGÅR A KÉPERNYº TETEJÉRE
- MOV DX,3DAH ; ÉR
- RASTER1: IN AL,DX
- AND AL,8
- JZ RASTER1
- POP DX
- POP AX
- RET
-
- SEGMENTKIIRO: PUSHA ; EZ A RUTIN AZ AKTUÅLIS SZEGMENST
- PUSH DS ; KIîRJA A KÉPERNYºRE (HOGY TUDJUK
- PUSH ES ; HOL TARTUNK)
- MOV AX,DS
- MOV DX,0
- MOV BX,1000H
- DIV BX
- CALL CHAROUT
- MOV AX,DX
- MOV DX,0
- MOV BX,100H
- DIV BX
- CALL CHAROUT
- MOV AX,DX
- MOV DX,0
- MOV BX,10H
- DIV BX
- CALL CHAROUT
- MOV AX,DX
- CALL CHAROUT
- CALL CURSORBACK
- POP ES
- POP DS
- POPA
- RET
-
- CHAROUT: PUSH DX ; EZ EGY ÅLTALÅNOS RUTIN
- MOV DL,AL ; KIîR EGY BETÿT, VAGY SZÅMOT
- MOV AH,2
- CMP DL,9
- JA EZBETU
- ADD DL,30H
- INT 21H
- POP DX
- RET
- EZBETU: ADD DL,37H
- INT 21H
- POP DX
- RET
-
- CURSORBACK: MOV BX,0
- MOV DX,0
- MOV AH,2
- INT 10H
- RET
-
- BARWRITER: MOV DH,0 ; EZ A RUTIN KIîRJA AZ INFO-SORT
- MOV DL,5 ; A MEGFELELº KÉPERNYºPOZîCIòBA
- MOV BX,0
- MOV AH,2
- INT 10H
- MOV AX,CS
- MOV DS,AX
- LEA DX,UPPERINFOBAR
- MOV AH,9
- INT 21H
- MOV DL,0
- MOV DH,24
- MOV BX,0
- MOV AH,2
- INT 10H
- LEA DX,BOTTOMBAR
- MOV AH,9
- INT 21H
- MOV DL,0
- MOV DH,0
- MOV BX,0
- MOV AH,2
- INT 10H
- RET
-
- DETECTIONS: MOV AX,CS
- MOV DS,AX
- MOV AX,1A00H
- INT 10H ; VAN -E VGA KÅRTYA?
- CMP BL,8
- JE VGA_IS_OK ; VAN
- MOV AH,9
- LEA DX,SORRYTEXT2 ; HA NINCS, AKKOR INKÅBB HAGYJUK
- INT 21H
- MOV AX,4C00H
- INT 21H
- VGA_IS_OK: MOV AX,0 ; VAN -E EGÉR
- INT 33H
- OR AX,0
- JNZ MOUSE_IS_OK ; VAN
- MOV AH,9
- LEA DX,SORRYTEXT1
- INT 21H
- MOV AX,4C00H ; NINCS, KILÉPÉS
- INT 21H
- MOUSE_IS_OK: RET
-
- COPYRIGHT DB 'Copyright (c) - CyberDancer/Shock! - 1995$'
- SORRYTEXT1 DB 'You need a mouse to run this utility !$'
- SORRYTEXT2 DB 'You need a VGA to run this utility !$'
- ACTUALSEGMENT DW 0
- ACTUALOFFSET DW 0
- UPPERINFOBAR DB 'Hex Mempeek V 1.1 By CYBERDANCER$'
- BOTTOMBAR DB 'Left:Dec Right:Inc Both:Exit$'
-
- CODE ENDS
- END START
-