Category : Assembly Language Source Code
Archive   : NORTASM.ZIP
Filename : DSKPAT17.ASM

 
Output of file : DSKPAT17.ASM contained in archive : NORTASM.ZIP
DOSSEG
.MODEL SMALL

.STACK

.DATA

PUBLIC SECTOR_OFFSET
;-----------------------------------------------;
; SECTOR_OFFSET is the offset of the half- ;
; sector display into the full sector. It must ;
; be a multiple of 16, and not greater than 256 ;
;-----------------------------------------------;
SECTOR_OFFSET DW 0

PUBLIC CURRENT_SECTOR_NO, DISK_DRIVE_NO
CURRENT_SECTOR_NO DW 0 ;Initially sector 0
DISK_DRIVE_NO DB 0 ;Initially Drive A:

PUBLIC LINES_BEFORE_SECTOR, HEADER_LINE_NO
PUBLIC HEADER_PART_1, HEADER_PART_2
;-----------------------------------------------;
; LINES_BEFORE_SECTOR is the number of lines ;
; at the top of the screen before the half- ;
; sector display. ;
;-----------------------------------------------;
LINES_BEFORE_SECTOR DB 2
HEADER_LINE_NO DB 0
HEADER_PART_1 DB 'Disk ',0
HEADER_PART_2 DB ' Sector ',0

.DATA?

PUBLIC SECTOR
;-----------------------------------------------;
; The entire sector (up to 8192 bytes) is ;
; stored in this part of memory. ;
;-----------------------------------------------;
SECTOR DB 8192 DUP (?)

.CODE

EXTRN CLEAR_SCREEN:PROC, READ_SECTOR:PROC
EXTRN INIT_SEC_DISP:PROC, WRITE_HEADER:PROC
DISK_PATCH PROC
MOV AX,DGROUP ;Put data segment into AX
MOV DS,AX ;Set DS to point to data

CALL CLEAR_SCREEN
CALL WRITE_HEADER
CALL READ_SECTOR
CALL INIT_SEC_DISP

MOV AH,4Ch ;Return to DOS
INT 21h
DISK_PATCH ENDP


END DISK_PATCH


  3 Responses to “Category : Assembly Language Source Code
Archive   : NORTASM.ZIP
Filename : DSKPAT17.ASM

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/