ë<MSDOS5.0  p  ù 	            )-2øAP-FRPO    FAT16   ú3ÀŽÐ¼ |»x 6Å7VS¿>|¹ üó¤ÆEþ‹|ˆMù‰GÇ>|ûÍry3À9|t‹|‰ | |÷&||||ƒÒ £P|‰R|£I|‰K|¸  ÷&|‹|ÃH÷óI|ƒK| » ‹R|¡P|è’ r°è¬ r‹û¹ ¾æ}ó¦u
 ¹ ó¦t¾ž}è_ 3ÀÍ^DÍXXXëè‹GHHŠ|2ÿ÷ãI|K|» ¹ PRQè: rØ°èT YZXr» ƒÒ |ââŠ.|Š$|‹I|¡K|ê  p ¬
Àt)´» Íëò;|s÷6|þÂˆO|3Ò÷6|ˆ%|£M|øÃùÃ´‹M|±Òæ
6O|‹Ê†éŠ$|Š6%|ÍÃ
Non-System disk or disk error
Replace and press any key when ready
 IO      SYSMSDOS   SYS  Uªùÿÿ@ ` € 	  À à   @`€ Àà ! #@%`'€) +À-à/ 1 3@5`7€9 ;À=à? A C@E`G€I KÀMàO Q S@U`W€Y [À]à_ a c@e`g€i kÀmào q s@u`w€y {À}à  ƒ@…`‡€‰ ‹Àà 	‘ 	“@	•`	—€	™ 	›À	à	Ÿ 
¡ 
£@
¥`
§€
© 
«À
­à
¯ ± ³@µ`·€¹ »À½à¿ Á Ã@Å`Ç€É ËÀÍàÏ Ñ Ó@Õ`×€Ù ÛÀÝàß á ã@å`ç€é ëÀíàï ñ ó@õ`÷€ù ûÀýàÿ !Aa	¡Áá!Aa¡Áá!!#A%a')¡+Á-á/1!3A5a79¡;Á=á?A!CAEaGI¡KÁMáOQ!SAUaWY¡[Á]á_a!cAeagi¡kÁmáoq!sAuawy¡{Á}á!ƒA…a‡‰¡‹Áá‘!“A•a—™¡›ÁáŸ¡!£A¥a§©¡«Á­á¯±!³Aµa·¹¡»Á½á¿Á!ÃAÅaÇÉ¡ËÁÍáÏÑ!ÓAÕa×Ù¡ÛÁÝáßá!ãAåaçé¡ëÁíáïñ!óAõa÷ù¡ûÁÿïÿ ÿ                                                                                                                                                                                                                                                                                                              ðöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööùÿÿ@ ` € 	  À à   @`€ Àà ! #@%`'€) +À-à/ 1 3@5`7€9 ;À=à? A C@E`G€I KÀMàO Q S@U`W€Y [À]à_ a c@e`g€i kÀmào q s@u`w€y {À}à  ƒ@…`‡€‰ ‹Àà 	‘ 	“@	•`	—€	™ 	›À	à	Ÿ 
¡ 
£@
¥`
§€
© 
«À
­à
¯ ± ³@µ`·€¹ »À½à¿ Á Ã@Å`Ç€É ËÀÍàÏ Ñ Ó@Õ`×€Ù ÛÀÝàß á ã@å`ç€é ëÀíàï ñ ó@õ`÷€ù ûÀýàÿ !Aa	¡Áá!Aa¡Áá!!#A%a')¡+Á-á/1!3A5a79¡;Á=á?A!CAEaGI¡KÁMáOQ!SAUaWY¡[Á]á_a!cAeagi¡kÁmáoq!sAuawy¡{Á}á!ƒA…a‡‰¡‹Áá‘!“A•a—™¡›ÁáŸ¡!£A¥a§©¡«Á­á¯±!³Aµa·¹¡»Á½á¿Á!ÃAÅaÇÉ¡ËÁÍáÏÑ!ÓAÕa×Ù¡ÛÁÝáßá!ãAåaçé¡ëÁíáïñ!óAõa÷ù¡ûÁÿïÿ ÿ                                                                                                                                                                                                                                                                                                              ðöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööAP-FRPO    (          û…t      ALP     EXE           ùp… –ë README  TXT           ýs…ý»  INSTALL BAT           “r…ÿë                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  MZ™     ÿÿðÿ    ðÿ       ëy  LHA's SFX 2.13L (c) Yoshi, 1991
 Rename to ALP.EXE .EXT Overwrite  [Y/N]  Broken file  Write Header CRC Error !BATÿ ü¼ ŒÈˆ ŽÀèÖ»è[´0Í!‹Ø<r6Ž, 3À‹ø¹ÿÿò®®uû@¯‹×uè" º0è €ûu6¡ -8 ŽØº	 è »&éh¸ =Í!sÃY£˜‚‹Ø3Éº™¸ BÍ!s»OéA¿ €3Ò‹Â¹ Ñès5 â÷«þÂuíèÏ¾ ‚‹Ö¹ ˆ,‹˜‚´?Í!Iuéì BFA´?Í!¬VINF*âûu^­=-lu­†Ä-0h‹èt- tHu¬,-t»béÔ »‚‹Ó‹OÿÙ‡£œ‚‰x¸ù!u¸ ëHèGÇ  ‹Úè`ÆGÿ ã%¸ CÍ!r$»=èEè¡ t‹‚‹	‚‹˜‚¸BÍ!ëW.Æu¹  ´<Í!sëk£š‚3À£ž‚H£–‚RítèTëèÅ ^‹š‚ƒût‹‚‹‚¸WÍ!èÙ ¡ž‚;œ‚uè+ëè7 uéþþ‹˜‚è¼ è#2À´LÍ!è´ »ië‹š‚è¤ è¥ »\è« »lè¥ °ëÚ»Hè› ´Í!$ß<Yt<Nuò».ˆè„ <YÃ3Ò‹Ï+Êãu‹š‚´@Í!+Átƒûu­‹ò‹ž‚¬2ØŠÇŠüÑã‹Ÿ €3Øâï‰ž‚‹úƒ>š‚t@´².ë83ÿ»‚)?ƒ_ ¹ @u‹Àt;Ás‹È3Ò‹˜‚´?Í!Qè™ÿ_ëÕÃ´>ë‹x¸´AÍ!Ã»#è ÃPRŠC´Í!€? uôZXÃ‹–‚û €r!QRº @¹ @»‚)ƒ_ s‹˜‚´?Í!‹ÚZYŠC‰–‚Ã3À£ ‚£r·¢t·¢u·°èµ3ÿëèy
äuªÿ @uèÿƒ.‚sèë*‹Èéý è‹÷ùðQæÿ?¤÷Ç @tQVèãþ^YâìY)‚s¼ƒ‚ sµéÎþVŠÂèL;ÆvéMý¿ò¶ÀuYóªŠÂè6¹ ¿ô²ó«ÃëN‹Ñ×‹÷ð°è<u‹r·Ñãs@ëùP,èXª;úu°èþ‹È2Àóª;þrÑ^½ò¶
+Ï2Àóª‹Æ¹ ¿ô²é6°	èØ=þvéØü¿ô´Àu¹þóª°	è¿¹ ¿ô’ó«Ãëj‹×ÐW¡r·ŠÜ2ÿÑã‹Ÿô²¾T¹ é³ SŠ‡ò¶è¢X- w&u°	è„ ‹Èë@u°èu ‹Èë¹ 2Àóªëª;úr±¹ò¶+Ï2Àóª¸þ]¹ ¿ô’é£ W°èDH£ ‚¾ ²¹ èãþèUÿ¾ ²¹ÿÿèÕþ_ëƒ. ‚rÓ‹r·±ÓëÑã‹Ÿô’ûþs
SŠ‡ô´èXÃ¡r·Òà¾ä¹þÐàs‹ŸþŠë‹Ÿƒ;ÙsîÿæQ2ÿŠs·Ñã‹Ÿô²ƒûsSŠ‡ò¶è× X<vH‹Èè» » ÓãÃYÃ r·¾¹ ë³£}¸Ñà£{¸‰¸‰>ƒ¸°*Á¢…¸¸ Óà‹È3Àó«3ö» €º ‹ý‹}¸ŠÂò®uk‹Ç+ÅHQWŠ…¸‹þÓïÑç>ƒ¸S;¸wÓë‹Ëó«ë<V‹¸Óæ÷ÙÊƒ= u‹{¸Ç‡þŠ  Ç‡ƒ  ‰ƒ{¸‹=ÑæsÇþŠëÇƒâÒ‰^[_Yór	ÉuBÑës„ÃQ±*Èÿ6r·è XÓèYÃQRŠèŠu·‹r· t·:év*éÓâÒÀÐ±èåü:év*éŠòŠÐëñ*Íˆu·ŠÍ2äÓâÓàÔ‰r·¢t·ZYÃ.€>uu»v ´JÍ!¾sÍ.éÂû¸ 7Í!¾ &ˆz¸&Çv¸ö·¬< vS&:z¸t<-u'¬< vC <!u.Ð&u<xu.þy<au.þz<euÚ¬N¿ö·Vè³ ^P°/è¶ °/:àt€ü:tª&‰>v¸X<u¤Ã‹ò¿t€ùu
2íó¦tS‹ò‹Îèz .€>y u‹Ñ‹òŠ</t‹>v¸èk ‹ßºö·ë¡ö·€ü:uJJ‹ú‰‹ò¬</uÆDÿ ´9Í!ÆDÿ/;órë‰x¸¹ Ã.€>z t‹ÖŠ‚2í¸CÍ!Ã<\t</uÆDÿ/‹Î$àÐàs{F¬< wäNÆ ÃŠà¬ª
ÀuøOÃ%Ë-lh0-ù   ù   X{  CH1\FATTRIB.INC;
; File attributes...
;
FileAttribute RECORD Archive   : 1,
                     Directory : 1,
                     VolLabel  : 1,
                     System    : 1,
                     Hidden    : 1,
                     ReadOnly  : 1
%t-lh0-S  S  ·y  CH1\FSEARCH.ASMkR;
; FSEARCH.ASM
;
; Implements FindFirstFile and FindNextFile
;
.NOLIST
include fsearch.inc
include fattrib.inc
.LIST

.MODEL TINY

.CODE
;
; Find First File
;
FindFirstFile PROC NEAR PASCAL USES DS ES BX CX DX,
                               CallerDTA : DTA_PTR,
                               FileSpec  : PTR BYTE

            ;
            ; get old DTA address
            ;
            @GetDTA
            ;
            ; save address so we can restore it later
            ;
            push  ES
            push  BX
            ;
            ; set caller's DTA address
            ;
            mov   AX,CallerDTA
            @SetDTA AX
            ;
            ; find first file
            ;
            mov   DX,FileSpec
            @GetFirst DX, (MASK Archive)   OR \
                          (MASK Directory) OR \
                          (MASK System)    OR \
                          (MASK Hidden)    OR \
                          (MASK ReadOnly)
            ;
            ; get old DTA address
            ;
            pop   DX
            pop   DS
            ;
            ; save result code from find first call; need to
            ; keep flags (CARRY bit indicates success or
            ; failure) and AX (will contain error code on
            ; failure)
            ;
            pushf
            push  AX
            ;
            ; restore DTA
            ;
            @SetDTA DX
            ;
            ; restore result code from find first call
            ;
            pop   AX
            popf
            ;
            ; return to caller
            ;
            ret

FindFirstFile ENDP
;
; Find Next File
;
FindNextFile PROC  NEAR PASCAL USES DS ES BX DX,
                               CallerDTA : DTA_PTR

            ;
            ; get old DTA address
            ;
            @GetDTA
            ;
            ; save address
            ;
            push  ES
            push  BX
            ;
            ; set caller's DTA address
            ;
            mov   AX,CallerDTA
            @SetDTA AX
            ;
            ; find next file
            ;
            @GetNext
            ;
            ; restore saved old DTA address
            ;
            pop   DX
            pop   DS
            ;
            ; save result code from find next call: flags
            ; (success/failure is indicated by CARRY), AX
            ; (will contain error code on failure)
            ;
            pushf
            push  AX
            ;
            ; restore DTA
            ;
            @SetDTA DX
            ;
            ; restore result code from find next call
            ;
            pop   AX
            popf
            ;
            ; return
            ;
            ret

FindNextFile ENDP

            END
%)-lh0-    h_	  CH1\FSEARCH.INC c;
; FSEARCH.INC
;
; Header file for FindFirstFile, FindNextFile
;
INCLUDE     dos.inc     ;; contains needed macro definitions
;
; FindFirstFile and FindNextFile use pointers to the
; caller's disk transfer area (DTA).  Using a TYPEDEF makes
; this easier
;
DTA_PTR     TYPEDEF     PTR FILE_INFO
;
; Prototypes for FindFirstFile and FindNextFile
;
FindFirstFile     PROTO NEAR PASCAL CallerDTA : DTA_PTR,
                                    FileSpec  : PTR BYTE
FindNextFile      PROTO NEAR PASCAL CallerDTA : DTA_PTR
!v-lh0-s  s  ¨•  CH1\ZAP.ASM²3;
; ZAP.ASM
;
; Main code for a directory zapping program
;
.NOLIST
INCLUDE fattrib.inc
INCLUDE fsearch.inc
INCLUDE zap_pubs.inc
.LIST
;
; DOS Constants...
;
GetFileAttributes EQU 04300H
SetFileAttributes EQU 04301H

DOSCall     MACRO
            int   021H
            ENDM

.MODEL TINY

.CODE
;
; strings needed...
;
UpLevel     BYTE "..",0  ;; parent directory
AllFiles    BYTE "*.*",0 ;; wildcard
;
; This routine is used to start the process of zapping files
; It deletes everything it finds in the current directory...
;
DeleteCurrent PROC  NEAR

            ;
            ; allocate a DTA on the stack
            ;
            LOCAL CurrentDTA : FILE_INFO
            ;
            ; operate on *.*
            ;
            lea   AX,[CurrentDTA]
            INVOKE FindFirstFile,AX,OFFSET AllFiles
            ;
            ; main loop: while there are things to delete,
            ; delete them
            ; CARRY is used to control, as FindFirstFile and
            ; FindNextFile return CARRY set on error...
            ;
            jc   _dc1
_dc0:
            ;
            ; delete the current file/subdir
            ;
            lea   DX,[CurrentDTA.FName]
            call  DeleteFile
            ;
            ; next file...
            ;
            lea   AX,CurrentDTA
            INVOKE FindNextFile,AX
            jnc  _dc0
_dc1:
            .IF (AX != 012H)
               ;
               ; Describe the error...
               ;
               call  DescribeError
            .ELSE
               ;
               ; it's ok - 012H means that we're done!
               ;
            .ENDIF
            ret

DeleteCurrent ENDP
;
; Delete the current file - if it's a subdirectory, delete
; the contents first...
;
; filename is pointed to by DX
;
DeleteFile  PROC  NEAR USES BX

            ;
            ; is it a subdirectory?
            ;
            mov   AX,GetFileAttributes
            DOSCall
            .IF (!CARRY?)
               ;
               ; check the DIRECTORY bit
               ;
               .IF (CX & MASK Directory)
                  ;
                  ; OK, it's a subdirectory - check that it
                  ; isn't "." or ".."
                  ;
                  mov   BX,DX

                  ASSUME BX: PTR BYTE

                  .IF [BX] == '.'
                     .IF (((([BX+1] == '.') && \
                         ([BX + 2] == 0))) ||  \
                         ([BX + 1] == 0))
                        ;
                        ; it's the current (".") or parent
                        ; ("..")... can't delete it, so just
                        ; return
                        ;
                        jmp   DeleteFile_1
                     .ENDIF
                  .ENDIF

                  ASSUME BX: NOTHING

                  ;
                  ; OK, it's a named directory; change to it
                  ; and delete its contents
                  ;
                  @ChDir DX
                  ;
                  ; save the name!
                  ;
                  push  DX
                  ;
                  ; delete the contents
                  ;
                  call  DeleteCurrent
                  ;
                  ; back up to where we were
                  ;
                  @ChDir UpLevel
                  ;
                  ; get the name back and display it
                  ;
                  pop   DX
                  call  DisplayName
                  ;
                  ; clear any pesky obstacles, like read
                  ; only, system, hidden attributes
                  ;
                  call  ClrMod
                  ;
                  ; remove the directory
                  ;
                  @RmDir DX
               .ELSE
                  ;
                  ; just a file... display its name
                  ;
                  call  DisplayName
                  ;
                  ; clear the attribute bits
                  ;
                  call  ClrMod
                  ;
                  ; delete the file
                  ;
                  @DelFile DX
               .ENDIF
            .ELSE
               ;
               ; handle error on GetFileAttributes...
               ;
               call  DescribeError
            .ENDIF
DeleteFile_1:
            ;
            ; return
            ;
            ret

DeleteFile  ENDP
;
; display a filename; ASCIIZ name address is in DX
;
DisplayName PROC  NEAR USES AX BX DX

            ;
            ; save DX while outputting CRLF
            ;
            push  DX
            ;
            ; newline...
            ;
            @ShowChar 13
            @ShowChar 10
            ;
            ; get name address in BX
            ;
            pop   BX
            ;
            ; get first character
            ;
            mov   DL,[BX]
            ;
            ; while not a zero...
            ;
            .WHILE DL
               ;
               ; output the character
               ;
               @ShowChar DL
               ;
               ; next character...
               ;
               inc   BX
               mov   DL,[BX]
            .ENDW
            ;
            ; return
            ;
            ret

DisplayName ENDP
;
; Remove attribute impediments to deleting a file...
;
; DX = pointer to ASCIIZ Filename
;
ClrMod      PROC  NEAR USES CX

            ;
            ; get current file attributes
            ;
            mov   AX,GetFileAttributes
            DOSCall
            .IF (!CARRY?)
               ;
               ; mask off SYSTEM, HIDDEN, READ ONLY
               ;
               and   CX,NOT ( (MASK System) OR \
                              (MASK Hidden) OR \
                              (MASK Directory) OR \
                              (MASK ReadOnly) )
               mov   AX,SetFileAttributes
               DOSCall
            .ENDIF
            .IF (CARRY?)
               ;
               ; handle error on Get/Set FileAttributes
               ;
               call  DescribeError
            .ENDIF
            ret

ClrMod      ENDP
;
; Errors for DescribeError
;
ERR_UNDEF   BYTE  "Unexpected Error",0
ERR_1       BYTE  "Invalid Function",0
ERR_2       BYTE  "File Not Found",0
ERR_3       BYTE  "Path Not Found",0
ERR_5       BYTE  "Access Denied",0
;
ErrorTable  WORD  OFFSET ERR_UNDEF,
                  OFFSET ERR_1,
                  OFFSET ERR_2,
                  OFFSET ERR_3,
                  OFFSET ERR_UNDEF,
                  OFFSET ERR_5
;
; Handle errors from GetFileAttributes
;
; Error number is in AX
;
DescribeError PROC NEAR USES BX DX

            .IF (AX > 5)
               ;
               ; if index > 5, use index = 0 (undefined)
               ;
               xor   BX,BX
            .ELSE
               ;
               ; else transfer index to BX, make it word
               ; index
               ;
               mov   BX,AX
               shl   BX,1
            .ENDIF
            ;
            ; get address in DX and display message
            ;
            mov   DX,ErrorTable[BX]
            call  DisplayName
            ;
            ; return
            ;
            ret

DescribeError ENDP

            END
!m-lh0-Ô  Ô  ²b	  CH1\ZAP.MAK^š#
# Assembler flags: 
#
AFLAGS=/Sg /W3 /Fl /Fm /FR
#
# Explicit rule for creating ZAP.COM and up-to-date copies
# of cross-reference files
#
ZAP.COM:          FSEARCH.OBJ ZAP.OBJ ZAP_MAIN.OBJ
                  LINK ZAP_MAIN.OBJ+ZAP.OBJ+FSEARCH.OBJ, \
                        ZAP.COM, ZAP.MAP /TINY /MAP ;
                  PWBRMAKE /n /o ZAP.BSC /v ZAP_MAIN.SBR \
                        ZAP.SBR FSEARCH.SBR
                  CREF ZAP.BSC,ZAP.REF
#
# Explicit rules for creating the object files
#
FSEARCH.OBJ:      FSEARCH.ASM  FSEARCH.INC  FATTRIB.INC

ZAP.OBJ:          ZAP.ASM      ZAP_PUBS.INC FSEARCH.INC \
                               FATTRIB.INC

ZAP_MAIN.OBJ:     ZAP_MAIN.ASM ZAP_PUBS.INC
&r-lh0-•  •  ¼¾  CH1\ZAP_MAIN.ASM|þ;
; A directory cleaning tool - deletes every file in the
; current directory, and removes every subdirectory of the
; current directory.
;
.NOLIST
INCLUDE dos.inc
INCLUDE zap_pubs.inc
.LIST
.MODEL TINY

.CODE

            .STARTUP
            mov   DX,OFFSET Caveat
            call  DisplayName
            @GetChar 0,0,0
            and   AL,05FH
            .IF AL == 'Y'
               call  DeleteCurrent
               mov   DX,OFFSET Done
            .ELSE
               mov   DX,OFFSET NotDone
            .ENDIF
            call  DisplayName
            .EXIT 0

Caveat      BYTE  "This program will delete every file in "
            BYTE  "this directory and every file in every"
            BYTE  13,10,"subdirectory.  Read-only, hidden "
            BYTE  "and system files are NOT safe!  If this "
            BYTE  "is",13,10,"what you REALLY want to do, "
            BYTE  "press the y key now:",0
NotDone     BYTE  "The total destruction of this directory "
            BYTE  "as you know it has been averted.",0
Done        BYTE  "There is nothing left in this "
            BYTE  "directory.",0

            END
&Þ-lh0-~   ~   ç,  CH1\ZAP_PUBS.INC½Ã;
; ZAP_PUBS.INC
;
; Public code for the ZAP program
;
EXTERNDEF   DeleteCurrent: NEAR
EXTERNDEF   DisplayName:   NEAR
!¿-lh0-
  
  ¸•  CH1\ZAP.COM°vº#èï´Í!$_<YuèVº9ëºðè×¸ LÍ!This program will delete every file in this directory and every file in every
subdirectory.  Read-only, hidden and system files are NOT safe!  If this is
what you REALLY want to do, press the y key now: The total destruction of this directory as you know it has been averted. There is nothing left in this directory. .. *.* U‹ìƒÄÔFÕP¸ePè*rVóè FÕPèSsñƒøtè÷ ë ‹å]ÃS¸ CÍ!rO÷Á t;‹Ú€?.u€.u€ t€ uë1‹Ò´;Í!Rèÿºb´;Í!Zè è? ‹Ò´:Í!ëè è1 ‹Ò´AÍ!ëè— [ÃPSRR´²Í!´²
Í![Šë´Í!CŠ
ÒuõZ[XÃQ¸ CÍ!rƒáè¸CÍ!sè\ YÃUnexpected Error Invalid Function File Not Found Path Not Found Access Denied 0ARa0pSRƒøv3Ûë‹ØÑã‹—~èUÿZ[Ã U‹ìSQR´/Í!S‹F‹Ð´Í!‹V¹7 ‹Ò´NÍ!ZœP‹Ò´Í!XZY[]Â U‹ìSR´/Í!S‹F‹Ð´Í!´OÍ!ZœP‹Ò´Í!XZ[]Â $-lh0-r  r  ²­Š  CH21\80186.INC6;-----------;
; 80186.INC ;
;-----------;
;
; determine whether or not the CPU is at least an 80186.
; Starting with the 80186, shift and rotate counts are masked by
; 01FH.  Thus a count of 32 becomes a count of 0 - and nothing
; happens.  If the CPU is an 8086, the value in AL will be
; shifted left 32 bits, wiping out the value in AL.
;
Is80186 PROC    NEAR

        mov     AL,1    ; set bit in AL
        mov     CL,32   ; get count
        shl     AL,CL   ; shift bit left
        .IF (!AL)
                @ShowStr "8088 or 8086"
                @Exit 0
        .ENDIF
        ret

Is80186 ENDP
$O-lh0-Í  Í  0®Š  CH21\80286.INC[ï;-----------;
; 80286.INC ;
;-----------;
;
; determine whether or not the CPU is at least an 80286. 
; Starting with the 80286, the behavior of the stack pointer
; changed when a push is executed.  Starting with the 80286, the
; stack pointer is decremented after the value is pushed, whereas
; with the 8086 and 80186, the stack pointer was decremented
; before the value was; pushed.  This shows up most dramatically
; when the stack pointer itself is pushed.
;
Is80286 PROC    NEAR

        push    SP      ; push SP
        pop     AX      ; get pushed value
        .IF (AX != SP)
                @ShowStr "80188 or 80186"
                @Exit 1
        .ENDIF
        ret

Is80286 ENDP
$"-lh0-Y  Y  ½K~  CH21\80386.INCÓ;-----------;
; 80386.INC ;
;-----------;
;
; determine whether or not the CPU is at least an 80386. 
; Manipulating the IOPL bits in the FLAGS register is blocked by
; the 80286 in real mode, but real mode operates in privilege
; level 0 on the 80386 and 80486, and can manipulate the IOPL
; bits.
;
Is80386 PROC    NEAR

        pushf             ; push flags
        pop     ax        ; retrieve them
        xor     ax,03000h ; invert IOPL bits
        push    ax        ; stuff back up
        popf              ; pop flags back
        pushf             ; push them back up
        pop     bx        ; check IOPL bits
        .IF (AX != BX)
                xor     AX,03000H     ; invert bits back
                push    AX            ; push modified flags
                popf                  ; pop them back
                pushf                 ; push them back
                pop     BX            ; read them back
                .IF (AX == BX)
                        ret
                .ENDIF
        .ENDIF
        @ShowStr "80286"
        @Exit 2

Is80386 ENDP
$-lh0-ê  ê  Q¯Š  CH21\80486.INCÀè;-----------;
; 80486.INC ;
;-----------;
;
; determine whether or not the CPU is at least an 80486.  The
; 80486 has an alignment check bit, which the 80486 will let you
; set, but which the 80386 won't let you touch.
;
Is80486 PROC    NEAR

IF (@Cpu AND 8)

        pushfd                  ; push extended flags register
        pop     eax             ; read it back
        xor     eax,000040000h  ; invert the alignment check bit
        push    eax             ; push flags
        popfd                   ; pop flags
        pushfd                  ; push flags back
        pop     ebx             ; read what we did
        .IF (EAX == EBX)
                xor     EAX,000040000H  ; now re-invert it
                push    EAX
                popfd           ; back into the flags
                pushfd          ; push flags back
                pop     EBX     ; now read it
                .IF (EAX == EBX)
                        ret
                .ENDIF
        .ENDIF
        @ShowStr "80386"
        @Exit 3

ELSE

        @ShowStr "Program not compiled for 80386 or above"
        @ShowChar 13
        @ShowChar 10
        @ShowStr "At least 80386 detected"
        @Exit 3

ENDIF

Is80486 ENDP
"
-lh0-A  A  Q¯Š  CH21\CPU.ASMÿ;---------;
; CPU.ASM ;
;---------;

.MODEL TINY
.386

.XLIST
INCLUDE DOS.INC
.LIST

.CODE
.STARTUP

;
; determine whether the CPU in use is an 8088/8086, an 80186, an
; 80286, an 80386, or an 80486.  prints out the CPU and returns
; an errorlevel, 0, 1, 2, 3, or 4, for 8088/8086, 80186, 80286,
; 80386 or 80486 respectively.
;
        call    Is80186
        call    Is80286
        call    Is80386
        call    Is80486
        @ShowStr "80486"
        @Exit 4

INCLUDE 80186.INC
INCLUDE 80286.INC
INCLUDE 80386.INC
INCLUDE 80486.INC

END
"Q-lh0-Ì   Ì   ð´}  CH21\CPU.COMy<è è) è9 è[ ºž´	Í!¸LÍ!°± Òà
Àuº¤´	Í!¸ LÍ!ÃTX;Ätº±´	Í!¸LÍ!ÃœX5 0Pœ[;Ãt5 0Pœ[;ÃuÃºÀ´	Í!¸LÍ!fœfXf5   fPffœf[f;Ãuf5   fPffœf[f;ÃuÃºÆ´	Í!¸LÍ!80486$8088 or 8086$80188 or 80186$80286$80386$$í-lh0-û{  û{  W±}  CH10\BLOCK.ASMjªReqHeader STRUCT
          HdrLen    BYTE (?)       ; Request header length
          UnitID    BYTE (?)       ; Unit number
          CmdCode   BYTE (?)       ; Command code
          Status    WORD (?)       ; Status word
                    BYTE 8 DUP (?) ; Reserved
ReqHeader ENDS

FarPtr    STRUCT
          FP_Offset WORD ?
          FP_Seg    WORD ?
FarPtr    ENDS

;
; Attribute bits
;
IOCTL     EQU  04000H    ; IOCTL Read/Write supported
FAT_MEDIA EQU  02000H    ; Media parms determined by data in FAT
OPEN_DEV  EQU  00800H    ; Open/close device supported (also removable media)
IOCTL_QRY EQU  00080H    ; IOCTL Query supported
GEN_IOCTL EQU  00040H    ; Generic IOCTL supported (also get/set logical drive)
ADDR32    EQU  00002H    ; 32-bit sector addresses supported
;
; Error codes
;
UNK_UNIT  EQU  001H      ; Unknown unit
UNK_CMD   EQU  003H      ; Unknown command
BAD_LEN   EQU  005H      ; Bad request header length
GEN_FAIL  EQU  00CH      ; General failure
DSK_CHNGE EQU  00FH      ; Invalid disk change
;
; Bits to set in the status word
;
ERROR_BIT EQU  08000H    ; Error occurred
BUSY_BIT  EQU  00200H    ; Device busy
DONE_BIT  EQU  00100H    ; Command done

; Start of real program

_TEXT     SEGMENT   'CODE'

          ASSUME    CS:_TEXT

          ORG       00000H

; Start of device driver header

          DWORD     -1                  ; Next-driver link
Attribute WORD      IOCTL OR FAT_MEDIA OR OPEN_DEV OR IOCTL_QRY OR GEN_IOCTL OR ADDR32
          WORD      OFFSET Strategy
          WORD      OFFSET Interrupt
          BYTE      ?                 ; device id
          BYTE      7 DUP (?)

; Other data used by the driver

RHAddress FarPtr    <>                  ; Request header address
Units     BYTE      ?                 ; Number of units supported
BPBArray  WORD      26 DUP (?)          ; Offsets of BIOS Parameter Blocks
HighCmd   BYTE      0                   ; last command supported
DOSMajor  BYTE      ?                 ; DOS major version
DOSMinor  BYTE      ?                 ; DOS minor version
CmdTable  WORD      OFFSET Init         ; Init
          WORD      OFFSET MediaChk     ; Media Check
          WORD      OFFSET BuildBPB     ; Build BPB
          WORD      OFFSET IOCTLRead    ; IOCTL Read
          WORD      OFFSET Read         ; Read
          WORD      OFFSET NDRead       ; Nondestructive Read
          WORD      OFFSET InputStat    ; Input Status
          WORD      OFFSET InputFlsh    ; Input Flush
          WORD      OFFSET Write        ; Write
          WORD      OFFSET WriteV       ; Write with Verify
          WORD      OFFSET OutStat      ; Output Status
          WORD      OFFSET OutFlush     ; Output Flush
          WORD      OFFSET IOCTLWrt     ; IOCTL Write
          WORD      OFFSET OpenDev      ; Open Device
          WORD      OFFSET CloseDev     ; Close Device
          WORD      OFFSET RemMedia     ; Removable Media
          WORD      OFFSET Out2Busy     ; Output Until Busy
Fn11      WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET NoCommand    ; no command supported
Fn13      WORD      OFFSET GenIOCTL     ; Generic IOCTL
          WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET GetLogDev    ; Get Logical Device
          WORD      OFFSET SetLogDev    ; Set Logical Device
          WORD      OFFSET IOCTLQry     ; IOCTL Query

; Start of device driver strategy routine

Strategy  PROC FAR
          mov  RHAddress.FP_Offset,BX
          mov  RHAddress.FP_Seg,ES
          ret
Strategy  ENDP

; Start of device driver interrupt routine

Interrupt PROC FAR  USES AX BX CX DX SI DI DS ES BP
          pushf
          push CS
          pop  DS

          ASSUME    DS:_TEXT

          ;
          ; get address of request header
          ;
          mov  SI,RHAddress.FP_Offset
          mov  ES,RHAddress.FP_Seg
          xor  BX,BX
          mov  BL,ES:[SI.ReqHeader.CmdCode]
          .IF BL > HighCmd
               call NoCommand
          .ELSE
               shl  BX,1
               call CmdTable[BX]
          .ENDIF
          mov  ES:[SI.ReqHeader.Status],AX
          popf
          ret
Interrupt ENDP
;
; Media Check command handler
;
MCHeader  STRUCT
          Header    ReqHeader <>
          MediaID   BYTE      (?)  ; Media ID byte
          ReturnVal BYTE      (?)  ; Return value
          VolumeID  FarPtr    <>   ; Previous volume identifier
MCHeader  ENDS

MediaChk  PROC NEAR

          ;
          ; check sanity of header
          ;
          .IF DOSMajor >= 3
               .IF ES:[SI.MCHeader.Header.HdrLen] < SIZEOF MCHeader
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ELSE
               ;
               ; VolumeID is not supported under 2.x of DOS
               ;
               .IF ES:[SI.MCHeader.Header.HdrLen] < (SIZEOF MCHeader - 4)
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ENDIF
          mov  BL,ES:[SI.MCHeader.Header.UnitID]
          .IF BL >= Units
               mov  AX,DONE_BIT OR ERROR_BIT OR UNK_UNIT
               ret
          .ENDIF
          mov  AL,ES:[SI.MCHeader.MediaID]
          ;
          ; (perform actual media check here)
          ; (here assumed to return status in AX,
          ;  media changed code in BL, and address
          ;  of volume id in CX:DX if invalid disk
          ;  change error occurred)
          ;
          .IF AX == (DONE_BIT OR ERROR_BIT OR DSK_CHNGE)
               mov  ES:[SI.MCHeader.VolumeID.FP_Offset],DX
               mov  ES:[SI.MCHeader.VolumeID.FP_Seg],CX
          .ENDIF
          mov  ES:[SI.MCHeader.ReturnVal],BL
          ret
MediaChk  ENDP
;
; Build BPB command handler
;
BBHeader  STRUCT
          Header    ReqHeader <>
          MediaID   BYTE      (?)  ; media descriptor
          FATSector FarPtr    <>   ; Buffer with 1st FAT sector
          BPBAddr   FarPtr    <>   ; BPB address
BBHeader  ENDS

BuildBPB  PROC NEAR
          .IF ES:[SI.BBHeader.Header.HdrLen] < SIZEOF BBHeader
               ;
               ; header wrong size
               ;
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          mov  BL,ES:[SI.BBHeader.Header.UnitID]
          .IF BL >= Units
               mov  AX,DONE_BIT OR ERROR_BIT OR UNK_UNIT
               ret
          .ENDIF
          push ES
          push SI
          mov  AL,ES:[SI.BBHeader.MediaID]
          mov  DX,ES:[SI.BBHeader.FATSector.FP_Seg]
          mov  SI,ES:[SI.BBHeader.FATSector.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual build BPB code)
          ; (note in this example build BPB code cannot
          ;  access the request header unless it reloads
          ;  from RHAddress)
          ; (this code expects that AX will contain the status code
          ;  and BX:DX will point to the constructed BPB)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.BBHeader.BPBAddr.FP_Offset],DX
          mov  ES:[SI.BBHeader.BPBAddr.FP_Seg],BX
          ret
BuildBPB  ENDP
;
; IOCTL Read command handler
;
IOCTLRdHd STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Reserved
          BufrAddr  FarPtr    <>   ; Buffer for data
          ByteCount WORD      (?)  ; Length of data expected/returned
IOCTLRdHd ENDS

IOCTLRead PROC NEAR
          ;
          ; check sanity of header
          ;
          .IF ES:[SI.IOCTLRdHd.Header.HdrLen] < SIZEOF IOCTLRdHd
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          push ES
          push SI
          mov  AX,ES:[SI.IOCTLRdHd.ByteCount]
          mov  DX,ES:[SI.IOCTLRdHd.BufrAddr.FP_Seg]
          mov  SI,ES:[SI.IOCTLRdHd.BufrAddr.FP_Offset]
          mov  ES,DX
          ;
          ; (here the actual IOCTL read code occurs)
          ; (note in this example IOCTL read code cannot
          ;  access the request header unless it reloads
          ;  from RHAddress)
          ; (this code expects to get status in AX and the
          ;  actual byte count in BX)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.IOCTLRdHd.ByteCount],BX
          ret
IOCTLRead ENDP
;
; Read command handler
;
ReadHeadr STRUCT
          Header    ReqHeader <>
          MediaID   BYTE      (?)  ; Media descriptor
          Buffer    FarPtr    <>   ; Buffer address
          SectorCnt WORD      (?)  ; Sector count
          StartSctr WORD      (?)  ; Starting sector
          VolumeID  FarPtr    <>   ; Volume identifier
          HugeStart DWORD     (?)  ; 32-bit starting sector
ReadHeadr ENDS

Read      PROC NEAR
          .IF DOSMajor >= 4
               .IF ES:[SI.ReadHeadr.Header.HdrLen] < SIZEOF ReadHeadr
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ELSE
               .IF DOSMajor >= 3
                    ;
                    ; 32-bit sectors weren't supported until version 4
                    ;
                    .IF ES:[SI.ReadHeadr.Header.HdrLen] < SIZEOF ReadHeadr - 4
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    ;
                    ; Volume ID wan't supported until version 3
                    ;
                    .IF ES:[SI.ReadHeadr.Header.HdrLen] < SIZEOF ReadHeadr - 8
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ENDIF
          .ENDIF
          mov  BL,ES:[SI.ReadHeadr.Header.UnitID]
          .IF BL >= Units
               mov  AX,DONE_BIT OR ERROR_BIT OR UNK_UNIT
               ret
          .ENDIF
          push ES
          push SI
          mov  CX,ES:[SI.Readheadr.SectorCnt]
          mov  BH,ES:[SI.ReadHeadr.MediaID]
          mov  AX,ES:[SI.ReadHeadr.StartSctr]
          .IF (AX == -1) && (DOSMajor >= 4)
               mov  AX,WORD PTR ES:[SI.ReadHeadr.HugeStart]
               mov  DX,WORD PTR ES:[SI.ReadHeadr.HugeStart+2]
          .ENDIF
          mov  DI,ES:[SI.ReadHeadr.Buffer.FP_Seg]
          mov  SI,ES:[SI.ReadHeadr.Buffer.FP_Offset]
          mov  ES,DI
          ;
          ; (perform actual read)
          ; (should return sector count in CX, status in AX,
          ;  address of volume id in DX:BX - if invalid disk
          ;  change error occurred)
          ; (note: cannot access request header unless
          ;  reloaded from RHAddress)
          ;
          pop  SI
          pop  ES
          .IF AX == (DONE_BIT OR ERROR_BIT OR DSK_CHNGE)
               mov  ES:[SI.ReadHeadr.VolumeID.FP_Offset],BX
               mov  ES:[SI.ReadHeadr.VolumeID.FP_Seg],DX
          .ENDIF
          mov  ES:[SI.ReadHeadr.SectorCnt],CX
          ret
Read      ENDP
;
; Non-Destructive Read command handler
;
NDRead    PROC NEAR
          ;
          ; block devices return done
          ;
          mov  AX,DONE_BIT
          ret
NDRead    ENDP
;
; Input Status command handler
;
InputStat PROC NEAR
          ;
          ; block devices return done
          ;
          mov  AX,DONE_BIT
          ret
InputStat ENDP
;
; Input Flush command handler
;
InputFlsh PROC NEAR
          ;
          ; block devices return done
          ;
          mov  AX,DONE_BIT
          ret
InputFlsh ENDP
;
; Write command handler
;
WriteHdr  STRUCT
          Header    ReqHeader <>
          MediaID   BYTE      (?)  ; Media descriptor
          Buffer    FarPtr    <>   ; Buffer address
          SectorCnt WORD      (?)  ; Sector count
          StartSctr WORD      (?)  ; Starting sector
          VolumeID  FarPtr    <>   ; Volume identifier
          HugeStart DWORD     (?)  ; 32-bit starting sector
WriteHdr  ENDS

Write     PROC NEAR
          .IF DOSMajor >= 4
               .IF ES:[SI.WriteHdr.Header.HdrLen] < SIZEOF WriteHdr
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ELSE
               .IF DOSMajor >= 3
                    ;
                    ; 32-bit sectors weren't supported until version 4
                    ;
                    .IF ES:[SI.WriteHdr.Header.HdrLen] < SIZEOF WriteHdr - 4
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    ;
                    ; Volume ID wan't supported until version 3
                    ;
                    .IF ES:[SI.WriteHdr.Header.HdrLen] < SIZEOF WriteHdr - 8
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ENDIF
          .ENDIF
          mov  BL,ES:[SI.WriteHdr.Header.UnitID]
          .IF BL >= Units
               mov  AX,DONE_BIT OR ERROR_BIT OR UNK_UNIT
               ret
          .ENDIF
          push ES
          push SI
          mov  CX,ES:[SI.WriteHdr.SectorCnt]
          mov  BH,ES:[SI.WriteHdr.MediaID]
          mov  AX,ES:[SI.WriteHdr.StartSctr]
          .IF (AX == -1) && (DOSMajor >= 4)
               mov  AX,WORD PTR ES:[SI.WriteHdr.HugeStart]
               mov  DX,WORD PTR ES:[SI.WriteHdr.HugeStart+2]
          .ENDIF
          mov  DI,ES:[SI.WriteHdr.Buffer.FP_Seg]
          mov  SI,ES:[SI.WriteHdr.Buffer.FP_Offset]
          mov  ES,DI
          ;
          ; (perform actual write)
          ; (should return sector count in CX, status in AX,
          ;  address of volume id in DX:BX - if invalid disk
          ;  change error occurred)
          ; (note: cannot access request header unless
          ;  reloaded from RHAddress)
          ;
          pop  SI
          pop  ES
          .IF AX == (DONE_BIT OR ERROR_BIT OR DSK_CHNGE)
               mov  ES:[SI.WriteHdr.VolumeID.FP_Offset],BX
               mov  ES:[SI.WriteHdr.VolumeID.FP_Seg],DX
          .ENDIF
          mov  ES:[SI.WriteHdr.SectorCnt],CX
          ret
Write     ENDP
;
; Write with Verify Command Handler
;
WriteVHdr STRUCT
          Header    ReqHeader <>
          MediaID   BYTE      (?)  ; Media descriptor
          Buffer    FarPtr    <>   ; Buffer address
          SectorCnt WORD      (?)  ; Sector count
          StartSctr WORD      (?)  ; Starting sector
          VolumeID  FarPtr    <>   ; Volume identifier
          HugeStart DWORD     (?)  ; 32-bit starting sector
WriteVHdr ENDS

WriteV    PROC NEAR
          .IF DOSMajor >= 4
               .IF ES:[SI.WriteVHdr.Header.HdrLen] < SIZEOF WriteVHdr
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ELSE
               .IF DOSMajor >= 3
                    ;
                    ; 32-bit sectors weren't supported until version 4
                    ;
                    .IF ES:[SI.WriteVHdr.Header.HdrLen] < SIZEOF WriteVHdr - 4
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    ;
                    ; Volume ID wan't supported until version 3
                    ;
                    .IF ES:[SI.WriteVHdr.Header.HdrLen] < SIZEOF WriteVHdr - 8
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ENDIF
          .ENDIF
          mov  BL,ES:[SI.WriteVHdr.Header.UnitID]
          .IF BL >= Units
               mov  AX,DONE_BIT OR ERROR_BIT OR UNK_UNIT
               ret
          .ENDIF
          push ES
          push SI
          mov  CX,ES:[SI.WriteVHdr.SectorCnt]
          mov  BH,ES:[SI.WriteVHdr.MediaID]
          mov  AX,ES:[SI.WriteVHdr.StartSctr]
          .IF (AX == -1) && (DOSMajor >= 4)
               mov  AX,WORD PTR ES:[SI.WriteVHdr.HugeStart]
               mov  DX,WORD PTR ES:[SI.WriteVHdr.HugeStart+2]
          .ENDIF
          mov  DI,ES:[SI.WriteVHdr.Buffer.FP_Seg]
          mov  SI,ES:[SI.WriteVHdr.Buffer.FP_Offset]
          mov  ES,DI
          ;
          ; (perform actual write with verify)
          ; (should return sector count in CX, status in AX,
          ;  address of volume id in DX:BX - if invalid disk
          ;  change error occurred)
          ; (note: cannot access request header unless
          ;  reloaded from RHAddress)
          ;
          pop  SI
          pop  ES
          .IF AX == (DONE_BIT OR ERROR_BIT OR DSK_CHNGE)
               mov  ES:[SI.WriteVHdr.VolumeID.FP_Offset],BX
               mov  ES:[SI.WriteVHdr.VolumeID.FP_Seg],DX
          .ENDIF
          mov  ES:[SI.WriteVHdr.SectorCnt],CX
          ret
WriteV    ENDP
;
; Output Status command handler
;
OutStat   PROC NEAR
          ;
          ; block devices return done
          ;
          mov  AX,DONE_BIT
          ret
OutStat   ENDP
;
; Output Flush command handler
;
OutFlush  PROC NEAR
          ;
          ; block devices return done
          ;
          mov  AX,DONE_BIT
          ret
OutFlush  ENDP
;
; IOCTL Write command handler
;
IOCTLWHdr STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Reserved
          BufrAddr  FarPtr    <>   ; Buffer for data
          ByteCount WORD      (?)  ; Length of data to write/written
IOCTLWHdr ENDS

IOCTLWrt  PROC NEAR
          ;
          ; check sanity of header
          ;
          .IF ES:[SI.IOCTLWHdr.Header.HdrLen] < SIZEOF IOCTLWHdr
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          push ES
          push SI
          mov  AX,ES:[SI.IOCTLWHdr.ByteCount]
          mov  DX,ES:[SI.IOCTLWHdr.BufrAddr.FP_Seg]
          mov  SI,ES:[SI.IOCTLWHdr.BufrAddr.FP_Offset]
          mov  ES,DX
          ;
          ; (here the actual IOCTL write code occurs)
          ; (note in this example IOCTL write code cannot
          ;  access the request header unless it reloads
          ;  from RHAddress)
          ; (this code expects to get status in AX and the
          ;  actual byte count in BX)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.IOCTLWHdr.ByteCount],BX
          ret
IOCTLWrt  ENDP
;
; Process invalid/unsupported command
;
NoCommand PROC NEAR
          mov  AX,DONE_BIT OR ERROR_BIT OR UNK_CMD
          ret
NoCommand ENDP
;/////////////////////////////////////////////////////////////
; HERE ENDS THE COMMON HANDLERS SUPPORTED FROM DOS 2.0 ONWARD
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DOS2      LABEL BYTE
;
; Open Device command handler
;
OpenDev   PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform open device)
          ; (return status in AX)
          ;
          ret
OpenDev   ENDP
;
; Close Device command handler
;
CloseDev  PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform close device)
          ; (return status in AX)
          ;
          ret
CloseDev  ENDP
;
; Removable Media command handler
;
RemMedia  PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform removable media code)
          ; (return status in AX)
          ;
          ret
RemMedia  ENDP
;
; Output Until Busy command handler
;
Out2Busy  PROC NEAR
          ;
          ; block devices return done
          ;
          mov  AX,DONE_BIT
          ret
Out2Busy  ENDP
;/////////////////////////////////////////////////////////////
; HERE ENDS THE COMMON HANDLERS SUPPORTED FROM DOS 3.0 ONWARD
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DOS3      LABEL BYTE
;
; Generic IOCTL command handler
;
GIOCTLHdr STRUCT
          Header    ReqHeader <>
          Category  BYTE      (?)  ; Device category
          MinorCode BYTE      (?)  ; Minor code
                    DWORD     (?)  ; Reserved
          IOCTLData FarPtr    <>   ; IOCTL data buffer
GIOCTLHdr ENDS

GenIOCTL  PROC NEAR
          .IF ES:[SI.GIOCTLHdr.Header.HdrLen] < SIZEOF GIOCTLHdr
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; get units
          ;
          mov  BL,ES:[SI.MCHeader.Header.UnitID]
          .IF BL >= Units
               mov  AX,DONE_BIT OR ERROR_BIT OR UNK_UNIT
               ret
          .ENDIF
          push ES
          push SI
          mov  AL,ES:[SI.GIOCTLHdr.Category]
          mov  AH,ES:[SI.GIOCTLHdr.MinorCode]
          mov  DX,ES:[SI.GIOCTLHdr.IOCTLData.FP_Seg]
          mov  SI,ES:[SI.GIOCTLHdr.IOCTLData.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual generic IOCTL code)
          ; (return status in AX)
          ; (note in this example request header is
          ;  not accessible except by reloading from
          ;  RHAddress)
          ;
          pop  SI
          pop  ES
          ret
GenIOCTL  ENDP
;
; Get Logical Device command handler
;
GetLogDev PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          mov  AL,ES:[SI.ReqHeader.UnitID]
          ;
          ; (perform get logical device code)
          ; (return status in AX)
          ; (return new code in BL
          ;
          mov  ES:[SI.ReqHeader.UnitID],BL
          ret
GetLogDev ENDP
;
; Set Logical Device command handler
;
SetLogDev PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          mov  AL,ES:[SI.ReqHeader.UnitID]
          ;
          ; (perform set logical device code)
          ; (return status in AX)
          ;
          ret
SetLogDev ENDP
;/////////////////////////////////////////////////////////////
; HERE ENDS THE COMMON HANDLERS SUPPORTED FROM DOS 3.2 ONWARD
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DOS32     LABEL BYTE
;
; IOCTL Query command handler
;
IOCTLQHdr STRUCT
          Header    ReqHeader <>
          Category  BYTE      (?)  ; Device category
          MinorCode BYTE      (?)  ; Minor code
                    DWORD     (?)  ; Reserved
          IOCTLData FarPtr    <>   ; IOCTL data buffer
IOCTLQHdr ENDS

IOCTLQry  PROC NEAR
          .IF ES:[SI.IOCTLQHdr.Header.HdrLen] < SIZEOF IOCTLQHdr
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; get units
          ;
          mov  BL,ES:[SI.MCHeader.Header.UnitID]
          .IF BL >= Units
               mov  AX,DONE_BIT OR ERROR_BIT OR UNK_UNIT
               ret
          .ENDIF
          push ES
          push SI
          mov  AL,ES:[SI.IOCTLQHdr.Category]
          mov  AH,ES:[SI.IOCTLQHdr.MinorCode]
          mov  DX,ES:[SI.IOCTLQHdr.IOCTLData.FP_Seg]
          mov  SI,ES:[SI.IOCTLQHdr.IOCTLData.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual IOCTL query code)
          ; (return status in AX)
          ; (note in this example request header is
          ;  not accessible except by reloading from
          ;  RHAddress)
          ;
          pop  SI
          pop  ES
          ret
IOCTLQry  ENDP
;
; Init command handler
;
Addr1     UNION
          CfgAddr   FarPtr    <>
          BPBPtr    FarPtr    <>
Addr1     ENDS

InitHeadr STRUCT
          Header    ReqHeader <>
          UnitCount BYTE (?)       ; Number of Units
          EndAddr   FarPtr    <>   ; End of Available Memory/Address of
                                   ; End of Driver
          BPBAddr   Addr1     <>   ; CONFIG.SYS Parameters/BPB Pointer
                                   ; Array Address
          NxtDrive  BYTE (?)       ; Next Drive Unit
          ErrorFlag WORD (?)       ; Error Message Flagged
InitHeadr ENDS

Init      PROC NEAR
          ;
          ; get DOS version, we may need it later
          ;
          mov  AH,030H
          int  021H
          mov  DOSMajor,AL
          mov  DOSMinor,AH
          ;
          ; check size of header
          ;
          .IF ES:[SI.InitHeadr.Header.HdrLen] < SIZEOF InitHeadr
               ;
               ; header too small - but under DOS before version 4.0, the
               ; header was smaller...
               ;
               .IF DOSMajor < 4
                    .IF ES:[SI.InitHeadr.Header.HdrLen] < (SIZEOF InitHeadr - 1)
                         mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
                         mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
                         mov  ES:[SI.Initheadr.UnitCount],0
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
                    mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
                    mov  ES:[SI.Initheadr.UnitCount],0
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ENDIF
          ;
          ; check if we will overrun DOS's drive list
          ;
          mov  AL,ES:[SI.InitHeadr.NxtDrive]
          add  AL,Units
          .IF AL > 26
               mov  ES:[SI.InitHeadr.ErrorFlag],1
               mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
               mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
               mov  ES:[SI.Initheadr.UnitCount],0
               mov  AX,DONE_BIT OR ERROR_BIT OR GEN_FAIL
               ret
          .ENDIF
          ;
          ; set unit count for DOS
          ;
          mov  AL,Units
          mov  ES:[SI.InitHeadr.UnitCount],AL
          ;
          ; set BPB address for DOS
          ;
          mov  ES:[SI.InitHeadr.BPBAddr.BPBPtr.FP_Offset],OFFSET BPBArray
          mov  ES:[SI.InitHeadr.BPBAddr.BPBPtr.FP_Seg],CS
          ;
          ; Modify the functions we support based on DOS version
          ;
          .IF DOSMajor < 3
               mov  AX,OFFSET DOS2
               mov  HighCmd,00CH
               and  Attribute,NOT (OPEN_DEV OR IOCTL_QRY OR GEN_IOCTL OR ADDR32)
          .ELSE
               .IF DOSMajor == 3 && DOSMinor < 20
                    mov  AX,OFFSET DOS3
                    mov  HighCmd,010H
                    and  Attribute,NOT (IOCTL_QRY OR GEN_IOCTL OR ADDR32)
               .ELSE
                    .IF DOSMajor < 4
                         and  Attribute,NOT (IOCTL_QRY OR ADDR32)
                         ;
                         ; prior to DOS 4.0, Generic IOCTL was function 011H,
                         ; not 013H
                         ;
                         mov  BX,OFFSET GenIOCTL
                         mov  Fn11,BX
                         mov  BX,OFFSET NoCommand
                         mov  Fn13,BX
                    .ELSE
                         .IF DOSMajor < 5
                              mov  AX,OFFSET DOS32
                              mov  HighCmd,018H
                              and  Attribute,NOT (IOCTL_QRY)
                         .ELSE
                              mov  AX,OFFSET Init
                              mov  HighCmd,019H
                              ;
                              ; check to be sure our address doesn't exceed
                              ; legal bounds...
                              ;
                              push AX
                              mov  DX,CS
                              mov  BX,AX
                              mov  CL,4
                              shl  BX,CL
                              add  DX,BX
                              and  AX,0000FH
                              ;
                              ; DX:AX now equals our canonical address
                              ;
                              mov  BX,ES:[SI.InitHeadr.EndAddr.FP_Seg]
                              mov  DI,ES:[SI.InitHeadr.EndAddr.FP_Offset]
                              shl  DI,CL
                              add  BX,DI
                              mov  CX,ES:[SI.InitHeadr.EndAddr.FP_Offset]
                              and  CX,0000FH
                              ;
                              ; now BX:CX contains the highest canonical
                              ; address we can reach
                              ;
                              .IF (BX < DX) || ((BX == DX) && (CX < AX))
                                   pop  AX
                                   ;
                                   ; return general failure
                                   ;
                                   mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
                                   mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
                                   mov  ES:[SI.InitHeadr.ErrorFlag],1
                                   mov  ES:[SI.Initheadr.UnitCount],0
                                   mov  AX,DONE_BIT OR ERROR_BIT OR GEN_FAIL
                                   ret
                              .ELSE
                                   pop  AX
                              .ENDIF
                         .ENDIF
                    .ENDIF
               .ENDIF
          .ENDIF
          ;
          ; set end of the addressing
          ;
          mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
          mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],AX
          ;
          ; prepare to do init code - pass pointer to DEVICE= command line
          ; in ES:SI (note - access to original header is not possible
          ; except by reloading from RHAddress)
          ;
          push ES
          push SI
          mov  AX,ES:[SI.InitHeadr.BPBAddr.CfgAddr.FP_Seg]
          mov  SI,ES:[SI.InitHeadr.BPBAddr.CfgAddr.FP_Offset]
          mov  ES,AX
          ;
          ; (perform your initialization code here...)
          ; (it should return with AX set with the final status)
          ;
          pop  SI
          pop  ES
          .IF AX & ERROR_BIT
               mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
               mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
               mov  ES:[SI.Initheadr.UnitCount],0
               .IF DOSMajor >= 4
                    ;
                    ; request DOS say something about the failure
                    ;
                    mov  ES:[SI.InitHeadr.ErrorFlag],1
               .ENDIF
          .ENDIF
          ret
Init      ENDP

_TEXT     ENDS
          END
#ý-lh0-£j  £j  [±}  CH10\CHAR.ASMaßReqHeader STRUCT
          HdrLen    BYTE (?)       ; Request header length
                    BYTE (?)       ; Unit number
          CmdCode   BYTE (?)       ; Command code
          Status    WORD (?)       ; Status word
                    BYTE 8 DUP (?) ; Reserved
ReqHeader ENDS

FarPtr    STRUCT
          FP_Offset WORD ?
          FP_Seg    WORD ?
FarPtr    ENDS

;
; Attribute bits
;
CHAR_DEV  EQU  08000H
IOCTL     EQU  04000H    ; IOCTL Read/Write supported
OUT_BUSY  EQU  02000H    ; Output until busy supported
OPEN_DEV  EQU  00800H    ; Open/close device supported
IOCTL_QRY EQU  00080H    ; IOCTL Query supported
GEN_IOCTL EQU  00040H    ; Generic IOCTL supported (also get/set logical drive)
INT29_OK  EQU  00010H    ; Interrupt 29 supported
CLOCK_DEV EQU  00008H    ; Device is clock
STDOUT_DV EQU  00002H    ; Device is standard output device
STDIN_DEV EQU  00001H    ; Device is standard input device
;
; Error codes
;
UNK_CMD   EQU  003H      ; Unknown command
BAD_LEN   EQU  005H      ; Bad request header length
GEN_FAIL  EQU  00CH      ; General failure
;
; Bits to set in the status word
;
ERROR_BIT EQU  08000H    ; Error occurred
BUSY_BIT  EQU  00200H    ; Device busy
DONE_BIT  EQU  00100H    ; Command done

; Start of real program

_TEXT     SEGMENT   'CODE'

          ASSUME    CS:_TEXT

          ORG       00000H

; Start of device driver header

          DWORD     -1                  ; Next-driver link
Attribute WORD      CHAR_DEV OR IOCTL OR OUT_BUSY OR OPEN_DEV OR IOCTL_QRY OR GEN_IOCTL
          WORD      OFFSET Strategy
          WORD      OFFSET Interrupt
          BYTE      '        '          ; Device name

RHAddress FarPtr    <>                  ; Request header address
HighCmd   BYTE      0                   ; last command supported
DOSMajor  BYTE      ?                 ; DOS major version
DOSMinor  BYTE      ?                 ; DOS minor version
CmdTable  WORD      OFFSET Init         ; Init
          WORD      OFFSET MediaChk     ; Media Check
          WORD      OFFSET BuildBPB     ; Build BPB
          WORD      OFFSET IOCTLRead    ; IOCTL Read
          WORD      OFFSET Read         ; Read
          WORD      OFFSET NDRead       ; Nondestructive Read
          WORD      OFFSET InputStat    ; Input Status
          WORD      OFFSET InputFlsh    ; Input Flush
          WORD      OFFSET Write        ; Write
          WORD      OFFSET WriteV       ; Write with Verify
          WORD      OFFSET OutStat      ; Output Status
          WORD      OFFSET OutFlush     ; Output Flush
          WORD      OFFSET IOCTLWrt     ; IOCTL Write
          WORD      OFFSET OpenDev      ; Open Device
          WORD      OFFSET CloseDev     ; Close Device
          WORD      OFFSET RemMedia     ; Removable Media
          WORD      OFFSET Out2Busy     ; Output Until Busy
Fn11      WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET NoCommand    ; no command supported
Fn13      WORD      OFFSET GenIOCTL     ; Generic IOCTL
          WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET NoCommand    ; no command supported
          WORD      OFFSET GetLogDev    ; Get Logical Device
          WORD      OFFSET SetLogDev    ; Set Logical Device
          WORD      OFFSET IOCTLQry     ; IOCTL Query

Strategy  PROC FAR
          mov  RHAddress.FP_Offset,BX
          mov  RHAddress.FP_Seg,ES
          ret
Strategy  ENDP

Interrupt PROC FAR  USES AX BX CX DX SI DI DS ES BP
          pushf
          push CS
          pop  DS

          ASSUME    DS:_TEXT

          ;
          ; get address of request header
          ;
          mov  SI,RHAddress.FP_Offset
          mov  ES,RHAddress.FP_Seg
          xor  BX,BX
          mov  BL,ES:[SI.ReqHeader.CmdCode]
          .IF BL > HighCmd
               call NoCommand
          .ELSE
               shl  BX,1
               call CmdTable[BX]
          .ENDIF
          mov  ES:[SI.ReqHeader.Status],AX
          popf
          ret
Interrupt ENDP
;
; Media Check command handler
;
MediaChk  PROC NEAR
          ;
          ; character devices return 'done'
          ;
          mov  AX,DONE_BIT
          ret
MediaChk  ENDP
;
; Build BPB command handler
;
BuildBPB  PROC NEAR
          ;
          ; character devices return DONE
          ;
          mov  AX,DONE_BIT
          ret
BuildBPB  ENDP
;
; IOCTL Read command handler
;
IOCTLRdHd STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Reserved
          BufrAddr  FarPtr    <>   ; Buffer for data
          ByteCount WORD      (?)  ; Length of data expected/returned
IOCTLRdHd ENDS

IOCTLRead PROC NEAR
          ;
          ; check sanity of header
          ;
          .IF ES:[SI.IOCTLRdHd.Header.HdrLen] < SIZEOF IOCTLRdHd
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          push ES
          push SI
          mov  AX,ES:[SI.IOCTLRdHd.ByteCount]
          mov  DX,ES:[SI.IOCTLRdHd.BufrAddr.FP_Seg]
          mov  SI,ES:[SI.IOCTLRdHd.BufrAddr.FP_Offset]
          mov  ES,DX
          ;
          ; (here the actual IOCTL read code occurs)
          ; (note in this example IOCTL read code cannot
          ;  access the request header unless it reloads
          ;  from RHAddress)
          ; (this code expects to get status in AX and the
          ;  actual byte count in BX)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.IOCTLRdHd.ByteCount],BX
          ret
IOCTLRead ENDP
;
; Read command handler
;
ReadHeadr STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Media descriptor
          Buffer    FarPtr    <>   ; Buffer address
          ByteCount WORD      (?)  ; Byte count
                    WORD      (?)  ; Starting sector
                    FarPtr    <>   ; Volume identifier
                    DWORD     (?)  ; 32-bit starting sector
ReadHeadr ENDS

Read      PROC NEAR
          .IF DOSMajor >= 4
               .IF ES:[SI.ReadHeadr.Header.HdrLen] < SIZEOF ReadHeadr
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ELSE
               .IF DOSMajor >= 3
                    ;
                    ; 32-bit sectors weren't supported until version 4
                    ;
                    .IF ES:[SI.ReadHeadr.Header.HdrLen] < SIZEOF ReadHeadr - 4
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    ;
                    ; Volume ID wan't supported until version 3
                    ;
                    .IF ES:[SI.ReadHeadr.Header.HdrLen] < SIZEOF ReadHeadr - 8
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ENDIF
          .ENDIF
          push ES
          push SI
          mov  CX,ES:[SI.Readheadr.ByteCount]
          mov  DX,ES:[SI.ReadHeadr.Buffer.FP_Seg]
          mov  SI,ES:[SI.ReadHeadr.Buffer.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual read)
          ; (should return byte count in CX, status in AX)
          ; (note: cannot access request header unless
          ;  reloaded from RHAddress)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.ReadHeadr.ByteCount],CX
          ret
Read      ENDP
;
; Non-Destructive Read command handler
;
NDReadHdr STRUCT
          Header    Reqheader <>
          Character BYTE      (?)  ; Byte read
NDReadHdr ENDS

NDRead    PROC NEAR
          .IF ES:[SI.NDReadHdr.Header.HdrLen] < SIZEOF NDReadHdr
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
          .ENDIF
          ;
          ; (perform non-destructive read)
          ; (return byte in BL, carry set if no character
          ;  status in AX
          ;
          .IF CARRY?
               ;
               ; no character available
               ;
               or   AX,BUSY_BIT
          .ELSE
               mov  ES:[SI.NDReadHdr.Character],BL
          .ENDIF
          ret
NDRead    ENDP
;
; Input Status command handler
;
InputStat PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform input status check)
          ; (if no character available, set carry)
          ; (return status in AX)
          ;
          .IF CARRY?
               ;
               ; if no character available, set the busy bit
               ;
               or   AX,BUSY_BIT
          .ENDIF
          ret
InputStat ENDP
;
; Input Flush command handler
;
InputFlsh PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform input flush check)
          ; (return status in AX)
          ;
          ret
InputFlsh ENDP
;
; Write command handler
;
WriteHdr  STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Media descriptor
          Buffer    FarPtr    <>   ; Buffer address
          ByteCount WORD      (?)  ; Byte count
                    WORD      (?)  ; Starting sector
                    FarPtr    <>   ; Volume identifier
                    DWORD     (?)  ; 32-bit starting sector
WriteHdr  ENDS

Write     PROC NEAR
          .IF DOSMajor >= 4
               .IF ES:[SI.WriteHdr.Header.HdrLen] < SIZEOF WriteHdr
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ELSE
               .IF DOSMajor >= 3
                    ;
                    ; 32-bit sectors weren't supported until version 4
                    ;
                    .IF ES:[SI.WriteHdr.Header.HdrLen] < SIZEOF WriteHdr - 4
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    ;
                    ; Volume ID wan't supported until version 3
                    ;
                    .IF ES:[SI.WriteHdr.Header.HdrLen] < SIZEOF WriteHdr - 8
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ENDIF
          .ENDIF
          push ES
          push SI
          mov  CX,ES:[SI.WriteHdr.ByteCount]
          mov  DX,ES:[SI.WriteHdr.Buffer.FP_Seg]
          mov  SI,ES:[SI.WriteHdr.Buffer.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual write)
          ; (should return byte count in CX, status in AX)
          ; (note: cannot access request header unless
          ;  reloaded from RHAddress)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.WriteHdr.ByteCount],CX
          ret
Write     ENDP
;
; Write with Verify Command Handler
;
WriteVHdr STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Media descriptor
          Buffer    FarPtr    <>   ; Buffer address
          ByteCount WORD      (?)  ; Byte count
                    WORD      (?)  ; Starting sector
                    FarPtr    <>   ; Volume identifier
                    DWORD     (?)  ; 32-bit starting sector
WriteVHdr ENDS

WriteV    PROC NEAR
          .IF DOSMajor >= 4
               .IF ES:[SI.WriteVHdr.Header.HdrLen] < SIZEOF WriteVHdr
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ELSE
               .IF DOSMajor >= 3
                    ;
                    ; 32-bit sectors weren't supported until version 4
                    ;
                    .IF ES:[SI.WriteVHdr.Header.HdrLen] < SIZEOF WriteVHdr - 4
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    ;
                    ; Volume ID wan't supported until version 3
                    ;
                    .IF ES:[SI.WriteVHdr.Header.HdrLen] < SIZEOF WriteVHdr - 8
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ENDIF
          .ENDIF
          push ES
          push SI
          mov  CX,ES:[SI.WriteVHdr.ByteCount]
          mov  DX,ES:[SI.WriteVHdr.Buffer.FP_Seg]
          mov  SI,ES:[SI.WriteVHdr.Buffer.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual write with verify)
          ; (should return byte count in CX, status in AX)
          ; (note: cannot access request header unless
          ;  reloaded from RHAddress)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.WriteVHdr.ByteCount],CX
          ret
WriteV    ENDP
;
; Output Status command handler
;
OutStat   PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform output status check)
          ; (if output buffer not empty, set carry)
          ; (return status in AX)
          ;
          .IF CARRY?
               ;
               ; if output buffer not empty, set the busy bit
               ;
               or   AX,BUSY_BIT
          .ENDIF
          ret
OutStat   ENDP
;
; Output Flush command handler
;
OutFlush  PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform output flush check)
          ; (return status in AX)
          ;
          ret
OutFlush  ENDP
;
; IOCTL Write command handler
;
IOCTLWHdr STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Reserved
          BufrAddr  FarPtr    <>   ; Buffer for data
          ByteCount WORD      (?)  ; Length of data to write/written
IOCTLWHdr ENDS

IOCTLWrt  PROC NEAR
          ;
          ; check sanity of header
          ;
          .IF ES:[SI.IOCTLWHdr.Header.HdrLen] < SIZEOF IOCTLWHdr
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          push ES
          push SI
          mov  AX,ES:[SI.IOCTLWHdr.ByteCount]
          mov  DX,ES:[SI.IOCTLWHdr.BufrAddr.FP_Seg]
          mov  SI,ES:[SI.IOCTLWHdr.BufrAddr.FP_Offset]
          mov  ES,DX
          ;
          ; (here the actual IOCTL write code occurs)
          ; (note in this example IOCTL write code cannot
          ;  access the request header unless it reloads
          ;  from RHAddress)
          ; (this code expects to get status in AX and the
          ;  actual byte count in BX)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.IOCTLWHdr.ByteCount],BX
          ret
IOCTLWrt  ENDP
;
; Process invalid/unsupported command
;
NoCommand PROC NEAR
          mov  AX,DONE_BIT OR ERROR_BIT OR UNK_CMD
          ret
NoCommand ENDP
;/////////////////////////////////////////////////////////////
; HERE ENDS THE COMMON HANDLERS SUPPORTED FROM DOS 2.0 ONWARD
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DOS2      LABEL BYTE
;
; Open Device command handler
;
OpenDev   PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform open device)
          ; (return status in AX)
          ;
          ret
OpenDev   ENDP
;
; Close Device command handler
;
CloseDev  PROC NEAR
          .IF ES:[SI.ReqHeader.HdrLen] < SIZEOF ReqHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          ;
          ; (perform close device)
          ; (return status in AX)
          ;
          ret
CloseDev  ENDP
;
; Removable Media command handler
;
RemMedia  PROC NEAR
          ;
          ; character devices return done
          ;
          mov  AX,DONE_BIT
          ret
RemMedia  ENDP
;
; Output Until Busy command handler
;
OTBHeader STRUCT
          Header    ReqHeader <>
                    BYTE      (?)  ; Reserved
          BufrAddr  FarPtr    <>   ; Buffer address
          ByteCount WORD      (?)  ; Number of bytes to write/written
OTBHeader ENDS

Out2Busy  PROC NEAR
          ;
          ; check sanity of header
          ;
          .IF ES:[SI.OTBHeader.Header.HdrLen] < SIZEOF OTBHeader
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          push ES
          push SI
          mov  AX,ES:[SI.OTBHeader.ByteCount]
          mov  DX,ES:[SI.OTBHeader.BufrAddr.FP_Seg]
          mov  SI,ES:[SI.OTBHeader.BufrAddr.FP_Offset]
          mov  ES,DX
          ;
          ; (here the actual output until busy code occurs)
          ; (note in this example output until busy code cannot
          ;  access the request header unless it reloads
          ;  from RHAddress)
          ; (this code expects to get status in AX and the
          ;  actual byte count in BX)
          ;
          pop  SI
          pop  ES
          mov  ES:[SI.OTBHeader.ByteCount],BX
          ret
Out2Busy  ENDP
;/////////////////////////////////////////////////////////////
; HERE ENDS THE COMMON HANDLERS SUPPORTED FROM DOS 3.0 ONWARD
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DOS3      LABEL BYTE
;
; Generic IOCTL command handler
;
GIOCTLHdr STRUCT
          Header    ReqHeader <>
          Category  BYTE      (?)  ; Device category
          MinorCode BYTE      (?)  ; Minor code
                    DWORD     (?)  ; Reserved
          IOCTLData FarPtr    <>   ; IOCTL data buffer
GIOCTLHdr ENDS

GenIOCTL  PROC NEAR
          .IF ES:[SI.GIOCTLHdr.Header.HdrLen] < SIZEOF GIOCTLHdr
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          push ES
          push SI
          mov  AL,ES:[SI.GIOCTLHdr.Category]
          mov  AH,ES:[SI.GIOCTLHdr.MinorCode]
          mov  DX,ES:[SI.GIOCTLHdr.IOCTLData.FP_Seg]
          mov  SI,ES:[SI.GIOCTLHdr.IOCTLData.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual generic IOCTL code)
          ; (return status in AX)
          ; (note in this example request header is
          ;  not accessible except by reloading from
          ;  RHAddress)
          ;
          pop  SI
          pop  ES
          ret
GenIOCTL  ENDP
;
; Get Logical Device command handler
;
GetLogDev PROC NEAR
          ;
          ; character devices return done
          ;
          mov  AX,DONE_BIT
          ret
GetLogDev ENDP
;
; Set Logical Device command handler
;
SetLogDev PROC NEAR
          ;
          ; character devices return done
          ;
          mov  AX,DONE_BIT
          ret
SetLogDev ENDP
;/////////////////////////////////////////////////////////////
; HERE ENDS THE COMMON HANDLERS SUPPORTED FROM DOS 3.2 ONWARD
;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DOS32     LABEL BYTE
;
; IOCTL Query command handler
;
IOCTLQHdr STRUCT
          Header    ReqHeader <>
          Category  BYTE      (?)  ; Device category
          MinorCode BYTE      (?)  ; Minor code
                    DWORD     (?)  ; Reserved
          IOCTLData FarPtr    <>   ; IOCTL data buffer
IOCTLQHdr ENDS

IOCTLQry  PROC NEAR
          .IF ES:[SI.IOCTLQHdr.Header.HdrLen] < SIZEOF IOCTLQHdr
               mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
               ret
          .ENDIF
          push ES
          push SI
          mov  AL,ES:[SI.IOCTLQHdr.Category]
          mov  AH,ES:[SI.IOCTLQHdr.MinorCode]
          mov  DX,ES:[SI.IOCTLQHdr.IOCTLData.FP_Seg]
          mov  SI,ES:[SI.IOCTLQHdr.IOCTLData.FP_Offset]
          mov  ES,DX
          ;
          ; (perform actual IOCTL query code)
          ; (return status in AX)
          ; (note in this example request header is
          ;  not accessible except by reloading from
          ;  RHAddress)
          ;
          pop  SI
          pop  ES
          ret
IOCTLQry  ENDP
;
; Init command handler
;
InitHeadr STRUCT
          Header    ReqHeader <>
          UnitCount BYTE      (?)  ; Number of Units
          EndAddr   FarPtr    <>   ; End of Available Memory/Address of
                                   ; End of Driver
          CfgAddr   FarPtr    <>   ; CONFIG.SYS Parameters
                    BYTE      (?)  ; Next Drive Unit
          ErrorFlag WORD      (?)  ; Error Message Flagged
InitHeadr ENDS

Init      PROC NEAR
          ;
          ; get DOS version, we may need it later
          ;
          mov  AH,030H
          int  021H
          mov  DOSMajor,AL
          mov  DOSMinor,AH
          ;
          ; check size of header
          ;
          .IF ES:[SI.InitHeadr.Header.HdrLen] < SIZEOF InitHeadr
               ;
               ; header too small - but under DOS before version 4.0, the
               ; header was smaller...
               ;
               .IF DOSMajor < 4
                    .IF ES:[SI.InitHeadr.Header.HdrLen] < (SIZEOF InitHeadr - 1)
                         mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
                         mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
                         mov  ES:[SI.Initheadr.UnitCount],0
                         and  Attribute,NOT CHAR_DEV
                         mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                         ret
                    .ENDIF
               .ELSE
                    mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
                    mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
                    mov  ES:[SI.Initheadr.UnitCount],0
                    and  Attribute,NOT CHAR_DEV
                    mov  AX,DONE_BIT OR ERROR_BIT OR BAD_LEN
                    ret
               .ENDIF
          .ENDIF
          ;
          ; Modify the functions we support based on DOS version
          ;
          .IF DOSMajor < 3
               mov  AX,OFFSET DOS2
               mov  HighCmd,00CH
               and  Attribute,NOT (OUT_BUSY OR OPEN_DEV OR IOCTL_QRY OR GEN_IOCTL)
          .ELSE
               .IF DOSMajor == 3 && DOSMinor < 20
                    mov  AX,OFFSET DOS3
                    mov  HighCmd,010H
                    and  Attribute,NOT (IOCTL_QRY OR GEN_IOCTL)
               .ELSE
                    .IF DOSMajor < 4
                         and  Attribute,NOT (IOCTL_QRY)
                         ;
                         ; prior to DOS 4.0, Generic IOCTL was function 011H,
                         ; not 013H
                         ;
                         mov  BX,OFFSET GenIOCTL
                         mov  Fn11,BX
                         mov  BX,OFFSET NoCommand
                         mov  Fn13,BX
                    .ELSE
                         .IF DOSMajor < 5
                              mov  AX,OFFSET DOS32
                              mov  HighCmd,018H
                              and  Attribute,NOT (IOCTL_QRY)
                         .ELSE
                              mov  AX,OFFSET Init
                              mov  HighCmd,019H
                              ;
                              ; check to be sure our address doesn't exceed
                              ; legal bounds...
                              ;
                              push AX
                              mov  DX,CS
                              mov  BX,AX
                              mov  CL,4
                              shl  BX,CL
                              add  DX,BX
                              and  AX,0000FH
                              ;
                              ; DX:AX now equals our canonical address
                              ;
                              mov  BX,ES:[SI.InitHeadr.EndAddr.FP_Seg]
                              mov  DI,ES:[SI.InitHeadr.EndAddr.FP_Offset]
                              shl  DI,CL
                              add  BX,DI
                              mov  CX,ES:[SI.InitHeadr.EndAddr.FP_Offset]
                              and  CX,0000FH
                              ;
                              ; now BX:CX contains the highest canonical
                              ; address we can reach
                              ;
                              .IF (BX < DX) || ((BX == DX) && (CX < AX))
                                   pop  AX
                                   ;
                                   ; return general failure
                                   ;
                                   mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
                                   mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
                                   mov  ES:[SI.InitHeadr.ErrorFlag],1
                                   mov  ES:[SI.Initheadr.UnitCount],0
                                   and  Attribute,NOT CHAR_DEV
                                   mov  AX,DONE_BIT OR ERROR_BIT OR GEN_FAIL
                                   ret
                              .ELSE
                                   pop  AX
                              .ENDIF
                         .ENDIF
                    .ENDIF
               .ENDIF
          .ENDIF
          ;
          ; set end of the addressing
          ;
          mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
          mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],AX
          ;
          ; prepare to do init code - pass pointer to DEVICE= command line
          ; in ES:SI (note - access to original header is not possible
          ; except by reloading from RHAddress)
          ;
          push ES
          push SI
          mov  AX,ES:[SI.InitHeadr.CfgAddr.FP_Seg]
          mov  SI,ES:[SI.InitHeadr.CfgAddr.FP_Offset]
          mov  ES,AX
          ;
          ; (perform your initialization code here...)
          ; (it should return with AX set with the final status)
          ;
          pop  SI
          pop  ES
          .IF AX & ERROR_BIT
               mov  ES:[SI.InitHeadr.EndAddr.FP_Seg],CS
               mov  ES:[SI.InitHeadr.EndAddr.FP_Offset],0
               mov  ES:[SI.Initheadr.UnitCount],0
               and  Attribute,NOT CHAR_DEV
               .IF DOSMajor >= 4
                    ;
                    ; request DOS say something about the failure
                    ;
                    mov  ES:[SI.InitHeadr.ErrorFlag],1
               .ENDIF
          .ENDIF
          ret
Init      ENDP

_TEXT     ENDS
          END
#Ê-lh0-Å  Å  -»%  CH28\CALC.ASM¿F.model tiny

.data

string		BYTE	7,"_strlen"
numBlocks	WORD	50

.code
		org	100H
begin:
		mov	SI,OFFSET string
		mov	BP,numBlocks
		call	calcBlockHash
		call	calcBucketHash
		int	20H
;
; calculate block hash and delta values
;
; on entry, SI points to a string which is in the following format:
;
; Byte 0:     Length of string in bytes
; Bytes 1..n: ASCII string
;
; BP = number of blocks in the symbol table
;
; on exit, BX = hash value; DX = delta value
;
calcBlockHash	PROC	USES AX CX DI SI

		xor	CX,CX		; get string length
		mov	CL,[SI]
		mov	DI,SI		; get address of end of string
		add	DI,CX
		xor	AX,AX		; clear hash accumulator
		xor	DX,DX		; clear delta accumulator
		.REPEAT
			;
			; calculate hash
			;
			mov	BL,[SI]	; get character
			or	BL,020H	; make it uppercase
			inc	SI	; increment pointer
			rol	AX,1	; rotate left 2 bits
			rol	AX,1
			xor	AL,BL	; xor byte into accumulator
			;
			; calculate delta
			;
			mov	BH,[DI]	; get character
			or	BH,020H	; make it uppercase
			dec	DI	; decrement pointer
			rol	DX,1	; rotate left 2 bits
			rol	DX,1
			xor	DL,BH	; xor byte into accumulator 
		.UNTILCXZ
		push	DX		; save delta
		;
		; calculate hash
		;
		xor	DX,DX		; clear high word
		div	BP		; divide by number of blocks
		mov	BX,DX		; return answer in BX
		;
		; calculate delta
		;
		pop	AX		; retrieve delta
		xor	DX,DX		; clear high word
		div	BP		; divide by number of blocks
		.IF (DX == 0)
			mov	DX,1	; ensure non-zero delta
		.ENDIF
		ret			; return BX = hash DX = delta

calcBlockHash	ENDP

;
; calculate bucket hash and delta values
;
; on entry, SI points to a string which is in the following format:
;
; Byte 0:     Length of string in bytes
; Bytes 1..n: ASCII string
;
; on exit, BX = hash value; DX = delta value
;
calcBucketHash	PROC	USES AX CX DI SI

		xor	CX,CX		; get string length
		mov	CL,[SI]
		mov	DI,SI		; get address of end of string
		add	DI,CX
		xor	AX,AX		; clear hash accumulator
		xor	DX,DX		; clear delta accumulator
		.REPEAT
			;
			; calculate hash
			;
			mov	BH,[DI]	; get character
			or	BH,020H	; make it uppercase
			dec	DI	; decrement pointer
			ror	AX,1	; rotate right 2 bits
			ror	AX,1
			xor	AL,BH	; xor byte into accumulator
			;
			; calculate delta
			;
			mov	BL,[SI]	; get character
			or	BL,020H	; make it uppercase
			inc	SI	; increment pointer
			ror	DX,1	; rotate right 2 bits
			ror	DX,1
			xor	DL,BL	; xor byte into accumulator
		.UNTILCXZ
		mov	CX,37		; get count of buckets 
		push	DX		; save delta
		;
		; calculate hash value
		;
		xor	DX,DX		; clear high word
		div	CX		; divide by number of buckets
		mov	BX,DX		; return remainder in BX
		;
		; calculate delta
		;
		pop	AX		; get delta
		xor	DX,DX		; clear high word
		div	CX		; divide by number of buckets
		.IF (DX == 0)
			mov	DX,1	; ensure delta is non-zero
		.ENDIF
		ret			; return BX = hash DX = delta

calcBucketHash	ENDP

	end	begin
$|-lh0-‚  ‚  Ûq  CH14\MPADD.INCÔADC32   MACRO   a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        adc     a2,a4
                                                        adc     a1,a3
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        adc     a2,LOWWORD a3
                                        adc     a1,HIGHWORD a3
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        adc     a2,WORD PTR a3[ 0 ]
                                        adc     a1,WORD PTR a3[ 2 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        adc     WORD PTR a1[ 0 ],a3
                                        adc     WORD PTR a1[ 2 ],a2
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        adc     WORD PTR a1[ 0 ],LOWWORD a2
                        adc     WORD PTR a1[ 2 ],HIGHWORD a2
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM
        
ADD32   MACRO   a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        add     a2,a4
                                                        adc     a1,a3
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        add     a2,LOWWORD a3
                                        adc     a1,HIGHWORD a3
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        add     a2,WORD PTR a3[ 0 ]
                                        adc     a1,WORD PTR a3[ 2 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        add     WORD PTR a1[ 0 ],a3
                                        adc     WORD PTR a1[ 2 ],a2
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        add     WORD PTR a1[ 0 ],LOWWORD a2
                        adc     WORD PTR a1[ 2 ],HIGHWORD a2
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

INC32   MACRO   a1:req,a2
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IFB <a2>
                        .ERR <missing 2nd register>
                ELSE
                        IF IS_REG16(a2)
                                add     a2,1
                                adc     a1,0
                        ELSE
                                .ERR <a2 is not a valid argument>
                        ENDIF
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                add     WORD PTR a1[ 0 ],1
                adc     WORD PTR a1[ 1 ],0
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM
'W-lh0-n  n  D¹p  CH14\MPARI_SH.INC˜ñSAL32   MACRO   a1:req,a2:req,a3
        SHL32   a1,a2,a3
        ENDM

SAR32   MACRO   a1:req,a2:req,a3
        LOCAL   shifted
        LOCAL   shiftAgain
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_ONE(a3)
                                        ;;
                                        ;; 3rd argument is 1
                                        ;;
                                        sar     a1,1
                                        rcr     a2,1
                                ELSEIF IS_CL(a3)
                                        ;;
                                        ;; 3rd argument is CL register
                                        ;;
                                        push    CX
                                        xor     CH,CH
                                        jcxz    shifted
                                        shiftAgain:
                                        sar     a1,1
                                        rcr     a2,1
                                        loop    shiftAgain
                                        shifted:
                                        pop     CX
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_ONE(a2)
                        ;;
                        ;; 2nd argument is 1
                        ;;
                        sar     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                ELSEIF IS_CL(a2)
                        ;;
                        ;; 2rd argument is CL register
                        ;;
                        push    CX
                        xor     CH,CH
                        jcxz    shifted
                        shiftAgain:
                        sar     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                        loop    shiftAgain
                        shifted:
                        pop     CX
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

$ì-lh0-µv  µv  «®r  CH14\MPDIV.INClæDIV32   MACRO   a1,a2,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        .ERR <Can't divide R4:R3:DX:AX by R2:R1>
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        IF a3 EQ 0
                                                INT     0
                                        ELSE
                                        xor32   DI,SI,DI,SI
                                        mov     CX,64
                                        .REPEAT
                                                shl32   DX,AX,1
                                                rcl32   a1,a2,1
                                                rcl32   DI,SI,1
                                                .IF ((CARRY?) || (DI > HIGHWORD a3) || ((DI == HIGHWORD a3) && (SI >= LOWWORD a3)))
                                                        sub32   DI,SI,a3
                                                        inc     AX
                                                .ENDIF
                                        .UNTILCXZ
                                        .IF ((a1 != 0) || (a2 != 0))
                                                INT     0
                                        .ENDIF
                                        MOV     a2,SI
                                        MOV     a1,DI
                                        ENDIF
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        .IF (((WORD PTR a3[ 0 ]) == 0) && ((WORD PTR a3[ 2 ]) == 0))
                                                int     0
                                        .ENDIF
                                        xor32   DI,SI,DI,SI
                                        mov     CX,64
                                        .REPEAT
                                                shl32   DX,AX,1
                                                rcl32   a1,a2,1
                                                rcl32   DI,SI,1
                                                .IF ((CARRY?) || (DI > WORD PTR a3[ 2 ]) || ((DI == WORD PTR a3[ 2 ]) && (SI >= WORD PTR a3[ 0 ])))
                                                        sub32   DI,SI,a3
                                                        inc     AX
                                                .ENDIF
                                        .UNTILCXZ
                                        .IF ((a1 != 0) || (a2 != 0))
                                                INT     0
                                        .ENDIF
                                        MOV     a2,SI
                                        MOV     a1,DI
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        .IF ((a3 == 0) && (a2 == 0))
                                                int     0
                                        .ENDIF
                                        xor32   DI,SI,DI,SI
                                        mov     CX,64
                                        .REPEAT
                                                shl32   DX,AX,1
                                                rcl32   a1,1
                                                rcl32   DI,SI,1
                                                .IF ((CARRY?) || (DI > a2) || ((DI == a2) && (SI >= a3)))
                                                        sub32   DI,SI,a2,a3
                                                        inc     AX
                                                .ENDIF
                                        .UNTILCXZ
                                        .IF (((WORD PTR a1[ 2 ]) != 0) || ((WORD PTR a1[ 0 ]) != 0))
                                                INT     0
                                        .ENDIF
                                        MOV     WORD PTR a1[ 0 ],SI
                                        MOV     WORD PTR a1[ 2 ],DI
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        IF a2 EQ 0
                                INT 0
                        ELSE
                        xor32   DI,SI,DI,SI
                        mov     CX,64
                        .REPEAT
                                shl32   DX,AX,1
                                rcl32   a1,1
                                rcl32   DI,SI,1
                                .IF ((CARRY?) || (DI > HIGHWORD a2) || ((DI == HIGHWORD a2) && (SI >= LOWWORD a2)))
                                        sub32   DI,SI,a2
                                        inc     AX
                                .ENDIF
                        .UNTILCXZ
                        .IF (((WORD PTR a1[ 2 ]) != 0) || ((WORD PTR a1[ 0 ]) != 0))
                                INT     0
                        .ENDIF
                        MOV     WORD PTR a1[ 0 ],SI
                        MOV     WORD PTR a1[ 2 ],DI
                        ENDIF
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

IDIV32  MACRO   a1,a2,a3,a4
        LOCAL   divisor
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        .ERR <Can't divide R4:R3:DX:AX by R2:R1>
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        ;
                                        ; if high bit of dividend and divisor are not same, we have to change the sign of the result...
                                        ;
                                        push    AX
                                        mov     AX,a1
                                        xor     AX,HIGHWORD a3
                                        pop     AX
                                        pushf
                                        ;
                                        ; make sure dividend is positive
                                        ;
                                        test    a1,8000h
                                        .IF (SIGN?)
                                                not     a1
                                                not     a2
                                                not     DX
                                                neg     AX
                                                cmc
                                                adc     DX,0
                                                adc32   a1,a2,0
                                        .ENDIF
                                        ;
                                        ; make sure divisor is positive
                                        ;
                                        IF a3 LT 0
                                                divisor = -a3
                                        ELSEIF a3 EQ 0
                                                int     0
                                        ELSE
                                                divisor = a3
                                        ENDIF
                                        ;
                                        ; clear remainder
                                        ;
                                        xor32   DI,SI,DI,SI
                                        ;
                                        ; set bit count to 64 bits
                                        ;
                                        mov     CX,64
                                        .REPEAT
                                                ;
                                                ; shift dividend left 1 bit
                                                ;
                                                shl32   DX,AX,1
                                                rcl32   a1,a2,1
                                                ;
                                                ; shift remainder left 1 bit
                                                ;
                                                rcl32   DI,SI,1
                                                ;
                                                ; if overflowed or remainder >= divisor
                                                ;
                                                .IF ((CARRY?) || (DI > HIGHWORD divisor) || ((DI == HIGHWORD divisor) && (SI >= LOWWORD divisor)))
                                                        ;
                                                        ; subtract divisor from remainder
                                                        ;
                                                        sub32   DI,SI,divisor
                                                        ;
                                                        ; add 1 to quotient
                                                        ;
                                                        inc     AX
                                                .ENDIF
                                        .UNTILCXZ
                                        ;
                                        ; check for overflow in the quotient
                                        ;
                                        .IF ((a1 != 0) || (a2 != 0))
                                                int     0
                                        .ENDIF
                                        ;
                                        ; save the remainder in the high dword of the former dividend
                                        ;
                                        mov     a2,SI
                                        mov     a1,DI
                                        ;
                                        ; round the quotient up 1
                                        ;
                                        shl32   DI,SI,1
                                        .IF ((CARRY?) || ((DI > HIGHWORD divisor) || ((DI == HIGHWORD divisor) && (SI >= LOWWORD divisor))))
                                                add32   DX,AX,1
                                                .IF (CARRY?)
                                                        int     0
                                                .ENDIF
                                        .ENDIF
                                        popf
                                        .IF (CARRY?)
                                                not     DX
                                                neg     AX
                                                cmc
                                                adc     DX,0
                                        .ENDIF
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        ;
                                        ; if high bit of dividend and divisor are not same, we have to change the sign of the result...
                                        ;
                                        push    AX
                                        mov     AX,a1
                                        xor     AX,WORD PTR a3[ 2 ]
                                        pop     AX
                                        pushf
                                        ;
                                        ; make sure dividend is positive
                                        ;
                                        test    a1,8000h
                                        .IF (SIGN?)
                                                not     a1
                                                not     a2
                                                not     DX
                                                neg     AX
                                                cmc
                                                adc     DX,0
                                                adc32   a1,a2,0
                                        .ENDIF
                                        ;
                                        ; make sure divisor is positive
                                        ;
                                        test    WORD PTR a3[ 2 ],08000H
                                        .IF (SIGN?)
                                                neg     WORD PTR a3[ 2 ]
                                                neg     WORD PTR a3[ 0 ]
                                                sbb     WORD PTR a3[ 2 ],0
                                        .ENDIF
                                        ;
                                        ; make sure divisor is not zero
                                        ;
                                        .IF (((WORD PTR a3[ 0 ]) == 0) && ((WORD PTR a3[ 2 ]) == 0))
                                                int     0
                                        .ENDIF
                                        ;
                                        ; clear remainder
                                        ;
                                        xor32   DI,SI,DI,SI
                                        ;
                                        ; set bit count to 64 bits
                                        ;
                                        mov     CX,64
                                        .REPEAT
                                                ;
                                                ; shift dividend left 1 bit
                                                ;
                                                shl32   DX,AX,1
                                                rcl32   a1,a2,1
                                                ;
                                                ; shift remainder left 1 bit
                                                ;
                                                rcl32   DI,SI,1
                                                ;
                                                ; if overflowed or remainder >= divisor
                                                ;
                                                .IF ((CARRY?) || (DI > (WORD PTR a3[ 2 ])) || ((DI == (WORD PTR a3[ 2 ])) && (SI >= (WORD PTR a3[ 0 ]))))
                                                        ;
                                                        ; subtract divisor from remainder
                                                        ;
                                                        sub32   DI,SI,a3
                                                        ;
                                                        ; add 1 to quotient
                                                        ;
                                                        inc     AX
                                                .ENDIF
                                        .UNTILCXZ
                                        ;
                                        ; check for overflow in the quotient
                                        ;
                                        .IF ((a1 != 0) || (a2 != 0))
                                                int     0
                                        .ENDIF
                                        ;
                                        ; save the remainder in the high dword of the former dividend
                                        ;
                                        mov     a2,SI
                                        mov     a1,DI
                                        ;
                                        ; round the quotient up 1
                                        ;
                                        shl32   DI,SI,1
                                        .IF ((CARRY?) || ((DI > (WORD PTR a3[ 2 ])) || ((DI == (WORD PTR a3[ 2 ])) && (SI >= (WORD PTR a3[ 0 ])))))
                                                add32   DX,AX,1
                                                .IF (CARRY?)
                                                        int     0
                                                .ENDIF
                                        .ENDIF
                                        popf
                                        .IF (CARRY?)
                                                not     DX
                                                neg     AX
                                                cmc
                                                adc     DX,0
                                        .ENDIF
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        ;
                                        ; if high bit of dividend and divisor are not same, we have to change the sign of the result...
                                        ;
                                        push    AX
                                        mov     AX,WORD PTR a1[ 2 ]
                                        xor     AX,a2
                                        pop     AX
                                        pushf
                                        ;
                                        ; make sure dividend is positive
                                        ;
                                        test    WORD PTR a1[ 2 ],8000h
                                        .IF (SIGN?)
                                                not     WORD PTR a1[ 2 ]
                                                not     WORD PTR a1[ 0 ]
                                                not     DX
                                                neg     AX
                                                cmc
                                                adc     DX,0
                                                adc32   a1,0
                                        .ENDIF
                                        ;
                                        ; make sure divisor is positive
                                        ;
                                        or      a2,a2
                                        .IF (SIGN?)
                                                neg     a2
                                                neg     a3
                                                sbb     a2,0
                                        .ENDIF
                                        ;
                                        ; make sure divisor is not zero
                                        ;
                                        .IF ((a3 == 0) && (a2 == 0))
                                                int     0
                                        .ENDIF
                                        ;
                                        ; clear remainder
                                        ;
                                        xor32   DI,SI,DI,SI
                                        ;
                                        ; set bit count to 64 bits
                                        ;
                                        mov     CX,64
                                        .REPEAT
                                                ;
                                                ; shift dividend left 1 bit
                                                ;
                                                shl32   DX,AX,1
                                                rcl32   a1,1
                                                ;
                                                ; shift remainder left 1 bit
                                                ;
                                                rcl32   DI,SI,1
                                                ;
                                                ; if overflowed or remainder >= divisor
                                                ;
                                                .IF ((CARRY?) || (DI > a2) || ((DI == a2) && (SI >= a3)))
                                                        ;
                                                        ; subtract divisor from remainder
                                                        ;
                                                        sub32   DI,SI,a2,a3
                                                        ;
                                                        ; add 1 to quotient
                                                        ;
                                                        inc     AX
                                                .ENDIF
                                        .UNTILCXZ
                                        ;
                                        ; check for overflow in the quotient
                                        ;
                                        .IF (((WORD PTR a1[ 2 ]) != 0) || ((WORD PTR a1[ 0 ]) != 0))
                                                int     0
                                        .ENDIF
                                        ;
                                        ; save the remainder in the high dword of the former dividend
                                        ;
                                        mov     WORD PTR a1[ 0 ],SI
                                        mov     WORD PTR a1[ 2 ],DI
                                        ;
                                        ; round the quotient up 1
                                        ;
                                        shl32   DI,SI,1
                                        .IF ((CARRY?) || ((DI > a2) || ((DI == a2) && (SI >= a3))))
                                                add32   DX,AX,1
                                                .IF (CARRY?)
                                                        int     0
                                                .ENDIF
                                        .ENDIF
                                        popf
                                        .IF (CARRY?)
                                                not     DX
                                                neg     AX
                                                cmc
                                                adc     DX,0
                                        .ENDIF
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        ;
                        ; if high bit of dividend and divisor are not same, we have to change the sign of the result...
                        ;
                        push    AX
                        mov     AX,WORD PTR a1[ 2 ]
                        xor     AX,HIGHWORD a2
                        pop     AX
                        pushf
                        ;
                        ; make sure dividend is positive
                        ;
                        test    WORD PTR a1[ 2 ],8000h
                        .IF (SIGN?)
                                not     WORD PTR a1[ 2 ]
                                not     WORD PTR a1[ 0 ]
                                not     DX
                                neg     AX
                                cmc
                                adc     DX,0
                                adc32   a1,0
                        .ENDIF
                        ;
                        ; make sure divisor is positive
                        ;
                        IF a2 LT 0
                                divisor = -a2
                        ELSEIF a2 EQ 0
                                int     0
                        ELSE
                                divisor = a2
                        ENDIF
                        ;
                        ; clear remainder
                        ;
                        xor32   DI,SI,DI,SI
                        ;
                        ; set bit count to 64 bits
                        ;
                        mov     CX,64
                        .REPEAT
                                ;
                                ; shift dividend left 1 bit
                                ;
                                shl32   DX,AX,1
                                rcl32   a1,1
                                ;
                                ; shift remainder left 1 bit
                                ;
                                rcl32   DI,SI,1
                                ;
                                ; if overflowed or remainder >= divisor
                                ;
                                .IF ((CARRY?) || (DI > HIGHWORD divisor) || ((DI == HIGHWORD divisor) && (SI >= LOWWORD divisor)))
                                        ;
                                        ; subtract divisor from remainder
                                        ;
                                        sub32   DI,SI,divisor
                                        ;
                                        ; add 1 to quotient
                                        ;
                                        inc     AX
                                .ENDIF
                        .UNTILCXZ
                        ;
                        ; check for overflow in the quotient
                        ;
                        .IF (((WORD PTR a1[ 2 ]) != 0) || ((WORD PTR a1[ 0 ]) != 0))
                                int     0
                        .ENDIF
                        ;
                        ; save the remainder in the high dword of the former dividend
                        ;
                        mov     WORD PTR a1[ 0 ],SI
                        mov     WORD PTR a1[ 2 ],DI
                        ;
                        ; round the quotient up 1
                        ;
                        shl32   DI,SI,1
                        .IF ((CARRY?) || ((DI > HIGHWORD divisor) || ((DI == HIGHWORD divisor) && (SI >= LOWWORD divisor))))
                                add32   DX,AX,1
                                .IF (CARRY?)
                                        int     0
                                .ENDIF
                        .ENDIF
                        popf
                        .IF (CARRY?)
                                not     DX
                                neg     AX
                                cmc
                                adc     DX,0
                        .ENDIF
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM
&-lh0-†(  †(  ç¸q  CH14\MPLOGIC.INCÅJFLAGS_REGISTER  RECORD  OVERFLOW_FLAG   : 1,
   DIRECTION_FLAG  : 1,
   INTERRUPT_FLAG  : 1,
   TRACE_FLAG      : 1,
   SIGN_FLAG       : 1,
   ZERO_FLAG       : 1,
   UNUSED_FLAG     : 1,
   AUXILIARY_FLAG  : 1,
   UNUSED_FLAG2    : 1,
   PARITY_FLAG     : 1,
   UNUSED_FLAG3    : 1,
   CARRY_FLAG      : 1

FIXFLAGS        MACRO                   
                push    AX
                pushf
                pop     AX
                and     AX,(MASK DIRECTION_FLAG) OR\
                		(MASK INTERRUPT_FLAG) OR\
                		(MASK TRACE_FLAG) OR\
                		(MASK SIGN_FLAG) OR\
                		(MASK ZERO_FLAG) OR\
                		(MASK AUXILIARY_FLAG) OR\
                		(MASK PARITY_FLAG)
                push    AX
                popf
                pop     AX
                ENDM

LOGICAL32       MACRO   op:req,a1:req,a2:req,a3,a4
                IF IS_REG16(a1)
                        ;;
                        ;; first argument is a 16-bit register
                        ;;
                        IF IS_REG16(a2)
                                ;;
                                ;; second argument is a 16-bit register
                                ;;
                                IFB <a3>
                                        .ERR <missing source argument>
                                ELSE
                                        IF IS_REG16(a3)
                                                ;;
                                                ;; 3rd argument is a 16-bit register
                                                ;;
                                                IFB <a4>
                                                        .ERR <missing source argument>
                                                ELSE
                                                        IF IS_REG16(a4)
                                                                ;;
                                                                ;; 4th argument is a 16-bit register
                                                                ;;
                                                                op      a2,a4
                                                                op      a1,a3
                                                                cmp32   a1,a2,0
                                                                fixflags
                                                        ELSE
                                                                .ERR <a4 must be a 16-bit register>
                                                        ENDIF
                                                ENDIF
                                        ELSEIF IS_CONSTANT(a3)
                                                ;;
                                                ;; 3rd argument is a constant
                                                ;;
                                                op      a2,LOWWORD a3
                                                op      a1,HIGHWORD a3
                                                cmp32   a1,a2,0
                                                fixflags
                                        ELSEIF IS_MEM32(a3)
                                                ;;
                                                ;; 3rd argument is a dword ptr
                                                ;;
                                                op      a2,WORD PTR a3[ 0 ]
                                                op      a1,WORD PTR a3[ 2 ]
                                                cmp32   a1,a2,0
                                                fixflags
                                        ELSE
                                                .ERR <a3 is not a valid source>
                                        ENDIF
                                ENDIF
                        ELSE
                                .ERR <a2 must be a 16-bit register>
                        ENDIF
                ELSEIF IS_MEM32(a1)
                        ;;
                        ;; first argument is a dword ptr
                        ;;
                        IF IS_REG16(a2)
                                ;;
                                ;; 2nd argument is a register
                                ;;
                                IFB <a3>
                                        .ERR <2nd source register is missing>
                                ELSE
                                        IF IS_REG16(a3)
                                                op      WORD PTR a1[ 0 ],a3
                                                op      WORD PTR a1[ 2 ],a2
                                                cmp32   a1,0
                                                fixflags
                                        ELSE
                                                .ERR <a3 must be a 16-bit register>
                                        ENDIF
                                ENDIF
                        ELSEIF IS_CONSTANT(a2)
                                op      WORD PTR a1[ 0 ],LOWWORD a2
                                op      WORD PTR a1[ 2 ],HIGHWORD a2
                                cmp32   a1,0
                                fixflags
                        ELSE
                                .ERR <a2 is not a valid source>
                        ENDIF
                ELSE
                        .ERR <a1 is not a valid argument>
                ENDIF
                ENDM

AND32   MACRO   a1:req,a2:req,a3,a4
        logical32       and,a1,a2,a3,a4
        ENDM

OR32    MACRO   a1:req,a2:req,a3,a4
        logical32       or,a1,a2,a3,a4
        ENDM

XOR32   MACRO   a1:req,a2:req,a3,a4
        logical32       xor,a1,a2,a3,a4
        ENDM

TEST32  MACRO   a1:req,a2:req,a3,a4
        LOCAL   tested
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        test    a1,a3
                                                        jne     tested
                                                        test    a2,a4
                                                        tested:
                                                        fixflags
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        test    a1,HIGHWORD a3
                                        jne     tested
                                        test    a2,LOWWORD a3
                                        tested:
                                        fixflags
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        test    a1,WORD PTR a3[ 2 ]
                                        jne     tested
                                        test    a2,WORD PTR a3[ 0 ]
                                        tested:
                                        fixflags
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        test    WORD PTR a1[ 2 ],a2
                                        jne     tested
                                        test    WORD PTR a1[ 0 ],a3
                                        tested:
                                        fixflags
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        test    WORD PTR a1[ 2 ],HIGHWORD a2
                        jne     tested
                        test    WORD PTR a1[ 0 ],LOWWORD a2
                        tested:
                        fixflags
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM
'j-lh0-èD  èD  …œq  CH14\MPLOGIC2.INC?FLAGS_REGISTER	RECORD	OVERFLOW_FLAG	: 1,
			DIRECTION_FLAG	: 1,
			INTERRUPT_FLAG	: 1,
			TRACE_FLAG	: 1,
			SIGN_FLAG	: 1,
			ZERO_FLAG	: 1,
			UNUSED_FLAG	: 1,
			AUXILIARY_FLAG	: 1,
			UNUSED_FLAG2	: 1,
			PARITY_FLAG	: 1,
			UNUSED_FLAG3	: 1,
			CARRY_FLAG	: 1

FIXFLAGS	MACRO			
                push	AX
                pushf
                pop	AX
                and	AX,(MASK DIRECTION_FLAG) OR (MASK INTERRUPT_FLAG) OR (MASK TRACE_FLAG) OR (MASK SIGN_FLAG) OR (MASK ZERO_FLAG) OR (MASK AUXILIARY_FLAG) OR (MASK PARITY_FLAG)
                push	AX
                popf
                pop	AX
                ENDM

AND32	MACRO	a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        and     a2,a4
                                                        and     a1,a3
                                                        cmp32	a1,a2,0
                                                        fixflags
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        and     a2,(a3 AND 00000FFFFH)
                                        and     a1,((a3 AND 0FFFF0000H) / 10000H)
                                        cmp32	a1,a2,0
                                        fixflags
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        and     a2,WORD PTR a3[ 0 ]
                                        and     a1,WORD PTR a3[ 2 ]
                                        cmp32	a1,a2,0
                                        fixflags
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        and     WORD PTR a1[ 0 ],a3
                                        and     WORD PTR a1[ 2 ],a2
                                        cmp32	a1,0
                                        fixflags
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        and     WORD PTR a1[ 0 ],(a2 AND 00000FFFFH)
                        and     WORD PTR a1[ 2 ],((a2 AND 0FFFF0000H) / 10000H)
                        cmp32	a1,0
                        fixflags
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
	ENDM

OR32	MACRO	a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        or      a2,a4
                                                        or      a1,a3
                                                        cmp32	a1,a2,0
                                                        fixflags
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        or      a2,(a3 AND 00000FFFFH)
                                        or      a1,((a3 AND 0FFFF0000H) / 10000H)
                                        cmp32	a1,a2,0
                                        fixflags
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        or      a2,WORD PTR a3[ 0 ]
                                        or      a1,WORD PTR a3[ 2 ]
                                        cmp32	a1,a2,0
                                        fixflags
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        or      WORD PTR a1[ 0 ],a3
                                        or      WORD PTR a1[ 2 ],a2
                                        cmp32	a1,0
                                        fixflags
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        or      WORD PTR a1[ 0 ],(a2 AND 00000FFFFH)
                        or      WORD PTR a1[ 2 ],((a2 AND 0FFFF0000H) / 10000H)
                        cmp32	a1,0
                        fixflags
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
	ENDM

TEST32  MACRO   a1:req,a2:req,a3,a4
        LOCAL   tested
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        test    a1,a3
                                                        jne     tested
                                                        test    a2,a4
                                                        tested:
                                                        fixflags
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        test    a1,((a3 AND 0FFFF0000H) / 10000H)
                                        jne     tested
                                        test    a2,(a3 AND 00000FFFFH)
                                        tested:
                                        fixflags
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        test    a1,WORD PTR a3[ 2 ]
                                        jne     tested
                                        test    a2,WORD PTR a3[ 0 ]
                                        tested:
                                        fixflags
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        test    WORD PTR a1[ 2 ],a2
                                        jne     tested
                                        test    WORD PTR a1[ 0 ],a3
                                        tested:
                                        fixflags
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        test    WORD PTR a1[ 2 ],((a2 AND 0FFFF0000H) / 10000H)
                        jne     tested
                        test    WORD PTR a1[ 0 ],(a2 AND 00000FFFFH)
                        tested:
                        fixflags
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

XOR32	MACRO	a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        xor     a2,a4
                                                        xor     a1,a3
                                                        cmp32	a1,a2,0
                                                        fixflags
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        xor     a2,(a3 AND 00000FFFFH)
                                        xor     a1,((a3 AND 0FFFF0000H) / 10000H)
                                        cmp32	a1,a2,0
                                        fixflags
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        xor     a2,WORD PTR a3[ 0 ]
                                        xor     a1,WORD PTR a3[ 2 ]
                                        cmp32	a1,a2,0
                                        fixflags
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        xor     WORD PTR a1[ 0 ],a3
                                        xor     WORD PTR a1[ 2 ],a2
                                        cmp32	a1,0
                                        fixflags
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        xor     WORD PTR a1[ 0 ],(a2 AND 00000FFFFH)
                        xor     WORD PTR a1[ 2 ],((a2 AND 0FFFF0000H) / 10000H)
                        cmp32	a1,0
                        fixflags
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
	ENDM


'Ú-lh0-D  D  D¹p  CH14\MPLOG_SH.INCùKSHL32   MACRO   a1:req,a2:req,a3
        LOCAL   shifted
        LOCAL   shiftAgain
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_ONE(a3)
                                        ;;
                                        ;; 3rd argument is 1
                                        ;;
                                        shl     a2,1
                                        rcl     a1,1
                                ELSEIF IS_CL(a3)
                                        ;;
                                        ;; 3rd argument is CL register
                                        ;;
                                        push    CX
                                        xor     CH,CH
                                        jcxz    shifted
                                        shiftAgain:
                                        shl     a2,1
                                        rcl     a1,1
                                        loop    shiftAgain
                                        shifted:
                                        pop     CX
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_ONE(a2)
                        ;;
                        ;; 2nd argument is 1
                        ;;
                        shl     WORD PTR a1[ 2 ],1
                        rcl     WORD PTR a1[ 0 ],1
                ELSEIF IS_CL(a2)
                        ;;
                        ;; 2rd argument is CL register
                        ;;
                        push    CX
                        xor     CH,CH
                        jcxz    shifted
                        shiftAgain:
                        shl     WORD PTR a1[ 2 ],1
                        rcl     WORD PTR a1[ 0 ],1
                        loop    shiftAgain
                        shifted:
                        pop     CX
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

SHR32   MACRO   a1:req,a2:req,a3
        LOCAL   shifted
        LOCAL   shiftAgain
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_ONE(a3)
                                        ;;
                                        ;; 3rd argument is 1
                                        ;;
                                        shr     a1,1
                                        rcr     a2,1
                                ELSEIF IS_CL(a3)
                                        ;;
                                        ;; 3rd argument is CL register
                                        ;;
                                        push    CX
                                        xor     CH,CH
                                        jcxz    shifted
                                        shiftAgain:
                                        shr     a1,1
                                        rcr     a2,1
                                        loop    shiftAgain
                                        shifted:
                                        pop     CX
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_ONE(a2)
                        ;;
                        ;; 2nd argument is 1
                        ;;
                        shr     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                ELSEIF IS_CL(a2)
                        ;;
                        ;; 2rd argument is CL register
                        ;;
                        push    CX
                        xor     CH,CH
                        jcxz    shifted
                        shiftAgain:
                        shr     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                        loop    shiftAgain
                        shifted:
                        pop     CX
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

%-lh0-é!  é!  -¦s  CH14\MPMISC.INCóÿMOV32	MACRO	a1,a2,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        mov     a2,a4
                                                        mov     a1,a3
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        mov     a2,LOWWORD a3
                                        mov     a1,HIGHWORD a3
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        mov     a2,WORD PTR a3[ 0 ]
                                        mov     a1,WORD PTR a3[ 2 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        mov     WORD PTR a1[ 0 ],a3
                                        mov     WORD PTR a1[ 2 ],a2
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        mov     WORD PTR a1[ 0 ],LOWWORD a2
                        mov     WORD PTR a1[ 2 ],HIGHWORD a2
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

NEG32	MACRO	a1,a2
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        neg	a1
                        neg	a2
                        sbb	a1,0
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                neg	WORD PTR a1[ 2 ]
                neg	WORD PTR a1[ 0 ]
                sbb	WORD PTR a1[ 2 ],0
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

NOT32	MACRO	a1,a2
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        not	a1
                        not	a2
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                not	WORD PTR a1[ 2 ]
                not	WORD PTR a1[ 0 ]
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

XCHG32	MACRO	a1,a2,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        xchg    a2,a4
                                                        xchg    a1,a3
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        .ERR <Cannot XCHG with a constant value>
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        xchg    a2,WORD PTR a3[ 0 ]
                                        xchg    a1,WORD PTR a3[ 2 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        xchg    WORD PTR a1[ 0 ],a3
                                        xchg    WORD PTR a1[ 2 ],a2
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        .ERR <Cannot XCHG with a constant value>
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM
$ë-lh0-^(  ^(  ¡s  CH14\MPMUL.INC£‡_mul32  MACRO   product,x1,x2,y1,y2
        push    AX
        push    DX
        ;
        ; clear WORD PTR product[ 4 ]
        ; clear WORD PTR product[ 6 ]
        ;
        xor     AX,AX
        mov     WORD PTR product[ 4 ],AX
        mov     WORD PTR product[ 6 ],AX
        ;
        ; multiply x2 by y2
        ;
        mov     AX,x2
        mul     y2
        ;
        ; store AX in WORD PTR product[ 0 ]
        ; store DX in WORD PTR product[ 2 ]
        ;
        mov     WORD PTR product[ 0 ],AX
        mov     WORD PTR product[ 2 ],DX
        ;
        ; multiply x2 by y1
        ;
        mov     AX,x2
        mul     y1
        ;
        ; add AX to WORD PTR product[ 2 ]
        ; add DX with carry to WORD PTR product[ 4 ]
        ;
        add32   DWORD PTR product[ 4 ],DX,AX
        ;
        ; multiply x1 by y2
        ;
        mov     AX,x1
        mul     y2
        ;
        ; add AX to WORD PTR product[ 2 ]
        ; add DX with carry to WORD PTR product[ 4 ]
        ; add carry to WORD PTR product[ 6 ]
        ;
        add32   DWORD PTR product[ 4 ],DX,AX
        adc     WORD PTR product[ 6 ],0
        ;
        ; multiply x1 by y1
        ;
        mov     AX,x1
        mul     y1
        ;
        ; add AX to WORD PTR product[ 4 ]
        ; add DX with carry to WORD PTR product[ 6 ]
        ;
        add32   DWORD PTR product,DX,AX
        pop     DX
        pop     AX
        ENDM

_imul32 MACRO   product,x1,x2,y1,y2
        ;
        ; see if multiplicand signs match
        ;
        push    AX
        mov     AX,x1
        xor     AX,y1
        pop     AX
        .IF (SIGN?)
                ;
                ; signs do not match - product will be negative
                ;
                test    x1,08000H
                .IF (SIGN?)
                        ;
                        ; first multiplicand is negative
                        ;
                        neg     x1
                        neg     x2
                        sbb     x1,0
                .ELSE
                        ;
                        ; second multiplicand is negative
                        ;
                        neg     y1
                        neg     y2
                        sbb     y1,0
                .ENDIF
                ;
                ; perform the required multiplication
                ;
                _mul32  product,x1,x2,y1,y2
                ;
                ; make product negative
                ;
                not     WORD PTR product[ 6 ]
                not     WORD PTR product[ 4 ]
                not     WORD PTR product[ 2 ]
                neg     WORD PTR product[ 0 ]
                cmc
                adc     WORD PTR product[ 4 ],0
                adc32   DWORD PTR product,0
        .ELSE
                ;
                ; signs match - product will be positive
                ;
                test    x1,08000H
                .IF (SIGN?)
                        ;
                        ; both multiplicands are negative
                        ;
                        neg     x1
                        neg     x2
                        sbb     x1,0
                        neg     y1
                        neg     y2
                        sbb     y1,0
                .ENDIF
                _mul32  product,x1,x2,y1,y2
        .ENDIF
        ENDM

MUL32   MACRO   product:req,a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        _mul32  product,a1,a2,a3,a4
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        .ERR <32-bit multiply with a constant value is not supported>
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        _mul32  product,a1,a2,WORD PTR a3[ 2 ],WORD PTR a3[ 0 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        _mul32  product,WORD PTR a1[ 2 ],WORD PTR a1[ 0 ],a2,a3
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        .ERR <32-bit multiply with a constant value is not supported>
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

IMUL32  MACRO   product:req,a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        _imul32 product,a1,a2,a3,a4
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        .ERR <32-bit multiply with a constant value is not supported>
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        _imul32 product,a1,a2,WORD PTR a3[ 2 ],WORD PTR a3[ 0 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        _imul32 product,WORD PTR a1[ 2 ],WORD PTR a1[ 0 ],a2,a3
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        .ERR <32-bit multiply with a constant value is not supported>
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM
$K-lh0-æ  æ  ¦s  CH14\MPREC.INCG–IS_REG16        MACRO   reg
                IF (OPATTR(reg)) AND 00010000y
                        IF (TYPE(reg) EQ WORD)
                                EXITM %1
                        ELSE
                                EXITM %0
                        ENDIF
                ELSE
                        EXITM %0
                ENDIF
                ENDM

IS_MEM32        MACRO   mem
                IF (OPATTR(reg)) AND 00010100y
                        EXITM %0
                ELSE
                        IF (TYPE(mem) EQ 4)
                                EXITM %1
                        ELSE
                                EXITM %0
                        ENDIF
                ENDIF
                ENDM

IS_CONSTANT     MACRO   constant
                IF (OPATTR(constant)) AND 00000100y
                        EXITM %1
                ELSE
                        EXITM %0
                ENDIF
                ENDM

INCLUDE MPADD.INC
INCLUDE	MPSUB.INC

IS_ONE  MACRO   arg
        IF IS_CONSTANT(arg)
                IF arg EQ 1
                        EXITM %1
                ELSE
                        EXITM %0
                ENDIF
        ELSE
                EXITM %0        ;; not a constant
        ENDIF
        ENDM

IS_CL   MACRO   arg
        IF (OPATTR(arg)) AND 00010000y
                IFIDNI <arg>, <CL>
                        EXITM %1
                ELSE
                        EXITM %0
                ENDIF
        ELSE
                EXITM %0        ;; not a register
        ENDIF
        ENDM

INCLUDE	MPLOG_SH.INC
INCLUDE	MPARI_SH.INC
INCLUDE MPROTC.INC
INCLUDE	MPROTATE.INC
INCLUDE	MPLOGIC.INC
INCLUDE MPDIV.INC
INCLUDE MPMUL.INC
INCLUDE MPMISC.INC
%Ü-lh0-Ç
  Ç
  ¦s  CH14\MPRECT.ASMlÜinclude mprec.inc

.model small

.data

foo	DWORD ?

.code
	ADC32	dx,ax,bx,si
	ADC32	dx,ax,12345678H
	ADC32	dx,ax,dword ptr [bx]
	ADC32	dword ptr [si],bx,si
	ADC32	dword ptr [si],12345678H

	ADD32	dx,ax,bx,si
	ADD32	dx,ax,12345678H
	ADD32	dx,ax,dword ptr [bx]
	ADD32	dword ptr [si],bx,si
	ADD32	dword ptr [si],12345678H

	INC32	dx,ax
	INC32	dword ptr [si]

	SBB32	dx,ax,bx,si
	SBB32	dx,ax,12345678H
	SBB32	dx,ax,dword ptr [bx]
	SBB32	dword ptr [si],bx,si
	SBB32	dword ptr [si],12345678H

	SUB32	dx,ax,bx,si
	SUB32	dx,ax,12345678H
	SUB32	dx,ax,dword ptr [bx]
	SUB32	dword ptr [si],bx,si
	SUB32	dword ptr [si],12345678H

	DEC32	dx,ax
	DEC32	dword ptr [si]

	CMP32	dx,ax,bx,si
	CMP32	dx,ax,12345678H
	CMP32	dx,ax,dword ptr [bx]
	CMP32	dword ptr [si],bx,si
	CMP32	dword ptr [si],12345678H

	SHL32	DX,AX,1
	SHL32	BX,SI,CL
	SHL32	DWORD PTR [si],1
	SHL32	DWORD PTR [bx + 6],CL

	SHR32	DX,AX,1
	SHR32	BX,SI,CL
	SHR32	DWORD PTR [si],1
	SHR32	DWORD PTR [bx + 6],CL

	SAL32	DX,AX,1
	SAL32	BX,SI,CL
	SAL32	DWORD PTR [si],1
	SAL32	DWORD PTR [bx + 6],CL

	SAR32	DX,AX,1
	SAR32	BX,SI,CL
	SAR32	DWORD PTR [si],1
	SAR32	DWORD PTR [bx + 6],CL

	RCL32	DX,AX,1
	RCL32	BX,SI,CL
	RCL32	DWORD PTR [si],1
	RCL32	DWORD PTR [bx + 6],CL

	RCR32	DX,AX,1
	RCR32	BX,SI,CL
	RCR32	DWORD PTR [si],1
	RCR32	DWORD PTR [bx + 6],CL

	ROL32	DX,AX,1
	ROL32	BX,SI,CL
	ROL32	DWORD PTR [si],1
	ROL32	DWORD PTR [bx + 6],CL

	ROR32	DX,AX,1
	ROR32	BX,SI,CL
	ROR32	DWORD PTR [si],1
	ROR32	DWORD PTR [bx + 6],CL

	AND32	dx,ax,bx,si
	AND32	dx,ax,12345678H
	AND32	dx,ax,dword ptr [bx]
	AND32	dword ptr [si],bx,si
	AND32	dword ptr [si],12345678H

	OR32	dx,ax,bx,si
	OR32	dx,ax,12345678H
	OR32	dx,ax,dword ptr [bx]
	OR32	dword ptr [si],bx,si
	OR32	dword ptr [si],12345678H

	TEST32	dx,ax,bx,si
	TEST32	dx,ax,12345678H
	TEST32	dx,ax,dword ptr [bx]
	TEST32	dword ptr [si],bx,si
	TEST32	dword ptr [si],12345678H

	XOR32	dx,ax,bx,si
	XOR32	dx,ax,12345678H
	XOR32	dx,ax,dword ptr [bx]
	XOR32	dword ptr [si],bx,si
	XOR32	dword ptr [si],12345678H

	DIV32	bx,bp,12345678H
	DIV32	bx,bp,foo
	DIV32	foo,bx,bp
	DIV32	foo,12345678H

	IDIV32	bx,bp,12345678H
	IDIV32	bx,bp,foo
	IDIV32	foo,bx,bp
	IDIV32	foo,12345678H
	IDIV32	foo,-10000

	MUL32	[si],bx,bp,foo
	MUL32	[di],bx,bp,cx,si
	MUL32	foo,DWORD PTR[si],bx,bp

	IMUL32	[si],bx,bp,foo
	IMUL32	[di],bx,bp,cx,si
	IMUL32	foo,DWORD PTR[si],bx,bp

	MOV32	dx,ax,bx,si
	MOV32	dx,ax,12345678H
	MOV32	dx,ax,dword ptr [bx]
	MOV32	dword ptr [si],bx,si
	MOV32	dword ptr [si],12345678H

	NEG32	dx,ax
	NEG32	dword ptr [si]

	NOT32	dx,ax
	NOT32	dword ptr [si]

	XCHG32	dx,ax,bx,si
	XCHG32	dx,ax,dword ptr [bx]
	XCHG32	dword ptr [si],bx,si
END
'A-lh0-Q  Q  A»p  CH14\MPROTATE.INC’ROL32   MACRO   a1:req,a2:req,a3
        LOCAL   shifted
        LOCAL   shiftAgain
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_ONE(a3)
                                        ;;
                                        ;; 3rd argument is 1
                                        ;;
                                        pushf           ; save flags
                                        shl     a2,1
                                        rcl     a1,1
                                        popf            ; restore flags
                                        adc     a2,0    ; OR in carry if necessary
                                ELSEIF IS_CL(a3)
                                        ;;
                                        ;; 3rd argument is CL register
                                        ;;
                                        push    CX
                                        xor     CH,CH
                                        jcxz    shifted
                                        shiftAgain:
                                        shl     a2,1
                                        rcl     a1,1
                                        adc     a2,0
                                        loop    shiftAgain
                                        shifted:
                                        pop     CX
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_ONE(a2)
                        ;;
                        ;; 2nd argument is 1
                        ;;
                        shl     WORD PTR a1[ 2 ],1
                        rcl     WORD PTR a1[ 0 ],1
                        adc     WORD PTR a1[ 2 ],0
                ELSEIF IS_CL(a2)
                        ;;
                        ;; 2rd argument is CL register
                        ;;
                        push    CX
                        xor     CH,CH
                        jcxz    shifted
                        shiftAgain:
                        shl     WORD PTR a1[ 2 ],1
                        rcl     WORD PTR a1[ 0 ],1
                        adc     WORD PTR a1[ 2 ],0
                        loop    shiftAgain
                        shifted:
                        pop     CX
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

ROR32   MACRO   a1:req,a2:req,a3
        LOCAL   shifted
        LOCAL   shiftAgain
        LOCAL   no_carry
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_ONE(a3)
                                        ;;
                                        ;; 3rd argument is 1
                                        ;;
                                        sar     a1,1
                                        rcr     a2,1
                                        jnc     no_carry
                                        or      a1,08000H       ; set high bit 
                                        no_carry:
                                ELSEIF IS_CL(a3)
                                        ;;
                                        ;; 3rd argument is CL register
                                        ;;
                                        push    CX
                                        xor     CH,CH
                                        jcxz    shifted
                                        shiftAgain:
                                        sar     a1,1
                                        rcr     a2,1
                                        jnc     no_carry
                                        or      a1,08000H
                                        no_carry:
                                        loop    shiftAgain
                                        shifted:
                                        pop     CX
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_ONE(a2)
                        ;;
                        ;; 2nd argument is 1
                        ;;
                        sar     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                        jnc     no_carry
                        or      WORD PTR a1[ 0 ],08000H
                        no_carry:
                ELSEIF IS_CL(a2)
                        ;;
                        ;; 2rd argument is CL register
                        ;;
                        push    CX
                        xor     CH,CH
                        jcxz    shifted
                        shiftAgain:
                        sar     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                        jnc     no_carry
                        or      WORD PTR a1[ 0 ],08000H
                        no_carry:
                        loop    shiftAgain
                        shifted:
                        pop     CX
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

%¥-lh0-D  D  D¹p  CH14\MPROTC.INCW^RCL32   MACRO   a1:req,a2:req,a3
        LOCAL   shifted
        LOCAL   shiftAgain
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_ONE(a3)
                                        ;;
                                        ;; 3rd argument is 1
                                        ;;
                                        rcl     a2,1
                                        rcl     a1,1
                                ELSEIF IS_CL(a3)
                                        ;;
                                        ;; 3rd argument is CL register
                                        ;;
                                        push    CX
                                        xor     CH,CH
                                        jcxz    shifted
                                        shiftAgain:
                                        rcl     a2,1
                                        rcl     a1,1
                                        loop    shiftAgain
                                        shifted:
                                        pop     CX
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_ONE(a2)
                        ;;
                        ;; 2nd argument is 1
                        ;;
                        rcl     WORD PTR a1[ 2 ],1
                        rcl     WORD PTR a1[ 0 ],1
                ELSEIF IS_CL(a2)
                        ;;
                        ;; 2rd argument is CL register
                        ;;
                        push    CX
                        xor     CH,CH
                        jcxz    shifted
                        shiftAgain:
                        rcl     WORD PTR a1[ 2 ],1
                        rcl     WORD PTR a1[ 0 ],1
                        loop    shiftAgain
                        shifted:
                        pop     CX
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

RCR32   MACRO   a1:req,a2:req,a3
        LOCAL   shifted
        LOCAL   shiftAgain
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_ONE(a3)
                                        ;;
                                        ;; 3rd argument is 1
                                        ;;
                                        rcr     a1,1
                                        rcr     a2,1
                                ELSEIF IS_CL(a3)
                                        ;;
                                        ;; 3rd argument is CL register
                                        ;;
                                        push    CX
                                        xor     CH,CH
                                        jcxz    shifted
                                        shiftAgain:
                                        rcr     a1,1
                                        rcr     a2,1
                                        loop    shiftAgain
                                        shifted:
                                        pop     CX
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_ONE(a2)
                        ;;
                        ;; 2nd argument is 1
                        ;;
                        rcr     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                ELSEIF IS_CL(a2)
                        ;;
                        ;; 2rd argument is CL register
                        ;;
                        push    CX
                        xor     CH,CH
                        jcxz    shifted
                        shiftAgain:
                        rcr     WORD PTR a1[ 0 ],1
                        rcr     WORD PTR a1[ 2 ],1
                        loop    shiftAgain
                        shifted:
                        pop     CX
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

$ì-lh0-Å/  Å/  jžq  CH14\MPSUB.INCx“SBB32   MACRO   a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        sbb     a2,a4
                                                        sbb     a1,a3
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        sbb     a2,LOWWORD a3
                                        sbb     a1,HIGHWORD a3
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        sbb     a2,WORD PTR a3[ 0 ]
                                        sbb     a1,WORD PTR a3[ 2 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        sbb     WORD PTR a1[ 0 ],a3
                                        sbb     WORD PTR a1[ 2 ],a2
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        sbb     WORD PTR a1[ 0 ],LOWWORD a2
                        sbb     WORD PTR a1[ 2 ],HIGHWORD a2
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM
        
SUB32   MACRO   a1:req,a2:req,a3,a4
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        sub     a2,a4
                                                        sbb     a1,a3
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        sub     a2,LOWWORD a3
                                        sbb     a1,HIGHWORD a3
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        sub     a2,WORD PTR a3[ 0 ]
                                        sbb     a1,WORD PTR a3[ 2 ]
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        sub     WORD PTR a1[ 0 ],a3
                                        sbb     WORD PTR a1[ 2 ],a2
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        sub     WORD PTR a1[ 0 ],LOWWORD a2
                        sbb     WORD PTR a1[ 2 ],HIGHWORD a2
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

DEC32   MACRO   a1:req,a2
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IFB <a2>
                        .ERR <missing 2nd register>
                ELSE
                        IF IS_REG16(a2)
                                sub     a2,1
                                sbb     a1,0
                        ELSE
                                .ERR <a2 is not a valid argument>
                        ENDIF
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                sub     WORD PTR a1[ 0 ],1
                sbb     WORD PTR a1[ 1 ],0
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

CMP32   MACRO   a1:req,a2:req,a3,a4
        LOCAL   tested
        IF IS_REG16(a1)
                ;;
                ;; first argument is a 16-bit register
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; second argument is a 16-bit register
                        ;;
                        IFB <a3>
                                .ERR <missing source argument>
                        ELSE
                                IF IS_REG16(a3)
                                        ;;
                                        ;; 3rd argument is a 16-bit register
                                        ;;
                                        IFB <a4>
                                                .ERR <missing source argument>
                                        ELSE
                                                IF IS_REG16(a4)
                                                        ;;
                                                        ;; 4th argument is a 16-bit register
                                                        ;;
                                                        cmp     a1,a3
                                                        jne     tested
                                                        cmp     a2,a4
                                                        tested:
                                                ELSE
                                                        .ERR <a4 must be a 16-bit register>
                                                ENDIF
                                        ENDIF
                                ELSEIF IS_CONSTANT(a3)
                                        ;;
                                        ;; 3rd argument is a constant
                                        ;;
                                        cmp     a1,HIGHWORD a3
                                        jne     tested
                                        cmp     a2,LOWWORD a3
                                        tested:
                                ELSEIF IS_MEM32(a3)
                                        ;;
                                        ;; 3rd argument is a dword ptr
                                        ;;
                                        cmp     a1,WORD PTR a3[ 2 ]
                                        jne     tested
                                        cmp     a2,WORD PTR a3[ 0 ]
                                        tested:
                                ELSE
                                        .ERR <a3 is not a valid source>
                                ENDIF
                        ENDIF
                ELSE
                        .ERR <a2 must be a 16-bit register>
                ENDIF
        ELSEIF IS_MEM32(a1)
                ;;
                ;; first argument is a dword ptr
                ;;
                IF IS_REG16(a2)
                        ;;
                        ;; 2nd argument is a register
                        ;;
                        IFB <a3>
                                .ERR <2nd source register is missing>
                        ELSE
                                IF IS_REG16(a3)
                                        cmp     WORD PTR a1[ 2 ],a2
                                        jne     tested
                                        cmp     WORD PTR a1[ 0 ],a3
                                        tested:
                                ELSE
                                        .ERR <a3 must be a 16-bit register>
                                ENDIF
                        ENDIF
                ELSEIF IS_CONSTANT(a2)
                        cmp     WORD PTR a1[ 2 ],HIGHWORD a2
                        jne     tested
                        cmp     WORD PTR a1[ 0 ],LOWWORD a2
                        tested:
                ELSE
                        .ERR <a2 is not a valid source>
                ENDIF
        ELSE
                .ERR <a1 is not a valid argument>
        ENDIF
        ENDM

#-lh0-§  §  ùk  CH14\PBCD.ASM6Q;
; divide AX by BX, with quotient in AX, remainder in DX
;
pBCD_div16      PROC    USES BX

                call    pBCD2BIN        ; convert AX to binary
                xchg    AX,BX           ; swap operands
                call    pBCD2BIN        ; convert BX to binary
                xchg    AX,BX
                xor     DX,DX           ; divide 0:AX by BX
                div     BX
                call    BIN2pBCD        ; convert quotient
                xchg    AX,DX
                call    BIN2pBCD        ; convert remainder
                xchg    AX,DX
                ret

pBCD_div16      ENDP
;
; multiply BX by AX, with the result in DX:AX
;
pBCD_mul16      PROC    USES BX

                call    pBCD2BIN        ; convert AX to binary
                xchg    AX,BX           ; swap operands
                call    pBCD2BIN        ; convert BX to binary
                mul     BX              ; multiply AX by BX
                mov     BX,10000        ; now divide by 10000
                div     BX
                call    BIN2pBCD        ; convert quotient
                xchg    AX,DX           ; swap with remainder
                call    BIN2pBCD        ; convert remainder
                ret

pBCD_mul16      ENDP
;
; subtract BX from AX, with the result in AX (carry in the
; carry bit, negative in sign bit
;
pBCD_sub16      PROC    USES BX

                call    pBCD2BIN        ; convert AX to binary
                xchg    AX,BX           ; swap AX and BX
                call    pBCD2BIN        ; convert AX to binary
                xchg    AX,BX           ; swap back
                sub     AX,BX           ; perform subtraction
                call    BIN2pBCD        ; convert difference
                ret

pBCD_sub16      ENDP
;
;
; add BX + AX, with the result in AX (carry in the carry bit)
;
pBCD_add16      PROC    USES BX

                call    pBCD2BIN        ; convert AX to binary
                xchg    AX,BX           ; swap AX and BX
                call    pBCD2BIN        ; convert AX to binary
                add     AX,BX           ; perform addition
                call    BIN2pBCD        ; convert sum
                ret                     ; return

pBCD_add16      ENDP
;
; convert packed BCD number in AX to binary in AX
;
pBCD2BIN        PROC    USES BX CX DX

                ;
                ; get most significant digit in DX - this is
                ; 1st digit
                ;
                xor     DX,DX
                shl     AX,1
                rcl     DX,1
                shl     AX,1
                rcl     DX,1
                shl     AX,1
                rcl     DX,1
                shl     AX,1
                rcl     DX,1
                ;
                ; get most significant digit in CX
                ;
                xor     CX,CX
                shl     AX,1
                rcl     CX,1
                shl     AX,1
                rcl     CX,1
                shl     AX,1
                rcl     CX,1
                shl     AX,1
                rcl     CX,1
                ;
                ; multiply result by 10
                ;
                mov     BX,DX
                shl     DX,1
                shl     DX,1
                add     DX,BX
                shl     DX,1
                ;
                ; add digit to result
                ;
                add     DX,CX
                ;
                ; get most significant digit in CX
                ;
                xor     CX,CX
                shl     AX,1
                rcl     CX,1
                shl     AX,1
                rcl     CX,1
                shl     AX,1
                rcl     CX,1
                shl     AX,1
                rcl     CX,1
                ;
                ; multiply result by 10
                ;
                mov     BX,DX
                shl     DX,1
                shl     DX,1
                add     DX,BX
                shl     DX,1
                ;
                ; add digit to result
                ;
                add     DX,CX
                ;
                ; get most significant digit in AX
                ;
                shl     AH,1
                rcl     AL,1
                shl     AH,1
                rcl     AL,1
                shl     AH,1
                rcl     AL,1
                shl     AH,1
                rcl     AL,1
                ;
                ; multiply result by 10
                ;
                mov     BX,DX
                shl     DX,1
                shl     DX,1
                add     DX,BX
                shl     DX,1
                ;
                ; add result to digit and return
                ;
                add     AX,DX
                ret

pBCD2BIN        ENDP
;
; convert AX to packed BCD; assumes AX is in range 0..19999
; decimal.  returns sign bit set if AX was negative, returns
; carry bit set if AX was > 9999 decimal
;
BIN2pBCD        PROC    USES    BX CX DX DI

                ;
                ; clear sign bits
                ;
                xor     CH,CH
                ;
                ; test sign of input
                ;
                .IF (AX & 08000H)
                        or      CH,080H ; set sign bit
                        neg     AX
                .ENDIF
                ;
                ; test for overflow
                ;
                .IF AX > 10000
                        or      CH,1    ; set carry bit
                        sub     AX,10000
                .ENDIF
                ;
                ; divide input by 1000
                ;
                xor     DX,DX
                mov     BX,1000
                div     BX
                ;
                ; result = quotient
                ;
                mov     DI,AX
                ;
                ; input = remainder
                ;
                mov     AX,DX
                ;
                ; divide input by 100
                ;
                xor     DX,DX
                mov     BX,100
                div     BX
                ;
                ; result <<= 4
                ; result += quotient
                ;
                shl     DI,1
                shl     DI,1
                shl     DI,1
                shl     DI,1
                add     DI,AX
                ;
                ; input = remainder
                ;
                mov     AX,DX
                ;
                ; divide input by 10
                ;
                xor     DX,DX
                mov     BX,10
                div     BX
                ;
                ; result <<= 4
                ; result += quotient
                ;
                shl     DI,1
                shl     DI,1
                shl     DI,1
                shl     DI,1
                add     DI,AX
                ;
                ; result <<= 4
                ; result += remainder
                ;
                shl     DI,1
                shl     DI,1
                shl     DI,1
                shl     DI,1
                add     DI,DX
                ;
                ; set flag bits
                ;
                mov     AH,CH
                sahf
                ;
                ; return result in AX
                ;
                mov     AX,DI
                ret

BIN2pBCD        ENDP
%§-lh0-ðð  ðð  v<ƒ  CH15\CALC87.ASMcÊ.MODEL TINY,PASCAL
;
; definitions for interrupts
;
KEYBOARD  EQU  009H ; keyboard interrupt handler
VIDEO     EQU  010H ; video BIOS interrupt number
BIOS_KEY  EQU  016H ; BIOS keyboard interrupt handler
TIMER     EQU  008H ; Timer interrupt handler
DOS       EQU  021H ; DOS interrupt number
DOS_IDLE  EQU  028H ; DOS idle interrupt handler
MULTIPLEX EQU  02FH ; DOS multiplex interrupt number
MOUSE     EQU  033H ; Mouse interrupt handler

FarPtr    STRUCT
          FP_Offset WORD ?
          FP_Seg    WORD ?
FarPtr    ENDS

.CODE

fp64tos   PROTO     number:REAL8,places:SWORD,string:PTR BYTE
stofp64   PROTO     string:PTR BYTE,number:PTR REAL8

KEY_0     EQU  0
KEY_1     EQU  1
KEY_2     EQU  2
KEY_3     EQU  3
KEY_4     EQU  4
KEY_5     EQU  5
KEY_6     EQU  6
KEY_7     EQU  7
KEY_8     EQU  8
KEY_9     EQU  9
KEY_DEC   EQU  10
KEY_PLUS  EQU  11
KEY_MINUS EQU  12
KEY_MULT  EQU  13
KEY_DIV   EQU  14
KEY_EQUAL EQU  15
KEY_ESC   EQU  16
KEY_DEL   EQU  17
KEY_BKSP  EQU  18
KEY_TERM  EQU  07FH

          ORG  0002CH

PSP_Env   LABEL     WORD ; Environment segment 

          ORG  00060H

SafeAddr  LABEL     BYTE ; This is the lowest safe address 
                         ; where code can be moved

          ORG     00080H

PSP_CLL   BYTE ?         ; command line length
PSP_Cmd   LABEL     BYTE ; command line

          .STARTUP
          jmp  InitCalc

number10  REAL8     10.0
point5    REAL8     0.5
OpPending BYTE      ?
BufIndex  WORD      ?
Buffer    BYTE 20 DUP (?)
Buffer2   BYTE 50 DUP (?)
state     WORD      ?
newValue  REAL8     ?
oldValue  REAL8     ?
KeyLines  BYTE 19,16,16,16,13,13,13,10,10,10,19,10,13,16,19,19, 6, 6, 6
KeyCols   BYTE  2, 2, 7,12, 2, 7,12, 2, 7,12, 7,18,18,18,18,12, 2, 9,17
KeyWidth  BYTE  3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4
imageLine BYTE "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
          BYTE "ºÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸º"
          BYTE "ºº                   ³º"
          BYTE "ºÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙº"
          BYTE "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶"
          BYTE "ºÚÄÄÄ·  ÚÄÄÄ·   ÚÄÄÄÄ·º"
          BYTE "º³ESCº  ³DELº   ³BKSPºº"
          BYTE "ºÔÍÍÍ¼  ÔÍÍÍ¼   ÔÍÍÍÍ¼º"
          BYTE "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄ¶"
          BYTE "ºÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·º"
          BYTE "º³ 7 º³ 8 º³ 9 º³³ + ºº"
          BYTE "ºÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼º"
          BYTE "ºÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·º"
          BYTE "º³ 4 º³ 5 º³ 6 º³³ - ºº"
          BYTE "ºÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼º"
          BYTE "ºÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·º"
          BYTE "º³ 1 º³ 2 º³ 3 º³³ x ºº"
          BYTE "ºÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼º"
          BYTE "ºÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·º"
          BYTE "º³ 0 º³ þ º³ = º³³ ö ºº"
          BYTE "ºÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼º"
          BYTE "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍ¼"
color     BYTE 00CH ; red on black
          BYTE 01FH ; white on blue
attrLine  BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
          BYTE 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
saveArea  WORD (22 * 23) DUP (?)
scrnPage  BYTE ?
cursorDef WORD ?
cursorPos WORD ?
FPSave    BYTE 94 DUP (?)
Identity  BYTE ?
calc87hot BYTE ?
ReqFlag   BYTE ?
BusyFlag  BYTE ?
Version   WORD 00100
OldStack  FarPtr    <>
OldInt9   FarPtr    <>
OldInt10  FarPtr    <>
OldInt16  FarPtr    <>
OldInt08  FarPtr    <>
OldInt28  FarPtr    <>
OldInt2F  FarPtr    <>
OldInt33  FarPtr    <>
LocalSP   FarPtr    <>
          ALIGN     2
C87Stack  WORD 256 DUP (?)
StackTop  LABEL     BYTE

          ASSUME    DS:NOTHING
          ASSUME    ES:NOTHING
          ASSUME    SS:NOTHING

HOTKEY    EQU  058H
HTK_CODE  EQU  086H
;
; new keyboard interrupt handler
;
Int9      PROC FAR
          push AX
          in   AL,060H
          sti
          .IF !(AL & 080H)
               .IF AL == HOTKEY
                    .IF !calc87hot
                         mov  ReqFlag,1
                    .ENDIF
               .ENDIF
          .ENDIF
          pop  AX
          jmp  OldInt9
Int9      ENDP
;
; new interrupt 10H handler
;
Int10     PROC FAR
          inc  BusyFlag
          pushf
          call OldInt10
          pushf
          dec  BusyFlag
          popf
          ret  00002H
Int10     ENDP
;
; new interrupt 16H handler
;
Int16     PROC FAR
          inc  BusyFlag
          pushf
          call OldInt16
          pushf
          dec  BusyFlag
          popf
          ret  00002H
Int16     ENDP
;
; new interrupt 08H handler
;
Int08     PROC FAR
          pushf
          call OldInt08
          .IF !calc87hot
               .IF ReqFlag
                    .IF !BusyFlag
                         mov  calc87hot,1
                         call calc87
                         mov  calc87hot,0
                    .ENDIF
               .ENDIF
          .ENDIF
          iret
Int08     ENDP
;
; new interrupt 28H handler
;
Int28     PROC FAR
          pushf
          call OldInt28
          .IF !calc87hot
               .IF ReqFlag
                    mov  calc87Hot,1
                    call calc87
                    mov  calc87Hot,0
               .ENDIF
          .ENDIF
          iret
Int28     ENDP
;
; new interrupt 2FH handler
;
Int2F     PROC FAR
          .IF (AH == Identity) && (AL == 0)
               mov  AL,0FFH
               mov  BX,"MJ"
               mov  SI,8087
               mov  DX,Version
               push CS
               pop  DI
               iret
          .ENDIF
          .IF AX == 01680H
               .IF !calc87hot
                    .IF ReqFlag
                         mov  calc87Hot,1
                         call calc87
                         mov  calc87Hot,0
                    .ENDIF
               .ENDIF
          .ENDIF
          jmp  OldInt2F
Int2F     ENDP
;
; new interrupt 33H handler
;
Int33     PROC FAR
          inc  BusyFlag
          pushf
          call OldInt33
          pushf
          dec  BusyFlag
          popf
          ret  00002H
Int33     ENDP

calc87    PROC NEAR
          cli
          mov  OldStack.FP_Offset,SP
          mov  OldStack.FP_Seg,SS
          mov  SP,LocalSP.FP_Offset
          mov  SS,LocalSP.FP_Seg
          mov  ReqFlag,0
          sti
          call ActiveTSR
          cli
          mov  SP,OldStack.FP_Offset
          mov  SS,OldStack.FP_Seg
          sti
          ret
calc87    ENDP

ActiveTSR PROC NEAR USES AX BX CX DX BP DI SI DS ES
          push CS
          pop  DS
          ASSUME    DS:_TEXT
          call SaveScrn
          .IF CARRY?
               ret
          .ENDIF
          call SaveFP
          call SaveMouse
          call InitScrn
          call InitMouse
          mov  BufIndex,0
          mov  OpPending,0
          mov  state,OFFSET InitState
          .REPEAT
               call GetKey
               .IF AL != 0FFH
                    call ProcKey
               .ELSE
                    call GetMouse
                    .IF AL != 0FFH
                         call ProcKey
                    .ENDIF
               .ENDIF
               .IF AL != 0FFH
                    call state
                    call ProcKey
               .ENDIF
          .UNTIL AL == KEY_TERM
          call RestMouse
          call RestFP
          call RestScrn
          ret
ActiveTSR ENDP

ShowBuffr PROC NEAR USES AX BX CX DX
          mov  AH,002H
          mov  BH,scrnPage
          mov  DX,00202H
          int  VIDEO
          mov  CX,19
          sub  CX,BufIndex
          .IF CX != 0
               mov  AX,00A20H
               mov  BH,scrnPage
               mov  BL,color
               int  VIDEO
          .ENDIF
          mov  AH,002H
          mov  BH,scrnPage
          mov  DX,0215H
          sub  DX,BufIndex
          int  VIDEO
          mov  CX,BufIndex
          .IF CX != 0
               .REPEAT
                    mov  BX,BufIndex
                    sub  BX,CX
                    mov  AL,Buffer[BX]
                    call WriteTTY
               .UNTILCXZ
          .ENDIF
          ret
ShowBuffr ENDP

WriteTTY  PROC NEAR USES AX BX
          mov  AH,00EH
          mov  BH,scrnPage
          int  VIDEO
          ret
WriteTTY  ENDP

Beep      PROC NEAR USES AX
          mov  AL,007H
          call WriteTTY
          ret
Beep      ENDP

InitState PROC NEAR USES AX BX CX DX SI
          .IF AL <= KEY_9
               mov  SI,BufIndex
               .IF SI == 19
                    call Beep
                    ret
               .ENDIF
               add  AL,'0'
               mov  Buffer[SI],AL
               inc  BufIndex
               call showBuffr
               ret
          .ENDIF
          .IF AL == KEY_DEC
               mov  SI,BufIndex
               .IF SI == 19
                    call Beep
                    ret
               .ENDIF
               .IF SI == 0
                    mov  Buffer,'0'
                    inc  SI
                    inc  BufIndex
               .ENDIF
               mov  Buffer[SI],'.'
               inc  BufIndex
               call showBuffr
               mov  state,OFFSET DecState
               ret
          .ENDIF
          .IF AL == KEY_ESC
               mov  BufIndex,0
               call showBuffr
               ret
          .ENDIF
          .IF AL == KEY_DEL
               mov  BufIndex,0
               call showBuffr
               mov  OpPending,0
               ;
               ; get rid of pending number
               ;
               ret
          .ENDIF
          .IF AL == KEY_BKSP
               .IF BufIndex == 0
                    call Beep
               .ELSE
                    dec  BufIndex
                    call showBuffr
               .ENDIF
               ret
          .ENDIF
          .IF AL == KEY_MINUS
               .IF BufIndex == 0
                    mov  Buffer,'-'
                    inc  BufIndex
                    call showBuffr
                    mov  state,OFFSET MinState
                    ret
               .ENDIF
          .ENDIF
          ;
          ; it's an operator
          ;
          mov  CX,BufIndex
          .REPEAT
               mov  BX,CX
               dec  BX
               .IF (Buffer[BX] >= '0') && (Buffer[BX] <= '9')
                    mov  SI,BufIndex
                    mov  Buffer[SI],0
                    push AX
                    INVOKE    stofp64,ADDR Buffer,ADDR newValue
                    pop  AX
                    .IF CARRY?
                         call Beep
                         mov  OpPending,0
                         mov  BufIndex,0
                         ret
                    .ENDIF
                    .IF OpPending == 0
                         .IF AL != KEY_EQUAL
                              mov  OpPending,AL
                         .ENDIF
                         mov  AX,WORD PTR NewValue
                         mov  WORD PTR OldValue,AX
                         mov  AX,WORD PTR NewValue+2
                         mov  WORD PTR OldValue+2,AX
                         mov  AX,WORD PTR NewValue+4
                         mov  WORD PTR OldValue+4,AX
                         mov  AX,WORD PTR NewValue+6
                         mov  WORD PTR OldValue+6,AX
                    .ELSE
                         .IF OpPending == KEY_PLUS
                              call FpAdd
                         .ENDIF                              
                         .IF OpPending == KEY_MINUS
                              call FpSub
                         .ENDIF
                         .IF OpPending == KEY_MULT
                              call FpMult
                         .ENDIF
                         .IF OpPending == KEY_DIV
                              call FpDiv
                         .ENDIF
                         .IF AL != KEY_EQUAL
                              mov  OpPending,AL
                         .ELSE
                              mov  OpPending,0
                         .ENDIF
                         INVOKE    fp64tos,oldValue,15,ADDR Buffer2
                         pushf
                         xor  BX,BX
                         .WHILE Buffer2[BX]
                              mov  AL,Buffer2[BX]
                              mov  Buffer[BX],AL
                              inc  BX
                              .IF BX == 19
                                   .BREAK
                              .ENDIF
                         .ENDW
                         mov  BufIndex,BX
                         call DeZero
                         call ShowBuffr
                         popf
                         .IF CARRY?
                              mov  OpPending,0
                         .ENDIF
                    .ENDIF
                    mov  BufIndex,0
                    ret
               .ENDIF
          dec  CX
          .UNTIL CX == 0
          call Beep
          ret
InitState ENDP

DeZero    PROC USES AX BX CX DI ES
          mov  CX,BufIndex
          .IF CX != 0
               push CS
               pop  ES
               mov  DI,OFFSET Buffer
               cld
               mov  AL,'.'
         repne scasb
               .IF ZERO?
                    mov  BX,BufIndex
                    dec  BX
                    .WHILE Buffer[BX] == '0'
                         dec  BX
                    .ENDW
                    .IF Buffer[BX] == '.'
                         dec  BX
                    .ENDIF
                    inc  BX
                    mov  BufIndex,BX
               .ENDIF
          .ENDIF
          ret
DeZero    ENDP

DecState  PROC NEAR USES AX BX CX DX SI
          .IF AL <= KEY_9
               mov  SI,BufIndex
               .IF SI == 19
                    call Beep
                    ret
               .ENDIF
               add  AL,'0'
               mov  Buffer[SI],AL
               inc  BufIndex
               call showBuffr
               ret
          .ENDIF
          .IF AL == KEY_DEC
               call Beep
               ret
          .ENDIF
          .IF AL == KEY_ESC
               mov  BufIndex,0
               call showBuffr
               mov  state,OFFSET InitState
               ret
          .ENDIF
          .IF AL == KEY_DEL
               mov  BufIndex,0
               call showBuffr
               mov  state,OFFSET InitState
               mov  OpPending,0
               ;
               ; get rid of pending number
               ;
               ret
          .ENDIF
          .IF AL == KEY_BKSP
               dec  BufIndex
               mov  SI,BufIndex
               .IF Buffer[SI] == '.'
                    .IF (SI != 0) && Buffer != '-'
                         mov  state,OFFSET InitState
                    .ELSE
                         mov  state,OFFSET MinState
                    .ENDIF
               .ENDIF
               call showBuffr
               ret
          .ENDIF
          ;
          ; it's an operator
          ;
          mov  CX,BufIndex
          .REPEAT
               mov  BX,CX
               dec  BX
               .IF (Buffer[BX] >= '0') && (Buffer[BX] <= '9')
                    mov  SI,BufIndex
                    mov  Buffer[SI],0
                    push AX
                    INVOKE    stofp64,ADDR Buffer,ADDR newValue
                    pop  AX
                    .IF CARRY?
                         call Beep
                         mov  OpPending,0
                         mov  BufIndex,0
                         mov  state,OFFSET InitState
                         ret
                    .ENDIF
                    .IF OpPending == 0
                         .IF AL != KEY_EQUAL
                              mov  OpPending,AL
                         .ENDIF
                         mov  AX,WORD PTR NewValue
                         mov  WORD PTR OldValue,AX
                         mov  AX,WORD PTR NewValue+2
                         mov  WORD PTR OldValue+2,AX
                         mov  AX,WORD PTR NewValue+4
                         mov  WORD PTR OldValue+4,AX
                         mov  AX,WORD PTR NewValue+6
                         mov  WORD PTR OldValue+6,AX
                    .ELSE
                         .IF OpPending == KEY_PLUS
                              call FpAdd
                         .ENDIF                              
                         .IF OpPending == KEY_MINUS
                              call FpSub
                         .ENDIF
                         .IF OpPending == KEY_MULT
                              call FpMult
                         .ENDIF
                         .IF OpPending == KEY_DIV
                              call FpDiv
                         .ENDIF
                         .IF AL != KEY_EQUAL
                              mov  OpPending,AL
                         .ELSE
                              mov  OpPending,0
                         .ENDIF
                         INVOKE    fp64tos,oldValue,15,ADDR Buffer2
                         pushf
                         xor  BX,BX
                         .WHILE Buffer2[BX]
                              mov  AL,Buffer2[BX]
                              mov  Buffer[BX],AL
                              inc  BX
                              .IF BX == 19
                                   .BREAK
                              .ENDIF
                         .ENDW
                         mov  BufIndex,BX
                         call DeZero
                         call ShowBuffr
                         popf
                         .IF CARRY?
                              mov  OpPending,0
                         .ENDIF
                    .ENDIF
                    mov  BufIndex,0
                    mov  state,OFFSET InitState
                    ret
               .ENDIF
          dec  CX
          .UNTIL CX == 0
          call Beep
          ret
DecState  ENDP

MinState  PROC NEAR USES AX BX CX DX SI
          .IF AL <= KEY_9
               mov  SI,BufIndex
               .IF SI == 19
                    call Beep
                    ret
               .ENDIF
               add  AL,'0'
               mov  Buffer[SI],AL
               inc  BufIndex
               call showBuffr
               ret
          .ENDIF
          .IF AL == KEY_DEC
               mov  SI,BufIndex
               .IF SI == 19
                    call Beep
                    ret
               .ENDIF
               .IF SI == 1
                    mov  Buffer[SI],'0'
                    inc  SI
                    inc  BufIndex
               .ENDIF
               mov  Buffer[SI],'.'
               inc  BufIndex
               call showBuffr
               mov  state,OFFSET DecState
               ret
          .ENDIF
          .IF AL == KEY_ESC
               mov  BufIndex,0
               call showBuffr
               mov  state,OFFSET InitState
               ret
          .ENDIF
          .IF AL == KEY_DEL
               mov  BufIndex,0
               call showBuffr
               mov  state,OFFSET InitState
               mov  OpPending,0
               ;
               ; get rid of pending number
               ;
               ret
          .ENDIF
          .IF AL == KEY_BKSP
               .IF BufIndex == 1
                    mov  state,OFFSET InitState
               .ENDIF
               dec  BufIndex
               call showBuffr
               ret
          .ENDIF
          ;
          ; it's an operator
          ;
          mov  CX,BufIndex
          .REPEAT
               mov  BX,CX
               dec  BX
               .IF (Buffer[BX] >= '0') && (Buffer[BX] <= '9')
                    mov  SI,BufIndex
                    mov  Buffer[SI],0
                    push AX
                    INVOKE    stofp64,ADDR Buffer,ADDR newValue
                    pop  AX
                    .IF CARRY?
                         call Beep
                         mov  OpPending,0
                         mov  BufIndex,0
                         mov  state,OFFSET InitState
                         ret
                    .ENDIF
                    .IF OpPending == 0
                         .IF AL != KEY_EQUAL
                              mov  OpPending,AL
                         .ENDIF
                         mov  AX,WORD PTR NewValue
                         mov  WORD PTR OldValue,AX
                         mov  AX,WORD PTR NewValue+2
                         mov  WORD PTR OldValue+2,AX
                         mov  AX,WORD PTR NewValue+4
                         mov  WORD PTR OldValue+4,AX
                         mov  AX,WORD PTR NewValue+6
                         mov  WORD PTR OldValue+6,AX
                    .ELSE
                         .IF OpPending == KEY_PLUS
                              call FpAdd
                         .ENDIF                              
                         .IF OpPending == KEY_MINUS
                              call FpSub
                         .ENDIF
                         .IF OpPending == KEY_MULT
                              call FpMult
                         .ENDIF
                         .IF OpPending == KEY_DIV
                              call FpDiv
                         .ENDIF
                         .IF AL != KEY_EQUAL
                              mov  OpPending,AL
                         .ELSE
                              mov  OpPending,0
                         .ENDIF
                         INVOKE    fp64tos,oldValue,15,ADDR Buffer2
                         pushf
                         xor  BX,BX
                         .WHILE Buffer2[BX]
                              mov  AL,Buffer2[BX]
                              mov  Buffer[BX],AL
                              inc  BX
                              .IF BX == 19
                                   .BREAK
                              .ENDIF
                         .ENDW
                         mov  BufIndex,BX
                         call DeZero
                         call ShowBuffr
                         popf
                         .IF CARRY?
                              mov  OpPending,0
                         .ENDIF
                    .ENDIF
                    mov  BufIndex,0
                    mov  state,OFFSET InitState
                    ret
               .ENDIF
          dec  CX
          .UNTIL CX == 0
          call Beep
          ret
MinState  ENDP

ProcKey   PROC NEAR USES AX BX CX DX
          cbw
          mov  BX,AX
          xor  CX,CX
          mov  CL,KeyWidth[BX]
          mov  DH,KeyLines[BX]
          mov  DL,KeyCols[BX]
          call Invert
          ret
ProcKey   ENDP

Invert    PROC NEAR
          .REPEAT
               push DX
               mov  AH,002H
               mov  BH,scrnPage
               int  VIDEO
               mov  AH,008H
               mov  BH,scrnPage
               int  VIDEO
               not  AH
               and  AH,07FH
               mov  BL,AH
               mov  AH,009H
               mov  BH,scrnPage
               push CX
               mov  CX,1
               int  VIDEO
               pop  CX
               pop  DX
               inc  DL
          .UNTILCXZ
          ret
Invert    ENDP

GetKey    PROC NEAR
          mov  AH,011H
          int  BIOS_KEY
          .IF ZERO?
               mov  AL,0FFH
               ret
          .ENDIF
          mov  AH,010H
          int  BIOS_KEY
          .IF (AX == 05300H)
               mov  AL,KEY_DEL
               ret
          .ENDIF
          .IF (AL == 0) && (AH == HTK_CODE)
               mov  AL,KEY_TERM
               ret
          .ENDIF
          .IF (AL >= '0') && (AL <= '9')
               sub  AL,'0'-KEY_0
               ret
          .ENDIF
          .IF AL == '+'
               mov  AL,KEY_PLUS
               ret
          .ENDIF
          .IF AL == '-'
               mov  AL,KEY_MINUS
               ret
          .ENDIF
          .IF (AL == '*') || (AL == 'x') || (AL == 'X')
               mov  AL,KEY_MULT
               ret
          .ENDIF
          .IF AL == '/'
               mov  AL,KEY_DIV
               ret
          .ENDIF
          .IF AL == '=' || AL == 00DH
               mov  AL,KEY_EQUAL
               ret
          .ENDIF
          .IF AL == '.'
               mov  AL,KEY_DEC
               ret
          .ENDIF
          .IF AL == 008H
               mov  AL,KEY_BKSP
               ret
          .ENDIF
          .IF AL == 01BH
               mov  AL,KEY_ESC
               ret
          .ENDIF
          mov  AL,0FFH
          ret
GetKey    ENDP

SaveScrn  PROC NEAR
          LOCAL     line:BYTE
          LOCAL     column:BYTE
          mov  AH,00FH
          int  VIDEO
          .IF AL != 3 && AL != 2
               stc
               ret
          .ENDIF
          mov  scrnPage,BH
          mov  AH,003H
          mov  BH,scrnPage
          int  VIDEO
          mov  cursorDef,CX
          mov  cursorPos,DX
          mov  CX,02000H
          mov  AH,001H
          int  VIDEO
          mov  SI,OFFSET saveArea
          mov  line,0
          .REPEAT
               mov column,0
               .REPEAT
                    mov  AH,002H
                    mov  BH,scrnPage
                    mov  DH,line
                    mov  DL,column
                    int  VIDEO
                    mov  AH,008H
                    mov  BH,scrnPage
                    int  VIDEO
                    mov  [SI],AX
                    inc  SI
                    inc  SI
                    inc  column
               .UNTIL column == 23
               inc  line
          .UNTIL line == 22
          clc
          ret
SaveScrn  ENDP

RestScrn  PROC
          LOCAL     line:BYTE
          LOCAL     column:BYTE
          mov  SI,OFFSET saveArea
          mov  line,0
          .REPEAT
               mov column,0
               .REPEAT
                    mov  AH,002H
                    mov  BH,scrnPage
                    mov  DH,line
                    mov  DL,column
                    int  VIDEO
                    mov  AX,[SI]
                    mov  BL,AH
                    inc  SI
                    inc  SI
                    mov  AH,009H
                    mov  BH,scrnPage
                    mov  CX,1
                    int  VIDEO
                    inc  column
               .UNTIL column == 23
               inc  line
          .UNTIL line == 22
          mov  CX,cursorDef
          mov  AH,001H
          int  VIDEO
          mov  DX,cursorPos
          mov  BH,scrnPage
          mov  AH,002H
          int  VIDEO
          ret
RestScrn  ENDP

InitScrn  PROC
          LOCAL     line:BYTE
          LOCAL     column:BYTE
          mov  SI,OFFSET imageLine
          mov  DI,OFFSET attrLine
          mov  line,0
          .REPEAT
               mov column,0
               .REPEAT
                    mov  AH,002H
                    mov  BH,scrnPage
                    mov  DH,line
                    mov  DL,column
                    int  VIDEO
                    mov  AL,[SI]
                    inc  SI
                    xor  BX,BX
                    mov  BL,[DI]
                    mov  BL,color[BX]
                    inc  DI
                    mov  AH,009H
                    mov  BH,scrnPage
                    mov  CX,1
                    int  VIDEO
                    inc  column
               .UNTIL column == 23
               inc  line
          .UNTIL line == 22
          ret
InitScrn  ENDP

;
; save mouse state
;
SaveMouse PROC NEAR USES AX DX ES
          mov  AX,00016H
          mov  DX,OFFSET MousePad
          push CS
          pop  ES
          int  MOUSE
          ret
SaveMouse ENDP
;
; initialize the mouse
;
InitMouse PROC NEAR USES AX BX CX DX
          ;
          ; init the mouse
          ;
          xor  AX,AX
          int  MOUSE
          ;
          ; use hardware cursor
          ;
          mov  AX,0000AH
          mov  BX,1
          mov  CX,4
          mov  DX,5
          int  MOUSE
          ;
          ; make the mouse cursor visible
          ;
          mov  AX,00001H
          int  MOUSE
          ;
          ; set mouse boundaries
          ;
          mov  AX,00007H
          mov  CX,8*1
          mov  DX,8*20
          int  MOUSE
          mov  AX,00008H
          mov  CX,8*5
          mov  DX,8*19
          int  MOUSE
          ret
InitMouse ENDP
;
; Mouse status
;
MouseStat PROC NEAR USES AX BX
          mov  AX,00005H
          mov  BX,0
          int  MOUSE
          .IF BX & 1
               ;
               ; odd number of button presses
               ;
               clc
               ret
          .ENDIF
          mov  AX,00005H
          mov  BX,1
          int  MOUSE
          .IF BX & 1
               ;
               ; odd number of button presses
               ;
               clc
               ret
          .ENDIF
          mov  AX,00005H
          mov  BX,2
          int  MOUSE
          .IF BX & 1
               ;
               ; odd number of button presses
               ;
               clc
               ret
          .ENDIF
          ;
          ; nothing...
          ;
          stc
          ret
MouseStat ENDP
;
; Get mouse press
;
GetMouse  PROC NEAR USES BX CX DX
          LOCAL     line:BYTE
          LOCAL     column:BYTE
          call MouseStat
          .IF CARRY?
               mov AL,0FFH
               ret
          .ENDIF
          ;
          ; translate pixel cordinates to character coordinates
          ;
          shr  CX,1
          shr  CX,1
          shr  CX,1
          mov  column,CL
          shr  DX,1
          shr  DX,1
          shr  DX,1
          mov  line,DL
          mov  CX,19
          .REPEAT
               mov  BX,CX
               dec  BX
               mov  AL,KeyLines[BX]
               mov  AH,AL
               dec  AH
               .IF (AL != line) && (AH != line)
                    .CONTINUE
               .ENDIF
               mov  AL,KeyCols[BX]
               mov  AH,AL
               dec  AL
               add  AH,KeyWidth[BX]
               .IF (AL <= column) && (AH > column)
                    mov  AL,BL
                    ret
               .ENDIF
          .UNTILCXZ
          mov  AL,0FFH
          ret
GetMouse  ENDP
;
; restore mouse state
;
RestMouse PROC NEAR USES AX DX ES
          mov  AX,00017H
          mov  DX,OFFSET MousePad
          push CS
          pop  ES
          int  MOUSE
          ret
RestMouse ENDP
;
; a macro to convert the NPX status word into flags we can
; use; C0 is translated to the carry flag, C2 to the parity
; flag, and C3 to the zero flag.
;
IFE @CPU AND 00400H
          ;
          ; the NPX is only an 8087 - AX as an
          ; operand of FSTSW is not supported
          ;
FP_STATUS MACRO
          push AX
          fstsw     fp_stat
          mov  AX,fp_stat
          sahf
          pop  AX
          ENDM
ELSE
          ;
          ; the NPX is an 80287 or better - AX
          ; is supported as an operand of FSTSW
          ;
FP_STATUS MACRO
          push AX
          fstsw     AX
          sahf
          pop  AX
          ENDM
ENDIF
;
; a macro to multiply ST(0) by 10.0
;
MULBY10   MACRO
          fld  number10
          fmul
          ENDM
;
; a macro to divide ST(0) by 10.0
;
DIVBY10   MACRO
          fld  number10
          fdivp     ST(1),ST
          ENDM
;
; a macro to write a character to [SI]
;
WRITECHAR MACRO     Char:REQ
          mov  [SI],Char
          inc  SI
          ENDM
;
; a macro to extract a digit, convert it to an
; ASCII digit, and write it to [SI]
;
EXT_DIGIT MACRO
          ;
          ; duplicate ST(0)
          ;
          fld     ST
          ;
          ; round the duplicate
          ;
          frndint
          ;
          ; get the 'remainder' in ST(1)
          ;
          fsub ST(1),ST
          ;
          ; pop the integer into memory
          ;
          fistp     digit
          ;
          ; multiply the remainder by 10
          ;
          MULBY10
          ;
          ; get the digit and convert it and
          ; write it
          ;
          mov  AX,digit
          add  AL,'0'
          WRITECHAR AL
          ENDM

;
; convert a 64-bit floating point number to an ASCII string in
; scientific notation
;
fp64tos   PROC USES BX SI number:REAL8,places:SWORD,string:PTR BYTE
          LOCAL     fp_stat:WORD
          LOCAL     digit:WORD
          LOCAL     exponent:SWORD
          mov  exponent,0
          ;
          ; get string address
          ;
          mov  SI,string
          ;
          ; tell MASM SI is a pointer to bytes
          ;
          ASSUME    SI:PTR BYTE
          ;
          ; initialize the NPX
          ;
          finit
          ;
          ; load the value being converted
          ;
          fld  number
          ;
          ; examine for weird values
          ;
          fxam
          fstsw     fp_stat
          mov  BX,fp_stat
          ;
          ; copy high byte to low
          ;
          mov  BL,BH
          shr  BH,1
          shr  BH,1
          shr  BH,1
          and  BH,008H
          and  BL,007H
          or   BL,BH
          ;
          ; BL now has C3 C2 C1 C0 in low 4 bits
          ;
          .IF (BL != 4) && (BL != 6) && (BL != 8) && (BL != 10)
               finit
               ;
               ; undisplayable value
               ;
               WRITECHAR 'E'
               WRITECHAR 'R'
               WRITECHAR 'R'
               WRITECHAR 0
               stc
               ret
          .ENDIF
          ;
          ; is it greater than zero?
          ;
          ftst
          FP_STATUS
          .IF CARRY?
               ;
               ; it was not - put a minus in the string
               ; and change the value's sign
               ;
               WRITECHAR '-'
               fchs
          .ENDIF
          ;
          ; while the number is less than 1, multiply it by
          ; ten and decrement the exponent
          ;
          .REPEAT
               fld1
               fcomp
               FP_STATUS
               .IF !CARRY?
                    pushf
                    dec  exponent
                    MULBY10
                    popf
               .ENDIF
          .UNTIL CARRY?
          ;
          ; while the number is greater than or equal to 10,
          ; divide it by 10 and increment the exponent
          ;
          .REPEAT
               fcom number10
               FP_STATUS
               .IF !CARRY?
                    pushf
                    inc  exponent
                    DIVBY10
                    popf
               .ENDIF
          .UNTIL CARRY?
          ;
          ; the value is now a number in the range
          ; 1.0 <= number < 10
          ;
          .IF (exponent > 17)
               WRITECHAR 'O'
               WRITECHAR 'V'
               WRITECHAR 'E'
               WRITECHAR 'R'
               WRITECHAR 'F'
               WRITECHAR 'L'
               WRITECHAR 'O'
               WRITECHAR 'W'
               WRITECHAR 0
               stc
               ret
          .ENDIF
          .IF (exponent < -16)
               WRITECHAR 'U'
               WRITECHAR 'N'
               WRITECHAR 'D'
               WRITECHAR 'E'
               WRITECHAR 'R'
               WRITECHAR 'F'
               WRITECHAR 'L'
               WRITECHAR 'O'
               WRITECHAR 'W'
               WRITECHAR 0
               stc
               ret
          .ENDIF
          ; apply rounding - add one half to the decimal
          ; place to the right of the last digit we want
          ; to display
          ;
          fld  point5
          mov  CX,places
          .IF CX != 0
               .REPEAT
                    DIVBY10
               .UNTILCXZ
          .ENDIF
          ;
          ; apply the rounding
          ;
          fadd
          ;
          ; now set up rounding by chopping
          ;
          fstcw     fp_stat
          and  fp_stat,0F3FFH
          or   fp_stat,00C00H
          fldcw     fp_stat
          .IF exponent >= 0
               ;
               ; handle values >= 1
               ;
               .WHILE exponent > 0
                    EXT_DIGIT
                    dec  exponent
                    dec  places
               .ENDW
               EXT_DIGIT
               WRITECHAR '.'
          .ELSE
               ;
               ; handle values less than 1
               ;
               WRITECHAR '0'
               WRITECHAR '.'
               .WHILE (exponent < -1)
                    WRITECHAR '0'
                    inc  exponent
               .ENDW
               EXT_DIGIT
          .ENDIF
          ;
          ; extract the decimal digits
          ;
          .WHILE places > 0
               EXT_DIGIT
               dec  places
          .ENDW
          WRITECHAR 0
          ASSUME    SI:NOTHING
          ;
          ; done!
          ;
          clc
          ret
fp64tos   ENDP
;
; macro to get a digit from a string and convert it from
; ASCII to binary
;
GET_DIGIT MACRO
          mov  AL,[SI]
          inc  SI
          sub  AL,'0'
          cbw
          ENDM
;
; convert ASCII string to 64-bit floating point value
; returns carry set on malformed strings
;
stofp64   PROC USES AX BX CX DX DI SI string:PTR BYTE,number:PTR REAL8
          LOCAL     sign:BYTE
          LOCAL     digit:WORD
          ;
          ; get pointer to string
          ;
          mov  SI,string
          ASSUME    SI:PTR BYTE
          ;
          ; assume non-negative value
          ;
          mov  sign,1
          .IF [SI] == '+'
               ;
               ; skip plus
               ;
               inc  SI
          .ELSEIF [SI] == '-'
               ;
               ; value is negative; skip minus
               ;
               mov  sign,-1
               inc  SI
          .ENDIF
          ;
          ; next character must be a digit
          ;
          .IF ([SI] < '0') || ([SI] > '9')
               stc
               ret
          .ENDIF
          ;
          ; initialize NPX and start with a zero
          ;
          finit
          fldz
          ;
          ; parse digits
          ;
          .WHILE ([SI] >= '0') && ([SI] <= '9')
               ;
               ; multiply number by 10
               ;
               MULBY10
               ;
               ; get new digit, convert to word value
               ;
               GET_DIGIT
               ;
               ; convert it to float, add it to number
               ;
               mov  digit,AX
               fild digit
               fadd
          .ENDW
          ;
          ; got a decimal?
          ;
          .IF [SI] == '.'
               ;
               ; skip decimal
               ;
               inc  SI
               ;
               ; count of decimal places is BX
               ;
               mov  BX,0
               ;
               ; start with a fraction of 0
               ;
               fldz
               ;
               ; parse digits
               ;
               .WHILE ([SI] >= '0') && ([SI] <= '9')
                    ;
                    ; multiply fraction by 10
                    ;
                    MULBY10
                    ;
                    ; add value
                    ;
                    GET_DIGIT
                    mov  digit,AX
                    fild digit
                    fadd
                    ;
                    ; increment digit count
                    ;
                    inc  BX
               .ENDW
               ;
               ; now make fraction right size
               ;
               .WHILE BX
                    ;
                    ; divide it by 10
                    ;
                    DIVBY10
                    ;
                    ; decrement digit count
                    ;
                    dec  BX
               .ENDW
               ;
               ; add decimal part to whole number
               ;
               fadd
          .ENDIF
          ;
          ; if value is negative, change its sign
          ;
          .IF sign == -1
               fchs
          .ENDIF
          ASSUME  SI:NOTHING
          ;
          ; get address of number and store value there
          ;
          mov  DI,number
          fstp REAL8 PTR[DI]
          ;
          ; return happy
          ;
          clc
          ret
stofp64   ENDP

FpAdd     PROC NEAR
          fld  OldValue
          fadd NewValue
          fstp OldValue
          ret
FpAdd     ENDP

FpSub     PROC NEAR
          fld  OldValue
          fsub NewValue
          fstp OldValue
          ret
FpSub     ENDP

FpMult    PROC NEAR
          fld  OldValue
          fmul NewValue
          fstp OldValue
          ret
FpMult    ENDP

FpDiv     PROC NEAR
          fld  OldValue
          fdiv NewValue
          fstp OldValue
          ret
FpDiv     ENDP

SaveFP    PROC NEAR
          fnsave    FPSave
          ret
SaveFP    ENDP

RestFP    PROC NEAR
          frstor    FPSave
          ret
RestFP    ENDP

END_RESIDENT_PART   LABEL     BYTE

MousePad  LABEL BYTE

Installed BYTE 0
MsBufSize WORD ?
scratch   WORD ?
NoMouse   BYTE "No mouse found - cannot install$"
No8087    BYTE "No math coprocessor - cannot install$"
NoAdvKbd  BYTE "No advanced keyboard - cannot install$"
TooOld    BYTE "Minimum of DOS 3.0 required - cannot install$"
CantDoIt  BYTE "Cannot chain into Int 2FH - cannot install$"
Help      BYTE "CALC87 to install, CALC87 ~ to uninstall$"
NotThere  BYTE "Cannot uninstall - not installed yet$"
i33Block  BYTE "Cannot uninstall - mouse interrupt blocked$"
i2FBlock  BYTE "Cannot uninstall - multiplex interrupt blocked$"
i28Block  BYTE "Cannot uninstall - DOS idle interrupt blocked$"
i08Block  BYTE "Cannot uninstall - timer interrupt blocked$"
i16Block  BYTE "Cannot uninstall - BIOS keyboard interrupt blocked$"
i10Block  BYTE "Cannot uninstall - video interrupt blocked$"
i9Block   BYTE "Cannot uninstall - keyboard interrupt blocked$"
UnDone    BYTE "CALC87 uninstalled$"
AlreadyOn BYTE "CALC87 already installed$"
GoneTSR   BYTE "CALC87 installed$"

          ASSUME    DS:_TEXT
InitCalc  PROC
          mov  LocalSP.FP_Seg,CS
          mov  LocalSP.FP_Offset,OFFSET StackTop
          mov  calc87hot,0
          mov  ReqFlag,0
          mov  BusyFlag,0
          call FindMouse
          .IF BX == 0
               mov  DX,OFFSET NoMouse
               mov  AH,009H
               int  DOS
               .EXIT
          .ENDIF
          mov  MsBufSize,BX
          call detect87
          .IF CARRY?
               mov  DX,OFFSET No8087
               mov  AH,009H
               int  DOS
               .EXIT
          .ENDIF
          call advKbd
          .IF CARRY?
               mov  DX,OFFSET NoAdvKbd
               mov  AH,009H
               int  DOS
               .EXIT
          .ENDIF
          ;
          ; we use the multiplex interrupt for installation and
          ; identification - this does not work properly unless
          ; we're running at least DOS 3.0... so check our version
          ;
          xor  BX,BX
          mov  AX,03306H
          int  DOS
          .IF BX == 0
               ;
               ; apparently we're not running at least DOS 5.0...
               ; try old version ID function
               ;
               mov  AH,030H
               int  DOS
               .IF AL < 3
                    mov  DX,OFFSET TooOld
                    mov  AH,9
                    int  DOS
                    .EXIT 3
               .ENDIF
          .ENDIF
          ;
          ; hunt for ourselves
          ;
          mov  CX,0C000H
          .REPEAT
               mov  AX,CX
               push CX
               int  MULTIPLEX
               pop  CX
               .IF (AL == 0FFH) && (BX == "MJ") && (DX == Version) && (SI == 8087)
                    ;
                    ; it's us... set installed flag
                    ;
                    mov  Installed,1
                    ;
                    ; set ES accordingly
                    ;
                    mov  ES,DI
                    ;
                    ; go on to reading the command line
                    ;
                    jmp  ReadParms
               .ENDIF
               inc  CH
          .UNTIL CH == 0
          ;
          ; we now know that we were never installed - can we be installed?
          ;
          mov  CX,0C000H
          .REPEAT
               mov  AX,CX
               push CX
               int  MULTIPLEX
               pop  CX
               .IF AL == 000H
                    ;
                    ; found a hole!
                    ;
                    mov  Identity,CH
                    .BREAK
               .ENDIF
               inc  CH
          .UNTIL CH == 0
          ;
          ; if we fell through without finding a hole, we can't install
          ;
          .IF Identity == 0
               mov  DX,OFFSET CantDoIt
               mov  AH,9
               INT  DOS
               .EXIT 2
          .ENDIF
          ;
          ; set ES equal to CS
          ;
          push CS
          pop  ES
ReadParms:
          ;
          ; check for empty command line
          ;
          .IF PSP_CLL == 0
               jmp  EndParms
          .ENDIF
          ;
          ; scan command line for "?" (help)
          ;
          push ES
          push CS
          pop  ES
          mov  DI,OFFSET PSP_Cmd
          cld
          xor  CX,CX
          mov  CL,PSP_CLL
          mov  AL,'?'
     repne scasb
          pop  ES
          .IF ZERO?
               ;
               ; show help and exit to DOS
               ;
               mov  DX,OFFSET Help
               mov  AH,9
               int  DOS
               .EXIT 0
          .ENDIF
          ;
          ; scan command line for "~" (uninstall)
          ;
          push ES
          push CS
          pop  ES
          mov  DI,OFFSET PSP_Cmd
          mov  CL,PSP_CLL
          mov  AL,'~'
     repne scasb
          pop  ES
          .IF ZERO?
               .IF !Installed
                    ;
                    ; can't uninstall if not already installed
                    ;
                    mov  DX,OFFSET NotThere
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 33 vector
               ;
               push ES
               mov  AX,03533H
               int  DOS
               mov  AX,ES
               pop  ES
               mov  DX,ES
               cmp  AX,DX
               ;
               ; is it us?
               ;
               .IF (!ZERO?) || (BX != OFFSET Int33)
                    ;
                    ; can't uninstall - we don't own int 33
                    ;
                    mov  DX,OFFSET i33Block
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 2F vector
               ;
               push ES
               mov  AX,0352FH
               int  DOS
               mov  AX,ES
               pop  ES
               mov  DX,ES
               cmp  AX,DX
               ;
               ; is it us?
               ;
               .IF (!ZERO?) || (BX != OFFSET Int2F)
                    ;
                    ; can't uninstall - we don't own int 2F
                    ;
                    mov  DX,OFFSET i2FBlock
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 28 vector
               ;
               push ES
               mov  AX,03528H
               int  DOS
               mov  AX,ES
               pop  ES
               mov  DX,ES
               cmp  AX,DX
               ;
               ; is it us?
               ;
               .IF (!ZERO?) || (BX != OFFSET Int28)
                    ;
                    ; can't uninstall - we don't own int 28
                    ;
                    mov  DX,OFFSET i28Block
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 08 vector
               ;
               push ES
               mov  AX,03508H
               int  DOS
               mov  AX,ES
               pop  ES
               mov  DX,ES
               cmp  AX,DX
               ;
               ; is it us?
               ;
               .IF (!ZERO?) || (BX != OFFSET Int08)
                    ;
                    ; can't uninstall - we don't own int 08
                    ;
                    mov  DX,OFFSET i08Block
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 16 vector
               ;
               push ES
               mov  AX,03516H
               int  DOS
               mov  AX,ES
               pop  ES
               mov  DX,ES
               cmp  AX,DX
               ;
               ; is it us?
               ;
               .IF (!ZERO?) || (BX != OFFSET Int16)
                    ;
                    ; can't uninstall - we don't own int 16
                    ;
                    mov  DX,OFFSET i16Block
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 10 vector
               ;
               push ES
               mov  AX,03510H
               int  DOS
               mov  AX,ES
               pop  ES
               mov  DX,ES
               cmp  AX,DX
               ;
               ; is it us?
               ;
               .IF (!ZERO?) || (BX != OFFSET Int10)
                    ;
                    ; can't uninstall - we don't own int 10
                    ;
                    mov  DX,OFFSET i10Block
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 9 vector
               ;
               push ES
               mov  AX,03509H
               int  DOS
               mov  AX,ES
               pop  ES
               mov  DX,ES
               cmp  AX,DX
               ;
               ; is it us?
               ;
               .IF (!ZERO?) || (BX != OFFSET Int9)
                    ;
                    ; can't uninstall - we don't own int 9
                    ;
                    mov  DX,OFFSET i9Block
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; reset Int 9
               ;
               push DS
               mov  AX,ES:OldInt9.FP_Seg
               mov  DS,AX
               mov  DX,ES:OldInt9.FP_Offset
               mov  AX,02509H
               int  DOS
               pop  DS
               ;
               ; reset Int 10
               ;
               push DS
               mov  AX,ES:OldInt10.FP_Seg
               mov  DS,AX
               mov  DX,ES:OldInt10.FP_Offset
               mov  AX,02510H
               int  DOS
               pop  DS
               ;
               ; reset Int 16
               ;
               push DS
               mov  AX,ES:OldInt16.FP_Seg
               mov  DS,AX
               mov  DX,ES:OldInt16.FP_Offset
               mov  AX,02516H
               int  DOS
               pop  DS
               ;
               ; reset Int 08
               ;
               push DS
               mov  AX,ES:OldInt08.FP_Seg
               mov  DS,AX
               mov  DX,ES:OldInt08.FP_Offset
               mov  AX,02508H
               int  DOS
               pop  DS
               ;
               ; reset Int 28
               ;
               push DS
               mov  AX,ES:OldInt28.FP_Seg
               mov  DS,AX
               mov  DX,ES:OldInt28.FP_Offset
               mov  AX,02528H
               int  DOS
               pop  DS
               ;
               ; reset Int 2F
               ;
               push DS
               mov  AX,ES:OldInt2F.FP_Seg
               mov  DS,AX
               mov  DX,ES:OldInt2F.FP_Offset
               mov  AX,0252FH
               int  DOS
               pop  DS
               ;
               ; reset Int 33
               ;
               push DS
               mov  AX,ES:OldInt33.FP_Seg
               mov  DS,AX
               mov  DX,ES:OldInt33.FP_Offset
               mov  AX,02533H
               int  DOS
               pop  DS
               ;
               ; get old PSP and release memory associated with it
               ;
               mov  AH,049H
               int  DOS
               pop  ES
               ;
               ; say what we did and exit
               ;
               mov  DX,OFFSET UnDone
               mov  AH,9
               int  DOS
               .EXIT 0
          .ENDIF
EndParms:
          .IF Installed
               ;
               ; show current values and exit
               ;
               mov  DX,OFFSET AlreadyOn
               mov  AH,9
               int  DOS
               .EXIT 0
          .ENDIF
          ;
          ; begin the installation - reset the segment registers
          ;
          mov  AX,CS
          mov  DS,AX
          mov  ES,AX
          ;
          ; get Int 33 vector and save it
          ;
          mov  AX,03533H
          int  DOS
          mov  OldInt33.FP_Offset,BX
          mov  BX,ES
          mov  OldInt33.FP_Seg,BX
          ;
          ; install our Int 33 vector
          ;
          mov  DX,OFFSET Int33
          mov  AX,02533H
          int  DOS
          ;
          ; get Int 2F vector and save it
          ;
          mov  AX,0352FH
          int  DOS
          mov  OldInt2F.FP_Offset,BX
          mov  BX,ES
          mov  OldInt2F.FP_Seg,BX
          ;
          ; install our Int 2F vector
          ;
          mov  DX,OFFSET Int2F
          mov  AX,0252FH
          int  DOS
          ;
          ; get Int 28 vector and save it
          ;
          mov  AX,03528H
          int  DOS
          mov  OldInt28.FP_Offset,BX
          mov  BX,ES
          mov  OldInt28.FP_Seg,BX
          ;
          ; install our Int 28 vector
          ;
          mov  DX,OFFSET Int28
          mov  AX,02528H
          int  DOS
          ;
          ; get Int 08 vector and save it
          ;
          mov  AX,03508H
          int  DOS
          mov  OldInt08.FP_Offset,BX
          mov  BX,ES
          mov  OldInt08.FP_Seg,BX
          ;
          ; install our Int 08 vector
          ;
          mov  DX,OFFSET Int08
          mov  AX,02508H
          int  DOS
          ;
          ; get Int 16 vector and save it
          ;
          mov  AX,03516H
          int  DOS
          mov  OldInt16.FP_Offset,BX
          mov  BX,ES
          mov  OldInt16.FP_Seg,BX
          ;
          ; install our Int 16 vector
          ;
          mov  DX,OFFSET Int16
          mov  AX,02516H
          int  DOS
          ;
          ; get Int 10 vector and save it
          ;
          mov  AX,03510H
          int  DOS
          mov  OldInt10.FP_Offset,BX
          mov  BX,ES
          mov  OldInt10.FP_Seg,BX
          ;
          ; install our Int 10 vector
          ;
          mov  DX,OFFSET Int10
          mov  AX,02510H
          int  DOS
          ;
          ; get Int 9 vector and save it
          ;
          mov  AX,03509H
          int  DOS
          mov  OldInt9.FP_Offset,BX
          mov  BX,ES
          mov  OldInt9.FP_Seg,BX
          ;
          ; install our Int 9 vector
          ;
          mov  DX,OFFSET Int9
          mov  AX,02509H
          int  DOS
          ;
          ; say what we've done
          ;
          mov  DX,OFFSET GoneTSR
          mov  AH,9
          int  DOS
          ;
          ; release environment space
          ;
          mov  AX,PSP_Env
          mov  ES,AX
          mov  AH,049H
          int  DOS
          ;
          ; calculate number of paragraphs to keep
          ;
          mov  DX,15 + OFFSET END_RESIDENT_PART
          add  DX,MsBufSize
          mov  CL,4
          shr  DX,CL
          ;
          ; terminate and stay resident
          ;
          mov  AX,03100H
          int  DOS
InitCalc  ENDP

;
; find the mouse
;
FindMouse PROC NEAR USES AX ES

          ;
          ; get the mouse vector
          ;
          mov  AX,03533H
          int  DOS
          mov  AX,ES
          ;
          ; if the vector is null, no mouse
          ;
          .IF AX != 0 || BX != 0
               ;
               ; check for mouse installed
               ;
               xor  AX,AX
               int  MOUSE
               .IF AX == 0
                    xor  BX,BX
               .ELSE
                    ;
                    ; get size of mouse buffer
                    ;
                    mov  AX,00015H
                    int  MOUSE
               .ENDIF
          .ENDIF
          ret
FindMouse ENDP
;
; procedure for detecting a math processor
;
detect87  PROC
          ;
          ; initialize the math coprocessor
          ;
          finit
          ;
          ; write a value to scratch that
          ; the NPX won't write
          ;
          mov  scratch,055AAh
          ;
          ; get the (alleged) NPX status word
          ;
          fstsw     scratch
          ;
          ; low byte should be clear - low
          ; bits are all exception indicators!
          ;
          .IF  (BYTE PTR scratch != 0)
               stc
               ret
          .ENDIF
          ;
          ; now check to control word
          ;
          fstcw     scratch
          mov  ax,scratch
          ;
          ; check known value
          ;
          .IF  (AX != 0037FH)
               stc
          .ELSE
               clc
          .ENDIF
          ret
detect87  ENDP
;
; detect advanced keyboard
;
advKbd    PROC
          mov  AH,001H
          int  BIOS_KEY
          jz   _ak1
_ak0:
          xor  AH,AH
          int  BIOS_KEY
          mov  AH,001H
          int  BIOS_KEY
          jz   _ak0
_ak1:
          mov  CX,0FFFFH
          mov  AX,005FFH
          int  BIOS_KEY
          .IF AL != 0
               stc
               ret
          .ENDIF
          mov  AH,010H
          int  BIOS_KEY
          .IF AX == 0FFFFH
               clc
          .ELSE
               stc
          .ENDIF
          ret
advKbd    ENDP

END
! -lh0-rb  rb  x±}  CH15\SA.ASM³.MODEL TINY
;
; definitions for interrupts
;
VIDEO     EQU  010H ; video BIOS interrupt number
DOS       EQU  021H ; DOS interrupt number
MULTIPLEX EQU  02FH ; DOS multiplex interrupt number
;
; the BIOS data area
;
BIOS_SEG  SEGMENT   AT   0

          ORG  0044AH

BIOS_Col  LABEL     BYTE ; screen columns

          ORG  00484H

BIOS_Row  LABEL     BYTE ; screen rows

BIOS_SEG  ENDS

CODE      SEGMENT   BYTE PUBLIC
          ASSUME    DS:CODE

          ORG  0002CH

PSP_Env   LABEL     WORD ; Environment segment 

          ORG  00060H

SafeAddr  LABEL     BYTE ; This is the lowest safe address 
                         ; where code can be moved

          ORG     00080H

PSP_CLL   BYTE ?         ; command line length
PSP_Cmd   LABEL     BYTE ; command line

          .STARTUP

Start_Res LABEL     BYTE ; resident code starts here

          jmp  init      ; begin execution of the transient code

Version   WORD      00400H    ; version
OldV2F    DWORD     ?  ; old int 2F vector will be stored here
OldV29    DWORD     ?  ; old int 29 vector will be stored here
OldV10    DWORD     ?  ; old int 10 vector will be stored here
NewV2Fo   WORD      ?  ; new int 2F offset is kept here
NewV29o   WORD      ?  ; new int 29 offset is kept here
NewV10o   WORD      ?  ; new int 10 offset is kept here
ISR_Seg   WORD      ?  ; SA code segment will be here
Border    BYTE      0    ; border color
Attribute BYTE      7    ; attribute
I29State  WORD      OFFSET State1  ; current state of interrupt 29 ISR
Identity  BYTE      0    ; which mux identity we acquire...

          ASSUME    DS:NOTHING
;
; the new interrupt 2F ISR
;
MuxISR    PROC FAR
          .IF (AH == Identity) && (AL == 0)
               mov  AL,0FFH
               mov  BX,"MJ"
               mov  DX,Version
               mov  DI,ISR_Seg
               iret
          .ENDIF
          jmp  DWORD PTR OldV2F
MuxISR    ENDP
;
; the new interrupt 10 ISR
;
VideoISR  PROC FAR
          ;
          ; check for the characteristic signature of a clear-screen -
          ; AX = 0600H, DH = 18H, CX is clear
          ;
          .IF (AX == 00600H) && (DH == 018H) && (!CX)
               ;
               ; save DS and set DS to zero - for access of the BIOS
               ; variables
               ;
               push DS
               mov  DS,CX

               ASSUME    DS:BIOS_SEG

               ;
               ; check for max number of columns
               ;
               push DX
               inc  DL
               cmp  DL,BIOS_Col
               pop  DX
               ;
               ; if it matches, DH is less than the row count, and
               ; attribute is 7 (light gray on black), looks like DOS
               ; is trying to clear the screen
               ;
               .IF ZERO? && ((DH < BIOS_Row) || (BH == 007H))
                    push AX
                    push BX
                    push BP
                    ;
                    ; set border color
                    ;
                    mov  BL,border
                    xor  BH,BH
                    mov  AH,00BH
                    int  VIDEO
                    pop  BP
                    pop  BX
                    pop  AX
                    mov  BH,Attribute
                    ;
                    ; set the real number of lines
                    ;
                    mov  DH,BIOS_Row
               .ENDIF
               pop  DS
               ASSUME    DS:NOTHING
          .ENDIF
          jmp  DWORD PTR OldV10
VideoISR  ENDP
;
; the new interrupt 29 ISR
;
FstVidISR PROC FAR  USES AX BX CX DX BP DS
          ;
          ; set DS = CS
          ;
          push CS
          pop  DS
          call WORD PTR I29State
          iret
FstVidISR ENDP

          ASSUME     DS:CODE
;
; character names
;
BELL      EQU  007H
BACKSPACE EQU  008H
TAB       EQU  009H
LF        EQU  00AH
CR        EQU  00DH
ESCAPE    EQU  01BH
;
; state 1 of int 29 state machine - if it receives an ESCAPE, transitions
; to state 2, if it receives an ESCAPE with the high bit set, transitions
; to state 3, otherwise writes the character out
;
state1    PROC NEAR
          ;
          ; check the character - ESCAPE?
          ;
          push AX
          and  AL,001111111y
          cmp  AL,ESCAPE
          pop  AX
          .IF ZERO?
               ;
               ; found escape - check, and assume it is
               ;
               cmp  AL,ESCAPE
               mov  AX,OFFSET state2
               .IF !ZERO?
                    ;
                    ; 9B received...
                    ;
                    mov  AX,OFFSET state3
               .ENDIF
               ;
               ; set state transition
               ;
               mov  I29State,AX
               ret
          .ENDIF
          ;
          ; write the character out
          ;
          mov  AH,00EH
          mov  BX,007H
          int  VIDEO
          ret
state1    ENDP
;
; state 2 of int 29 state machine - it has received an ESCAPE, now expects a
; left bracket ('['); if it gets one, it transitions to state 3; otherwise,
; transition back to state 1
;
state2    PROC NEAR
          cmp  AL,'['
          mov  AX,OFFSET state3
          .IF !ZERO?
               mov  AX,OFFSET state1
          .ENDIF
          mov  I29State,AX
          ret
state2    ENDP
;
; state 3 of int 29 state machine - it has received an ESCAPE and a left
; bracket, or an ESCAPE with the high bit set, which is equivalent.  Ignore
; digits and letters except a capital J - that should be a clear-screen
; sequence
;
state3    PROC NEAR
          .IF AL == 'J'
               ;
               ; force installed interrupt 10H ISR to do a proper clear screen
               ;
               mov  AX,00600h
               mov  DX,0184Fh
               mov  BH,007H
               xor  CX,CX
               int  VIDEO
               ;
               ; move cursor to 0,0
               ;
               mov  AH,002H
               xor  DX,DX
               mov  BH,DL
               int  VIDEO
          .ELSE
               .IF (AL >= '0') && (AL <= '9')
                    ret
               .ENDIF
               ;
               ; mask character to uppercase
               ;
               and     AL,001011111y
               .IF (AL < 'A') || (AL > 'Z')
                    mov  I29State,OFFSET state1
               .ENDIF
          .ENDIF
          ret
state3    ENDP
;
; that's all the resident part consists of...
;
END_RESIDENT_PART     LABEL     BYTE
;
; flag to tell if SA is already installed
;
Installed BYTE 0

init:
          ;
          ; we use the multiplex interrupt for installation and
          ; identification - this does not work properly unless
          ; we're running at least DOS 3.0... so check our version
          ;
          xor  BX,BX
          mov  AX,03306H
          int  DOS
          .IF BX == 0
               ;
               ; apparently we're not running at least DOS 5.0...
               ; try old version ID function
               ;
               mov  AH,030H
               int  DOS
               .IF AL < 3
                    mov  DX,OFFSET _TooOld
                    mov  AH,9
                    int  DOS
                    .EXIT 3
               .ENDIF
          .ENDIF
          ;
          ; hunt for ourselves
          ;
          mov  CX,0C000H
          .REPEAT
               mov  AX,CX
               push CX
               int  MULTIPLEX
               pop  CX
               .IF (AL == 0FFH) && (BX == "MJ") && (DX == Version)
                    ;
                    ; it's us... set installed flag
                    ;
                    mov  Installed,1
                    ;
                    ; set ES accordingly
                    ;
                    mov  ES,DI
                    ;
                    ; set our parameters to existing ones
                    ;
                    mov  AL,ES:Attribute
                    mov  Attribute,AL
                    mov  AL,ES:Border
                    mov  Border,AL
                    ;
                    ; make sure installed Int 29 ISR state machine is reset
                    ;
                    mov  ES:I29State,OFFSET state1
                    ;
                    ; go on to reading the command line
                    ;
                    jmp  ReadParms
               .ENDIF
               inc  CH
          .UNTIL CH == 0
          ;
          ; we now know that we were never installed - can we be installed?
          ;
          mov  CX,0C000H
          .REPEAT
               mov  AX,CX
               push CX
               int  MULTIPLEX
               pop  CX
               .IF AL == 000H
                    ;
                    ; found a hole!
                    ;
                    mov  Identity,CH
                    .BREAK
               .ENDIF
               inc  CH
          .UNTIL CH == 0
          ;
          ; if we fell through without finding a hole, we can't install
          ;
          .IF Identity == 0
               mov  DX,OFFSET _CantDoIt
               mov  AH,9
               INT  DOS
               .EXIT 2
          .ENDIF
          ;
          ; set ES equal to CS
          ;
          push CS
          pop  ES
ReadParms:
          ;
          ; check for empty command line
          ;
          .IF PSP_CLL == 0
               jmp  EndParms
          .ENDIF
          ;
          ; scan command line for "?" (help)
          ;
          push ES
          push CS
          pop  ES
          mov  DI,OFFSET PSP_Cmd
          cld
          xor  CX,CX
          mov  CL,PSP_CLL
          mov  AL,'?'
     repne scasb
          pop  ES
          .IF ZERO?
               ;
               ; show help and exit to DOS
               ;
               call logo
               mov  DX,OFFSET _Help
               mov  AH,9
               int  DOS
               .EXIT 0
          .ENDIF
          ;
          ; scan command line for "~" (uninstall)
          ;
          push ES
          push CS
          pop  ES
          mov  DI,OFFSET PSP_Cmd
          mov  CL,PSP_CLL
          mov  AL,'~'
     repne scasb
          pop  ES
          .IF ZERO?
               .IF !Installed
                    ;
                    ; can't uninstall if not already installed
                    ;
                    mov  DX,OFFSET _NotThere
                    mov  AH,9
                    int  DOS
                    .EXIT 1
               .ENDIF
               ;
               ; get int 2F vector
               ;
               push ES
               mov  AX,0352FH
               int  DOS
               mov  AX,ES
               pop  ES
               ;
               ; is it us?
               ;
               .IF (BX != ES:NewV2Fo) || (AX != ES:ISR_Seg)
                    ;
                    ; can't uninstall - we don't own int 2FH
                    ;
                    mov  BX,OFFSET i2FBlock
                    call OutString
                    .EXIT 1
               .ENDIF
               ;
               ; get int 29 vector
               ;
               push ES
               mov  AX,03529H
               int  DOS
               mov  AX,ES
               pop  ES
               ;
               ; is it us?
               ;
               .IF (BX != ES:NewV29o) || (AX != ES:ISR_Seg)
                    ;
                    ; can't uninstall - we don't own int 29H
                    ;
                    mov  BX,OFFSET i29Block
                    call OutString
                    .EXIT 1
               .ENDIF
               ;
               ; get int 10H vector
               ;
               push ES
               mov  AX,03510H
               int  DOS
               mov  AX,ES
               pop  ES
               ;
               ; is it us?
               ;
               .IF (BX != ES:NewV10o) || (AX != ES:ISR_Seg)
                    ;
                    ; can't uninstall - we don't own int 10H
                    ;
                    mov  BX,OFFSET i10Block
                    call OutString
                    .EXIT 1
               .ENDIF
               ;
               ; reset Int 10H
               ;
               push DS
               mov  AX,WORD PTR ES:OldV10+2
               mov  DS,AX
               mov  DX,WORD PTR ES:OldV10
               mov  AX,02510H
               int  DOS
               pop  DS
               ;
               ; reset Int 29H
               ;
               push DS
               mov  AX,WORD PTR ES:OldV29+2
               mov  DS,AX
               mov  DX,WORD PTR ES:OldV29
               mov  AX,02529H
               int  DOS
               pop  DS
               ;
               ; reset Int 2FH
               ;
               push DS
               mov  AX,WORD PTR ES:OldV2F+2
               mov  DS,AX
               mov  DX,WORD PTR ES:OldV2F
               mov  AX,0252FH
               int  DOS
               pop  DS
               ;
               ; get old PSP and release memory associated with it
               ;
               push ES
               mov  BX,ES:ISR_Seg
               add  BX,(15 + Start_Res - SafeAddr)/16
               mov  ES,BX
               mov  AH,049H
               int  DOS
               pop  ES
               ;
               ; say what we did and exit
               ;
               mov  BX,OFFSET UnDone
               call OutString
               .EXIT 0
          .ENDIF
          ;
          ; start scanning command line for color codes
          ;
          mov  SI,OFFSET PSP_Cmd
          .REPEAT
               lodsb
               .IF AL == CR
                    jmp  EndParms
               .ENDIF
               ;
               ; attempt to translate character to hex
               ;
               call ToHex
          .UNTIL AL != -1
          ;
          ; set new attribute
          ;
          mov  ES:Attribute,0
          .REPEAT
               mov  CL,4
               shl  ES:Attribute,CL
               or   ES:Attribute,AL
               lodsb
               .IF AL == CR
                    jmp  EndParms
               .ENDIF
               call ToHex
          .UNTIL AL == -1
          ;
          ; set DS:attribute as well...
          ;
          mov  AL,ES:Attribute
          mov  Attribute,AL
          ;
          ; disable blink if high bit is set
          ;
          .IF AL & 010000000y
               mov  AX,1003h
               xor  BL,BL
               int  VIDEO
          .ENDIF
          ;
          ; go for a border code
          ;
          .REPEAT
               lodsb
               .IF AL == CR
                    jmp  EndParms
               .ENDIF
               call ToHex
          .UNTIL AL != -1
          mov  ES:Border,AL
          mov  Border,AL
EndParms:
          .IF Installed
               ;
               ; show current values and exit
               ;
               call logo
               .EXIT 0
          .ENDIF
          ;
          ; begin the installation - reset the segment registers
          ;
          mov  AX,CS
          mov  DS,AX
          mov  ES,AX
          ;
          ; to save space, the upper part of the PSP will be overwritten
          ;
          mov  DI,OFFSET SafeAddr
          mov  SI,OFFSET Start_Res
          mov  CX,END_RESIDENT_PART-Start_Res
     rep  movsb
          ;
          ; adjust DS
          ;
          sub  AX,(15 + Start_Res - SafeAddr)/16
          mov  DS,AX
          mov  ISR_Seg,AX
          ;
          ; get Int 2FH vector and save it
          ;
          mov  AX,0352FH
          int  DOS
          mov  WORD PTR OldV2F,BX
          mov  BX,ES
          mov  WORD PTR OldV2F+2,BX
          ;
          ; install our Int 2FH vector
          ;
          mov  DX,OFFSET MuxISR
          mov  NewV2Fo,DX
          mov  AX,0252FH
          int  DOS
          ;
          ; get Int 29H vector and save it
          ;
          mov  AX,03529H
          int  DOS
          mov  WORD PTR OldV29,BX
          mov  BX,ES
          mov  WORD PTR OldV29+2,BX
          ;
          ; install our Int 29H vector
          ;
          mov  DX,OFFSET FstVidISR
          mov  NewV29o,DX
          mov  AX,02529H
          int  DOS
          ;
          ; get Int 10H vector and save it
          ;
          mov  AX,03510H
          int  DOS
          mov  WORD PTR OldV10,BX
          mov  BX,ES
          mov  WORD PTR OldV10+2,BX
          ;
          ; install our Int 29H vector
          ;
          mov  DX,OFFSET VideoISR
          mov  NewV10o,DX
          mov  AX,02510H
          int  DOS
          ;
          ; reset DS and set ES to installed code's DS segment
          ;
          mov  AX,DS
          mov  ES,AX
          add  AX,(15 + Start_Res - SafeAddr)/16
          mov  DS,AX
          ;
          ; write logo
          ;
          call logo
          ;
          ; say what we've done
          ;
          mov  BX,OFFSET GoneTSR
          call OutString
          ;
          ; release environment space
          ;
          mov  AX,PSP_Env
          mov  ES,AX
          mov  AH,049H
          int  DOS
          ;
          ; calculate number of paragraphs to keep
          ;
          mov  DX,15 + OFFSET END_RESIDENT_PART
          mov  CL,4
          shr  DX,CL
          sub  DX,(Start_Res - SafeAddr)/16
          ;
          ; terminate and stay resident
          ;
          mov  AX,03100H
          int  DOS
;
; display logo and parameters
;
logo      PROC NEAR
          ;
          ; clear the screen
          ;
          mov  AX,00600H
          xor  CX,CX
          mov  DX,0184FH
          mov  BH,007H
          int  VIDEO
          ;
          ; set cursor to 0,0
          ;
          mov  AH,002H
          xor  DX,DX
          mov  BH,DL
          int  VIDEO
          ;
          ; write logo
          ;
          mov  BX,OFFSET Copyright
          call OutString
          ;
          ; write attribute in hex
          ;
          mov  AL,ES:Attribute
          mov  CL,4
          shr  AL,CL
          call OutHexN
          mov  AL,ES:Attribute
          call OutHexN
          ;
          ; write attribute in English
          ;
          mov  BL,ES:Attribute
          xor  CX,CX
          call OutColor
          mov  BL,ES:Attribute
          mov  CL,4
          call OutColor
          ;
          ; write border
          ;
          mov  BX,OFFSET BorderIs
          call OutString
          ;
          ; first in hex
          ;
          mov  AL,ES:Border
          call OutHexN
          ;
          ; then in English
          ;
          mov  BL,ES:Border
          xor  CX,CX
          call OutColor
          mov  AL,CR
          call OutChar
          mov  AL,LF
          call OutChar
          ret
logo      ENDP
;
; write color in English
;
OutColor  PROC NEAR
          .IF CX
               ;
               ; printing background
               ;
               push BX
               mov  BX,OFFSET StringOn
               call OutString
               pop  BX
               mov  CL,4
               shr  BL,CL
          .ENDIF
          and  BX,00FH
          shl  BL,1
          mov  BX,WORD PTR Colors[BX]
          call OutString
          ret
OutColor  ENDP
;
; output low 4 bits of AL as hex digit
;
OutHexN   PROC NEAR USES BX
          and  AL,000001111y
          mov  BX,OFFSET HexOutTbl
          xlatb
          call OutChar
          ret
OutHexN   ENDP
;
; write ASCIIZ string
;
OutString PROC NEAR
          mov  AL,[BX]
          .REPEAT
               call OutChar
               inc  BX
               mov  AL,[BX]
          .UNTIL AL == 0
          ret
OutString ENDP
;
; convert ASCII hex character to binary
;
ToHex     PROC NEAR USES BX
          mov  BX,OFFSET HexInTbl
          xlat
          ret
ToHex     ENDP
;
; output a character
;
OutChar   PROC NEAR USES AX BX CX DX BP
          .IF AL == TAB
               ;
               ; handle tab - get cursor position
               ;
               mov  AH,003H
               mov  BH,000H
               int  VIDEO
               ;
               ; add standard tab width and adjust
               ;
               add  DL,008H
               and  DL,011111000y
               ;
               ; set cursor
               ;
               mov  AH,002H
               mov  BH,000H
          .ELSE
               .IF (AL != BELL) && (AL != BACKSPACE) && (AL != LF) && (AL != CR)
                    ;
                    ; unprintable character
                    ;
                    push AX
                    ;
                    ; read current character and attribute
                    ;
                    mov  AH,008H
                    mov  BH,000H
                    int  VIDEO
                    ;
                    ; write it back out using the current attribute
                    ;
                    mov  AH,009H
                    mov  BH,000H
                    mov  BL,ES:Attribute
                    mov  CX,00001H
                    int  VIDEO
                    pop  AX
               .ENDIF
               ;
               ; output character as TTY output
               ;
               mov  AH,00EH
               mov  BX,007H
          .ENDIF
          int  VIDEO
          ret
OutChar   ENDP

Black     BYTE " Black",0
Blue      BYTE " Blue",0
BorderIs  BYTE " Border = ",0
Brown     BYTE " Brown",0
CopyRight BYTE CR,LF,"SA V4.0 (c) Copyright Marcus W. Johnson 1989 - 1993."
          BYTE "  All Rights Reserved",CR,LF,"Current attribute = ",0
Cyan      BYTE " Cyan",0
DarkGray  BYTE " Dark Gray",0
GoneTSR   BYTE "SA Installed",0
Green     BYTE " Green",0
I10Block  BYTE "Another TSR has hooked interrupt 10H - can't uninstall",0
I29Block  BYTE "Another TSR has hooked interrupt 29H - can't uninstall",0
I2FBlock  BYTE "Another TSR has hooked interrupt 2FH - can't uninstall",0
LtBlue    BYTE " Light Blue",0
LtCyan    BYTE " Light Cyan",0
LtGray    BYTE " Light Gray",0
LtGreen   BYTE " Light Green",0
LtMagenta BYTE " Light Magenta",0
LtRed     BYTE " Light Red",0
Magenta   BYTE " Magenta",0
Red       BYTE " Red",0
StringOn  BYTE " on",0
UnDone    BYTE "SA Uninstalled",0
White     BYTE " White",0
Yellow    BYTE " Yellow",0
_CantDoIt BYTE "SA cannot be installed - no free mux interrupt$"
_Help     BYTE "Syntax is SA <code1> <code2>, "
          BYTE "where <code1> is a hexadecimal attribute code,",CR,LF
          BYTE "as below, and <code2> is the border color",CR,LF
          BYTE "Code",TAB,"Color",TAB,TAB,"Monochrome",CR,LF
          BYTE "0",TAB,"Black",TAB,TAB,"Normal",CR,LF
          BYTE "1",TAB,"Blue",TAB,TAB,"Underline",CR,LF
          BYTE "2",TAB,"Green",TAB,TAB,"?",CR,LF
          BYTE "3",TAB,"Cyan",TAB,TAB,"?",CR,LF
          BYTE "4",TAB,"Red",TAB,TAB,"?",CR,LF
          BYTE "5",TAB,"Magenta",TAB,TAB,"?",CR,LF
          BYTE "6",TAB,"Brown",TAB,TAB,"?",CR,LF
          BYTE "7",TAB,"Light Gray",TAB,"Reverse",CR,LF
          BYTE "8",TAB,"Dark Gray",TAB,"High Intensity",CR,LF
          BYTE "9",TAB,"Light Blue",TAB,"High Intensity Underline",CR,LF
          BYTE "A",TAB,"Light Green",TAB,"?",CR,LF
          BYTE "B",TAB,"Light Cyan",TAB,"?",CR,LF
          BYTE "C",TAB,"Light Red",TAB,"?",CR,LF
          BYTE "D",TAB,"Light Magenta",TAB,"?",CR,LF
          BYTE "E",TAB,"Yellow",TAB,TAB,"?",CR,LF
          BYTE "F",TAB,"White",TAB,TAB,"High Intensity Reverse",CR,LF
          BYTE "To uninstall, syntax is SA ~$"
_NotThere BYTE "SA is not installed - can't uninstall$"
_TooOld   BYTE "SA requires DOS 3.0 or later$"
Colors    WORD OFFSET Black
          WORD OFFSET Blue
          WORD OFFSET Green
          WORD OFFSET Cyan
          WORD OFFSET Red
          WORD OFFSET Magenta
          WORD OFFSET Brown
          WORD OFFSET LtGray
          WORD OFFSET DarkGray
          WORD OFFSET LtBlue
          WORD OFFSET LtGreen
          WORD OFFSET LtCyan
          WORD OFFSET LtRed
          WORD OFFSET LtMagenta
          WORD OFFSET Yellow
          WORD OFFSET White
HexInTbl  BYTE 48   DUP  (-1)
          BYTE 0,1,2,3,4,5,6,7,8,9
          BYTE 7    DUP  (-1)
          BYTE 10,11,12,13,14,15
          BYTE 26   DUP  (-1)
          BYTE 10,11,12,13,14,15
          BYTE 153  DUP  (-1)
HexOutTbl BYTE "0123456789ABCDEF"

CODE      ENDS

          END
%-lh0-7  7  §;ƒ  CH15\CALC87.COM,LéO      $@      à?                                                                                           



	ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ºÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¸ººº                   ³ººÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙºÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶ºÚÄÄÄ·  ÚÄÄÄ·   ÚÄÄÄÄ·ºº³ESCº  ³DELº   ³BKSPºººÔÍÍÍ¼  ÔÍÍÍ¼   ÔÍÍÍÍ¼ºÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄ¶ºÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·ºº³ 7 º³ 8 º³ 9 º³³ + ºººÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼ººÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·ºº³ 4 º³ 5 º³ 6 º³³ - ºººÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼ººÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·ºº³ 1 º³ 2 º³ 3 º³³ x ºººÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼ººÚÄÄÄ·ÚÄÄÄ·ÚÄÄÄ·³ÚÄÄÄ·ºº³ 0 º³ þ º³ = º³³ ö ºººÔÍÍÍ¼ÔÍÍÍ¼ÔÍÍÍ¼³ÔÍÍÍ¼ºÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍ¼                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              d                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     Pä`û¨€u<Xu.€>õ	 u.Æö	X.ÿ.þ	.þ÷	œ.ÿ
œ.þ÷	Ê .þ÷	œ.ÿ
œ.þ÷	Ê œ.ÿ

.€>õ	 u.€>ö	 t.€>÷	 u.Æõ	è† .Æõ	 Ïœ.ÿ
.€>õ	 u.€>ö	 t.Æõ	è` .Æõ	 Ï.:&ô	u
Àu°ÿ»JM¾—.‹ø	_Ï=€u.€>õ	 u.€>ö	 t.Æõ	è  .Æõ	 .ÿ.
.þ÷	œ.ÿ
œ.þ÷	Ê ú.‰&ú	.Œü	.‹&
.Ž
.Æö	 ûè ú.‹&ú	.Žü	ûÃPSQRUWVè?s
^_]ZY[XÃèWèDèòèOÇ  Æ Ç\è <ÿtèQë
è¡<ÿtèE<ÿtÿ\è:<uÛèõèèV^_]ZY[XÃPSQR´Š>‘	ºÍ¹ +Ét¸ 
Š>‘	Š¡Í´Š>‘	º+Í‹Ét‹+ÙŠ‡è âñZY[XÃPS´Š>‘	Í[XÃP°èíÿXÃPSQRV<	w%‹6ƒþu	èãÿ^ZY[XÃ0ˆ„ÿèqÿ^ZY[XÃ<
u8‹6ƒþu	èºÿ^ZY[XÃöu
Æ0FÿÆ„.ÿè;ÿÇ\6^ZY[XÃ<uÇ  è"ÿ^ZY[XÃ<uÇ  èÿÆ ^ZY[XÃ<uƒ> uèUÿëÿèíþ^ZY[XÃ<uƒ> uÆ-ÿèÐþÇ\ø^ZY[XÃ‹‹ÙK€¿0séí €¿9véã ‹6Æ„ PP^Pè’	XsèëþÆ Ç  ^ZY[XÃ€> u"<t¢¡^£f¡`£h¡b£j¡d£lé€ €>uè
€>uè
€>uè
€>uè
<t¢ëÆ ÿ6lÿ6jÿ6hÿ6f¸ P*Pèöœ3ÛëŠ‡*ˆ‡Cƒûuë€¿* ué‰è( èÚýsÆ Ç  ^ZY[XÃIÉtéþþèþ^ZY[XÃPSQW‹Ét(¿ü°.ò®u‹KëK€¿0tø€¿.uKC‰_Y[XÃPSQRV<	w%‹6ƒþu	èÄý^ZY[XÃ0ˆ„ÿèRý^ZY[XÃ<
u	è¤ý^ZY[XÃ<uÇ  è2ýÇ\^ZY[XÃ<uÇ  èýÇ\Æ ^ZY[XÃ<u1ÿ‹6€¼.uöt€>-tÇ\ëÇ\øèÙü^ZY[XÃ‹‹ÙK€¿0séù €¿9véï ‹6Æ„ PP^Pè¡XsèúüÆ Ç  Ç\^ZY[XÃ€> u"<t¢¡^£f¡`£h¡b£j¡d£lé€ €>uè€>uè€>uè"€>uè(<t¢ëÆ ÿ6lÿ6jÿ6hÿ6f¸ P*Pèÿœ3ÛëŠ‡*ˆ‡Cƒûuë€¿* ué‰è1þèãûsÆ Ç  Ç\^ZY[XÃIÉtéòþèü^ZY[XÃPSQRV<	w%‹6ƒþu	èü^ZY[XÃ0ˆ„ÿèû^ZY[XÃ<
u9‹6ƒþu	èÙû^ZY[XÃƒþu
Æ„0FÿÆ„.ÿèYûÇ\6^ZY[XÃ<uÇ  è@ûÇ\^ZY[XÃ<uÇ  è'ûÇ\Æ ^ZY[XÃ<uƒ>uÇ\ÿèþú^ZY[XÃ‹‹ÙK€¿0séù €¿9véï ‹6Æ„ PP^PèÆXsèûÆ Ç  Ç\^ZY[XÃ€> u"<t¢¡^£f¡`£h¡b£j¡d£lé€ €>uè;€>uèA€>uèG€>uèM<t¢ëÆ ÿ6lÿ6jÿ6hÿ6f¸ P*Pè$œ3ÛëŠ‡*ˆ‡Cƒûuë€¿* ué‰èVüèúsÆ Ç  Ç\^ZY[XÃIÉtéòþèBú^ZY[XÃPSQR˜‹Ø3ÉŠ”Š·nŠ—è ZY[XÃR´Š>‘	Í´Š>‘	ÍöÔ€äŠÜ´	Š>‘	Q¹ ÍYZþÂâÖÃ´Íu°ÿÃ´Í= Su°Ã
Àu€ü†u°Ã<0r<9w,0Ã<+u°Ã<-u°Ã<*t<xt<Xu°Ã</u°Ã<=t<u°Ã<.u°
Ã<u°Ã<u°Ã°ÿÃU‹ìƒÄþ´Í<t	<tù‹å]Ãˆ>‘	´Š>‘	Í‰’	‰”	¹  ´Í¾ÆFÿ ÆFþ ´Š>‘	ŠvÿŠVþÍ´Š>‘	Í‰FFþFþ€~þuÝþFÿ€~ÿuÐø‹å]ÃU‹ìƒÄþ¾ÆFÿ ÆFþ ´Š>‘	ŠvÿŠVþÍ‹ŠÜFF´	Š>‘	¹ ÍþFþ€~þuØþFÿ€~ÿuË‹’	´Í‹”	Š>‘	´Í‹å]ÃU‹ìƒÄþ¾§¿£ÆFÿ ÆFþ ´Š>‘	ŠvÿŠVþÍŠF3ÛŠŠŸ¡G´	Š>‘	¹ ÍþFþ€~þuÒþFÿ€~ÿuÅ‹å]ÃPR¸ ºÀÍ3ZXÃPSQR3ÀÍ3¸
 » ¹ º Í3¸ Í3¸ ¹ º  Í3¸ ¹( º˜ Í3ZY[XÃPS¸ »  Í3÷Ã tø[XÃ¸ » Í3÷Ã tø[XÃ¸ » Í3÷Ã tø[XÃù[XÃU‹ìƒÄþSQRè¸ÿs	°ÿZY[‹å]ÃÑéÑéÑéˆNþÑêÑêÑêˆVÿ¹ ‹ÙKŠ‡nŠàþÌ:Fÿt:fÿtëŠ‡ŠàþÈ§”:Fþw:fþv	ŠÃZY[‹å]ÃâÈ°ÿZY[‹å]ÃPR¸ ºÀÍ3ZXÃU‹ìƒÄúSVÇFú  ‹v›Ûã›ÝF›Ùå›Ý~þ‹^þŠßÐïÐïÐï€ç€ã
ß€ût+€ût&€ût!€û
t›ÛãÆEFÆRFÆRFÆ Fù^[‹å]Â ›ÙäP›Ý~þ‹FþžXsÆ-F›Ùà›Ùè›ØÙP›Ý~þ‹FþžXrœÿNú›Ý›ÞÉsß›ÜP›Ý~þ‹FþžXrœÿFú›Ý›Þùsàƒ~ú~-ÆOFÆVFÆEFÆRFÆFFÆLFÆOFÆWFÆ Fù^[‹å]Â ƒ~úð}1ÆUFÆNFÆDFÆEFÆRFÆFFÆLFÆOFÆWFÆ Fù^[‹å]Â ›Ý‹NÉt
›Ý›Þùâö›ÞÁ›Ù~þfþÿóNþ ›Ùnþƒ~ú |Në#›ÙÀ›Ùü›Üé›ß^ü›Ý›ÞÉ‹Fü0ˆFÿNúÿNƒ~ú ×›ÙÀ›Ùü›Üé›ß^ü›Ý›ÞÉ‹Fü0ˆFÆ.Fë4Æ0FÆ.FëÆ0FÿFúƒ~úÿ|ó›ÙÀ›Ùü›Üé›ß^ü›Ý›ÞÉ‹Fü0ˆFë ›ÙÀ›Ùü›Üé›ß^ü›Ý›ÞÉ‹Fü0ˆFÿNƒ~ ÚÆ Fø^[‹å]Â U‹ìƒÄüPSQRWV‹vÆFÿ€<+uFë
€<-uÆFÿÿF€<0r€<9vù^_ZY[X‹å]Â ›Ûã›Ùîë›Ý›ÞÉŠF,0˜‰Fü›ßFü›ÞÁ€<0r€<9vÞ€<.u>F»  ›Ùîë›Ý›ÞÉŠF,0˜‰Fü›ßFü›ÞÁC€<0r€<9vÝë	›Ý›ÞùKÛuó›ÞÁ€~ÿÿu›Ùà‹~›Ýø^_ZY[X‹å]Â ›Ýf›Ü^›ÝfÃ›Ýf›Ü&^›ÝfÃ›Ýf›Ü^›ÝfÃ›Ýf›Ü6^›ÝfÃÝ6–	Ã›Ý&–	Ã     No mouse found - cannot install$No math coprocessor - cannot install$No advanced keyboard - cannot install$Minimum of DOS 3.0 required - cannot install$Cannot chain into Int 2FH - cannot install$CALC87 to install, CALC87 ~ to uninstall$Cannot uninstall - not installed yet$Cannot uninstall - mouse interrupt blocked$Cannot uninstall - multiplex interrupt blocked$Cannot uninstall - DOS idle interrupt blocked$Cannot uninstall - timer interrupt blocked$Cannot uninstall - BIOS keyboard interrupt blocked$Cannot uninstall - video interrupt blocked$Cannot uninstall - keyboard interrupt blocked$CALC87 uninstalled$CALC87 already installed$CALC87 installed$Œ
Ç
Æõ	 Æö	 Æ÷	 èOÛuºÅ´	Í!´LÍ!‰Áè^sºå´	Í!´LÍ!èwsº
´	Í!´LÍ!3Û¸3Í!Ûu´0Í!<sº0´	Í!¸LÍ!¹ À‹ÁQÍ/Y<ÿuûJMu;ø	uþ—u	ÆÀŽÇë4þÅ
íuÕ¹ À‹ÁQÍ/Y
Àuˆ.ô	ëþÅ
íuê€>ô	 uº]´	Í!¸LÍ!€>€  ué½¿ ü3ÉŠ€ °?ò®uºˆ´	Í!¸ LÍ!¿ Š€ °~ò®té‰€>À uº±´	Í!¸LÍ!¸35Í!ŒÀŒÂ;Âuû tºÖ´	Í!¸LÍ!¸/5Í!ŒÀŒÂ;Âuû¼tº´	Í!¸LÍ!¸(5Í!ŒÀŒÂ;Âuû–tº0´	Í!¸LÍ!¸5Í!ŒÀŒÂ;Âuûhtº^´	Í!¸LÍ!¸5Í!ŒÀŒÂ;ÂuûStº‰´	Í!¸LÍ!¸5Í!ŒÀŒÂ;Âuû>tº¼´	Í!¸LÍ!¸	5Í!ŒÀŒÂ;Âuûtºç´	Í!¸LÍ!&¡ 
ŽØ&‹þ	¸	%Í!&¡
ŽØ&‹
¸%Í!&¡
ŽØ&‹
¸%Í!&¡
ŽØ&‹

¸%Í!&¡
ŽØ&‹
¸(%Í!&¡
ŽØ&‹
¸/%Í!&¡
ŽØ&‹
¸3%Í!´IÍ!º´	Í!¸ LÍ!€>À tº(´	Í!¸ LÍ!ŒÈŽØŽÀ¸35Í!‰
ŒÃ‰
º ¸3%Í!¸/5Í!‰
ŒÃ‰
º¼¸/%Í!¸(5Í!‰
ŒÃ‰
º–¸(%Í!¸5Í!‰

ŒÃ‰
ºh¸%Í!¸5Í!‰
ŒÃ‰
ºS¸%Í!¸5Í!‰
ŒÃ‰
º>¸%Í!¸	5Í!‰þ	ŒÃ‰ 
º¸	%Í!ºA´	Í!¡, ŽÀ´IÍ!ºÏÁ±Óê¸ 1Í!P¸35Í!ŒÀÀuÛt3ÀÍ3Àu3Ûë¸ Í3XÃ›ÛãÇÃªU›Ý>Ã€>Ã tùÃ›Ù>Ã¡Ã=tùëøÃ´Ít
2äÍ´Ítö¹ÿÿ¸ÿÍ
ÀtùÃ´ÍƒøÿuøëùÃ!-lh0-·	  ·	  |±}  CH15\SA.COMnôéö                       ˜ .:&u
Àu°ÿ»JM.‹.‹>Ï.ÿ.= u<€þu7Éu3ŽÙRþÂ:JZu%:6„r€ÿuPSU.Š2ÿ´Í][X.Š>Š6„.ÿ.PSQRU.ÿ]ZY[XÏP$<Xu<¸¶t¸Ä£Ã´» ÍÃ<[¸Ät¸˜£Ã<Ju¸ ºO·3ÉÍ´3ÒŠúÍë<0r<9wÃ$_<Ar<ZvÇ˜Ã 3Û¸3Í!Ûu´0Í!<sºj	´	Í!¸LÍ!¹ À‹ÁQÍ/Y<ÿu*ûJMu$;uÆøŽÇ& ¢& ¢&Ç˜ë4þÅ
íuÆ¹ À‹ÁQÍ/Y
Àuˆ.ëþÅ
íuê€> uº>´	Í!¸LÍ!€>€  uéZ¿ ü3ÉŠ€ °?ò®uèçºm´	Í!¸ LÍ!¿ Š€ °~ò®téË €>ø uºD	´	Í!¸LÍ!¸/5Í!ŒÀ&;u&;t»Œè"¸LÍ!¸)5Í!ŒÀ&;u&;t»Uè ¸LÍ!¸5Í!ŒÀ&;u&;t»èÞ¸LÍ!&¡ŽØ&‹¸%Í!&¡ŽØ&‹	¸)%Í!&¡ŽØ&‹¸/%Í!&‹Ã
 ŽÃ´IÍ!» èŒ¸ LÍ!¾ ¬<uëNè‡<ÿtò&Æ ±&Ò&&¬<uë.èg<ÿuæ& ¢¨€t¸2ÛÍ¬<uëèG<ÿtò&¢¢€>ø tèš ¸ LÍ!ŒÈŽØŽÀ¿` ¾ ¹ø ó¤-
 ŽØ£¸/5Í!‰ŒÃ‰º‰¸/%Í!¸)5Í!‰	ŒÃ‰º„‰¸)%Í!¸5Í!‰ŒÃ‰º>‰¸%Í!ŒØŽÀ
 ŽØè »
è¤ ¡, ŽÀ´IÍ!º±Óêê
 ¸ 1Í!¸ 3ÉºO·Í´3ÒŠúÍ»—èq & ±ÒèèZ & èS &Š3Éè, &Š±è" »…èE & è2 &Š3Éè °èC °
è> ÃÉtS»è [±ÒëƒãÐã‹Ÿ‡	è ÃS$»§
×è [ÃŠè CŠ
ÀuöÃS»§	×[ÃPSQRU<	u´· Í€Â€âø´· ë+<t"<t<
t<tP´· Í´	· &Š¹ ÍX´» Í]ZY[XÃ Black  Blue  Border =   Brown 
SA V4.0 (c) Copyright Marcus W. Johnson 1989 - 1993.  All Rights Reserved
Current attribute =   Cyan  Dark Gray SA Installed  Green Another TSR has hooked interrupt 10H - can't uninstall Another TSR has hooked interrupt 29H - can't uninstall Another TSR has hooked interrupt 2FH - can't uninstall  Light Blue  Light Cyan  Light Gray  Light Green  Light Magenta  Light Red  Magenta  Red  on SA Uninstalled  White  Yellow SA cannot be installed - no free mux interrupt$Syntax is SA <code1> <code2>, where <code1> is a hexadecimal attribute code,
as below, and <code2> is the border color
Code	Color		Monochrome
0	Black		Normal
1	Blue		Underline
2	Green		?
3	Cyan		?
4	Red		?
5	Magenta		?
6	Brown		?
7	Light Gray	Reverse
8	Dark Gray	High Intensity
9	Light Blue	High Intensity Underline
A	Light Green	?
B	Light Cyan	?
C	Light Red	?
D	Light Magenta	?
E	Yellow		?
F	White		High Intensity Reverse
To uninstall, syntax is SA ~$SA is not installed - can't uninstall$SA requires DOS 3.0 or later$xùÛÿÃçÏô6/ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ 	ÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0123456789ABCDEF'Û-lh0-['  ['  ô±}  CH19\PROTREAL.ASM>;
; declare which processor to use - should be either .386P or .486P
;
.486P
;
; flat model
;
.MODEL FLAT
;
; 32-bit offsets for data and code addresses in protected mode
;
; because the standard linker cannot resolve 32-bit addresses,
; they're hard-coded here...
;
; This is the address of an IRETD...
;
StandardIntAddress      EQU     12345678H
;
; This is the physical address of the code segment, and is used
; as the base address for CS
;
CS_ADDRESS              EQU     11223344H
;
; This is the physical address of the data segment, and is used
; as the base address for DS
;
DS_ADDRESS              EQU     55667788H
;
; This is the initial stack pointer offset
;
INITIAL_STACK_POINTER   EQU     8000H
;
; This is the offset of the protected mode entry point
;
INITIAL_ADDRESS         EQU     10000H
;
; definition of a selector
;
Selector        RECORD  Index           : 13,   \
                        TableSelect     :  1,   \
                        PrivilegeLevel  :  2
;
; selector field definitions: this goes in the TableSelect field
;
GLOBAL_DESCRIPTOR_TABLE EQU     0
LOCAL_DESCRIPTOR_TABLE  EQU     1
;
; This goes in the PrivilegeLevel field, as well as in equivalent
; fields in other records
;
PRIVILEGE_0     EQU     0
PRIVILEGE_1     EQU     1
PRIVILEGE_2     EQU     2
PRIVILEGE_3     EQU     3
;
; definition of the access byte of a gate
;
GateAccess      RECORD  PresentBit      : 1,    \
                        GatePrivilege   : 2,    \
                        GateType        : 5
;
; definitions for the PresentBit field, also equivalent field in
; other bytes
;
PRESENT         EQU     1
ABSENT          EQU     0
;
; definitions for the GateType field
;
CALL_GATE       EQU     00101y
INTERRUPT_GATE  EQU     01110y
TRAP_GATE       EQU     01111y
;
; structure of an 80386 gate
;
Gate386 STRUCT

        OffsetLowWord   WORD            (?)
        CodeSegment     Selector        <>
        ReservedByte    BYTE            0
        AccessRights    GateAccess      <>
        OffsetHighWord  WORD            (?)

Gate386 ENDS
;
; a segment access byte record
;
SegmentAccess   RECORD  SegPresent              : 1,    \
                        SegmentPrivilege        : 2,    \
                        DescriptorType          : 1,    \
                        SegmentType             : 3,    \
                        Accessed                : 1
;
; this goes in the DescriptorType field
;
SYSTEM_DESCRIPTOR       EQU     0
APPLICATION_DESCRIPTOR  EQU     1
;
; this goes in the SegmentType field
;
__DATA_READONLY                 EQU     000y
__DATA                          EQU     001y
__DATA_EXPAND_DOWN_READONLY     EQU     010y
__DATA_EXPAND_DOWN              EQU     011y
__CODE_EXECUTE_ONLY             EQU     100y
__CODE                          EQU     101y
__CODE_CONFORMING_EXECUTE_ONLY  EQU     110y
__CODE_CONFORMING               EQU     111y
;
; this goes in the Accessed field
;
SEG_ACCESSED            EQU     1
SEG_NOT_ACCESSED        EQU     0
;
; definition for the other record byte in a segment descriptor
;
SegmentByte     RECORD  Granularity     : 1,    \
                        Operation_Size  : 1,    \
                        ClearBits       : 6
;
; this goes in the Granularity field
;
BYTE_GRANULARITY        EQU     0
PAGE_GRANULARITY        EQU     1
;
; this goes in the Operation_Size field
;
SEG16   EQU     0
SEG32   EQU     1
;
; segment descriptor structure
;
SegmentDescriptor       STRUCT

        SegmentLimitLo  WORD            (?)
        BaseAddress1    WORD            (?)
        BaseAddress2    BYTE            (?)
        AccessRights    SegmentAccess   <>
        MiscInfo        SegmentByte     <>
        BaseAddress3    BYTE            (?)

SegmentDescriptor       ENDS
;
; descriptor table structure
;
DescriptorTable STRUCT

        Base    DWORD   ?
        Limit   WORD    ?

DescriptorTable ENDS
;
; selectors for CS and DS
;
CS_SELECTOR     EQU     Selector <1,GLOBAL_DESCRIPTOR_TABLE,PRIVILEGE_0>
DS_SELECTOR     EQU     Selector <2,GLOBAL_DESCRIPTOR_TABLE,PRIVILEGE_0>
;
; CR0 description; includes 80486-specific bits
;
CR0_BITS        RECORD  PG_BIT  :  1, CD_BIT  :  1,
                        NW_BIT  :  1, Rsvd1   : 10,
                        AM_BIT  :  1, Rsvd2   :  1,
                        WP_BIT  :  1, Rsvd3   : 10,
                        NE_BIT  :  1, ET_BIT  :  1,
                        TS_BIT  :  1, EM_BIT  :  1,
                        MP_BIT  :  1, PE_BIT  :  1
;
; Data in real mode used to get to protected mode
;
REALDATA        SEGMENT USE16
;
; Interrupt descriptor table
;
IDT_Table       DB 256 DUP (8 DUP (?))
;
; a standard protected mode interrupt service routine descriptor
;
StandardPMISR   Gate386 <LOWWORD StandardIntAddress,    \
                         <1,GLOBAL_DESCRIPTOR_TABLE,PRIVILEGE_0>,,      \
                         <PRESENT,PRIVILEGE_0,INTERRUPT_GATE>,  \
                         HIGHWORD StandardIntAddress>
;
; the global descriptor table: a null descriptor, a code segment descriptor,
; and a data segment descriptor
;
GDT_Table       DQ      0
                SegmentDescriptor       <0FFFFH,        \
                                        LOWWORD CS_ADDRESS, \
                                        LOW (HIGHWORD CS_ADDRESS), \
                                        <PRESENT,PRIVILEGE_0,APPLICATION_DESCRIPTOR,__CODE_CONFORMING,SEG_NOT_ACCESSED>,        \
                                        <PAGE_GRANULARITY,SEG32,0>,     \
                                        HIGH (HIGHWORD CS_ADDRESS)>
                SegmentDescriptor       <0FFFFH,        \
                                        LOWWORD DS_ADDRESS,     \
                                        LOW (HIGHWORD DS_ADDRESS), \
                                        <PRESENT,PRIVILEGE_0,APPLICATION_DESCRIPTOR,__DATA,SEG_NOT_ACCESSED>,   \
                                        <PAGE_GRANULARITY,SEG32,0>,     \
                                        HIGH (HIGHWORD DS_ADDRESS)>
;
; interrupt and global descriptor table
;
IDT             DescriptorTable <>
GDT             DescriptorTable <>

REALDATA        ENDS
;
; segment for the jump to light speed
;
REALCODE        SEGMENT USE16

JmpProtMode     PROC

                ;
                ; set up interrupt descriptor table:
                ; first, copy the standard descriptor into
                ; the table
                ;
                mov     CX,256
                mov     DI,OFFSET IDT_Table
                cld
                .REPEAT
                        mov     SI,OFFSET StandardPMISR
                        movsd
                        movsd
                .UNTILCXZ
                ;
                ; calculate the physical address of the IDT table
                ;
                mov     AX,DS
                movzx   EAX,AX
                shl     EAX,4
                mov     BX,OFFSET IDT_Table
                movzx   EBX,BX
                add     EAX,EBX
                ;
                ; set up the IDT register
                ;
                mov     IDT.Base,EAX
                mov     IDT.Limit,(256 * 8) - 1
                lidt    FWORD PTR IDT
                ;
                ; calculate the physical address of the GDT table
                ;
                mov     BX,OFFSET GDT_Table
                movzx   EBX,BX
                add     EAX,EBX
                ;
                ; set up the GDT register
                ;
                mov     GDT.Base,EAX
                mov     GDT.Limit,(3 * 8) - 1
                lgdt    FWORD PTR GDT
                ;
                ; make the jump to light speed
                ;
                mov     EAX,CR0
                IF (@Cpu AND 10000y)
                        ;
                        ; enable caching if not already done
                        ;
                        AND     EAX,NOT ((MASK CD_BIT) OR (MASK NW_BIT))
                ENDIF
                or      EAX,NOT MASK PE_BIT
                mov     CR0,EAX
                ;
                ; we're now in protected mode... need to clear the instruction
                ; prefetch cache
                ;
                jmp     $+2
                ;
                ; set up the new segment selectors
                ;
                mov     BX,DS_SELECTOR
                mov     DS,BX
                mov     ES,BX
                mov     FS,BX
                mov     GS,BX
                mov     SS,BX
                ;
                ; set stack pointer
                ;
                mov     ESP,INITIAL_STACK_POINTER
                ;
                ; point to arbitrary spot in RAM
                ;
                xor     ESI,ESI
                ;
                ; get address where we want to go
                ;
                mov     BX,CS_SELECTOR
                mov     ECX,INITIAL_ADDRESS
                mov     [ESI],ECX
                mov     [ESI+4],BX
                ;
                ; set CS and start executing protected mode code
                ;
                jmp     FWORD PTR [ESI]

JmpProtMode     ENDP

REALCODE        ENDS

PROTDATA        SEGMENT

RealIDT         DescriptorTable <>

PROTDATA        ENDS

PROTCODE        SEGMENT USE32
;
; code for re-entering real mode
;
JmpRealMode     PROC

                ;
                ; set up interrupt descriptor table
                ;
                mov     RealIDT.Base,0
                mov     RealIDT.Limit,03FFH
                lidt    RealIDT
                ;
                ; fall back into normal space
                ;
                mov     EAX,CR0
                or      EAX,MASK PE_BIT
                mov     CR0,EAX

JmpRealMode     ENDP

PROTCODE        ENDS

END
$‰-lh0-S  S  Ô}g  CH13\FPTOS.ASMb.MODEL TINY,PASCAL
.286
.287
.DATA

number10        REAL8   10.0
point5          REAL8   0.5
                BYTE    13,10
target          BYTE    50 DUP (?)
testValue       REAL8   ?
inputString     BYTE    128 DUP (?)
prompt          BYTE    13,10,"Enter value: $"
error           BYTE    "Malformed string$"
;
; results of FXAM
;
badNumber       WORD    OFFSET N00
                WORD    OFFSET N01
                WORD    OFFSET N02
                WORD    OFFSET N03
                WORD    OFFSET N04
                WORD    OFFSET N05
                WORD    OFFSET N06
                WORD    OFFSET N07
                WORD    OFFSET N08
                WORD    OFFSET N09
                WORD    OFFSET N0A
                WORD    OFFSET N0B
                WORD    OFFSET N0C
                WORD    OFFSET N0D
                WORD    OFFSET N0E
                WORD    OFFSET N0F
N00             BYTE    "+Unsupported$",0
N01             BYTE    "+NaN$",0
N02             BYTE    "-Unsupported$",0
N03             BYTE    "-NaN$",0
N04             BYTE    "+Normal$",0
N05             BYTE    "+Infinity$",0
N06             BYTE    "-Normal$",0
N07             BYTE    "-Infinity$",0
N08             BYTE    "+0$",0
N09             BYTE    "+Empty$",0
N0A             BYTE    "-0$",0
N0B             BYTE    "-Empoty$",0
N0C             BYTE    "+Denormal$",0
N0D             BYTE    "???$",0
N0E             BYTE    "-Denormal$",0
N0F             BYTE    "???$",0
;
; a macro to convert the NPX status word into flags we can
; use; C0 is translated to the carry flag, C2 to the parity
; flag, and C3 to the zero flag.
;
IFE @CPU AND 00400H
                ;
                ; the NPX is only an 8087 - AX as an
                ; operand of FSTSW is not supported
                ;
FP_STATUS       MACRO
                push    AX
                fstsw   fp_stat
                mov     AX,fp_stat
                sahf
                pop     AX
                ENDM
ELSE
                ;
                ; the NPX is an 80287 or better - AX
                ; is supported as an operand of FSTSW
                ;
FP_STATUS       MACRO
                push    AX
                fstsw   AX
                sahf
                pop     AX
                ENDM
ENDIF
;
; a macro to multiply ST(0) by 10.0
;
MULBY10         MACRO
                fld     number10
                fmul
                ENDM
;
; a macro to divide ST(0) by 10.0
;
DIVBY10         MACRO
                fld     number10
                fdivp   ST(1),ST
                ENDM
;
; a macro to write a character to [SI]
;
WRITE_CHAR      MACRO   Char:REQ
                mov     [SI],Char
                inc     SI
                ENDM
;
; a macro to extract a digit, convert it to an
; ASCII digit, and write it to [SI]
;
EXTRACT_DIGIT   MACRO
                ;
                ; duplicate ST(0)
                ;
                fld     ST
                ;
                ; round the duplicate
                ;
                frndint
                ;
                ; get the 'remainder' in ST(1)
                ;
                fsub    ST(1),ST
                ;
                ; pop the integer into memory
                ;
                fistp   digit
                ;
                ; multiply the remainder by 10
                ;
                MULBY10
                ;
                ; get the digit and convert it and
                ; write it
                ;
                mov     AX,digit
                add     AL,'0'
                WRITE_CHAR AL
                ENDM
.CODE

fp64tos         PROTO   number:REAL8,places:WORD,string:PTR BYTE
Word2ASCII      PROTO   Value:WORD
DivAndPrint     PROTO   Value:WORD,Count:WORD
stofp64         PROTO   string:PTR BYTE,number:PTR REAL8

.STARTUP
                mov     DX,OFFSET prompt
                mov     AH,009H
                int     021H
                mov     inputString,126
                mov     DX,OFFSET inputString
                mov     AH,00AH
                int     021H
                INVOKE  stofp64,ADDR inputString + 2,ADDR testValue
                .IF CARRY?
                        mov     DX,OFFSET error
                .ELSE
                        INVOKE  fp64tos,testValue,9,ADDR target
                        mov     DX,OFFSET target-2
                .ENDIF
                mov     AH,009H
                int     021H
                .EXIT

;
; convert a 64-bit floating point number to an ASCII string in
; scientific notation
;
fp64tos         PROC    number:REAL8,places:WORD,string:PTR BYTE
                LOCAL   fp_stat:WORD
                LOCAL   digit:WORD
                LOCAL   exponent:SWORD

                ;
                ; get string address
                ;
                mov     SI,string
                ;
                ; tell MASM SI is a pointer to bytes
                ;
                ASSUME  SI:PTR BYTE
                ;
                ; initialize the NPX
                ;
                finit
                ;
                ; load the value being converted
                ;
                fld     number
                ;
                ; examine for weird values
                ;
                fxam
                fstsw   fp_stat
                mov     BX,fp_stat
                ;
                ; copy high byte to low
                ;
                mov     BL,BH
                shr     BH,1
                shr     BH,1
                shr     BH,1
                and     BH,008H
                and     BL,007H
                or      BL,BH
                ;
                ; BL now has C3 C2 C1 C0 in low 4 bits
                ;
                .IF (BL != 4) && (BL != 6) && (BL != 8) && (BL != 10)
                        shl     BL,1
                        mov     DI,badNumber[BX]
                        .WHILE BYTE PTR [DI]
                                mov     AL,[DI]
                                inc     DI
                                WRITE_CHAR AL
                        .ENDW
                        ret
                .ENDIF
                ;
                ; is it greater than zero?
                ;
                ftst
                FP_STATUS
                .IF CARRY?
                        ;
                        ; it was not - put a minus in the string
                        ; and change the value's sign
                        ;
                        WRITE_CHAR '-'
                        fchs
                .ELSE
                        ;
                        ; else write a plus
                        ;
                        WRITE_CHAR '+'
                .ENDIF
                ;
                ; start with an exponent of zero
                ;
                mov     exponent,0
                ;
                ; while the number is less than 1, multiply it by
                ; ten and decrement the exponent
                ;
                .REPEAT
                        fld1
                        fcomp
                        FP_STATUS
                        .IF !CARRY?
                                pushf
                                dec     exponent
                                MULBY10
                                popf
                        .ENDIF
                .UNTIL CARRY?
                ;
                ; while the number is greater than or equal to 10,
                ; divide it by 10 and increment the exponent
                ;
                .REPEAT
                        fcom    number10
                        FP_STATUS
                        .IF !CARRY?
                                pushf
                                inc     exponent
                                DIVBY10
                                popf
                        .ENDIF
                .UNTIL CARRY?
                ;
                ; the value is now a number in the range
                ; 1.0 <= number < 10
                ;
                ; apply rounding - add one half to the decimal
                ; place to the right of the last digit we want
                ; to display
                ;
                fld     point5
                mov     CX,places
                .IF CX != 0
                        .REPEAT
                                DIVBY10
                        .UNTILCXZ
                .ENDIF
                ;
                ; apply the rounding
                ;
                fadd
                ;
                ; now set up rounding by chopping
                ;
                fstcw   fp_stat
                and     fp_stat,0F3FFH
                or      fp_stat,00C00H
                fldcw   fp_stat
                ;
                ; extract the first digit
                ;
                EXTRACT_DIGIT
                ;
                ; add the decimal
                ;
                WRITE_CHAR '.'
                ;
                ; extract the decimal digits
                ;
                .WHILE places != 0
                        EXTRACT_DIGIT
                        dec     places
                .ENDW
                ;
                ; place the 'E' for the exponent
                ;
                WRITE_CHAR 'E'
                .IF exponent < 0
                        ;
                        ; a negative exponent
                        ;
                        WRITE_CHAR '-'
                        neg     exponent
                .ELSE
                        ;
                        ; a positive exponent
                        ;
                        WRITE_CHAR '+'
                .ENDIF
                ;
                ; output the exponent
                ;
                INVOKE  Word2ASCII,exponent
                ;
                ; add the DOS '$'
                ;
                WRITE_CHAR '$'
                ;
                ; tell MASM to assume nothing about SI
                ;
                ASSUME  SI:NOTHING
                ;
                ; done!
                ;
                ret
fp64tos         ENDP
;
; output a word as a decimal value
;
Word2ASCII      PROC    Value:WORD

                ;
                ; CX is used for leading-zero suppression
                ; if CX is cleared, leading zero's are not
                ; to be printed
                ;
                xor     CX,CX
                INVOKE  DivAndPrint,Value,5
                ret

Word2ASCII      ENDP
;
; divide a value by 10 recursively and print the digits obtained
;
DivAndPrint     PROC    USES AX BX DX,Value:WORD,Count:WORD

                ;
                ; divide the value by 10
                ;
                xor     DX,DX
                mov     AX,Value
                mov     BX,10
                div     BX
                .IF Count > 1
                        ;
                        ; recurse
                        ;
                        dec     Count
                        INVOKE  DivAndPrint,AX,Count
                .ENDIF
                ;
                ; now print this digit ... maybe
                ;
                .IF DL == 0
                        ;
                        ; digit is zero
                        ;
                        .IF CX == 0
                                ;
                                ; leading zeros still
                                ; suppressed
                                ;
                                .IF Count == 4
                                        ;
                                        ; but this is the last digit
                                        ;
                                        add     DL,'0'
                                        WRITE_CHAR DL
                                .ENDIF
                        .ELSE
                                ;
                                ; ok, print the zero
                                ;
                                add     DL,'0'
                                WRITE_CHAR DL
                        .ENDIF
                .ELSE
                        ;
                        ; set the suppression flag
                        ;
                        inc     CX
                        ;
                        ; print the digit
                        ;
                        add     DL,'0'
                        WRITE_CHAR DL
                .ENDIF
                ;
                ; and done
                ;
                ret

DivAndPrint     ENDP
;
; macro to get a digit from a string and convert it from
; ASCII to binary
;
GET_DIGIT       MACRO
                mov     AL,[SI]
                inc     SI
                sub     AL,'0'
                cbw
                ENDM
;
; convert ASCII string to 64-bit floating point value
; returns carry set on malformed strings
;
stofp64         PROC    string:PTR BYTE,number:PTR REAL8
                LOCAL   sign:BYTE
                LOCAL   exponentSign:BYTE
                LOCAL   digit:WORD
                ;
                ; get pointer to string
                ;
                mov     SI,string
                ASSUME  SI:PTR BYTE
                ;
                ; assume non-negative value
                ;
                mov     sign,1
                .IF [SI] == '+'
                        ;
                        ; skip plus
                        ;
                        inc     SI
                .ELSEIF [SI] == '-'
                        ;
                        ; value is negative; skip minus
                        ;
                        mov     sign,-1
                        inc     SI
                .ENDIF
                ;
                ; next character must be a digit
                ;
                .IF ([SI] < '0') || ([SI] > '9')
                        stc
                        ret
                .ENDIF
                ;
                ; initialize NPX and start with a zero
                ;
                finit
                fldz
                ;
                ; parse digits
                ;
                .WHILE ([SI] >= '0') && ([SI] <= '9')
                        ;
                        ; multiply number by 10
                        ;
                        MULBY10
                        ;
                        ; get new digit, convert to word value
                        ;
                        GET_DIGIT
                        ;
                        ; convert it to float, add it to number
                        ;
                        mov     digit,AX
                        fild    digit
                        fadd
                .ENDW
                ;
                ; got a decimal?
                ;
                .IF [SI] == '.'
                        ;
                        ; skip decimal
                        ;
                        inc     SI
                        ;
                        ; count of decimal places is BX
                        ;
                        mov     BX,0
                        ;
                        ; start with a fraction of 0
                        ;
                        fldz
                        ;
                        ; parse digits
                        ;
                        .WHILE ([SI] >= '0') && ([SI] <= '9')
                                ;
                                ; multiply fraction by 10
                                ;
                                MULBY10
                                ;
                                ; add value
                                ;
                                GET_DIGIT
                                mov     digit,AX
                                fild    digit
                                fadd
                                ;
                                ; increment digit count
                                ;
                                inc     BX
                        .ENDW
                        ;
                        ; now make fraction right size
                        ;
                        .WHILE BX
                                ;
                                ; divide it by 10
                                ;
                                DIVBY10
                                ;
                                ; decrement digit count
                                ;
                                dec     BX
                        .ENDW
                        ;
                        ; add decimal part to whole number
                        ;
                        fadd
                .ENDIF
                ;
                ; got an exponent?
                ;
                .IF ([SI] == 'e') || ([SI] == 'E')
                        ;
                        ; skip 'e'
                        ;
                        inc     SI
                        ;
                        ; exponent is zero
                        ;
                        mov     DX,0
                        ;
                        ; assume non-negative exponent
                        ;
                        mov     exponentSign,1
                        .IF [SI] == '+'
                                ;
                                ; skip plus
                                ;
                                inc     SI
                        .ELSEIF [SI] == '-'
                                ;
                                ; negative exponent, skip minus
                                ;
                                mov     exponentSign,-1
                                inc     SI
                        .ENDIF
                        ;
                        ; better be a digit!
                        ;
                        .IF ([SI] < '0') || ([SI] > '9')
                                stc
                                ret
                        .ENDIF
                        ;
                        ; handle digits
                        ;
                        .WHILE ([SI] >= '0') && ([SI] <= '9')
                                ;
                                ; multiply exponent by 10
                                ;
                                mov     AX,DX
                                shl     AX,1
                                shl     AX,1
                                add     DX,AX
                                ;
                                ; (DX is now multiplied by 5)
                                ;
                                shl     DX,1
                                ;
                                ; get digit and add it to the exponent
                                ;
                                GET_DIGIT
                                add     DX,AX
                        .ENDW
                        ;
                        ; if exponent is negative
                        ;
                        .IF exponentSign == -1
                                ;
                                ; negate exponent
                                ;
                                neg     DX
                                .WHILE DX
                                        ;
                                        ; divide value by 10 until
                                        ; exponent is zero
                                        ;
                                        DIVBY10
                                        inc     DX
                                .ENDW
                        .ELSE
                                ;
                                ; non-negative exponent
                                ;
                                .WHILE DX
                                        ;
                                        ; multiply value by 10
                                        ; until exponent is zero
                                        ;
                                        MULBY10
                                        dec     DX
                                .ENDW
                        .ENDIF
                .ENDIF
                ;
                ; if value is negative, change its sign
                ;
                .IF sign == -1
                        fchs
                .ENDIF
                ASSUME  SI:NOTHING
                ;
                ; get address of number and store value there
                ;
                mov     DI,number
                fstp    REAL8 PTR[DI]
                ;
                ; return happy
                ;
                clc
                ret
stofp64         ENDP

END
$ÿ-lh0-ò	  ò	  ©½l  CH13\MATH2.ASMW….MODEL TINY
;
; program for identifying a math processor
;
SysData	STRUCT

	ControlWord		WORD	?
	StatusWord		WORD	?
	TagWord			WORD	?
	InstructionPointer	WORD	?
	IP_and_opcode		WORD	?
	OperandPointer		WORD	?
	OpEnd			WORD	?

SysData	ENDS
.DATA

scratch		WORD	(?)	; have the math
				; chip store data
				; here
localsys	SysData	<>	; system data
				; stored here

.CODE
.STARTUP

		call	math_ident
		; return to DOS with error level
		mov	AH,04CH
		int	21H
;
; procedure for identifying a math processor
;
; returns	AX = 0000 - no NPX detected
;		AX = 0001 - 8087 detected
;		AX = 0002 - 80287 detected
;		AX = 0003 - 80387 detected
;		AX = 0004 - 80486 detected
;
math_ident	PROC

		;
		; initialize the math coprocessor
		;
		finit
		;
		; write a value to scratch that
		; the NPX won't write
		;
		mov	scratch,055AAh
		;
		; get the (alleged) NPX status word
		;
		fstsw	scratch
		;
		; low byte should be clear - low
		; bits are all exception indicators!
		;
		.IF	(BYTE PTR scratch != 0)
			;
			; return 0 - no NPX
			;
			xor	AX,AX
			ret
		.ENDIF
		;
		; now check to control word
		;
		fstcw	scratch
		mov	ax,scratch
		;
		; check known value
		;
		.IF	(AX != 0037FH)
			;
			; return 0 - no NPX
			;
			xor	AX,AX
			ret
		.ENDIF
		;
		; now we know we have a math coprocessor
		; - which one?
		;
		; attempt to disable interrupts
		;
		fdisi
		;
		; read control word back
		;
		fstcw	scratch
		;
		; if bit got set, it's an 8087
		;
		.IF	(scratch & 00080H)
			;
			; return 1
			;
			mov	AX,1
			ret
		.ENDIF
		;
		; it's not an 8087
		;
		; reinit the chip and divide 1 by 0!
		;
		finit
		fld1
		fldz
		fdiv
		;
		; produce negative infinity from positive
		;
		fld	st
		fchs
		;
		; compare infinities
		;
		fcompp
		;
		; get result
		;
		fstsw	scratch
		mov	ax,scratch
		sahf
		.IF	(ZERO?)
			;
			; they match - 80287
			;
			mov	AX,2
			ret
		.ENDIF
		;
		; it's an 80387 or 80486
		;
		; behavior is different in how ip
		; and operand pointers are treated
		; on execution of FINIT... we've
		; generated an exception; let's do
		; an finit - on an 80486, the
		; instruction and data pointers
		; will be cleared... on an 80387,
		; they'll still be set
		;
		finit
		fstenv	localsys
		.IF	(localsys.InstructionPointer == 0)
			;
			; it's an 80486!
			;
			mov	AX,4
			ret
		.ENDIF
		;
		; else it's an 80387
		;
		mov	ax,3
		ret
math_ident	ENDP

.EXIT
END
&¡-lh0-z  z   @a  CH24\ASMWIND.ASM´;---------------------------------------------------------------
;			   ASMWIND.ASM
;   Demonstrates how you can create a fundamental Windows
;   application using MASM 6.1 and the Microsoft Windows SDK
;---------------------------------------------------------------


		.model	small, pascal, nearstack
		.286

                ?WINPROLOGUE = 1
                NOKERNEL = 1
                NOSOUND = 1
                NOCOMM = 1
                NODRIVERS = 1
		include win.inc     ; Converted from WINDOWS.H


;---------------------------------------------------------------
;		   Prototypes & External Definitions
;---------------------------------------------------------------


WinMain      PROTO PASCAL, hInstance:HANDLE,
			hPrevInstance:HANDLE,
                        lpszCmdLine:LPSTR, nCmdShow:SWORD
WndProc      PROTO FAR PASCAL,	:HWND, :WORD, :SWORD, :SDWORD

extern __astart:proc	; astart contains the required
			; start-up code. astart is obtained
			; from APPENTRY.ASM


;---------------------------------------------------------------
;			  Data Segments
;---------------------------------------------------------------

                .const          

szAppName	SBYTE	"AsmWind",0	; application name
szSysIcon	SBYTE	"WinIcon",0	; icon name

		.data			; used in this example
					; only to indicate
					; position

		.data?			; used in this example
					; only to indicate
					; position


;---------------------------------------------------------------
;			Code Segment
;---------------------------------------------------------------


                .code


;---------------------------------------------------------------
;			  WinMain
;---------------------------------------------------------------
; WinMain is the program's main routine. In this example, if no
; previous instances of the example exist, the window class is
; defined and registered.
;---------------------------------------------------------------

WinMain         PROC,   hInstance:HANDLE,  hPrevInstance:HANDLE,
                        lpszCmdLine:LPSTR, nCmdShow:SWORD
		LOCAL	msg:MSG, wndclass:WNDCLASS

		; Local variables:
		;      msg: message used with the message loop
		;      wndclass: stores window class


                .IF (hPrevInstance == 0)


;----------------------define the window class -----------------


		lea	di, wndclass
		ASSUME	di:PTR WNDCLASS ; ss=ds

		mov  ax, CS_HREDRAW OR CS_VREDRAW
		mov	   [di].style, ax
		mov  WORD PTR [di].lpfnWndProc, LROFFSET WndProc
		mov  WORD PTR [di].lpfnWndProc+2, SEG WndProc
		xor  ax,ax
		mov  [di].cbClsExtra, ax
		mov  [di].cbWndExtra, ax

		INVOKE LoadIcon, hInstance,
					 ADDR szSysIcon
		mov  [di].hIcon, ax	; null icon

		mov  ax, hInstance
		mov  [di].hInstance, ax

		INVOKE	LoadCursor, NULL, IDC_ARROW
		mov  [di].hCursor, ax

		INVOKE	GetStockObject, WHITE_BRUSH
		mov  [di].hbrBackground, ax

		xor   ax, ax
		mov   WORD PTR [di].lpszMenuName, ax
		mov   WORD PTR [di].lpszMenuName+2,ax

		mov WORD PTR [di].lpszClassName,OFFSET szAppName
		mov   WORD PTR [di].lpszClassName+2, ds

		INVOKE	RegisterClass, di
                        .IF (ax == 0)
                                mov     ax, FALSE
                                jmp     doRet
                        .ENDIF

                        ASSUME  di:NOTHING        

		.ENDIF	   ; End of IF (hPrevInstance == 0)


;---------------------------create the window------------------


		INVOKE	CreateWindowEx, WS_EX_TOPMOST,
			    ADDR szAppName,
			    ADDR szAppName,
			    WS_OVERLAPPEDWINDOW,
			    CW_USEDEFAULT,
			    0,
			    CW_USEDEFAULT,
			    0,
			    NULL,
			    NULL,
			    hInstance,
			    NULL
		mov	si, ax		; keep hWnd in SI,
					; since SI doesn't
					; change after
					; function calls

                INVOKE  ShowWindow,    si, SW_SHOWNOACTIVATE
                INVOKE  UpdateWindow,  si


;---------------define and start the message loop---------------


                .WHILE TRUE

			INVOKE	GetMessage, ADDR msg, NULL, 0, 0

                        .BREAK .IF (ax == 0)

                        INVOKE  TranslateMessage, ADDR msg
                        INVOKE  DispatchMessage,  ADDR msg

                .ENDW


;------------------------return to Windows----------------------


                mov     ax, msg.wParam
doRet:
                ret

WinMain         ENDP


;---------------------------------------------------------------
;			   WndProc
;---------------------------------------------------------------
; WndProc is the application's window procedure. The window
; procedure is called by Windows through WinMain's dispatch
; message loop. Messages that are handled by the application
; must be defined in this procedure. All messages not handled
; by this procedure must be passed to DefWindowProc.
;---------------------------------------------------------------


WndProc 	PROC FAR PASCAL, hWnd:HWND, iMessage:WORD,
				 wParam:SWORD,
                                 lParam:SDWORD
		; hWnd is the window handle
		; iMessage is the message ID
		; wParam and lParam are message parameters

		.IF (iMessage == WM_DESTROY)
                        INVOKE  KillTimer, hWnd, 1
                        INVOKE  PostQuitMessage, 0

                .ELSE
			INVOKE	DefWindowProc, hWnd, iMessage,
				      wParam,lParam
			jmp	   doRet

                .ENDIF

                mov ax, 0
                cwd
doRet:
                ret

WndProc         ENDP


		END  __astart

		; so that the code of the application will
		; start with the Windows start-up code
&•-lh0-Ñ   Ñ    @a  CH24\ASMWIND.DEFóZNAME	     ASMWIND

EXETYPE      WINDOWS 3.1

STUB	     'WINSTUB.EXE'

CODE	     PRELOAD MOVEABLE
DATA	     PRELOAD MOVEABLE MULTIPLE

HEAPSIZE     1024
STACKSIZE    5120

EXPORTS
   WndProc   @1
&à-lh0-þ  þ   @a  CH24\ASMWIND.ICO\Ò           è     (       @         €                        ¿  ¿   ¿¿ ¿   ¿ ¿ ¿¿  ÀÀÀ €€€   ÿ  ÿ   ÿÿ ÿ   ÿ ÿ ÿÿ  ÿÿÿ                 ÌÌÌÌÌÌÌÌÌÌÌÌÌÌÀÌÌÌÌÌÌÌÌÌÌÌÌÌÌÀÀ            ÀÀwwwwwwwwwwwwÀÀwwwwwwwwwwwwÀÀwwwwwwwwwwwwÀÀw—y—yw™w—y—wÀÀw——yyyw———ywÀÀw——yyyw———ywÀÀw——yyyw———ywÀÀw—y—yw™w—y—wÀÀwwwwwwwwwwwwÀÀwy—yw™w—y—ywÀÀw—yyyw———yywÀÀw—yyyw———yywÀÀw—yyyw———yywÀÀwy—yw™w—y—ywÀÀwwwwwwwwwwwwÀÀw—y—yw™w—y—wÀÀw——yyyw———ywÀÀw——yyyw———ywÀÀw——yyyw———ywÀÀw—y—yw™w—y—wÀÀwwwwwwwwwwwwÀÀwwwwwwwwwwwwÀÀwwwwwwwwwwwwÀÀwwwwwwwwwwwwÀÀ            ÀÌÌÌÌÌÌÌÌÌÌÌÌÌÌÀÌÌÌÌÌÌÌÌÌÌÌÌÌÌÀ                                                                                                                                                &í-lh0-Ú  Ú   @a  CH24\ASMWIND.MAKþ{ORIGIN = PWB
ORIGIN_VER = 2.1.49
PROJ = ASMWIND
PROJFILE = ASMWIND.MAK
DEBUG = 1

CC  = cl
CFLAGS_G  = /G2 /W2 /GA /GEf /Zp /BATCH
CFLAGS_D  = /f /Zi /Od /Gs
CFLAGS_R  = /f- /Oe /Og /Os /Gs
CXX  = cl
CXXFLAGS_G  = /G2 /W2 /GA /GEf /Zp /BATCH
CXXFLAGS_D  = /f /Zi /Od /Gs
CXXFLAGS_R  = /f- /Oe /Og /Os /Gs
ASM  = ml
AFLAGS_G  = /W2 /DMODEL=small
AFLAGS_D  = /Zi
AFLAGS_R  = /nologo
MAPFILE_D  = NUL
MAPFILE_R  = NUL
LFLAGS_G  = /BATCH /ONERROR:NOEXE
LFLAGS_D  = /CO /NOF
LFLAGS_R  = /NOF
LLIBS_G  = LIBW.LIB
LINKER	= link
ILINK  = ilink
LRF  = echo > NUL
ILFLAGS  = /a /e
RC  = rc

FILES  = ..\..\LIB\APPENTRY.ASM ASMWIND.ASM ASMWIND.DEF ASMWIND.RC
DEF_FILE  = ASMWIND.DEF
OBJS  = ..\..\LIB\APPENTRY.obj ASMWIND.obj
RESS  = ASMWIND.res

all: $(PROJ).exe

.SUFFIXES:
.SUFFIXES: .obj .res .asm .rc
.SUFFIXES: .obj .res .asm .rc

..\..\LIB\APPENTRY.obj : ..\..\LIB\APPENTRY.ASM
!IF $(DEBUG)
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_D) /Fo..\..\LIB\APPENTRY.obj ..\..\LIB\APPENTRY.ASM
!ELSE
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_R) /Fo..\..\LIB\APPENTRY.obj ..\..\LIB\APPENTRY.ASM
!ENDIF

ASMWIND.obj : ASMWIND.ASM D:\MASM61\INCLUDE\win.inc\
	D:\MASM61\INCLUDE\prologue.inc
!IF $(DEBUG)
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_D) /FoASMWIND.obj ASMWIND.ASM
!ELSE
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_R) /FoASMWIND.obj ASMWIND.ASM
!ENDIF

ASMWIND.res : ASMWIND.RC asmwind.ico
	$(RC) $(RCFLAGS1) /r /fo ASMWIND.res ASMWIND.RC


$(PROJ).exe : $(DEF_FILE) $(OBJS) $(RESS)
!IF $(DEBUG)
	$(LRF) @<<$(PROJ).lrf
$(RT_OBJS: = +^
) $(OBJS: = +^
)
$@
$(MAPFILE_D)
$(LIBS: = +^
) +
$(LLIBS_G: = +^
) +
$(LLIBS_D: = +^
)
$(DEF_FILE) $(LFLAGS_G) $(LFLAGS_D);
<<
!ELSE
	$(LRF) @<<$(PROJ).lrf
$(RT_OBJS: = +^
) $(OBJS: = +^
)
$@
$(MAPFILE_R)
$(LIBS: = +^
) +
$(LLIBS_G: = +^
) +
$(LLIBS_R: = +^
)
$(DEF_FILE) $(LFLAGS_G) $(LFLAGS_R);
<<
!ENDIF
	$(LINKER) @$(PROJ).lrf
	$(RC) $(RCFLAGS2) $(RESS) $@


.asm.obj :
!IF $(DEBUG)
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_D) /Fo$@ $<
!ELSE
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_R) /Fo$@ $<
!ENDIF

.rc.res :
	$(RC) $(RCFLAGS1) /r /fo $@ $<


run: $(PROJ).exe
	WX $(WXFLAGS) $(PROJ).exe $(RUNFLAGS)

debug: $(PROJ).exe
	WX /p $(WXFLAGS) CVW $(CVFLAGS) $(PROJ).exe $(RUNFLAGS)
%q-lh0-       @a  CH24\ASMWIND.RCaqWinIcon ICON asmwind.ico
%~-lh0-+  +   @a  CH24\CASMPROG.CAa#include "windows.h"           
#include "casmprog.h"      

HANDLE hInst;      
  
extern int Power2(int factor, int power);

int PASCAL WinMain(hInstance, hPrevInstance, lpCmdLine, nCmdShow)
HANDLE hInstance;              
HANDLE hPrevInstance;          
LPSTR lpCmdLine;             
int nCmdShow;                 
{
    MSG msg;                   

    if (!hPrevInstance)       
    if (!InitApplication(hInstance))
        return (FALSE);     

    if (!InitInstance(hInstance, nCmdShow))
        return (FALSE);

    while (GetMessage(&msg, NULL, NULL, NULL))     
    {
    TranslateMessage(&msg);   
    DispatchMessage(&msg);     
    }
    return (msg.wParam);      
}


BOOL InitApplication(hInstance)
HANDLE hInstance;                 
{
    WNDCLASS  wc;

    wc.style = NULL;                                     
    wc.lpfnWndProc = MainWndProc;     
                                      
    wc.cbClsExtra = 0;                
    wc.cbWndExtra = 0;                
    wc.hInstance = hInstance;         
    wc.hIcon = LoadIcon(NULL, IDI_APPLICATION);
    wc.hCursor = LoadCursor(NULL, IDC_ARROW);
    wc.hbrBackground = GetStockObject(WHITE_BRUSH);
    wc.lpszMenuName =  "MainMenu";   
    wc.lpszClassName = "MainWClass";

    return (RegisterClass(&wc));

}


BOOL InitInstance(hInstance, nCmdShow)
    HANDLE          hInstance;          
    int             nCmdShow;           
{
    HWND            hWnd;              

    hInst = hInstance;

    hWnd = CreateWindow(
        "MainWClass",                    
        "C/Assembly Windows Application",     
        WS_OVERLAPPEDWINDOW,            
        CW_USEDEFAULT,                  
        CW_USEDEFAULT,                
        CW_USEDEFAULT,                
        CW_USEDEFAULT,                 
        NULL,                         
        NULL,                         
        hInstance,                   
        NULL                          
    );

    if (!hWnd)
        return (FALSE);

    ShowWindow(hWnd, nCmdShow);  
    UpdateWindow(hWnd);   
    return (TRUE);              

}

long CALLBACK __export MainWndProc(hWnd, message, wParam, lParam)
HWND hWnd;                     
UINT message;                  
WPARAM wParam;                 
LPARAM lParam;                 
{

HDC hDC;                                  
PAINTSTRUCT PtStr;
int result;
char buffer[50];                     
int length;

    switch (message)
    {
    	case WM_PAINT:
    	                                     
    	    hDC = BeginPaint(hWnd,&PtStr);                                 
    	    
    	    result = Power2(3,5);
    	    length = wsprintf(buffer,"3 * 2^5 = %d",result);
    	    TextOut(hDC,50,50,buffer,length);
    	    
    	    result = Power2(5,3);
    	    length = wsprintf(buffer,"5 * 2^3 = %d",result);
    	    TextOut(hDC,50,75,buffer,length);
    	    
    	    result = Power2(2,6);
    	    length = wsprintf(buffer,"2 * 2^6 = %d",result);
    	    TextOut(hDC,50,100,buffer,length);
    	    
    	    result = Power2(3,2);
    	    length = wsprintf(buffer,"3 * 2^2 = %d",result);
    	    TextOut(hDC,50,125,buffer,length);
    	    
    	    result = Power2(4,4);
    	    length = wsprintf(buffer,"4 * 2^4 = %d",result);
    	    TextOut(hDC,50,150,buffer,length);
    	    
    	    EndPaint(hWnd,&PtStr);
    	    return 0;
    	
        case WM_COMMAND:       
            if (wParam == IDM_ABOUT)
            {

                DialogBox(hInst,       
                    "AboutBox",        
                    hWnd,              
                    About);            

                break;
            }
            else                       
                return (DefWindowProc(hWnd, message, wParam, lParam));

        case WM_DESTROY:         
            PostQuitMessage(0);
            break;

        default:                
            return (DefWindowProc(hWnd, message, wParam, lParam));
    }
    return (NULL);
}


BOOL __export CALLBACK About(hDlg, message, wParam, lParam)
HWND hDlg;             
unsigned message;       
WORD wParam;          
LONG lParam;
{
    switch (message)
    {
        case WM_INITDIALOG:           
            return (TRUE);

        case WM_COMMAND:              
            if (wParam == IDOK         
                || wParam == IDCANCEL) 
            {
                EndDialog(hDlg, TRUE); 
                return (TRUE);
            }
            break;
    }
    return (FALSE);              
}'-lh0-     @a  CH24\CASMPROG.DEF9ÄNAME	     CASMPROG	   

DESCRIPTION  'C/Assembly Windows Application'

EXETYPE      WINDOWS	  

STUB	     'WINSTUB.EXE' 

CODE  PRELOAD MOVEABLE DISCARDABLE

DATA  PRELOAD MOVEABLE MULTIPLE

HEAPSIZE     1024

EXPORTS
	MainWndProc   @1  
	About	      @2  
%--lh0-     @a  CH24\CASMPROG.HèÐ#include "resource.h"

int PASCAL WinMain(HANDLE, HANDLE, LPSTR, int);
BOOL InitApplication(HANDLE);
BOOL InitInstance(HANDLE, int);
long CALLBACK __export MainWndProc(HWND, UINT, WPARAM, LPARAM);
BOOL __export CALLBACK About(HWND, unsigned, WORD, LONG);
'ä-lh0-¦  ¦   @a  CH24\CASMPROG.MAK>P# Microsoft Visual C++ generated build script - Do not modify

PROJ = CASMPROG
DEBUG = 1
PROGTYPE = 0
CALLER = 
ARGS = 
DLLS = 
D_RCDEFINES = 
R_RCDEFINES = 
ORIGIN = MSVC
ORIGIN_VER = 1.00
PROJPATH = D:\MASM61\SAMPLES\CASMPROG\
USEMFC = 0
CC = cl
CPP = cl
CXX = cl
CCREATEPCHFLAG = 
CPPCREATEPCHFLAG = 
CUSEPCHFLAG = 
CPPUSEPCHFLAG = 
FIRSTC = GENERIC.C   
FIRSTCPP =             
RC = rc
CFLAGS_D_WEXE = /nologo /YX /G2 /Zp1 /W3 /AS /Od /D "_DEBUG" /FR /GA /Zi
CFLAGS_R_WEXE = /nologo /YX /G2 /Zp1 /W3 /AS /Ox /D "NDEBUG" /FR /GA /Gs
LFLAGS_D_WEXE = /NOLOGO /NOD /STACK:5120 /ALIGN:16 /ONERROR:NOEXE /CO 
LFLAGS_R_WEXE = /NOLOGO /NOD /STACK:5120 /ALIGN:16 /ONERROR:NOEXE 
LIBS_D_WEXE = oldnames libw commdlg shell olecli olesvr slibcew LIBW 
LIBS_R_WEXE = oldnames libw commdlg shell olecli olesvr slibcew LIBW 
RCFLAGS = /NOLOGO  
RESFLAGS = /NOLOGO  -t
RUNFLAGS = 
DEFFILE = CASMPROG.DEF
OBJS_EXT = POWER2.OBJ 
LIBS_EXT = 
!if "$(DEBUG)" == "1"
CFLAGS = $(CFLAGS_D_WEXE)
LFLAGS = $(LFLAGS_D_WEXE)
LIBS = $(LIBS_D_WEXE)
MAPFILE = nul
RCDEFINES = $(D_RCDEFINES)
!else
CFLAGS = $(CFLAGS_R_WEXE)
LFLAGS = $(LFLAGS_R_WEXE)
LIBS = $(LIBS_R_WEXE)
MAPFILE = nul
RCDEFINES = $(R_RCDEFINES)
!endif
!if [if exist MSVC.BND del MSVC.BND]
!endif
SBRS = CASMPROG.SBR


POWER2_DEP = 

CASMPROG_DEP = d:\masm61\samples\casmprog\casmprog.h \
	d:\masm61\samples\casmprog\resource.h


CASMPROG_RCDEP = d:\masm61\samples\casmprog\resource.h


all:	$(PROJ).EXE $(PROJ).BSC

CASMPROG.OBJ:	CASMPROG.C $(CASMPROG_DEP)
	$(CC) $(CFLAGS) $(CUSEPCHFLAG) /c CASMPROG.C

CASMPROG.RES:	CASMPROG.RC $(CASMPROG_RCDEP)
	$(RC) $(RCFLAGS) $(RCDEFINES) -r CASMPROG.RC


$(PROJ).EXE::	CASMPROG.RES

$(PROJ).EXE::	CASMPROG.OBJ $(OBJS_EXT) $(DEFFILE)
	echo >NUL @<<$(PROJ).CRF
CASMPROG.OBJ +
$(OBJS_EXT)
$(PROJ).EXE
$(MAPFILE)
d:\msvc\lib\+
d:\msvc\mfc\lib\+
$(LIBS)
$(DEFFILE);
<<
	link $(LFLAGS) @$(PROJ).CRF
	$(RC) $(RESFLAGS) CASMPROG.RES $@
	@copy $(PROJ).CRF MSVC.BND

$(PROJ).EXE::	CASMPROG.RES
	if not exist MSVC.BND 	$(RC) $(RESFLAGS) CASMPROG.RES $@

run: $(PROJ).EXE
	$(PROJ) $(RUNFLAGS)


$(PROJ).BSC: $(SBRS)
	bscmake @<<
/o$@ $(SBRS)
<<
&$-lh0-ô  ô   @a  CH24\CASMPROG.RCÓ®#include "resource.h"

#define APSTUDIO_READONLY_SYMBOLS

#define APSTUDIO_HIDDEN_SYMBOLS
#include "windows.h"
#undef APSTUDIO_HIDDEN_SYMBOLS

#undef APSTUDIO_READONLY_SYMBOLS


MAINMENU MENU DISCARDABLE 
BEGIN
    POPUP "&Help"
    BEGIN
        MENUITEM "&About CASMPROG...",           IDM_ABOUT
    END
END


ABOUTBOX DIALOG DISCARDABLE  22, 17, 144, 75
STYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU
CAPTION "About CASMPROG"
BEGIN
    CTEXT           "Windows C/ASM",-1,0,5,144,8
    CTEXT           "Sample Application",-1,0,14,144,8
    DEFPUSHBUTTON   "OK",IDOK,53,59,32,14,WS_GROUP
END

#ifdef APSTUDIO_INVOKED


1 TEXTINCLUDE DISCARDABLE 
BEGIN
    "resource.h\0"
END

2 TEXTINCLUDE DISCARDABLE 
BEGIN
    "#define APSTUDIO_HIDDEN_SYMBOLS\r\n"
    "#include ""windows.h""\r\n"
    "#undef APSTUDIO_HIDDEN_SYMBOLS\r\n"
    "\0"
END

3 TEXTINCLUDE DISCARDABLE 
BEGIN
    "\r\n"
    "\0"
END


#endif    

#ifndef APSTUDIO_INVOKED


#endif   

"¥-lh0-¸  ¸   @a  CH24\DLL.INC!š;--DLL.INC - Include file for example DLL-----------------------

;--Prolog and epilog for DLL exported far functions-------------

Prolog	MACRO
	mov	ax, ds	; Must be 1st, since Windows overwrites
	nop		; Placeholder for 3rd byte
	inc	bp	; Push odd BP.	Not required, but
	push	bp	;   allows CodeView to recognize stack
	mov	bp, sp	; Set up stack frame to access params
	push	ds	; Save DS
	mov	ds, ax	; Point DS to DLL's data segment
	ENDM

Epilog	MACRO
	pop	ds	; Recover original DS
	pop	bp	;   and BP+1
	dec	bp	; Reset to original BP
	ENDM

;--Exported routines here---------------------------------------

;--Structures here----------------------------------------------
'˜-lh0-R  R   @a  CH24\DLLTEMPL.ASMÉ;------------------------ DLLTEMPL.ASM--------------------------
;

.MODEL	medium, pascal, farstack
.286

INCLUDE dll.inc
INCLUDE	win.inc

.DATA

;--------------------DLL Data Specified Here--------------------

.CODE

LibMain		PROC	FAR PASCAL

;-------------LibMain Specific Instructions Here----------------

LibMain		ENDP

;---------- Internal (non-exported) Routines Here---------------


;---------------Exported Library Routines Here------------------

OPTION	PROLOGUE:None		; Disable automatic prolog/epilog
OPTION	EPILOGUE:None		; generation for DLL routines


;----WEP is placed in its own code segment and defined----------
;----as PRELOAD FIXED in the SYSINFO.DEF------------------------
;----module-definition file-------------------------------------

CODE2	SEGMENT WORD 'CODE'
	ASSUME	cs:CODE2

;---WEP-Windows Exit Procedure is called by Windows-------------
;---before unloading--------------------------------------------
;---------------------------------------------------------------
;--Entry:-------wExitCode = 0 if unloading SYSINFO--------------
;-------------------------= 1 if Windows shutting down----------
;--Return:------AX--------= 1 to signal okay--------------------

WEP		PROC	FAR EXPORT

		Prolog
		mov	ax, TRUE		; Return AX = 1
		Epilog
		ret

WEP		ENDP

CODE2	ENDS

END
'Ê-lh0-     @a  CH24\DLLTEMPL.DEFâÆ;--DLLTEMPL.DEF - Module definition file for DLLTEMPL.DLL-------

LIBRARY		DLLTEMPL
DESCRIPTION	'Assembly-language DLL Template'
EXETYPE		WINDOWS
CODE		PRELOAD MOVEABLE DISCARDABLE
DATA		PRELOAD MOVEABLE SINGLE
SEGMENTS CODE2	PRELOAD	FIXED
EXPORTS		WEP		@1	RESIDENTNAME
'ˆ-lh0--  -   @a  CH24\DLLTEMPL.MAK:èORIGIN = PWB
ORIGIN_VER = 2.1.49
PROJ = DLLTEMPL
PROJFILE = DLLTEMPL.MAK
DEBUG = 1

CC  = cl
CFLAGS_G  = /W2 /ASw /GD /Zp /BATCH /DWINVER=0x0300
CFLAGS_D  = /f /Zi /Od /Gs
CFLAGS_R  = /f- /Oe /Og /Os /Gs
CXX  = cl
CXXFLAGS_G  = /W2 /ASw /GD /Zp /BATCH /DWINVER=0x0300
CXXFLAGS_D  = /f /Zi /Od /Gs
CXXFLAGS_R  = /f- /Oe /Og /Os /Gs
ASM  = ml
AFLAGS_G  = /Cx /W2
AFLAGS_D  = /Zi
AFLAGS_R  = /nologo
MAPFILE_D  = NUL
MAPFILE_R  = NUL
LFLAGS_G  = /BATCH /ONERROR:NOEXE
LFLAGS_D  = /CO /NOF
LFLAGS_R  = /NOF
LLIBS_G  = LIBW.LIB
LINKER	= link
ILINK  = ilink
LRF  = echo > NUL
ILFLAGS  = /a /e
RC  = rc
IMPLIB	= implib
RCFLAGS2  = /30

FILES  = ..\..\LIB\DLLENTRY.ASM DLLTEMPL.ASM DLLTEMPL.DEF
DEF_FILE  = DLLTEMPL.DEF
OBJS  = ..\..\LIB\DLLENTRY.obj DLLTEMPL.obj

all: $(PROJ).dll

.SUFFIXES:
.SUFFIXES: .obj .asm
.SUFFIXES: .obj .asm

..\..\LIB\DLLENTRY.obj : ..\..\LIB\DLLENTRY.ASM D:\MASM61\INCLUDE\WIN.INC\
	D:\MASM61\INCLUDE\prologue.inc
!IF $(DEBUG)
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_D) /Fo..\..\LIB\DLLENTRY.obj ..\..\LIB\DLLENTRY.ASM
!ELSE
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_R) /Fo..\..\LIB\DLLENTRY.obj ..\..\LIB\DLLENTRY.ASM
!ENDIF

DLLTEMPL.obj : DLLTEMPL.ASM dll.inc D:\MASM61\INCLUDE\WIN.INC\
	D:\MASM61\INCLUDE\prologue.inc
!IF $(DEBUG)
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_D) /FoDLLTEMPL.obj DLLTEMPL.ASM
!ELSE
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_R) /FoDLLTEMPL.obj DLLTEMPL.ASM
!ENDIF


$(PROJ).dll : $(DEF_FILE) $(OBJS)
!IF $(DEBUG)
	$(LRF) @<<$(PROJ).lrf
$(RT_OBJS: = +^
) $(OBJS: = +^
)
$@
$(MAPFILE_D)
$(LIBS: = +^
) +
$(LLIBS_G: = +^
) +
$(LLIBS_D: = +^
)
$(DEF_FILE) $(LFLAGS_G) $(LFLAGS_D);
<<
!ELSE
	$(LRF) @<<$(PROJ).lrf
$(RT_OBJS: = +^
) $(OBJS: = +^
)
$@
$(MAPFILE_R)
$(LIBS: = +^
) +
$(LLIBS_G: = +^
) +
$(LLIBS_R: = +^
)
$(DEF_FILE) $(LFLAGS_G) $(LFLAGS_R);
<<
!ENDIF
	$(LINKER) @$(PROJ).lrf
	$(IMPLIB) $*.lib $@


.asm.obj :
!IF $(DEBUG)
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_D) /Fo$@ $<
!ELSE
	$(ASM) /c $(AFLAGS_G) $(AFLAGS_R) /Fo$@ $<
!ENDIF


run: $(PROJ).dll

debug: $(PROJ).dll
%Ñ-lh0-       @a  CH24\POWER2.ASM›‘;  Assemble with ML /c POWER2.ASM

        .MODEL  small, c

Power2  PROTO C factor:SWORD, power:SWORD
        .CODE

Power2  PROC  C factor:SWORD, power:SWORD
        mov     ax, factor    ; Load Arg1 into AX
        mov     cx, power     ; Load Arg2 into CX
        shl     ax, cl        ; AX = AX * (2 to power of CX)
                              ; Leave return value in AX
	ret
Power2  ENDP
	END
%C-lh0-ä   ä    @a  CH24\RESOURCE.Hÿ	
#define IDM_ABOUT                       100
#define _APS_NEXT_COMMAND_VALUE         101
#define _APS_NEXT_SYMED_VALUE           101
#define _APS_NEXT_RESOURCE_VALUE        102
#define _APS_NEXT_CONTROL_VALUE         1000
'-lh0-™L  ™L  Ù±s  INCLUDE\MOUSE.INCy,;;------------------------------------------------------------
;;Interrupt 33H Function 000H INITIALIZE MOUSE DRIVER
;;What it does:
;;Initializes the mouse driver software and resets the mouse
;;hardware.
MOUSE_INIT_DRIVER MACRO
          MOV  AX,00000H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 001H SHOW MOUSE CURSOR
;;What it does:
;;Causes the mouse cursor to appear on the display.
MOUSE_SHOW_CURSOR MACRO
          MOV  AX,00001H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 002H HIDE MOUSE CURSOR
;;What it does:
;;Causes the mouse cursor to disappear from the display.
MOUSE_HIDE_CURSOR MACRO
          MOV  AX,00002H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 003H GET MOUSE COORDINATES
;;What it does:
;;Gets the current mouse coordinates and button status.
MOUSE_GET_COORDS MACRO
          MOV  AX,00003H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 004H SET MOUSE COORDINATES
;;What it does:
;;Sets new mouse coordinates.
MOUSE_SET_COORDS MACRO HORZ,VERT
          MOV  AX,00004H
          MOV  CX,HORZ
          MOV  DX,VERT
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 005H GET BUTTON PRESS STATUS
;;What it does:
;;Gets information about the specified button and how often it
;;was pressed and where.
MOUSE_GET_BUTTON_PRESS_STATUS MACRO BUTTON
          MOV  AX,00005H
          MOV  BX,BUTTON
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 006H GET BUTTON RELEASE STATUS
;;What it does:
;;Gets information about the specified button and how often it
;;was released and where.
MOUSE_GET_BUTTON_RELEASE_STATUS MACRO BUTTON
          MOV  AX,00006H
          MOV  BX,BUTTON
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 007H SET MOUSE HORIZONTAL LIMITS
;;What it does:
;;Sets horizontal (left and right) limits for the mouse.
MOUSE_SET_HORZ_LIMITS MACRO LEFT_LIMIT,RIGHT_LIMIT
          MOV  AX,00007H
          MOV  CX,LEFT_LIMIT
          MOV  DX,RIGHT_LIMIT
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 008H SET MOUSE VERTICAL LIMITS
;;What it does:
;;Sets vertical (up and down) limits for the mouse.
MOUSE_SET_VERT_LIMITS MACRO UPPER_LIMIT,LOWER_LIMIT
          MOV  AX,00008H
          MOV  CX,UPPER_LIMIT
          MOV  DX,LOWER_LIMIT
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 009H SET MOUSE GRAPHICS CURSOR SHAPE
;;What it does:
;;Sets the cursor shape for graphics modes.
MOUSE_SET_GRAPH_CURSOR_SHAPE MACRO HORZ_HOT,VERT_HOT,MASKS
          MOV  AX,00009H
          MOV  BX,HORZ_HOT
          MOV  CX,VERT_HOT
          LES  DX,MASKS
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 00AH SET MOUSE TEXT CURSOR TYPE
;;What it does:
;;Sets up either a hardware cursor or an attribute (color)
;;cursor.
MOUSE_SET_HW_TEXT_CURSOR MACRO START_LINE,END_LINE
          MOV  AX,0000AH
          MOV  BX,000001
          MOV  CX,START_LINE
          MOV  DX,END_LINE
          INT  33H
          ENDM
MOUSE_SET_SW_TEXT_CURSOR MACRO SCREEN_MASK,CURSOR_MASK
          MOV  AX,0000AH
          MOV  BX,00000H
          MOV  CX,SCREEN_MASK
          MOV  DX,CURSOR_MASK
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 00BH READ MOTION COUNTERS
;;What it does:
;;Determines how much the mouse has moved since the last call to
;;this function.
MOUSE_READ_MOTION_COUNTERS MACRO
          MOV  AX,0000BH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 00CH SET EVENT HANDLER
;;What it does:
;;Sets a user-defined event handler for a mouse event.
MOUSE_SET_EVENT_HANDLER MACRO CALL_MASK,EVENT_HANDLER
          MOV  AX,0000CH
          MOV  CX,CALL_MASK
          LES  DX,EVENT_HANDLER
          INT  33H
          ENDM
CENTER_BUTTON_RELEASE EQU 00040H
CENTER_BUTTON_PRESS   EQU 00020H
RIGHT_BUTTON_RELEASE  EQU 00010H
RIGHT_BUTTON_PRESS    EQU 00008H
LEFT_BUTTON_RELEASE   EQU 00004H
LEFT_BUTTON_PRESS     EQU 00002H
MOTION_OCCURRED       EQU 00001H
;;------------------------------------------------------------
;;Interrupt 33H Function 00DH ENABLE LIGHT PEN EMULATION
;;What it does:
;;Enables light pen emulation; pressing both the left and right
;;buttons emulates touching a light pen to the screen.
MOUSE_ENABLE_LIGHT_PEN MACRO
          MOV  AX,0000DH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 00EH DISABLE LIGHT PEN EMULATION
;;What it does:
;;Disables light pen emulation.
MOUSE_DISABLE_LIGHT_PEN MACRO
          MOV  AX,0000EH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 00FH SET MOUSE SPEED
;;What it does:
;;Sets the ratio between mouse motion (in mickeys) to coordinate
;;changes (in pixels)  The higher the ration of mickeys to
;;pixels, the slower the mouse moves.
MOUSE_SET_SPEED MACRO HORZ_DELTA,VERT_DELTA
          MOV  AX,0000FH
          MOV  CX,HORZ_DELTA
          MOV  DX,VERT_DELTA
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 010H DEFINE EXCLUSION AREA
;;What it does:
;;Defines a rectangle inside of which the mouse is invisible.
MOUSE_DEFINE_EXCLUSION_AREA MACRO LEFT,RIGHT,TOP,BOTTOM
          MOV  AX,00010H
          MOV  CX,LEFT
          MOV  DX,TOP
          MOV  SI,RIGHT
          MOV  DI,BOTTOM
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 013H SET DOUBLE SPEED THRESHOLD
;;What it does:
;;Sets the speed, in mickeys per second, at which the cursor will
;;double its speed.
MOUSE_SET_DOUBLE_SPEED_THRESHOLD MACRO THRESHOLD_SPEED
          MOV  AX,00013H
          MOV  DX,THRESHOLD_SPEED
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 014H EXCHANGE EVENT HANDLERS
;;What it does:
;;Sets a user-defined event handler for a mouse event, and
;;returns the previously installed event handler.
MOUSE_EXCG_EVENT_HANDLERS MACRO CALL_MASK,EVENT_HANDLER
          MOV  AX,00014H
          MOV  CX,CALL_MASK
          LES  DX,EVENT_HANDLER
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 015H GET SAVE-STATE STORAGE SIZE
;;What it does:
;;Gets the size of the buffer needed to hold the mouse's saved
;;state.
MOUSE_GET_STORAGE_SIZE MACRO
          MOV  AX,00015H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 016H SAVE STATE
;;What it does:
;;Saves the mouse driver state.
MOUSE_SAVE_STATE MACRO SAVE_BUFFER
          MOV  AX,00016H
          LES  DX,SAVE_BUFFER
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 017H RESTORE STATE
;;What it does:
;;Restores a saved mouse driver state.
MOUSE_RESTORE_STATE MACRO RESTORE_BUFFER
          MOV  AX,00017H
          LES  DX,RESTORE_BUFFER
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 018H SET ALTERNATE EVENT HANDLER
;;What it does:
;;Sets one of up to three user-defined event handlers for a mouse
;;event..
MOUSE_SET_ALT_EVENT_HANDLER MACRO CALL_MASK,EVENT_HANDLER
          MOV  AX,00018H
          MOV  CX,CALL_MASK
          LES  DX,EVENT_HANDLER
          INT  33H
          ENDM
ALT_KEY_PRESSED    EQU 00080H
CTRL_KEY_PRESSED   EQU 00040H
SHIFT_KEY_PRESSED  EQU 00020H
;;------------------------------------------------------------
;;Interrupt 33H Function 019H GET ALTERNATE EVENT HANDLER VECTOR
;;What it does:
;;Returns a pointer to a user-defined event handler.
MOUSE_GET_ALT_EVENT_HANDLER_VECTOR MACRO CALL_MASK
          MOV  AX,00019H
          MOV  CX,CALL_MASK
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 01AH SET MOUSE SENSITIVITY
;;What it does:
;;Sets the mouse speed and the threshold at which the speed
;;doubles.
MOUSE_SET_SENSITIVITY MACRO HORZ_DELTA,VERT_DELTA,SPEED
          MOV  AX,0001AH
          MOV  BX,HORZ_DELTA
          MOV  CX,VERT_DELTA
          MOV  DX,SPEED
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 01BH GET MOUSE SENSITIVITY
;;What it does:
;;Gets the mouse speed and the threshold at which the speed
;;doubles.
MOUSE_GET_SENSITIVITY MACRO
          MOV  AX,0001BH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 01DH SET PAGE NUMBER
;;What it does:
;;Sets the screen page number on which the mouse will appear.
MOUSE_SET_PAGE_NUMBER MACRO PAGE_NUMBER
          MOV  AX,0001DH
          MOV  BX,PAGE_NUMBER
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 01EH GET PAGE NUMBER
;;What it does:
;;Gets the screen page number on which the mouse appears..
MOUSE_GET_PAGE_NUMBER MACRO
          MOV  AX,0001EH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 01FH DISABLE MOUSE DRIVER
;;What it does:
;;Disables the mouse driver, restoring other interrupt vectors
;;used by the mouse driver.
MOUSE_DISABLE_DRIVER MACRO
          MOV  AX,0001FH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 020H ENABLE MOUSE DRIVER
;;What it does:
;;Enables the mouse driver after a call to Function 01FH.
MOUSE_ENABLE_DRIVER MACRO
          MOV  AX,00020H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 021H SOFTWARE RESET
;;What it does:
;;Resets the mouse driver software, but not the mouse hardware.
MOUSE_SOFTWARE_RESET MACRO
          MOV  AX,00021H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 022H SET MESSAGE LANGUAGE
;;What it does:
;;Selects the language to be used by the mouse driver for prompts
;;and error messages.
MOUSE_SET_LANGUAGE MACRO LANGUAGE_NUMBER
          MOV  AX,00022H
          MOV  BX,LANGUAGE_NUMBER
          INT  33H
          ENDM
MOUSE_ENGLISH    EQU 0
MOUSE_FRENCH     EQU 1
MOUSE_DUTCH      EQU 2
MOUSE_GERMAN     EQU 3
MOUSE_SWEDISH    EQU 4
MOUSE_FINNISH    EQU 5
MOUSE_SPANISH    EQU 6
MOUSE_PORTUGUESE EQU 7
MOUSE_ITALIAN    EQU 8
;;------------------------------------------------------------
;;Interrupt 33H Function 023H GET MESSAGE LANGUAGE
;;What it does:
;;Gets the language to be used by the mouse driver for prompts
;;and error messages.
MOUSE_GET_LANGUAGE MACRO
          MOV  AX,00023H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 024H GET MOUSE INFORMATION
;;What it does:
;;Gets the driver version, mouse type, and IRQ numbers being
;;used.
MOUSE_GET_INFORMATION MACRO
          MOV  AX,00024H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 025H GET GENERAL DRIVER INFORMATION
;;What it does:
;;Gets additional driver information.
MOUSE_GET_GENERAL_DRIVER_INFO MACRO
          MOV  AX,00025H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 026H GET MAXIMUM VIRTUAL COORDINATES
;;What it does:
;;Gets the maximum horizontal and vertical coordinates.
MOUSE_GET_MAX_VIRT_COORDS MACRO
          MOV  AX,00026H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 027H GET MOUSE INFORMATION
;;What it does:
;;Gets the cursor masks and current mickey counts.
MOUSE_GET_MASKS_AND_COUNTS MACRO
          MOV  AX,00027H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 028H SET VIDEO MODE
;;What it does:
;;Sets the video mode.
MOUSE_SET_VIDEO_MODE MACRO MODE,HORZ_FONT_SIZE,VERT_FONT_SIZE
          MOV  AX,00028H
          MOV  CX,MODE
          MOV  DH,HORZ_FONT_SIZE
          MOV  DL,VERT_FONT_SIZE
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 029H GET SUPPORTED VIDEO MODES
;;What it does:
;;Gets the supported video modes.
MOUSE_GET_SUPPORTED_VIDEO_MODES MACRO START_MODE
          MOV  CX,START_MODE
          MOV  AX,00029H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 02AH GET CURSOR HOT SPOT
;;What it does:
;;Gets the cursor hot spot.
MOUSE_GET_HOT_SPOT MACRO
          MOV  AX,0002AH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 02BH SET ACCELERATION CURVES
;;What it does:
;;Sets the acceleration curves for the mouse.
MOUSE_SET_ACCELERATION_CURVE MACRO CURVE_NUMBER,CURVE_TABLE
          MOV  AX,0002BH
          MOV  BX,CURVE_NUMBER
          LES  DI,CURVE_TABLE
          INT  33H
          ENDM
MOUSE_CURVE_TABLE    STRUCT
     ; counts of mouse-count thresholds and scaling factors
     CURVE_1_COUNT                 BYTE ?
     CURVE_2_COUNT                 BYTE ?
     CURVE_3_COUNT                 BYTE ?
     CURVE_4_COUNT                 BYTE ?
     ; mouse-count threshold arrays
     CURVE_1_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     CURVE_2_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     CURVE_3_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     CURVE_4_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     ; scaling factor arrays
     CURVE_1_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     CURVE_2_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     CURVE_3_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     CURVE_4_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     ; curve names
     CURVE_1_NAME                  BYTE 16 DUP (' ')
     CURVE_2_NAME                  BYTE 16 DUP (' ')
     CURVE_3_NAME                  BYTE 16 DUP (' ')
     CURVE_4_NAME                  BYTE 16 DUP (' ')
MOUSE_CURVE_TABLE    ENDS
;;------------------------------------------------------------
;;Interrupt 33H Function 02CH GET ACCELERATION CURVES
;;What it does:
;;Gets the acceleration curves.
MOUSE_GET_ACCELERATION_CURVES MACRO
          MOV  AX,0002CH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 02DH GET OR SET ACTIVE ACCELERATION
;;CURVE
;;What it does:
;;Gets or sets the active acceleration curve.
MOUSE_ACTIVE_ACCELERATION_CURVE MACRO ACTION_FLAG
          MOV  AX,0002DH
          MOV  BX,ACTION_FLAG
          INT  33H
          ENDM
SET_CURVE_1 EQU 1
SET_CURVE_2 EQU 2
SET_CURVE_3 EQU 3
SET_CURVE_4 EQU 4
GET_CURVE   EQU -1
;;------------------------------------------------------------
;;Interrupt 33H Function 02FH MOUSE HARDWARE RESET
;;What it does:
;;Resets the mouse hardware, the CRT page number, and the light
;;pen emulation variables.
MOUSE_HARDWARE_RESET MACRO
          MOV  AX,0002FH
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 030H GET OR SET BALLPOINT INFORMATION
;;What it does:
;;Gets or sets ballpoint information.
MOUSE_BALLPOINT_INFORMATION MACRO ROTATION_ANGLE,COMMAND
          MOV  AX,00030H
          MOV  BX,ROTATION_ANGLE
          MOV  CX,COMMAND
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 031H GET VIRTUAL COORDINATES
;;What it does:
;;Gets the minimum and maximum coordinates.
MOUSE_GET_VIRT_COORDS MACRO
          MOV  AX,00031H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 032H GET ACTIVE ADVANCED FUNCTIONS
;;What it does:
;;Gets information concerning the availability of advanced
;;functions.
MOUSE_GET_ACTIVE_ADV_FNS MACRO
          MOV  AX,00032H
          INT  33H
          ENDM
;;------------------------------------------------------------
;;Interrupt 33H Function 033H GET SWITCH SETTINGS
;;What it does:
;;Gets the switch settings for the mouse driver.
MOUSE_GET_SWITCH_SETTINGS MACRO BUFFER_LENGTH,BUFFER
          MOV  AX,00033H
          MOV  CX,BUFFER_LENGTH
          LES  DI,BUFFER
          INT  33H
          ENDM
MOUSE_SWITCHES  STRUCT
     MOUSE_TYPE_AND_PORT           BYTE ?
     LANGUAGE                      BYTE ?
     HORIZONTAL_SENSITIVITY        BYTE ?
     VERTICAL_SENSITIVITY          BYTE ?
     DOUBLE_SPEED_THRESHOLD        BYTE ?
     BALLISTIC_CURVE               BYTE ?
     INTERRUPT_RATE                BYTE ?
     CURSOR_MASK                   BYTE ?
     LAPTOP_ADJUSTMENT             BYTE ?
     MEMORY_TYPE                   BYTE ?
     SUPER_VGA_FLAG                BYTE ?
     ROTATION_ANGLE                WORD ?
     PRIMARY_BUTTON                BYTE ?
     SECONDARY_BUTTON              BYTE ?
     CLICK_LOCK_ENABLED            BYTE ?
     ; counts of mouse-count thresholds and scaling factors
     CURVE_1_COUNT                 BYTE ?
     CURVE_2_COUNT                 BYTE ?
     CURVE_3_COUNT                 BYTE ?
     CURVE_4_COUNT                 BYTE ?
     ; mouse-count threshold arrays
     CURVE_1_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     CURVE_2_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     CURVE_3_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     CURVE_4_THRESHOLD_ARRAY       BYTE 32 DUP (?)
     ; scaling factor arrays
     CURVE_1_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     CURVE_2_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     CURVE_3_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     CURVE_4_SCALE_FACTOR_ARRAY    BYTE 32 DUP (?)
     ; curve names
     CURVE_1_NAME                  BYTE 16 DUP (' ')
     CURVE_2_NAME                  BYTE 16 DUP (' ')
     CURVE_3_NAME                  BYTE 16 DUP (' ')
     CURVE_4_NAME                  BYTE 16 DUP (' ')
MOUSE_SWITCHES  ENDS
;;------------------------------------------------------------
;;Interrupt 33H Function 034H GET MOUSE.INI
;;What it does:
;;Gets the address of the MOUSE.INI path.
MOUSE_GET_INI MACRO
          MOV  AX,00034H
          INT  33H
          ENDM
&Ø-lh0-Ó„  Ó„  užs  INCLUDE\DPMI.INC·³;;------------------------------------------------------------
;;Interrupt 02FH Function 01680H RELEASE CURRENT TIME SLICE
;;What it does:
;;Allows the operating system to switch control to another
;;client.
DPMI_REL_CUR_TIME_SLICE MACRO
          MOV  AX,01680H
          INT  02FH
          ENDM
;;------------------------------------------------------------
;;Interrupt 02FH Function 01686H GET CPU MODE
;;What it does:
;;Returns information about the current CPU mode.
DPMI_GET_CPU_MODE MACRO
          MOV  AX,01686H
          INT  02FH
          ENDM
;;------------------------------------------------------------
;;Interrupt 02FH Function 01687H GET REAL-TO-PROTECTED MODE
;;SWITCH ENTRY POINT
;;What it does:
;;Tests for the presence of a DPMI host and gets the address of a
;;mode switch routine that can be called to begin execution in
;;protected mode.
DPMI_GET_SWITCH_ENTRY MACRO
          MOV  AX,01687H
          INT  02FH
          ENDM
DPMI_CPU_80286 EQU 2
DPMI_CPU_80386 EQU 3
DPMI_CPU_80486 EQU 4
;;------------------------------------------------------------
;;Interrupt 02FH Function 0168AH GET VENDOR-SPECIFIC API ENTRY
;;POINT
;;What it does:
;;Returns an address that can be used to access host-specific
;;DPMI Extensions.
DPMI_GET_API_ENTRY MACRO VENDOR_ID
          MOV  AX,0168AH
IF @WORDSIZE EQ 4
          LDS  ESI,VENDOR_ID
ELSE
          LDS  SI,VENDOR_ID
ENDIF
          INT  02FH
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00000H ALLOCATE LDT DESCRIPTORS
;;What it does:
;;Allocates one or more descriptors in the task's LDT.
DPMI_ALLOC_LDT_DESCRIPTORS MACRO COUNT
          MOV  AX,00000H
          MOV  CX,COUNT
          INT  031H
          ENDM
DPMI_ERR_BLOCK_DAMAGED EQU 00007H ; Memory control blocks damaged
DPMI_ERR_INSUFF_MEMORY EQU 00008H ; Insufficient memory specified
DPMI_ERR_WRONG_MEM_SEG EQU 00009H ; Incorrect memory segment
                                  ; specified
DPMI_ERR_FN_NOT_SUPP   EQU 08001H ; Function not supported
DPMI_ERR_PAGE_STATE    EQU 08002H ; Page is in wrong state
DPMI_ERR_BAD_ADDRESS   EQU 08003H ; Invalid address
DPMI_ERR_DEADLOCK      EQU 08004H ; Host detected deadlock
DPMI_ERR_REQ_CANCELED  EQU 08005H ; Request canceled by DPMI
                                  ; Function 00D03H
DPMI_ERR_NO_DESCRIPTOR EQU 08011H ; Descriptor unavailable
DPMI_ERR_NO_LIN_MEMORY EQU 08012H ; Linear memory unavailable
DPMI_ERR_NO_PHYS_MEM   EQU 08013H ; Physical memory unavailable
DPMI_ERR_NO_BACK_STORE EQU 08014H ; Backing store unavailable
DPMI_ERR_NO_CALLBACK   EQU 08015H ; Callback unavailable
DPMI_ERR_NO_HANDLE     EQU 08016H ; Handle unavailable
DPMI_ERR_LOCK_COUNT    EQU 08017H ; Lock count exceeded
DPMI_ERR_EXCL_SERIAL   EQU 08018H ; Exclusive serialization owned
                                  ; by another client
DPMI_ERR_SHARED_SERIAL EQU 08019H ; Shared serialization owned by
                                  ; another client
DPMI_ERR_BAD_VALUE     EQU 08021H ; Invalid value
DPMI_ERR_BAD_DESCRIPT  EQU 08022H ; Invalid descriptor
DPMI_ERR_BAD_HANDLE    EQU 08023H ; Invalid handle
DPMI_ERR_BAD_CALLBACK  EQU 08024H ; Invalid callback
DPMI_ERR_BAD_LIN_ADDR  EQU 08025H ; Invalid linear address
DPMI_ERR_BAD_REQUEST   EQU 08026H ; Invalid request
;;------------------------------------------------------------
;;Interrupt 031H Function 00001H FREE LDT DESCRIPTOR
;;What it does:
;;Frees an LDT descriptor.
DPMI_FREE_LDT_DESCRIPTOR MACRO SELECTOR
          MOV  AX,00001H
          MOV  BX,SELECTOR
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00002H CONVERT SEGMENT TO DESCRIPTOR
;;What it does:
;;Converts a real mode segment into an LDT descriptor that can
;;access the same memory.
DPMI_SEG_TO_DECRIPTOR MACRO REAL_MODE_SEGMENT
          MOV  AX,00002H
          MOV  BX,REAL_MODE_SEGMENT
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00003H GET SELECTOR INCREMENT VALUE
;;What it does:
;;Gets the increment value used to access successive elements of
;;an array of descriptors.
DPMI_GET_SELECTOR_INC_VALUE MACRO
          MOV  AX,00003H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00006H GET SEGMENT BASE ADDRESS
;;What it does:
;;Returns the 32-bit linear base address from the LDT descriptor.
DPMI_GET_SEG_BASE_ADDR MACRO SELECTOR
          MOV  AX,00006H
          MOV  BX,SELECTOR
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00007H SET SEGMENT BASE ADDRESS
;;What it does:
;;Sets the 32-bit linear base address of an LDT descriptor.
DPMI_SET_SEG_BASE_ADDR MACRO SELECTOR,BASE_ADDRESS
          MOV  AX,00007H
          MOV  BX,SELECTOR
          MOV  CX,HIGHWORD BASE_ADDRESS
          MOV  DX,LOWWORD BASE_ADDRESS
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00008H SET SEGMENT LIMIT
;;What it does:
;;Sets the limit field in the LDT descriptor.
DPMI_SET_SEG_LIMIT MACRO SELECTOR,SEG_LIMIT
          MOV  AX,00008H
          MOV  BX,SELECTOR
          MOV  CX,HIGHWORD SEG_LIMIT
          MOV  DX,LOWWORD SEG_LIMIT
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00009H SET DESCRIPTOR ACCESS RIGHTS
;;What it does:
;;Modifies the access rights and type fields in the LDT
;;descriptor.
DPMI_SET_ACCESS_RIGHTS MACRO SELECTOR,ACCESS_RIGHTS,EXT_AR
          MOV  AX,00009H
          MOV  BX,SELECTOR
          MOV  CL,ACCESS_RIGHTS
          MOV  CH,EXT_AR
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0000AH CREATE ALIAS DESCRIPTOR
;;What it does:
;;Creates a new LDT descriptor with the same base and limit as
;;the specified descriptor.
DPMI_CREATE_ALIAS_DESCR MACRO SELECTOR
          MOV  AX,0000AH
          MOV  BX,SELECTOR
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0000BH GET DESCRIPTOR
;;What it does:
;;Copies the LDT entry for the selector into an 8-byte buffer.
DPMI_GET_DESCRIPTOR MACRO SELECTOR,BUFFER
          MOV  AX,0000BH
          MOV  BX,SELECTOR
IF @WORDSIZE EQ 4
          LES  EDI,BUFFER
ELSE
          LES  DI,BUFFER
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0000CH SET DESCRIPTOR
;;What it does:
;;Copies the contents of an 8-byte buffer into the selector's LDT
;;entry.
DPMI_SET_DESCRIPTOR MACRO SELECTOR,BUFFER
          MOV  AX,0000CH
          MOV  BX,SELECTOR
IF @WORDSIZE EQ 4
          LES  EDI,BUFFER
ELSE
          LES  DI,BUFFER
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0000DH ALLOCATE SPECIFIC LDT DESCRIPTOR
;;What it does:
;;Allocates a specific LDT descriptor.
DPMI_ALLOC_SPEC_LDT_DESC MACRO SELECTOR
          MOV  AX,0000DH
          MOV  BX,SELECTOR
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0000EH GET MULTIPLE DESCRIPTORS
;;What it does:
;;Gets multiple descriptors.
DPMI_GET_MULTIPLE_DESC MACRO COUNT,BUFFER
          MOV  AX,0000EH
          MOV  CX,COUNT
IF @WORDSIZE EQ 4
          LES  EDI,BUFFER
ELSE
          LES  DI,BUFFER
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0000FH SET MULTIPLE DESCRIPTORS
;;What it does:
;;Sets multiple descriptors.
DPMI_SET_MULTIPLE_DESC MACRO COUNT,BUFFER
          MOV  AX,0000FH
          MOV  CX,COUNT
IF @WORDSIZE EQ 4
          LES  EDI,BUFFER
ELSE
          LES  DI,BUFFER
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00100H ALLOCATE DOS MEMORY BLOCK
;;What it does:
;;Allocates a block of memory from below the 1MB boundary.
DPMI_ALLOC_DOS_MEM MACRO PARAGRAPH_COUNT
          MOV  AX,00100H
          MOV  BX,PARAGRAPH_COUNT
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00101H FREE DOS MEMORY BLOCK
;;What it does:
;;Frees a block allocated by DPMI Function 00100H.
DPMI_FREE_DOS_MEM MACRO SELECTOR
          MOV  AX,00101H
          MOV  DX,SELECTOR
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00102H RESIZE DOS MEMORY BLOCK
;;What it does:
;;Changes the size of a block allocated by DPMI Function 00100H.
DPMI_RESIZE_DOS_MEM MACRO NEW_SIZE,SELECTOR
          MOV  AX,00102H
          MOV  BX,NEW_SIZE
          MOV  DX,SELECTOR
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00200H GET REAL MODE INTERRUPT VECTOR
;;What it does:
;;Get the contents of the current virtual machine's real mode
;;interrupt vector.
DPMI_GET_REALMODE_INT_VEC MACRO INTERRUPT_NUMBER
          MOV  AX,00200H
          MOV  BL,INTERRUPT_NUMBER
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00201H SET REAL MODE INTERRUPT VECTOR
;;What it does:
;;Set the contents of the current virtual machine's real mode
;;interrupt vector.
DPMI_SET_REALMODE_INT_VEC MACRO INTERRUPT_NUMBER,HANDLER
          MOV  AX,00201H
          MOV  BL,INTERRUPT_NUMBER
          MOV  DX,HANDLER.FP_OFFSET
          MOV  CX,HANDLER.FP_SEG
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00202H GET PROCESSOR EXCEPTION HANDLER
;;VECTOR
;;What it does:
;;Returns the address of the current client's protected-mode
;;exception handler for the specified exception number.
DPMI_GET_EXCPT_HANDLER MACRO EXCEPTION_NUMBER
          MOV  AX,00202H
          MOV  BL,EXCEPTION_NUMBER
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00203H SET PROCESSOR EXCEPTION HANDLER
;;VECTOR
;;What it does:
;;Sets the address of the current client's protected-mode
;;exception Handler for the specified exception number.
DPMI_SET_EXCPT_HANDLER MACRO EXCEPTION_NUMBER,HANDLER
          MOV  AX,00203H
          MOV  BL,EXCEPTION_NUMBER
IF @WORDSIZE EQ 4
          MOV  EDX,HANDLER.FP_OFFSET
ELSE
          MOV  DX,HANDLER.FP_OFFSET
ENDIF
          MOV  CX,HANDLER.FP_SEG
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00204H GET PROTECTED MODE INTERRUPT
;;VECTOR
;;What it does:
;;Returns the address of the current protected mode interrupt
;;handler for the specified interrupt.
DPMI_GET_PROTMODE_INT_VEC MACRO INTERRUPT_NUMBER
          MOV  AX,00204H
          MOV  BL,INTERRUPT_NUMBER
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00205H SET PROTECTED MODE INTERRUPT
;;VECTOR
;;What it does:
;;Sets the address of the current protected mode interrupt
;;handler For the specified interrupt.
DPMI_SET_PROTMODE_INT_VEC MACRO INTERRUPT_NUMBER,HANDLER
          MOV  AX,00205H
          MOV  BL,INTERRUPT_NUMBER
IF @WORDSIZE EQ 4
          MOV  EDX,HANDLER.FP_OFFSET
ELSE
          MOV  DX,HANDLER.FP_OFFSET
ENDIF
          MOV  CX,HANDLER.FP_SEG
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00210H GET EXTENDED PROCESSOR EXCEPTION
;;HANDLER VECTOR (PROTECTED MODE)
;;What it does:
;;Gets the address of the client's protected mode handler for the
;;specified protected mode exception.
DPMI_GET_PROT_EXT_EXCPT_HANDLER MACRO EXCEPTION_NUMBER
          MOV  AX,00210H
          MOV  BL,EXCEPTION_NUMBER
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00211H GET EXTENDED PROCESSOR EXCEPTION
;;HANDLER VECTOR (REAL MODE)
;;What it does:
;;Gets the address of the client's protected mode handler for the
;;specified real mode exception.
DPMI_GET_REAL_EXT_EXCPT_HANDLER MACRO EXCEPTION_NUMBER
          MOV  AX,00211H
          MOV  BL,EXCEPTION_NUMBER
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00212H SET EXTENDED PROCESSOR EXCEPTION
;;HANDLER VECTOR (PROTECTED MODE)
;;What it does:
;;Sets the address of the client's protected mode handler for the
;;specified protected mode exception.
DPMI_SET_PROT_EXT_EXCPT_HANDLER MACRO EXCEPTION_NUMBER,HANDLER
          MOV  AX,00212H
          MOV  BL,EXCEPTION_NUMBER
IF @WORDSIZE EQ 4
          MOV  EDX,HANDLER.FP_OFFSET
ELSE
          MOV  DX,HANDLER.FP_OFFSET
ENDIF
          MOV  CX,HANDLER.FP_SEG
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00213H SET EXTENDED PROCESSOR EXCEPTION
;;HANDLER VECTOR (REAL MODE)
;;What it does:
;;Sets the address of the client's protected mode handler for the
;;specified real mode exception.
DPMI_SET_REAL_EXT_EXCPT_HANDLER MACRO EXCEPTION_NUMBER,HANDLER
          MOV  AX,00213H
          MOV  BL,EXCEPTION_NUMBER
IF @WORDSIZE EQ 4
          MOV  EDX,HANDLER.FP_OFFSET
ELSE
          MOV  DX,HANDLER.FP_OFFSET
ENDIF
          MOV  CX,HANDLER.FP_SEG
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00300H SIMULATE REAL MODE INTERRUPT
;;What it does:
;;Simulates an interrupt in real mode.
DPMI_SIMULATE_REAL_INT MACRO INTERRUPT_NUMBER,WORD_COUNT,RM_REGS
          MOV  AX,00300H
          MOV  BL,INTERRUPT_NUMBER
          XOR  BH,BH
          MOV  CX,WORD_COUNT
IF @WORDSIZE EQ 4
          LES  EDI,RM_REGS
ELSE
          LES  DI,RM_REGS
ENDIF
          INT  031H
          ENDM
DPMI_REAL_MODE_REGISTERS STRUCT
          __EDI   DWORD ?
          __ESI   DWORD ?
          __EBP   DWORD ?
                  DWORD 0
          __EBX   DWORD ?
          __EDX   DWORD ?
          __ECX   DWORD ?
          __EAX   DWORD ?
          __FLAGS WORD  ?
          __ES    WORD  ?
          __DS    WORD  ?
          __FS    WORD  ?
          __GS    WORD  ?
          __IP    WORD  ?
          __CS    WORD  ?
          __SP    WORD  ?
          __SS    WORD  ?
DPMI_REAL_MODE_REGISTERS ENDS
;;------------------------------------------------------------
;;Interrupt 031H Function 00301H CALL REAL MODE PROCEDURE WITH
;;FAR RETURN FRAME
;;What it does:
;;Simulates a far call to a real mode procedure.
DPMI_CALL_REAL_PROC_W_FAR_RET MACRO WORD_COUNT,RM_REGS
          MOV  AX,00301H
          XOR  BH,BH
          MOV  CX,WORD_COUNT
IF @WORDSIZE EQ 4
          LES  EDI,RM_REGS
ELSE
          LES  DI,RM_REGS
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00302H CALL REAL MODE PROCEDURE WITH
;;IRET FRAME
;;What it does:
;;Simulates a far call with flags pushed to a real mode
;;structure.
DPMI_CALL_REAL_PROC_W_IRET MACRO WORD_COUNT,RM_REGS
          MOV  AX,00302H
          XOR  BH,BH
          MOV  CX,WORD_COUNT
IF @WORDSIZE EQ 4
          LES  EDI,RM_REGS
ELSE
          LES  DI,RM_REGS
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00303H ALLOCATE REAL MODE CALLBACK
;;ADDRESS
;;What it does:
;;Returns a real mode segment:offset that will transfer control
;;from real mode to a protected mode procedure.
DPMI_ALLOC_REALMODE_CALLBACK MACRO PROCADDR,RM_REGS
          MOV  AX,00303H
IF @WORDSIZE EQ 4
          LDS  ESI,PROCADDR
          LES  EDI,RM_REGS
ELSE
          LDS  SI,PROCADDR
          LES  DI,RM_REGS
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00304H FREE REAL MODE CALLBACK ADDRESS
;;What it does:
;;Frees a real-mode callback obtained by a call to DPMI Function
;;00303H.
DPMI_FREE_REALMODE_CALLBACK MACRO CALLBACK
          MOV  AX,00304H
          MOV  CX,HIGHWORD CALLBACK
          MOV  DX,LOWWORD CALLBACK
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00305H GET STATE SAVE AND STATE RESTORE
;;ADDRESSES
;;What it does:
;;Gets the addresses of two routines used to save the current
;;task's registers.
DPMI_GET_STATE_STORAGE_ADDRESSES MACRO
          MOV  AX,00305H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00306H GET RAW MODE SWITCH ADDRESSES
;;What it does:
;;Returns the address of routines that can be called to perform
;;low-level mode switching.
DPMI_GET_RAWMODE_SWITCH_ADDRESSES MACRO
          MOV  AX,00306H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00400H GET VERSION
;;What it does:
;;Gets the version number and some knowledge of the DPMI host's
;;capabilities.
DPMI_GET_VERSION MACRO
          MOV  AX,00400H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00401H GET DPMI CAPABILITIES
;;What it does:
;;Return information about the DPMI host.
DPMI_GET_CAPABILITIES MACRO
          MOV  AX,00401H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00500H GET FREE MEMORY INFORMATION
;;What it does:
;;Returns information about the amount of memory available.
DPMI_GET_FREE_MEM_INFO MACRO BUFFER
          MOV  AX,00500H
IF @WORDSIZE EQ 4
          LES  EDI,BUFFER
ELSE
          LES  DI,BUFFER
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00501H ALLOCATE MEMORY BLOCK
;;What it does:
;;Allocates a block of linear memory.
DPMI_ALLOC_MEMORY MACRO MEM_SIZE
          MOV  AX,00501H
          MOV  BX,HIGHWORD MEM_SIZE
          MOV  CX,LOWWORD MEM_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00502H FREE MEMORY BLOCK
;;What it does:
;;Frees a memory block acquired through a call to DPMI Function
;;00501H.
DPMI_FREE_MEMORY MACRO HANDLE
          MOV  AX,00502H
          MOV  SI,HIGHWORD HANDLE
          MOV  DI,LOWWORD HANDLE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00503H RESIZE MEMORY BLOCK
;;What it does:
;;Resizes a memory block acquired through a call to DPMI Function
;;00501H.
DPMI_RESIZE_MEMORY MACRO MEM_SIZE,HANDLE
          MOV  AX,00503H
          MOV  BX,HIGHWORD MEM_SIZE
          MOV  CX,LOWWORD MEM_SIZE
          MOV  SI,HIGHWORD HANDLE
          MOV  DI,LOWWORD HANDLE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00504H ALLOCATE LINEAR MEMORY BLOCK
;;What it does:
;;Allocates a block of page-aligned linear address space.
DPMI_ALLOC_LINEAR_MEMORY MACRO LINEAR_ADDR,BLOCK_SIZE,FLAGS
          MOV  AX,00504H
          MOV  EBX,LINEAR_ADDR
          MOV  ECX,BLOCK_SIZE
          MOV  EDX,FLAGS
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00505H RESIZE LINEAR MEMORY BLOCK
;;What it does:
;;Resizes a block of memory acquired through DPMI Function
;;00504H.
DPMI_RESIZE_LINEAR_MEMORY MACRO HANDLE,BLOCK_SIZE,FLAGS, \
          SELECTOR_COUNT,SELECTOR_BUFFER
          MOV  AX,00505H
          MOV  ESI,HANDLE
          MOV  ECX,BLOCK_SIZE
          MOV  EDX,FLAGS
          .IF EDX & 000000002H
          MOV  EDI,SELECTOR_COUNT
          LES  EBX,SELECTOR_BUFFER
          .ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00506H GET PAGE ATTRIBUTES
;;What it does:
;;Get the attributes of one or more pages of linear memory
;;acquired through DPMI Function 00504H.
DPMI_GET_PAGE_ATTRIBUTES MACRO HANDLE,BASE_OFFSET,PAGE_COUNT, \
          ATTRIBUTE_BUFFER
          MOV  AX,00506H
          MOV  ESI,HANDLE
          MOV  EBX,BASE_OFFSET
          MOV  ECX,PAGE_COUNT
          LES  EDX,ATTRIBUTE_BUFFER
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00507H SET PAGE ATTRIBUTES
;;What it does:
;;Set the attributes of one or more pages of linear memory
;;acquired through DPMI Function 00504H.
DPMI_SET_PAGE_ATTRIBUTES MACRO HANDLE,BASE_OFFSET,PAGE_COUNT, \
          ATTRIBUTE_BUFFER
          MOV  AX,00507H
          MOV  ESI,HANDLE
          MOV  EBX,BASE_OFFSET
          MOV  ECX,PAGE_COUNT
          LES  EDX,ATTRIBUTE_BUFFER
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00508H MAP DEVICE IN MEMORY BLOCK
;;What it does:
;;Maps the physical address assigned to a device onto linear
;;addresses of a memory block acquired through DPMI Function
;;00504H.
DPMI_MAP_DEVICE MACRO HANDLE,BASE_OFFSET,PAGE_COUNT, \
          PHYSICAL_ADDRESS
          MOV  AX,00508H
          MOV  ESI,HANDLE
          MOV  EBX,BASE_OFFSET
          MOV  ECX,PAGE_COUNT
          MOV  EDX,PHYSICAL_ADDRESS
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00509H MAP CONVENTIONAL MEMORY IN
;;MEMORY BLOCK
;;What it does:
;;Maps physical memory below 1MB onto linear addresses of a
;;memory block acquired through DPMI Function 00504H.
DPMI_MAP_MEMORY MACRO HANDLE,BASE_OFFSET,PAGE_COUNT, \
          PHYSICAL_ADDRESS
          MOV  AX,00509H
          MOV  ESI,HANDLE
          MOV  EBX,BASE_OFFSET
          MOV  ECX,PAGE_COUNT
          MOV  EDX,PHYSICAL_ADDRESS
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0050AH GET MEMORY BLOCK SIZE AND BASE
;;What it does:
;;Get the size of an allocated memory block.
DPMI_GET_BLOCK_SIZE_BASE MACRO HANDLE
          MOV  AX,0050AH
          MOV  SI,HIGHWORD HANDLE
          MOV  DI,LOWWORD HANDLE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 0050BH GET MEMORY INFORMATION
;;What it does:
;;Returns information about available physical and virtual
;;memory.
DPMI_GET_MEM_INFO MACRO BUFFER
          MOV  AX,0050BH
IF @WORDSIZE EQ 4
          LES  EDI,BUFFER
ELSE
          LES  DI,BUFFER
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00600H LOCK LINEAR REGION
;;What it does:
;;Locks the specified address range.
DPMI_LOCK_LINEAR_REGION MACRO START_ADDRESS,REGION_SIZE
          MOV  AX,00600H
          MOV  BX,HIGHWORD START_ADDRESS
          MOV  CX,LOWWORD START_ADDRESS
          MOV  SI,HIGHWORD REGION_SIZE
          MOV  DI,LOWWORD REGION_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00601H UNLOCK LINEAR REGION
;;What it does:
;;Unlocks a specified address range.
DPMI_UNLOCK_LINEAR_REGION MACRO START_ADDRESS,REGION_SIZE
          MOV  AX,00601H
          MOV  BX,HIGHWORD START_ADDRESS
          MOV  CX,LOWWORD START_ADDRESS
          MOV  SI,HIGHWORD REGION_SIZE
          MOV  DI,LOWWORD REGION_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00602H MARK REAL MODE REGION AS
;;PAGEABLE
;;What it does:
;;Marks a region of memory below 1MB as pageable to disk.
DPMI_MARK_REGION_PAGEABLE MACRO START_ADDRESS,REGION_SIZE
          MOV  AX,00602H
          MOV  BX,HIGHWORD START_ADDRESS
          MOV  CX,LOWWORD START_ADDRESS
          MOV  SI,HIGHWORD REGION_SIZE
          MOV  DI,LOWWORD REGION_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00603H RELOCK REAL MODE REGION
;;What it does:
;;Relocks a region previously marked pageable.
DPMI_RELOCK_REAL_MODE_REGION MACRO START_ADDRESS,REGION_SIZE
          MOV  AX,00603H
          MOV  BX,HIGHWORD START_ADDRESS
          MOV  CX,LOWWORD START_ADDRESS
          MOV  SI,HIGHWORD REGION_SIZE
          MOV  DI,LOWWORD REGION_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00604H GET PAGE SIZE
;;What it does:
;;Returns the size of a page in bytes.
DPMI_GET_PAGE_SIZE MACRO
          MOV  AX,00604H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00702H MARK PAGE AS DEMAND PAGING
;;CANDIDATE
;;What it does:
;;Marks a page or set of pages to be placed at the head of the
;;pageout candidacy list.
DPMI_MARK_PAGE_AS_DEMAND_PAGING MACRO START_ADDRESS,REGION_SIZE
          MOV  AX,00702H
          MOV  BX,HIGHWORD START_ADDRESS
          MOV  CX,LOWWORD START_ADDRESS
          MOV  SI,HIGHWORD REGION_SIZE
          MOV  DI,LOWWORD REGION_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00703H DISCARD PAGE CONTENTS
;;What it does:
;;Discards the contents of a specified memory range so it won't
;;be unnecessarily paged to disk.
DPMI_DISCARD_PAGE_CONTENTS MACRO START_ADDRESS,REGION_SIZE
          MOV  AX,00703H
          MOV  BX,HIGHWORD START_ADDRESS
          MOV  CX,LOWWORD START_ADDRESS
          MOV  SI,HIGHWORD REGION_SIZE
          MOV  DI,LOWWORD REGION_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00800H PHYSICAL ADDRESS MAPPING
;;What it does:
;;Converts a physical address into a linear address.
DPMI_PHYSICAL_ADDR_MAPPING MACRO START_ADDRESS,REGION_SIZE
          MOV  AX,00800H
          MOV  BX,HIGHWORD START_ADDRESS
          MOV  CX,LOWWORD START_ADDRESS
          MOV  SI,HIGHWORD REGION_SIZE
          MOV  DI,LOWWORD REGION_SIZE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00801H FREE PHYSICAL ADDRESS MAPPING
;;What it does:
;;Releases a mapping obtained by a call to DPMI Function 00800H.
DPMI_FREE_PHYSICAL_ADDR_MAPPING MACRO LINEAR_ADDRESS
          MOV  AX,00801H
          MOV  BX,HIGHWORD LINEAR_ADDRESS
          MOV  CX,LOWWORD LINEAR_ADDRESS
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00900H GET AND DISABLE VIRTUAL
;;INTERRUPT STATE
;;What it does:
;;Disables the virtual interrupt flag and returns the previous
;;state of the flag.
DPMI_DISABLE_INTERRUPTS MACRO
          MOV  AX,00900H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00901H GET AND ENABLE VIRTUAL INTERRUPT
;;STATE
;;What it does:
;;Enables the virtual interrupt flag and returns the previous
;;state of the flag.
DPMI_ENABLE_INTERRUPTS MACRO
          MOV  AX,00901H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00902H GET VIRTUAL INTERRUPT STATE
;;What it does:
;;Returns the state of the virtual interrupt flag.
DPMI_GET_INTERRUPT_STATE MACRO
          MOV  AX,00902H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00A00H GET VENDOR-SPECIFIC API ENTRY
;;POINT
;;What it does:
;;Returns the address of a routine that can be called to access
;;host-specific DPMI extensions.
DPMI_GET_API_ENTRY_POINT MACRO VENDOR_ID
          MOV  AX,00A00H
IF @WORDSIZE EQ 4
          LDS  ESI,VENDOR_ID
ELSE
          LDS  SI,VENDOR_ID
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00B00H SET DEBUG WATCHPOINT
;;What it does:
;;Sets a debug watchpoint at the specified address.
DPMI_SET_WATCHPOINT MACRO LINEAR_ADDRESS,WATCHPOINT_TYPE, \
          WATCHPOINT_SIZE
          MOV  AX,00B00H
          MOV  BX,HIGHWORD LINEAR_ADDRESS
          MOV  CX,LOWWORD LINEAR_ADDRESS
          MOV  DL,WATCHPOINT_SIZE
          MOV  DH,WATCHPOINT_TYPE
          INT  031H
          ENDM
WATCHPOINT_SIZE_BYTE  EQU 1
WATCHPOINT_SIZE_WORD  EQU 2
WATCHPOINT_SIZE_DWORD EQU 4
WATCHPOINT_TYPE_EXEC  EQU 0
WATCHPOINT_TYPE_WRITE EQU 1
WATCHPOINT_TYPE_RW    EQU 2
;;------------------------------------------------------------
;;Interrupt 031H Function 00B01H CLEAR DEBUG WATCHPOINT
;;What it does:
;;Clears a debug watchpoint and releases the handle.
DPMI_CLEAR_WATCHPOINT MACRO HANDLE
          MOV  AX,00B01H
          MOV  BX,HANDLE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00B02H GET STATE OF DEBUG WATCHPOINT
;;What it does:
;;Returns the state of the specified watchpoint.
DPMI_GET_WATCHPOINT_STATUS MACRO HANDLE
          MOV  AX,00B02H
          MOV  BX,HANDLE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00B03H RESET DEBUG WATCHPOINT
;;What it does:
;;Resets the state of the specified watchpoint.
DPMI_RESET_WATCHPOINT MACRO HANDLE
          MOV  AX,00B03H
          MOV  BX,HANDLE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00C00H INSTALL RESIDENT SERVICE
;;PROVIDER CALLBACK
;;What it does:
;;Requests notification from the DPMI host whenever another DPMI
;;client in the same virtual machine is loaded or terminated.
DPMI_INSTALL_RES_SERV_CALLBACK MACRO BUFFER
          MOV  AX,00C00H
IF @WORDSIZE EQ 4
          LES  EDI,BUFFER
ELSE
          LES  DI,BUFFER
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00C01H TERMINATE AND STAY RESIDENT
;;What it does:
;;Terminates the client's execution while leaving its protected
;;mode memory allocated.
DPMI_TSR MACRO RETURN_CODE,DOS_MEMORY_TO_RESERVE
          MOV  AX,00C01H
          MOV  BL,RETURN_CODE
          MOV  DX,DOS_MEMORY_TO_RESERVE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00D00H ALLOCATE SHARED MEMORY
;;What it does:
;;Allocates a block of shared memory.
DPMI_ALLOC_SHARED_MEMORY MACRO REQ_STRUC
          MOV  AX,00D00H
IF @WORDSIZE EQ 4
          LES  EDI,REQ_STRUC
ELSE
          LES  DI,REQ_STRUC
ENDIF
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00D01H FREE SHARED MEMORY
;;What it does:
;;Free a block of shared memory.
DPMI_FREE_SHARED_MEMORY MACRO HANDLE
          MOV  AX,00D01H
          MOV  SI,HIGHWORD HANDLE
          MOV  DI,LOWWORD HANDLE
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00D02H SERIALIZE ON SHARED MEMORY
;;What it does:
;;Requests serialization on a shared memory block.
DPMI_REQUEST_SERIALIZATION MACRO HANDLE,FLAGS
          MOV  AX,00D02H
          MOV  SI,HIGHWORD HANDLE
          MOV  DI,LOWWORD HANDLE
          MOV  DX,FLAGS
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00D03H FREE SERIALIZATION ON SHARED
;;MEMORY
;;What it does:
;;Frees a serialization request obtained by a successful call to
;;DPMI Function 00D02H.
DPMI_FREE_SERIALIZATION MACRO HANDLE,FLAGS
          MOV  AX,00D03H
          MOV  SI,HIGHWORD HANDLE
          MOV  DI,LOWWORD HANDLE
          MOV  DX,FLAGS
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00E00H GET COPROCESSOR STATUS
;;What it does:
;;Returns status of the coprocessor, the type of coprocessor, and
;;whether the DPMI host supports coprocessor emulation.
DPMI_GET_COPROCESSOR_STATE MACRO
          MOV  AX,00E00H
          INT  031H
          ENDM
;;------------------------------------------------------------
;;Interrupt 031H Function 00E01H SET COPROCESSOR EMULATION
;;What it does:
;;Enables or disables coprocessor emulation.
DPMI_SET_COPROCESSOR_EMULATION MACRO FLAGS
          MOV  AX,00E01H
          MOV  BX,FLAGS
          INT  031H
          ENDM
)‚-lh0-?  ?  It  INCLUDE\DOS_SYS.INC;;------------------------------------------------------------
;;Interrupt 021H Function 000H TERMINATE PROGRAM
;;What it does:
;;Terminates the current program.
DOS_SYS_TERMINATE_PROGRAM MACRO
          MOV  AH,000H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 025H SET INTERRUPT VECTOR
;;What it does:
;;Sets the specified interrupt vector address.
DOS_SYS_SET_INTERRUPT_VECTOR MACRO INTERRUPT_NUMBER,INTERRUPT_HANDLER
          MOV  AH,025H
          MOV  AL,INTERRUPT_NUMBER
          LDS  DX,INTERRUPT_HANDLER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 026H CREATE PSP
;;What it does:
;;Creates a new program segment prefix (PSP) from the current
;;program's PSP.
DOS_SYS_CREATE_PSP MACRO NEW_PSP_SEGMENT
          MOV  AH,026H
          MOV  DX,NEW_PSP_SEGMENT
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 02AH GET SYSTEM DATE
;;What it does:
;;Gets the system date.
DOS_SYS_GET_SYSTEM_DATE MACRO
          MOV  AH,02AH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 02BH SET SYSTEM DATE
;;What it does:
;;Sets the system date.
DOS_SYS_SET_SYSTEM_DATE MACRO YEAR,MONTH,DAY
          MOV  AH,02BH
          MOV  CX,YEAR
          MOV  DH,MONTH
          MOV  DL,DAY
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 02CH GET SYSTEM TIME
;;What it does:
;;Gets the system time.
DOS_SYS_GET_SYSTEM_TIME MACRO
          MOV  AH,02CH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 02DH SET SYSTEM TIME
;;What it does:
;;Sets the system time.
DOS_SYS_SET_SYSTEM_TIME MACRO HOUR,MINUTE,SECOND,HUNDREDTH_OF_SECOND
          MOV  AH,02DH
          MOV  CH,HOUR
          MOV  CL,MINUTE
          MOV  DH,SECOND
          MOV  DL,HUNDREDTH_OF_SECOND
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 030H GET DOS VERSION NUMBER
;;What it does:
;;Gets the DOS version number; under DOS 5.0, may return the
;;value specified by the SETVER program.
DOS_SYS_GET_VERSION_WITH_FLAG MACRO
          MOV  AX,03001H
          INT  021H
          ENDM
DOS_SYS_GET_VERSION_WITH_OEM_NUMBER MACRO
          MOV  AX,03000H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 031H TERMINATE AND STAY RESIDENT
;;What it does:
;;Terminates the program but leaves it resident in memory.
DOS_SYS_TERMINATE_AND_STAY_RESIDENT MACRO RETURN_CODE,MEMORY_TO_RESERVE
          MOV  AH,031H
          MOV  AL,RETURN_CODE
          MOV  DX,MEMORY_TO_RESERVE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 033H Subfunction 000H GET CTRL-BREAK
;;FLAG
;;What it does:
;;Gets the CTRL-BREAK checking status.
DOS_SYS_GET_CTRL_BREAK MACRO
          MOV  AX,03300H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 033H Subfunction 001H SET CTRL-BREAK
;;FLAG
;;What it does:
;;Sets the CTRL-BREAK checking state.
DOS_SYS_DISABLE_CTRL_BREAK MACRO
          MOV  AX,03301H
          MOV  DL,000H
          INT  021H
          ENDM
DOS_SYS_ENABLE_CTRL_BREAK MACRO
          MOV  AX,03301H
          MOV  DL,001H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 033H Subfunction 006H GET MS-DOS
;;VERSION
;;What it does:
;;Gets the real MS-DOS version, independent of SETVER.
DOS_SYS_GET_MSDOS_VERSION MACRO
          MOV  AX,03306H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 034H GET ADDRESS OF INDOS FLAG
;;What it does:
;;Gets the address of the InDOS flag, which, if set, means DOS is
;;processing an INT 021H function.
DOS_SYS_GET_INDOS_FLAG_ADDRESS MACRO
          MOV  AH,034H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 035H GET INTERRUPT VECTOR
;;What it does:
;;Gets the specified interrupt's handler's address.
DOS_SYS_GET_INTERRUPT_VECTOR MACRO INTERRUPT_NUMBER
          MOV  AH,035H
          MOV  AL,INTERRUPT_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 038H GET CURRENT COUNTRY INFORMATION
;;What it does:
;;Gets information about the current country.
DOS_SYS_GET_CURRENT_COUNTRY_INFO MACRO BUFFER
          MOV  AX,03800H
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 038H SET CURRENT COUNTRY INFORMATION
;;What it does:
;;Sets the country code.
DOS_SYS_SET_CURRENT_COUNTRY_INFO_SMALL_CODE MACRO COUNTRY_CODE,BUFFER
          MOV  AH,038H
          MOV  AL,COUNTRY_CODE
          LDS  DX,BUFFER
          INT  021H
          ENDM
DOS_SYS_SET_CURRENT_COUNTRY_INFO_LARGE_CODE MACRO COUNTRY_CODE,BUFFER
          MOV  AX,038FFH
          MOV  BX,COUNTRY_CODE
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 048H ALLOCATE MEMORY
;;What it does:
;;Allocates a block of memory and returns a pointer to the
;;block's start address.
DOS_SYS_ALLOCATE_MEMORY MACRO NUMBER_PARAGRAPHS_TO_ALLOCATE
          MOV  AH,048H
          MOV  BX,NUMBER_PARAGRAPHS_TO_ALLOCATE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 049H RELEASE MEMORY
;;What it does:
;;Releases memory back to DOS.
DOS_SYS_RELEASE_MEMORY MACRO MEMORY_SEGMENT
          MOV  AH,049H
          PUSH MEMORY_SEGMENT
          POP  ES
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 04AH MODIFY MEMORY ALLOCATION
;;What it does:
;;Changes the amount of memory allocated.
DOS_SYS_MODIFY_MEMORY_ALLOCATION MACRO NEW_SIZE,MEMORY_SEGMENT
          MOV  AH,04AH
          MOV  BX,NEW_SIZE
          PUSH MEMORY_SEGMENT
          POP  ES
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 04BH EXECUTE PROGRAM
;;What it does:
;;Loads and executes a program.
DOS_SYS_EXECUTE_PROGRAM MACRO PARAMETER_BLOCK,PROGRAM_SPECIFICATION
          MOV  AX,04B00H
          LES  BX,PARAMETER_BLOCK
          LDS  DX,PROGRAM_SPECIFICATION
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 04CH TERMINATE WITH RETURN CODE
;;What it does:
;;Returns to DOS with a return code.
DOS_SYS_TERMINATE_WITH_RETURN_CODE MACRO EXIT_CODE
          MOV  AH,04CH
          MOV  AL,EXIT_CODE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 04DH GET CHILD PROCESS RETURN CODE
;;What it does:
;;Tells the parent program which EXEC'd a child program the
;;child's return code and how it was terminated.
DOS_SYS_GET_CHILD_PROCESS_RETURN_CODE MACRO
          MOV  AH,04DH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 050H SET PSP SEGMENT
;;What it does:
;;Sets the currently executing process's program segment prefix.
DOS_SYS_SET_PSP_SEGMENT MACRO PSP_SEGMENT
          MOV  AH,050H
          MOV  BX,PSP_SEGMENT
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 051H GET PSP SEGMENT
;;What it does:
;;Gets the currently executing process's program segment prefix.
DOS_SYS_GET_PSP_SEGMENT MACRO
          MOV  AH,051H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 054H GET VERIFY FLAG
;;What it does:
;;Gets the state of the read-after-write verify flag.
DOS_SYS_GET_VERIFY_FLAG MACRO
          MOV  AH,054H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 058H Subfunction 000H GET ALLOCATION
;;STRATEGY
;;What it does:
;;Gets the allocation strategy used by DOS to fill memory
;;requests.
DOS_SYS_GET_ALLOCATION_STRATEGY MACRO
          MOV  AX,05800H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 058H Subfunction 001H SET ALLOCATION
;;STRATEGY
;;What it does:
;;Sets the allocation strategy to be used by DOS to fill memory
;;requests.
DOS_SYS_SET_ALLOCATION_STRATEGY MACRO STRATEGY_CODE
          MOV  AX,05801H
          MOV  BX,STRATEGY_CODE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 058H Subfunction 002H GET UMB LINK
;;STATUS
;;What it does:
;;Gets the status of the UMB (Upper Memory Block) link.
DOS_SYS_GET_UMB_LINK_STATUS MACRO
          MOV  AX,05802H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 058H Subfunction 003H SET UMB LINK
;;STATUS
;;What it does:
;;Sets the status of the UMB link.
DOS_SYS_SET_UMB_LINK_STATUS MACRO LINK_STATUS
          MOV  AX,05803H
          MOV  BX,LINK_STATUS
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 059H GET EXTENDED ERROR INFORMATION
;;What it does:
;;Gets extended error status after a DOS function has failed.
DOS_SYS_GET_EXTENDED_ERROR_INFORMATION MACRO
          MOV  AH,059H
          MOV  BX,000H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05DH Subfunction 00AH SET ERROR DATA
;;What it does:
;;Sets the system error data codes stored internally by each DOS
;;operation.
DOS_SYS_SET_ERROR_DATA MACRO ERROR_STRUCTURE
          MOV  AX,05D0AH
          LDS  SI,ERROR_STRUCTURE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05EH Subfunction 000H GET MACHINE NAME
;;What it does:
;;Gets the network machine name.
DOS_SYS_GET_MACHINE_NAME MACRO NAME_BUFFER,SETUP_STRING
          MOV  AX,05E00H
          LDS  DX,NAME_BUFFER
          LDS  SI,SETUP_STRING
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05EH Subfunction 002H SET NETWORK
;;PRINTER SETUP STRING
;;What it does:
;;Sets the startup string sent to a print job when accessing a
;;network printer.
DOS_SYS_SET_NETWORK_PRINTER_SETUP_STRING MACRO REDIR_LIST_INDEX,STRLEN, \
                                       SETUP_STR
          MOV  AX,05E02H
          MOV  BX,REDIR_LIST_INDEX
          MOV  CX,STRLEN
          LDS  SI,SETUP_STR
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05EH Subfunction 003H GET NETWORK
;;PRINTER SETUP STRING
;;What it does:
;;Gets the startup string sent to a print job when accessing a
;;network printer.
DOS_SYS_GET_NETWORK_PRINTER_SETUP_STRING MACRO REDIR_LIST_INDEX,SETUP_STR
          MOV  AX,05E03H
          MOV  BX,REDIR_LIST_INDEX
          LES  DI,SETUP_STR
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05FH Subfunction 002H GET REDIRECTION
;;LIST ENTRY
;;What it does:
;;Get a redirection list entry.
DOS_SYS_GET_REDIRECTION_LIST_ENTRY MACRO REDIR_LIST_INDEX, \
                                 DEVICE_NAME_BUFFER, \
                                 NETWORK_NAME_BUFFER
          MOV  AX,05F02H
          MOV  BX,REDIR_LIST_INDEX
          LDS  SI,DEVICE_NAME_BUFFER
          LES  DI,NETWORK_NAME_BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05FH Subfunction 003H SET REDIRECTION
;;LIST ENTRY
;;What it does:
;;Sets a redirection list entry.
DOS_SYS_SET_REDIRECTION_LIST_ENTRY MACRO DEVICE_TYPE,VALUE, \
                                 DEVICE_NAME_BUFFER, \
                                 NETWORK_NAME_BUFFER
          MOV  AX,05F03H
          MOV  BL,DEVICE_TYPE
          MOV  CX,VALUE
          LDS  SI,DEVICE_NAME_BUFFER
          LES  DI,NETWORK_NAME_BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05FH Subfunction 004H CANCEL
;;REDIRECTION LIST ENTRY
;;What it does:
;;Cancels a redirection list entry.
DOS_SYS_CANCEL_REDIRECTION_LIST_ENTRY MACRO DEVICE_NAME
          MOV  AX,05F04H
          LDS  SI,DEVICE_NAME
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 062H GET PSP ADDRESS
;;What it does:
;;Gets the current PSP segment.
DOS_SYS_GET_PSP_ADDRESS MACRO
          MOV  AH,062H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 065H GET EXTENDED COUNTRY INFORMATION
;;What it does:
;;Get extended information for a specified country.
DOS_SYS_GET_EXT_COUNTRY_INFO MACRO ID,CODE_PAGE,COUNTRY,BUFFER
          MOV  AH,065H
          MOV  AL,ID
          MOV  CX,CODE_PAGE
          MOV  DX,COUNTRY
          LES  DI,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 065H Subfunction 020H CONVERT CHARACTER
;;What it does:
;;Converts a character to uppercase using the current uppercase
;;table.
DOS_SYS_CONVERT_CHAR MACRO CHARACTER
          MOV  AX,06520H
          MOV  DL,CHARACTER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 065H Subfunction 021H CONVERT STRING
;;What it does:
;;Converts a string to uppercase.
DOS_SYS_CONVERT_STRING MACRO STRLEN,STRING
          MOV  AX,06521H
          MOV  CX,STRLEN
          LDS  DX,STRING
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 065H Subfunction 022H CONVERT ASCIIZ
;;STRING
;;What it does:
;;Converts a zero-terminated string to uppercase.
DOS_SYS_CONVERT_ASCIIZ_STRING MACRO STRING
          MOV  AX,06522H
          LDS  DX,STRING
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 066H Subfunction 001H GET GLOBAL CODE
;;PAGE
;;What it does:
;;Gets the current country's code page.
DOS_SYS_GET_GLOBAL_CODE_PAGE MACRO
          MOV  AX,06601H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 066H Subfunction 002H SET GLOBAL CODE
;;PAGE
;;What it does:
;;Sets the current country's code page.
DOS_SYS_SET_GLOBAL_CODE_PAGE MACRO ACTIVE_PAGE,SYSTEM_PAGE
          MOV  AX,06602H
          MOV  BX,ACTIVE_PAGE
          MOV  DX,SYSTEM_PAGE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 066H Subfunction 003H SET HANDLE COUNT
;;What it does:
;;Dynamically change the number of file handles allowed for a
;;process.
DOS_SYS_SET_HANDLE_COUNT MACRO HANDLE_COUNT
          MOV  AX,06603H
          MOV  BX,HANDLE_COUNT
          INT  021H
          ENDM
)-lh0-t   t   !²s  INCLUDE\STRUCTS.INCí›FARPTR	STRUCT
IF @WORDSIZE EQ 4
	FP_OFFSET	DWORD ?
ELSE
	FP_OFFSET	WORD ?
ENDIF
	FP_SEG		WORD ?
FARPTR	ENDS
%--lh0-=?  =?  	Mt  INCLUDE\EMS.INCY;;------------------------------------------------------------
;;Interrupt 067H Function 040H GET EMS STATUS
;;What it does:
;;Verifies that EMS is operational.
EMS_GET_STATUS MACRO
          MOV  AH,040H
          INT  067H
          ENDM
EMS_ERR_NO_ERROR            EQU 000H
EMS_ERR_INTERNAL_SW         EQU 080H
EMS_ERR_HW_MALFUNCTION      EQU 081H
EMS_ERR_BAD_HANDLE          EQU 083H
EMS_ERR_UNDEF_FN            EQU 084H
EMS_ERR_OUT_OT_HANDLES      EQU 085H
EMS_ERR_SAVE_CONTEXT        EQU 086H
EMS_ERR_INSUF_PHYS_PAGES    EQU 087H
EMS_ERR_INSUF_LOG_PAGES     EQU 088H
EMS_ERR_ZERO_PAGES_REQ      EQU 089H
EMS_ERR_NO_LOG_PAGE         EQU 08AH
EMS_ERR_BAD_PHYS_PAGE_NO    EQU 08BH
EMS_ERR_SAVE_AREA_FULL      EQU 08CH
EMS_ERR_CONTEXT_SAVE_FAILED EQU 08DH
EMS_ERR_NOTHING_SAVED       EQU 08EH
EMS_ERR_BAD_SUBFN_PARM      EQU 08FH
EMS_ERR_BAD_ATTR_VAL        EQU 090H
EMS_ERR_FN_NOT_SUPPORTED    EQU 091H
EMS_ERR_OVERLAP             EQU 092H
EMS_ERR_REGION_TOO_BIG      EQU 093H
EMS_ERR_REGIONS_OVERLAP     EQU 094H
EMS_ERR_OFFSET_OUTSIDE_PAGE EQU 095H
EMS_ERR_LEN_OVER_1MB        EQU 096H
EMS_ERR_SRC_DEST_OVERLAP    EQU 097H
EMS_ERR_UNDEFINED_TYPE      EQU 098H
EMS_ERR_CANT_FIND_HANDLE    EQU 0A0H
EMS_ERR_DUP_EXIST_NAME      EQU 0A1H
EMS_ERR_1MB_WRAP            EQU 0A2H
EMS_ERR_PAGE_MAP_CORRUPT    EQU 0A3H
EMS_ERR_ACCESS_DENIED       EQU 0A4H
;;------------------------------------------------------------
;;Interrupt 067H Function 041H GET PAGE FRAME SEGMENT
;;What it does:
;;Gets the segment address of the EMS page frame.
EMS_GET_PAGE_FRAME_SEGMENT MACRO
          MOV  AH,041H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 042H GET PAGE COUNTS
;;What it does:
;;Gets the total number of pages and the number of pages
;;available.
EMS_GET_PAGE_COUNTS MACRO
          MOV  AH,042H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 043H GET MEMORY
;;What it does:
;;Opens a handle and allocates pages to the current process.
EMS_GET_MEMORY MACRO PAGE_COUNT
          MOV  AH,043H
          MOV  BX,PAGE_COUNT
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 044H MAP/UNMAP MEMORY
;;What it does:
;;Maps one of an EMS handle's pages into one of four physical
;;pages in the page frame, or unmap a frame, making it
;; inaccessible.
EMS_MAP_UNMAP_MEMORY MACRO PHYS_PAGE,LOG_PAGE,HANDLE
          MOV  AH,044H
          MOV  AL,PHYS_PAGE
          MOV  BX,LOG_PAGE
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 045H DEALLOCATE MEMORY
;;What it does:
;;Close a handle and release its EMS memory.
EMS_DEALLOCATE_MEMORY MACRO HANDLE
          MOV  AH,045H
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 046H GET EMS VERSION
;;What it does:
;;Returns the EMS software version.
EMS_GET_VERSION MACRO
          MOV  AH,046H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 047H SAVE PAGE MAP
;;What it does:
;;Saves the current state of the EMS hardware map.
EMS_SAVE_PAGE_MAP MACRO HANDLE
          MOV  AH,047H
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 048H RESTORE PAGE MAP
;;What it does:
;;Restores the EMS hardware map associated with the designated
;;file handle.
EMS_RESTORE_PAGE_MAP MACRO HANDLE
          MOV  AH,048H
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04BH GET HANDLE COUNT
;;What it does:
;;Returns the number of active EMS handles.
EMS_GET_ACTIVE_HANDLE_COUNT MACRO
          MOV  AH,04BH
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04CH GET HANDLE'S PAGE COUNT
;;What it does:
;;Gets the number of pages associated with the specified handle.
EMS_GET_HANDLES_PAGE_COUNT MACRO HANDLE
          MOV  AH,04CH
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04DH GET ALL HANDLES' PAGE COUNTS
;;What it does:
;;Returns the handles and the number of logical pages for all
;;handles.
EMS_GET_ALL_HANDLES_PAGE_COUNTS MACRO BUFFER
          MOV  AH,04DH
          LES  DI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04EH Subfunction 000H GET PAGE MAP
;;REGISTERS
;;What it does:
;;Gets the EMS page-mapping registers into a local array without
;;using a handle.
EMS_GET_PAGE_MAP_REGISTERS MACRO BUFFER
          MOV  AX,04E00H
          LES  DI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04EH Subfunction 001H SET PAGE MAP
;;REGISTERS
;;What it does:
;;Sets the EMS page-mapping registers from a local array without
;;using a handle.
EMS_SET_PAGE_MAP_REGISTERS MACRO BUFFER
          MOV  AX,04E01H
          LDS  SI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04EH Subfunction 002H GET AND SET PAGE
;;MAP REGISTERS
;;What it does:
;;Simultaneously gets the EMS page-mapping registers into a local
;;array and sets the EMS page-mapping registers from a local
;;array without using a handle..
EMS_GET_SET_PAGE_MAP_REGISTERS MACRO READ_BUFFER,WRITE_BUFFER
          MOV  AX,04E02H
          LDS  SI,READ_BUFFER
          LES  DI,WRITE_BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04EH Subfunction 002H GET SIZE FOR PAGE
;;MAP ARRAY
;;What it does:
;;Gets the size needed for a local array to hold the EMS page-
;;mapping registers.
EMS_GET_PAGE_MAP_ARRAY_SIZE MACRO
          MOV  AX,04E02H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04FH Subfunction 000H GET PARTIAL PAGE
;;MAP
;;What it does:
;;gets a partial map of specified mappable memory regions.
EMS_GET_PARTIAL_PAGE_MAP MACRO PAGE_LIST,BUFFER
          MOV  AX,04F00H
          LDS  SI,PAGE_LIST
          LES  DI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04FH Subfunction 001H SET PARTIAL PAGE
;;MAP
;;What it does:
;;Restores the partial mapping context saved by Function 04FH,
;;Subfunction 000H.
EMS_SET_PARTIAL_PAGE_MAP MACRO BUFFER
          MOV  AX,04F01H
          LDS  SI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 04FH Subfunction 002H GET PARTIAL PAGE
;;MAP SIZE
;;What it does:
;;Gets the size of the array required to save page maps using
;;Function 04FH Subfunction 000H.
EMS_GET_PARTIAL_PAGE_MAP_SIZE MACRO NUMBER_PAGES
          MOV  AX,04F02H
          MOV  BX,NUMBER_PAGES
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 050H Subfunction 000H MAP/UNMAP
;;MULTIPLE HANDLE PAGES (PHYSICAL PAGE MODE)
;;What it does:
;;Maps or unmaps logical pages into physical maps using the
;;physical page number method.
EMS_MAP_UNMAP_MULT_PAGES_PHYSICAL MACRO COUNT,HANDLE,PAGE_LIST
          MOV  AX,05000H
          MOV  CX,COUNT
          MOV  DX,HANDLE
          LDS  SI,PAGE_LIST
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 050H Subfunction 001H MAP/UNMAP
;;MULTIPLE HANDLE PAGES (SEGMENT ADDRESS MODE)
;;What it does:
;;Maps or unmaps logical pages into physical maps using the
;;segment address method.
EMS_MAP_UNMAP_MULT_PAGES_SEGADDR MACRO COUNT,HANDLE,PAGE_LIST
          MOV  AX,05001H
          MOV  CX,COUNT
          MOV  DX,HANDLE
          LDS  SI,PAGE_LIST
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 051H REALLOCATE PAGES
;;What it does:
;;Increases or decreases the number of logical pages allocated to
;;a handle.
EMS_REALLOCATE_PAGES MACRO DESIRED_PAGE_COUNT,HANDLE
          MOV  AH,051H
          MOV  BX,DESIRED_PAGE_COUNT
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 052H Subfunction 000H GET HANDLE
;;ATTRIBUTE
;;What it does:
;;Gets the attribute associated with the specified handle.
EMS_GET_HANDLE_ATTRIBUTE MACRO HANDLE
          MOV  AX,05200H
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 052H Subfunction 001H SET HANDLE
;;ATTRIBUTE
;;What it does:
;;Sets the attribute associated with a handle.
EMS_SET_HANDLE_ATTRIBUTE MACRO ATTRIBUTE,HANDLE
          MOV  AX,05201H
          MOV  BL,ATTRIBUTE
          MOV  DX,HANDLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 052H Subfunction 001H GET ATTRIBUTE
;;CAPABILITY
;;What it does:
;;Returns the system's attribute capability.
EMS_GET_ATTRIBUTE_CAPABILITY MACRO
          MOV  AX,05201H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 053H Subfunction 000H GET HANDLE NAME
;;What it does:
;;Gets the 8-character name associated with a handle.
EMS_GET_HANDLE_NAME MACRO HANDLE,NAME_BUFFER
          MOV  AX,05300H
          MOV  DX,HANDLE
          LES  DI,NAME_BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 053H Subfunction 001H SET HANDLE NAME
;;What it does:
;;Sets the 8-character name associated with a handle.
EMS_SET_HANDLE_NAME MACRO HANDLE,NAME_BUFFER
          MOV  AX,05301H
          MOV  DX,HANDLE
          LES  DI,NAME_BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 054H Subfunction 000H GET HANDLE
;;DIRECTORY
;;What it does:
;;Makes a local copy of the directory of open handles.
EMS_GET_HANDLE_DIRECTORY MACRO BUFFER
          MOV  AX,05400H
          LES  DI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 054H Subfunction 001H FIND NAMED HANDLE
;;What it does:
;;Finds the handle value for a named handle.
EMS_FIND_NAMED_HANDLE MACRO HANDLE_NAME
          MOV  AX,05401H
          LDS  SI,HANDLE_NAME
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 054H Subfunction 002H GET HANDLE COUNT
;;What it does:
;;Get the total number of handles supported by EMS.
EMS_GET_TOTAL_HANDLE_COUNT MACRO
          MOV  AX,05402H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 055H ALTER PAGE MAP AND JUMP
;;What it does:
;;Alters page mapping permanently and transfers control.
EMS_ALTER_PAGE_MAP_AND_JUMP_PHYS MACRO HANDLE,MAP
          MOV  AX,05500H
          MOV  DX,HANDLE
          LDS  SI,MAP
          INT  067H
          ENDM
EMS_ALTER_PAGE_MAP_AND_JUMP_SEGADDR MACRO HANDLE,MAP
          MOV  AX,05501H
          MOV  DX,HANDLE
          LDS  SI,MAP
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 056H ALTER PAGE MAP AND CALL
;;What it does:
;;Alters page mapping temporarily and transfers control; page
;;mapping is restored on return.
EMS_ALTER_PAGE_MAP_AND_CALL_PHYS MACRO HANDLE,MAP
          MOV  AX,05600H
          MOV  DX,HANDLE
          LDS  SI,MAP
          INT  067H
          ENDM
EMS_ALTER_PAGE_MAP_AND_CALL_SEGADDR MACRO HANDLE,MAP
          MOV  AX,05601H
          MOV  DX,HANDLE
          LDS  SI,MAP
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 056H Subfunction 002H GET STACK SPACE
;;SIZE
;;What it does:
;;Returns the additional stack size needed for Function 056H.
EMS_GET_STACK_SPACE MACRO
          MOV  AX,05602H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 057H Subfunction 000H MOVE MEMORY
;;REGION
;;What it does:
;;Moves a memory region.
EMS_MOVE_MEMORY_REGION MACRO PARAMETER_BLOCK
          MOV  AX,05700H
          LDS  SI,PARAMETER_BLOCK
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 057H Subfunction 001H EXCHANGE MEMORY
;;REGIONS
;;What it does:
;;Exchanges two memory regions.
EMS_EXCHANGE_MEMORY_REGIONS MACRO PARAMETER_BLOCK
          MOV  AX,05701H
          LDS  SI,PARAMETER_BLOCK
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 058H Subfunction 000H GET MAPPABLE
;;PHYSICAL ADDRESS ARRAY
;;What it does:
;;Gets an array containing the segment address and physical page
;;number for each mappable physical page.
EMS_GET_MAPPABLE_PHYS_ADDR_ARRAY MACRO BUFFER
          MOV  AX,05800H
          LES  DI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 058H Subfunction 001H GET MAPPABLE
;;PHYSICAL ADDRESS ARRAY SIZE
;;What it does:
;;Gets the number of entries that Function 058H Subfunction 000H
;;will return.
EMS_GET_MAPPABLE_PHYS_ADDR_ARRAY_SIZE MACRO
          MOV  AX,05801H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 059H Subfunction 000H GET EXPANDED
;;MEMORY HARDWARE INFORMATION
;;What it does:
;;Returns a hardware configuration array.
EMS_GET_MEMORY_HW_INFO MACRO BUFFER
          MOV  AX,05900H
          LES  DI,BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 059H Subfunction 001H GET UNALLOCATED
;;RAW PAGE COUNT
;;What it does:
;;Returns the number of unallocated raw mappable pages and the
;;total number of raw pages.
EMS_GET_UNALLOCATED_RAW_PAGE_COUNT MACRO
          MOV  AX,05901H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 05AH Subfunction 000H ALLOCATE STANDARD
;;PAGES
;;What it does:
;;Allocates standard pages and returns a handle.
EMS_ALLOCATE_STD_PAGES MACRO PAGE_COUNT
          MOV  AX,05A00H
          MOV  BX,PAGE_COUNT
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 05AH Subfunction 001H ALLOCATE RAW
;;PAGES
;;What it does:
;;Allocates raw pages and returns a handle.
EMS_ALLOCATE_RAW_PAGES MACRO PAGE_COUNT
          MOV  AX,05A01H
          MOV  BX,PAGE_COUNT
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 05CH PREPARE HARDWARE FOR WARM BOOT
;;What it does:
;;Prepares the EMS system for warm boot operation.
EMS_PREP_HW_FOR_WARM_BOOT MACRO
          MOV  AH,05CH
          INT  067H
          ENDM
*æ-lh0-`&  `&  gQt  INCLUDE\DOS_DISK.INCÄf;;------------------------------------------------------------
;;Interrupt 021H Function 00DH RESET DISK
;;What it does:
;;Flushes all modified disk buffer contents to their respective
;;files.
DOS_DISK_RESET MACRO
          MOV  AH,00DH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 00EH SELECT DISK
;;What it does:
;;Changes the default disk drive.
DOS_DISK_SELECT MACRO DRIVE_NUMBER
          MOV  AH,00EH
          MOV  AL,DRIVE_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 019H GET DEFAULT DRIVE
;;What it does:
;;Gets the number of the current default drive (A: = 0).
DOS_DISK_GET_DEFAULT_DRIVE MACRO
          MOV  AH,019H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 01AH SET DTA ADDRESS
;;What it does:
;;Sets the address for the disk transfer address (DTA).
DOS_DISK_SET_DTA_ADDR MACRO DTA
          MOV  AH,01AH
          LDS  DX,DTA
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 01BH GET DEFAULT DISK ALLOCATION TABLE
;;INFORMATION
;;What it does:
;;Gets information about the disk in the default drive.
DOS_DISK_GET_DEFAULT_ALLOCATION_TABLE MACRO
          MOV  AH,01BH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 01CH GET SPECIFIC DISK ALLOCATION TABLE
;;INFORMATION
;;What it does:
;;Gets information about the disk in the specified drive.
DOS_DISK_GET_SPECIFIC_ALLOCATION_TABLE MACRO DRIVE_NUMBER
          MOV  AH,01CH
          MOV  DL,DRIVE_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 01FH GET DEFAULT DISK PARAMETER BLOCK
;;What it does:
;;Gets the default drive's disk parameter block.
DOS_DISK_GET_DEFAULT_PARAMETER_BLOCK MACRO
          MOV  AH,01FH
          INT  021H
          ENDM
DOS_DISK_PARAMETER_BLOCK STRUCT
          DRIVE_NUMBER             BYTE ?
          DEVICE_DRIVER_UNIT_ID    BYTE ?
          BYTES_PER_SECTOR         WORD ?
          SECTORS_PER_CLUSTER      BYTE ?
          SHIFT_FACTOR             BYTE ?
          FIRST_FAT_SECTOR         WORD ?
          NUMBER_FAT_COPIES        BYTE ?
          NUMBER_ROOT_DIR_ENTRIES  WORD ?
          FIRST_DATA_SECTOR_NUMBER WORD ?
          HIGHEST_CLUSTER_NUMBER   WORD ?
DOS_DISK_PARAMETER_BLOCK ENDS
;;------------------------------------------------------------
;;Interrupt 021H Function 02EH SET VERIFY FLAG STATE
;;What it does:
;;Sets the DOS verify flag; if set, CRC verification is done on
;;disk writes.
DOS_DISK_DISABLE_VERIFY MACRO
          MOV  AX,02E00H
          INT  021H
          ENDM
DOS_DISK_ENABLE_VERIFY MACRO
          MOV  AX,02E01H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 02FH GET DTA ADDRESS
;;What it does:
;;Gets the address of the current disk transfer area (DTA).
DOS_DISK_GET_DTA_ADDRESS MACRO
          MOV  AH,02FH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 032H GET DRIVE PARAMETER BLOCK
;;What it does:
;;Gets the drive parameter block for the specified drive.
DOS_DISK_GET_DRIVE_PARAMETER_BLOCK MACRO DRIVE_NUMBER
          MOV  AH,032H
          MOV  DL,DRIVE_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 033H Subfunction 005H GET BOOT DRIVE
;;CODE
;;What it does:
;;Gets the drive number for the boot drive (1 = A:, 2 = B:, and
;;so forth).
DOS_DISK_GET_BOOT_DRIVE MACRO
          MOV  AX,03305H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 036H GET FREE DISK SPACE
;;What it does:
;;Gets the current available space on the specified disk.
DOS_DISK_GET_FREE_SPACE MACRO DRIVE_NUMBER
          MOV  AH,036H
          MOV  DL,DRIVE_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 039H CREATE SUBDIRECTORY
;;What it does:
;;Creates a subdirectory.
DOS_DISK_CREATE_SUBDIRECTORY MACRO DIRECTORY
          MOV  AH,039H
          LDS  DX,DIRECTORY
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 03AH REMOVE SUBDIRECTORY
;;What it does:
;;Removes a subdirectory if it is empty.
DOS_DISK_REMOVE_SUBDIRECTORY MACRO DIRECTORY
          MOV  AH,03AH
          LDS  DX,DIRECTORY
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 03BH SET DIRECTORY
;;What it does:
;;Sets the default directory to the specified directory.
DOS_DISK_SET_DIRECTORY MACRO DIRECTORY
          MOV  AH,03BH
          LDS  DX,DIRECTORY
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 041H DELETE FILE
;;What it does:
;;Deletes a file.
DOS_DISK_DELETE_FILE MACRO FILESPEC
          MOV  AH,041H
          LDS  DX,FILESPEC
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 043H Subfunction 000H GET FILE
;;ATTRIBUTES
;;What it does:
;;Gets the attributes for the specified file.
DOS_DISK_GET_FILE_ATTRIBUTES MACRO FILESPEC
          MOV  AX,04300H
          LDS  DX,FILESPEC
          INT  021H
          ENDM
FILE_ATTR_ARCHIVE      EQU 020H
FILE_ATTR_DIRECTORY    EQU 010H
FILE_ATTR_VOLUME_LABEL EQU 008H
FILE_ATTR_SYSTEM       EQU 004H
FILE_ATTR_HIDDEN       EQU 002H
FILE_ATTR_READ_ONLY    EQU 001H
;;------------------------------------------------------------
;;Interrupt 021H Function 043H Subfunction 001H SET FILE
;;ATTRIBUTES
;;What it does:
;;Sets attributes on a file.  This function cannot be used to set
;;the directory or volume label bits.
DOS_DISK_SET_FILE_ATTRIBUTES MACRO FILESPEC,ATTRIBUTE
          MOV  AX,04301H
          MOV  CX,ATTRIBUTE
          LDS  DX,FILESPEC
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 047H GET CURRENT DIRECTORY
;;What it does:
;;Gets the current directory; the ASCIIZ string does not include
;;the drive or leading backslash.
DOS_DISK_GET_CURRENT_DIRECTORY MACRO DRIVE_CODE,BUFFER
          MOV  AH,047H
          MOV  DL,DRIVE_CODE
          LDS  SI,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 04EH FIND FIRST MATCH
;;What it does:
;;Searches for the first match for a filespec possibly containing
;;wildcard characters.
DOS_DISK_FIND_FIRST_MATCH MACRO FILESPEC,ATTRIBUTE
          MOV  AH,04EH
          MOV  CX,ATTRIBUTE
          LDS  DX,FILESPEC
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 04FH FIND NEXT MATCH
;;What it does:
;;Searches for the next match for a filespec possibly containing
;;wildcard characters.
DOS_DISK_FIND_NEXT_MATCH MACRO
          MOV  AH,04FH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 056H RENAME FILE
;;What it does:
;;Renames a file; cannot rename groups of files, but can move
;;files from one directory to another.
DOS_DISK_RENAME_FILE MACRO CURRENT_NAME,NEW_NAME
          MOV  AH,056H
          LDS  DX,CURRENT_NAME
          LES  DI,NEW_NAME
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05AH CREATE UNIQUELY NAMED FILE
;;What it does:
;;Creates a uniquely named file and opened for write with the
;;specified attribute in the specified directory.
DOS_DISK_CREATE_UNIQUELY_NAMED_FILE MACRO ATTRIBUTE,PATH
          MOV  AH,05AH
          MOV  CX,ATTRIBUTE
          LDS  DX,PATH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05BH CREATE NEW FILE
;;What it does:
;;Create a new file.  Unlike Function 03CH, this function fails
;;if the file already exists.
DOS_DISK_CREATE_NEW_FILE MACRO FILESPEC,ATTRIBUTE
          MOV  AH,05BH
          MOV  CX,ATTRIBUTE
          LDS  DX,FILESPEC
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 06CH EXTENDED FILE OPEN AND CREATE
;;What it does:
;;Merges the functionalities of Functions 03CH, 03Dh, and 05BH.
DOS_DISK_EXTENDED_FILE_OPEN_AND_CREATE MACRO MODE,ATTR,FLAG,NAME
          MOV  AX,06C00H
          MOV  BX,MODE
          MOV  CX,ATTR
          MOV  DX,FLAG
          LDS  SI,NAME
          INT  021H
          ENDM
MODE_WRITES_EXEC_IMMED  EQU 04000H
MODE_RETURN_ERROR       EQU 02000H
MODE_DO_NOT_PASS_HANDLE EQU 00080H
MODE_COMPATIILITY       EQU 00000H
MODE_DENY_ALL_SHARING   EQU 00010H
MODE_DENY_WRITE_SHARING EQU 00020H
MODE_DENY_READ_SHARING  EQU 00030H
MODE_ALLOW_ALL_SHARING  EQU 00040H
MODE_READ_ONLY          EQU 00000H
MODE_WRITE_ONLY         EQU 00001H
MODE_READ_WRITE         EQU 00002H
FLAG_FAIL_NO_EXIST   EQU 00000H
FLAG_CREATE_NO_EXIST EQU 00010H
FLAG_FAIL_EXISTS     EQU 00000H
FLAG_OPEN_EXISTS     EQU 00001H
FLAG_REPLACE_EXISTS  EQU 00002H
*-lh0--  -  ’Ut  INCLUDE\DOS_DVCE.INCYE;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 000H GET DEVICE
;;INFORMATION
;;What it does:
;;Gets information about a device or file which has been opened
;;with a handle.
DOS_DVCE_GET_INFO MACRO HANDLE
          MOV  AX,04400H
          MOV  BX,HANDLE
          INT  021H
          ENDM
CHAR_READ_WRITE_IOCTL EQU 04000H
CHAR_DEVICE           EQU 00080H
CHAR_NOT_AT_EOF       EQU 00040H
CHAR_RAW_MODE         EQU 00020H
CHAR_SUPPORTS_INT_29  EQU 00010H
CHAR_IS_CLOCK         EQU 00008H
CHAR_IS_NUL           EQU 00004H
CHAR_IS_STDOUT        EQU 00002H
CHAR_IS_STDIN         EQU 00001H
BLOCK_READ_WRITE_IOCTL EQU 04000H
BLOCK_NOT_WRITTEN_TO   EQU 00040H
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 001H SET DEVICE
;;INFORMATION
;;What it does:
;;Sets device information about a character device that was
;;opened with a handle.
DOS_DVCE_SET_INFORMATION MACRO HANDLE,DEVICE_INFORMATION
          MOV  AX,04401H
          MOV  BX,HANDLE
          MOV  DX,DEVICE_INFORMATION
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 002H READ IOCTL DEVICE
;;What it does:
;;Reads a control string from the device driver.
DOS_DVCE_READ_IOCTL MACRO HANDLE,BYTE_COUNT,BUFFER
          MOV  AX,04402H
          MOV  BX,HANDLE
          MOV  CX,BYTE_COUNT
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 003H WRITE IOCTL
;;DEVICE
;;What it does:
;;Writes a control string to a device driver.
DOS_DVCE_WRITE_IOCTL MACRO HANDLE,BYTE_COUNT,BUFFER
          MOV  AX,04403H
          MOV  BX,HANDLE
          MOV  CX,BYTE_COUNT
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 004H READ IOCTL BLOCK
;;DEVICE
;;What it does:
;;Reads a control string from a block device driver.
DOS_DVCE_READ_IOCTL_BLOCK MACRO DRIVE_NUMBER,BYTE_COUNT,BUFFER
          MOV  AX,04404H
          MOV  BL,DRIVE_NUMBER
          MOV  CX,BYTE_COUNT
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 005H WRITE IOCTL BLOCK
;;DEVICE
;;What it does:
;;Writes a control string to a block device driver.
DOS_DVCE_WRITE_IOCTL_BLOCK MACRO DRIVE_NUMBER,BYTE_COUNT,BUFFER
          MOV  AX,04405H
          MOV  BL,DRIVE_NUMBER
          MOV  CX,BYTE_COUNT
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 006H GET INPUT STATUS
;;What it does:
;;Gets input status for an open device or file.
DOS_DVCE_GET_INPUT_STATUS MACRO HANDLE
          MOV  AX,04406H
          MOV  BX,HANDLE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 007H GET OUTPUT STATUS
;;What it does:
;;Gets output status for an open device or file.
DOS_DVCE_GET_OUTPUT_STATUS MACRO HANDLE
          MOV  AX,04407H
          MOV  BX,HANDLE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 008H CHECK REMOVABLE
;;BLOCK DEVICE
;;What it does:
;;Finds out if a block device's media is removable.
DOS_DVCE_CHECK_REMOVABLE_BLOCK_DEVICE MACRO DRIVE_NUMBER
          MOV  AX,04408H
          MOV  BL,DRIVE_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 009H CHECK REMOTE
;;BLOCK DEVICE
;;What it does:
;;Finds out if a block device is local or remote.
DOS_DVCE_CHECK_REMOTE_BLOCK_DEVICE MACRO DRIVE_NUMBER
          MOV  AX,04409H
          MOV  BL,DRIVE_NUMBER
          INT  021H
          ENDM
DRIVE_SET_BY_SUBST         EQU 08000H
DRIVE_SUPPORTS_BLOCK_IOCTL EQU 04000H
DRIVE_NEEDS_FAT_MEDIA_DESC EQU 02000H
DRIVE_REMOTE               EQU 01000H
DRIVE_IS_CHANGEABLE        EQU 00800H
DRIVE_IS_SHARED            EQU 00200H
DRIVE_SUPPORTS_QUERY_IOCTL EQU 00080H
DRIVE_SUPPORTS_LOGICAL_MAP EQU 00040H
DRIVE_USES_32BIT_ADDR      EQU 00002H
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 00AH CHECK REMOTE
;;HANDLE
;;What it does:
;;Finds out if a handle is local or remote.
DOS_DVCE_CHECK_REMOTE_HANDLE MACRO HANDLE
          MOV  AX,0440AH
          MOV  BX,HANDLE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 00BH SET SHARING RETRY
;;COUNT
;;What it does:
;;Changes the retry parameters for file sharing across a network.
DOS_DVCE_SET_SHARING_RETRY_COUNT MACRO PAUSE_COUNT,NUMBER_ENTRIES
          MOV  AX,0440BH
          MOV  CX,PAUSE_COUNT
          MOV  DX,NUMBER_ENTRIES
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 00CH GENERIC IOCTL FOR
;;HANDLES
;;What it does:
;;Performs various miscellaneous generic I/O control for devices.
DOS_DVCE_GENERIC_IOCTL_HANDLE MACRO HANDLE,CATEGORY,FUNCTION
          MOV  AX,0440CH
          MOV  BX,HANDLE
          MOV  CH,CATEGORY
          MOV  CL,FUNCTION
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 00DH GENERIC IOCTL FOR
;;BLOCK DEVICES
;;What it does:
;;Performs various miscellaneous generic I/O control for block
;;devices.
DOS_DVCE_GENERIC_IOCTL_BLOCK MACRO DRIVE_NUMBER,CATEGORY,FUNCTION
          MOV  AX,0440DH
          MOV  BL,DRIVE_NUMBER
          MOV  CH,CATEGORY
          MOV  CL,FUNCTION
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 00EH GET LOGICAL DRIVE
;;MAP
;;What it does:
;;If more than one drive designation applies to the specified
;;drive, gets the last drive designation used to access the
;;drive.
DOS_DVCE_GET_LOGICAL_DRIVE_MAP MACRO DRIVE_NUMBER
          MOV  AX,0440EH
          MOV  BL,DRIVE_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 00FH SET LOGICAL DRIVE
;;MAP
;;What it does:
;;Sets the logical drive name for the specified drive to the next
;;logical drive.
DOS_DVCE_SET_LOGICAL_DRIVE_MAP MACRO DRIVE_NUMBER
          MOV  AX,0440FH
          MOV  BL,DRIVE_NUMBER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 010H QUERY IOCTL
;;HANDLE
;;What it does:
;;Finds out if a specified I/O control capability is supported by
;;the specified device.
DOS_DVCE_QUERY_IOCTL_HANDLE MACRO HANDLE,CATEGORY,FUNCTION,BLOCK
          MOV  AX,04410H
          MOV  BX,HANDLE
          MOV  CH,CATEGORY
          MOV  CL,FUNCTION
          LDS  DX,BLOCK
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 044H Subfunction 011H QUERY IOCTL
;;DEVICE
;;What it does:
;;Finds out if a specified I/O control capability is supported by
;;the specified block device.
DOS_DVCE_QUERY_IOCTL_BLOCK MACRO DRIVE_NUMBER,CATEGORY,FUNCTION,BLOCK
          MOV  AX,04411H
          MOV  BL,DRIVE_NUMBER
          MOV  CH,CATEGORY
          MOV  CL,FUNCTION
          LDS  DX,BLOCK
          INT  021H
          ENDM

%Ò-lh0-9  9  ùXt  INCLUDE\XMS.INCW;;------------------------------------------------------------
;;FINDING THE XMS CALL ADDRESS
;;XMS functions operate via an installed driver.  Access to those
;;functions are made through a far call, not an interrupt call.
;;The address for the far call is obtained with the following
;;code:
XMS_FIND_CALL_ADDRESS MACRO XMS_CONTROL
          MOV  AX,04300H
          INT  2FH
          .IF AL == 080H
               MOV  AX,04310H
               INT  2FH
               MOV  XMS_CONTROL.FP_OFFSET,BX
               MOV  XMS_CONTROL.FP_SEG,ES
          .ENDIF
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 000H GET XMS VERSION NUMBER
;;What it does:
;;Determines what version of XMS is in use and whether or not the
;;high memory area exists.
XMS_GET_VERSION_NUMBER MACRO XMS_CONTROL
          MOV  AH,000H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 001H REQUEST HIGH MEMORY AREA
;;What it does:
;;Acquires the high memory area.
XMS_REQUEST_HMA MACRO XMS_CONTROL,BLK_SIZE
          MOV  DX,BLK_SIZE
          MOV  AH,001H
          CALL XMS_CONTROL
          ENDM
XMS_ERR_NO_ERROR            EQU 000H
XMS_ERR_FN_NOT_IMPLEMENTED  EQU 080H
XMS_ERR_VDISK_DETECTED      EQU 081H
XMS_ERR_A20_ERROR           EQU 082H
XMS_ERR_NO_HMA              EQU 090H
XMS_ERR_HMA_USED            EQU 091H
XMS_ERR_INSUFF_REQUEST      EQU 092H
XMS_ERR_HMA_NOT_ALLOC       EQU 093H
XMS_ERR_A20_LINE_ENABLED    EQU 094H
XMS_ERR_ALL_XMS_ALLOCATED   EQU 0A0H
XMS_ERR_ALL_HANDLES_USED    EQU 0A1H
XMS_ERR_INVALID_HANDLE      EQU 0A2H
XMS_ERR_INVALID_SRC_HANDLE  EQU 0A3H
XMS_ERR_HANDLE_LOCKED       EQU 0A4H
XMS_ERR_BAD_SRC_OFFSET      EQU 0A4H
XMS_ERR_BAD_DEST_HANDLE     EQU 0A5H
XMS_ERR_BAD_DEST_OFFSET     EQU 0A6H
XMS_ERR_INVALID_LENGTH      EQU 0A7H
XMS_ERR_INVALID_OVERLAP     EQU 0A8H
XMS_ERR_PARITY_ERROR        EQU 0A9H
XMS_ERR_BLOCK_UNLOCKED      EQU 0AAH
XMS_ERR_BLOCK_LOCKED        EQU 0ABH
XMS_ERR_LOCK_COUNT_OVERFLOW EQU 0ACH
XMS_ERR_LOCK_FAILED         EQU 0ADH
XMS_ERR_SMALLER_UMB_AVAIL   EQU 0B0H
XMS_ERR_NO_UMB_AVAILABLE    EQU 0B1H
XMS_ERR_INVALID_UMB_SEG     EQU 0B2H
;;------------------------------------------------------------
;;XMS FUNCTION 002H RELEASE HIGH MEMORY AREA
;;What it does:
;;Releases the high memory area.
XMS_RELEASE_HMA MACRO XMS_CONTROL
          MOV  AH,002H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 003H GLOBAL ENABLE A20
;;What it does:
;;Enables the A20 line.
XMS_GLOBAL_ENABLE_A20 MACRO XMS_CONTROL
          MOV  AH,003H
          CALL XMS_CONTROL
          ENDM
;;-----------------------------------------------------------
;;XMS FUNCTION 004H GLOBAL DISABLE A20
;;What it does:
;;Disables the A20 line.
XMS_GLOBAL_DISABLE_A20 MACRO XMS_CONTROL
          MOV  AH,004H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 005H LOCAL ENABLE A20
;;What it does:
;;Enables the A20 line.
XMS_LOCAL_ENABLE_A20 MACRO XMS_CONTROL
          MOV  AH,005H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 006H LOCAL DISABLE A20
;;What it does:
;;Disables the A20 line.
XMS_LOCAL_DISABLE_A20 MACRO XMS_CONTROL
          MOV  AH,006H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 007H QUERY A20
;;What it does:
;;Checks the status of the A20 line.
XMS_QUERY_A20 MACRO XMS_CONTROL
          MOV  AH,007H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 008H QUERY FREE EXTENDED MEMORY
;;What it does:
;;Checks the availability of extended memory.
XMS_QUERY_FREE_EXT_MEMORY MACRO XMS_CONTROL
          MOV  AH,008H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 009H ALLOCATE EXTENDED MEMORY BLOCK
;;What it does:
;;Allocates a block of extended memory.
XMS_ALLOC_EXT_MEMORY MACRO XMS_CONTROL,MEM_SIZE
          MOV  DX,MEM_SIZE
          MOV  AH,009H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 00AH FREE EXTENDED MEMORY BLOCK
;;What it does:
;;Frees a block of extended memory.
XMS_FREE_EXT_MEMORY MACRO XMS_CONTROL,HANDLE
          MOV  DX,HANDLE
          MOV  AH,00AH
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 00BH MOVE EXTENDED MEMORY BLOCK
;;What it does:
;;Moves data from one memory location to another.
XMS_MOVE_EXT_MEMORY MACRO XMS_CONTROL,XMS_MOVE_DATA
          LDS  SI,XMS_MOVE_DATA
          MOV  AH,00BH
          CALL XMS_CONTROL
          ENDM
XMS_MOVE STRUCT
          BYTE_COUNT    DWORD ?
          SOURCE_HANDLE WORD  ?
          SOURCE_OFFSET DWORD ?
          DEST_HANDLE   WORD  ?
          DEST_OFFSET   DWORD ?
XMS_MOVE ENDS
;;------------------------------------------------------------
;;XMS FUNCTION 00CH LOCK EXTENDED MEMORY BLOCK
;;What it does:
;;Prevents a memory block from being moved and returns its
;;physical address.
XMS_LOCK_EXT_MEMORY MACRO XMS_CONTROL,HANDLE
          MOV  DX,HANDLE
          MOV  AH,00CH
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 00DH UNLOCK EXTENDED MEMORY BLOCK
;;What it does:
;;Unlocks a locked extended memory block.
XMS_UNLOCK_EXT_MEMORY MACRO XMS_CONTROL,HANDLE
          MOV  DX,HANDLE
          MOV  AH,00DH
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 00EH GET EXTENDED MEMORY BLOCK HANDLE INFORMATION
;;What it does:
;;Gets additional information about an extended memory block.
XMS_GET_EXT_MEMORY_INFO MACRO XMS_CONTROL,HANDLE
          MOV  DX,HANDLE
          MOV  AH,00EH
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 00FH REALLOCATE EXTENDED MEMORY BLOCK
;;What it does:
;;Changes the size of an allocated memory block.
XMS_REALLOC_EXT_MEMORY MACRO XMS_CONTROL,HANDLE,BLK_SIZE
          MOV  DX,HANDLE
          MOV  BX,BLK_SIZE
          MOV  AH,00FH
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 010H REQUEST UPPER MEMORY BLOCK
;;What it does:
;;Requests an upper memory block.
XMS_ALLOC_UMB MACRO XMS_CONTROL,BLK_SIZE
          MOV  DX,BLK_SIZE
          MOV  AH,10H
          CALL XMS_CONTROL
          ENDM
;;------------------------------------------------------------
;;XMS FUNCTION 011H RELEASE UPPER MEMORY BLOCK
;;What it does:
;;Releases an upper memory block.
XMS_FREE_UMB MACRO XMS_CONTROL,SEGMENT_NUMBER
          MOV  DX,SEGMENT_NUMBER
          MOV  AH,011H
          CALL XMS_CONTROL
          ENDM
)V-lh0-ž  ž  wt  INCLUDE\DOS_FCB.INCŽÇ;;------------------------------------------------------------
;;Interrupt 021H Function 00FH OPEN FILE WITH FCB
;;What it does:
;;Opens a file with a file control block.
DOS_FCB_OPEN_FILE MACRO FCB
          MOV  AH,00FH
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 010H CLOSE FILE WITH FCB
;;What it does:
;;Closes a file that was opened with a file control block.
DOS_FCB_CLOSE_FILE MACRO FCB
          MOV  AH,010H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 011H FIND FIRST MATCH WITH FCB
;;What it does:
;;Gets the first file in a directory via a file control block;
;;the name may contain wildcards.
DOS_FCB_FIND_FIRST_MATCH MACRO FCB
          MOV  AH,011H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 012H FIND NEXT MATCH WITH FCB
;;What it does:
;;Gets the next file in a directory via a file control block; the
;;name may contain wildcards.
DOS_FCB_FIND_NEXT_MATCH MACRO FCB
          MOV  AH,012H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 013H DELETE FILE WITH FCB
;;What it does:
;;Deletes all files matching the file specification in the file
;;control block.
DOS_FCB_DELETE_FILE MACRO FCB
          MOV  AH,013H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 014H FILE READ WITH FCB
;;What it does:
;;Reads data from an open file via a file control block.
DOS_FCB_READ_FILE MACRO FCB
          MOV  AH,014H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 015H FILE WRITE WITH FCB
;;What it does:
;;Writes data to an open file via a file control block.
DOS_FCB_WRITE_FILE MACRO FCB
          MOV  AH,015H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 016H CREATE FILE WITH FCB
;;What it does:
;;Creates a file with a file control block.
DOS_FCB_CREATE_FILE MACRO FCB
          MOV  AH,016H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 017H RENAME FILE WITH FCB
;;What it does:
;;Renames a file with a file control block; supports renaming
;;with wildcards.
DOS_FCB_RENAME_FILE MACRO FCB
          MOV  AH,017H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 021H RANDOM FILE READ
;;What it does:
;;Reads the specified record from a file control block.
DOS_FCB_RANDOM_READ_FILE MACRO FCB
          MOV  AH,021H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 022H RANDOM FILE WRITE
;;What it does:
;;Writes the specified record from a file control block.
DOS_FCB_RANDOM_WRITE_FILE MACRO FCB
          MOV  AH,022H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 023H GET FILE SIZE WITH FCB
;;What it does:
;;Fills in the file size field of the file control block.
DOS_FCB_GET_FILE_SIZE MACRO FCB
          MOV  AH,023H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 024H SET RANDOM RECORD FIELD
;;What it does:
;;Sets the random record field in the file control block.
DOS_FCB_SET_RANDOM_RECORD_FIELD MACRO FCB
          MOV  AH,024H
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 027H RANDOM BLOCK READ
;;What it does:
;;Reads a group of random records from a disk file via a file
;;control block.
DOS_FCB_RANDOM_READ_BLOCK MACRO FCB,RECORD_COUNT
          MOV  AH,027H
          MOV  CX,RECORD_COUNT
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 028H RANDOM BLOCK WRITE
;;What it does:
;;Writes a group of random records to a disk file via a file
;;control block.
DOS_FCB_RANDOM_WRITE_BLOCK MACRO FCB,RECORD_COUNT
          MOV  AH,028H
          MOV  CX,RECORD_COUNT
          LDS  DX,FCB
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 029H PARSE FILE NAME
;;What it does:
;;Parses a filename string into a file control block.
DOS_FCB_PARSE_FILE_NAME MACRO FCB,FILENAME,PARSE_CONTROL_FLAG
          MOV  AH,029H
          MOV  AL,PARSE_CONTROL_FLAG
          LDS  SI,FILENAME
          LES  DI,FCB
          INT  021H
          ENDM
*¤-lh0-z  z  Ñ‘t  INCLUDE\DOS_FILE.INC:ÿ;;------------------------------------------------------------
;;Interrupt 021H Function 03CH CREATE FILE WITH HANDLE
;;What it does:
;;Creates a file if it doesn't already exist, truncates it to
;;zero length if it does.
DOS_FILE_CREATE MACRO FILENAME,FILE_ATTRIBUTE
          MOV  AH,03CH
          MOV  CX,FILE_ATTRIBUTE
          LDS  DX,FILENAME
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 03DH OPEN FILE WITH HANDLE
;;What it does:
;;Opens a file and obtains a file handle.
DOS_FILE_OPEN MACRO FILENAME,ACCESS
          MOV  AH,03DH
          MOV  AL,ACCESS
          LDS  DX,FILENAME
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 03EH CLOSE FILE WITH HANDLE
;;What it does:
;;Closes a file that was opened with a handle.
DOS_FILE_CLOSE MACRO HANDLE
          MOV  AH,03EH
          MOV  BX,HANDLE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 03FH READ FILE WITH HANDLE
;;What it does:
;;Reads data from a file or device that was opened with a handle.
DOS_FILE_READ MACRO HANDLE,BYTE_COUNT,BUFFER
          MOV  AH,03FH
          MOV  BX,HANDLE
          MOV  CX,BYTE_COUNT
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 040H WRITE FILE WITH HANDLE
;;What it does:
;;Writes data to a file or device that was opened with a handle.
DOS_FILE_WRITE MACRO HANDLE,BYTE_COUNT,BUFFER
          MOV  AH,040H
          MOV  BX,HANDLE
          MOV  CX,BYTE_COUNT
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 042H MOVE FILE POINTER
;;What it does:
;;Performs a file seek, moving the file pointer to a specified
;;location relative to the start of file, the current file
;;pointer, or the end of file.
DOS_FILE_SEEK MACRO HANDLE,METHOD_CODE,DISTANCE
          MOV  AH,042H
          MOV  AL,METHOD_CODE
          MOV  BX,HANDLE
          MOV  CX,HIGHWORD DISTANCE
          MOV  DX,LOWWORD DISTANCE
          INT  021H
          ENDM
SEEK_FROM_BEGINNING  EQU 0
SEEK_FROM_CURRENT_FP EQU 1
SEEK_FROM_END        EQU 2
;;------------------------------------------------------------
;;Interrupt 021H Function 045H DUPLICATE HANDLE
;;What it does:
;;Makes a new handle for an already opened device or file.
DOS_FILE_DUP MACRO HANDLE
          MOV  AH,045H
          MOV  BX,HANDLE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 046H FORCE DUPLICATE HANDLE
;;What it does:
;;Makes two file handles refer to the same opened device or file
;;at the same location.
DOS_FILE_DUP2 MACRO HANDLE_1,HANDLE_2
          MOV  AH,046H
          MOV  BX,HANDLE_1
          MOV  CX,HANDLE_2
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 057H Subfunction 000H GET FILE
;;TIMESTAMP
;;What it does:
;;Get the file date and time stamp.
DOS_FILE_GET_TIMESTAMP MACRO HANDLE
          MOV  AX,05700H
          MOV  BX,HANDLE
          INT  021H
          ENDM
DOS_FILE_DATE RECORD YEAR:7,MONTH:4,DAY:5
DOS_FILE_TIME RECORD HOUR:5,MINUTE:6,SECOND:5
;;------------------------------------------------------------
;;Interrupt 021H Function 057H Subfunction 001H SET FILE
;;TIMESTAMP
;;What it does:
;;Sets a file's date and time stamp.
DOS_FILE_SET_TIME_STAMP MACRO HANDLE,TIME,DATE
          MOV  AX,05701H
          MOV  BX,HANDLE
          MOV  CX,TIME
          MOV  DX,DATE
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05CH Subfunction 000H ACQUIRE FILE
;;ACCESS LOCKS
;;What it does:
;;Attempts to acquire a write lock on part of a file.
DOS_FILE_GET_LOCK MACRO HANDLE,REGION_START_OFFSET,REGION_LENGTH
          MOV  AX,05C00H
          MOV  BX,HANDLE
          MOV  CX,HIGHWORD REGION_START_OFFSET
          MOV  DX,LOWWORD REGION_START_OFFSET
          MOV  SI,HIGHWORD REGION_LENGTH
          MOV  DI,LOWWORD REGION_LENGTH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 05CH Subfunction 001H RELEASE FILE
;;ACCESS LOCKS
;;What it does:
;;Releases a previously acquired write lock.
DOS_FILE_RELEASE_LOCK MACRO HANDLE,REGION_START_OFFSET,LENGTH
          MOV  AX,05C01H
          MOV  BX,HANDLE
          MOV  CX,HIGHWORD REGION_START_OFFSET
          MOV  DX,LOWWORD REGION_START_OFFSET
          MOV  SI,HIGHWORD LENGTH
          MOV  DI,LOWWORD LENGTH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 068H FLUSH BUFFER
;;What it does:
;;Flushes all buffered data to the device.
DOS_FILE_FLUSH MACRO HANDLE
          MOV  AH,068H
          MOV  BX,HANDLE
          INT  021H
          ENDM
&‡-lh0-V  V  (–t  INCLUDE\VCPI.INCôM;;------------------------------------------------------------
;;Interrupt 067H Function 0DE00H VCPI INSTALLATION CHECK
;;What it does:
;;Determines whether the EMS manager provides a VCPI interface. A
;;page of EMS memory should be allocated before calling this
;;function.
VCPI_INSTALLATION_CHECK MACRO
          MOV  AX,0DE00H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE01H GET PROTECTED MODE INTERFACE
;;What it does:
;;Gives the caller access to the VCPI protected mode entry point.
VCPI_GET_PROT_MODE_INTERFACE MACRO GDT_POINTER,GDT,PG_TBL_BUFFER
          MOV  AX,0DE01H
          MOV  BX,LOWWORD OFFSET GDT_POINTER
          LDS  SI,GDT
          LES  DI,PG_TBL_BUFFER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE02H GET MAXIMUM PHYSICAL MEMORY
;;ADDRESS
;;What it does:
;;Returns the highest possible memory page that can be allocated.
;;This function can only be called in real mode.
VCPI_GET_MAX_PHYS_MEM_ADDR MACRO
          MOV  AX,0DE02H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE03H GET NUMBER OF FREE PAGES
;;What it does:
;;Returns the number of free 4K pages.
VCPI_GET_NUMBER_FREE_PAGES MACRO
          MOV  AX,0DE03H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE04H ALLOCATE PAGE
;;What it does:
;;Allocates a 4K page.
VCPI_ALLOC_PAGE MACRO
          MOV  AX,0DE04H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE05H RELEASE PAGE
;;What it does:
;;Releases a 4K page.
VCPI_RELEASE_PAGE MACRO PHYSICAL_PAGE_ADDRESS
          MOV  AX,0DE05H
          MOV  EDX,PHYSICAL_PAGE_ADDRESS
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE06H GET ADDRESS OF PAGE IN FIRST
;;MEGABYTE
;;What it does:
;;Gets the physical address of an EMS page. This function can
;;only be called in real mode.
VCPI_GET_1MB_PAGE_ADDRESS MACRO PAGE_NUMBER
          MOV  AX,0DE06H
          MOV  CX,PAGE_NUMBER
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE07H READ CR0
;;What it does:
;;Returns the current value of CR0. This function can only be
;;called in real mode.
VCPI_READ_CR0 MACRO
          MOV  AX,0DE07H
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE08H READ DEBUG REGISTERS
;;What it does:
;;Gets the current values of the debug registers. This function
;;can only be called in real mode.
VCPI_READ_DEBUG_REGISTERS MACRO DEBUG_REGISTER_TABLE
          MOV  AX,0DE08H
          LES  DI,DEBUG_REGISTER_TABLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE09H LOAD DEBUG REGISTERS
;;What it does:
;;Loads new values into the debug registers. This function can
;;only be called in real mode.
VCPI_LOAD_DEBUG_REGISTERS MACRO DEBUG_REGISTER_TABLE
          MOV  AX,0DE09H
          LES  DI,DEBUG_REGISTER_TABLE
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE0AH GET 8259 INTERRUPT VECTOR
;;MAPPINGS
;;What it does:
;;Gets the IRQ0 and IRQ8 vectors. If the system does not have a
;;cascaded 8259, the IRQ8 vector is undefined. This function can
;;only be called in real mode.
VCPI_GET_8259_VECTOR_MAPPINGS MACRO
          MOV  AX,0DE0AH
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE0BH SET 8259 INTERRUPT VECTOR ;;MAPPINGS
;;What it does:
;;Sets the IRQ0 and IRQ8 vectors. This function can only be
;;called in real mode.
VCPI_SET_8259_VECTOR_MAPPINGS MACRO IRQ0_VECTOR,IRQ8_VECTOR
          MOV  AX,0DE0BH
          MOV  BX,IRQ0_VECTOR
          MOV  CX,IRQ8_VECTOR
          INT  067H
          ENDM
;;------------------------------------------------------------
;;Interrupt 067H Function 0DE0CH SWITCH CPU MODE
;;What it does:
;;Switches the CPU from real mode to protected mode and from
;;protected mode to real mode. When called, interrupts should be
;;disabled.
VCPI_SWITCH_TO_PROTECTED_MODE MACRO SYSTEM_REGISTER_TABLE
          MOV  AX,0DE0CH
          MOV  ESI,OFFSET SYSTEM_REGISTER_TABLE
          INT  067H
          ENDM
VCPI_SWITCH_TO_REAL_MODE MACRO SYSTEM_REGISTER_TABLE,SELECTOR
          MOV  AX,0DE0CH
          LSS  ESP,SYSTEM_REGISTER_TABLE
          MOV  DS,SELECTOR
          INT  067H
          ENDM
)-lh0-°  °  8°t  INCLUDE\BIOSVID.INCa;;------------------------------------------------------------
;;Interrupt 010H Function 000H SET VIDEO MODE
;;What it does:
;;Sets the video mode, clears the screen, and selects the video
;;adapter if more than one is present.  On EGA, MCGA and VGA
;;systems, setting bit 7 of AL to 1 will prevent the screen from
;;being cleared.
BIOSVID_SET_MODE MACRO DISPLAY_MODE
          MOV  AH,000H
          MOV  AL,DISPLAY_MODE
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 001H SET CURSOR TYPE
;;What it does:
;;Sets the top and bottom scan lines of the cursor.
BIOSVID_SET_CURSOR_TYPE MACRO TOP_SCAN_LINE,BOTTOM_SCAN_LINE
          MOV  AH,001H
          MOV  CH,TOP_SCAN_LINE
          MOV  CL,BOTTOM_SCAN_LINE
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 002H SET CURSOR POSITION
;;What it does:
;;Sets the cursor coordinates for a specific page of the video
;;display.
BIOSVID_SET_CURSOR_POSITION MACRO PAGE,ROW,COLUMN
          MOV  AH,002H
          MOV  BH,PAGE
          MOV  DH,ROW
          MOV  DL,COLUMN
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 003H READ CURSOR TYPE AND POSITION
;;What it does:
;;Reads the cursor coordinates and top and bottom scan lines for
;;a specified video page.
BIOSVID_READ_CURSOR MACRO PAGE
          MOV  AH,003H
          MOV  BH,PAGE
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 005H SELECT ACTIVE DISPLAY PAGE
;;What it does:
;;Selects the display page to be viewed.
BIOSVID_SELECT_ACTIVE_PAGE MACRO PAGE
          MOV  AH,005H
          MOV  AL,PAGE
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 006H SCROLL WINDOW UP
;;What it does:
;;Scrolls the screen up a specified number of lines.
BIOSVID_SCROLL_UP MACRO LINE_COUNT,ATTRIBUTE,TOP_ROW, \
                             LEFT_COLUMN,BOTTOM_ROW,RIGHT_COLUMN
          MOV  AH,006H
          MOV  AL,LINE_COUNT
          MOV  BH,ATTRIBUTE
          MOV  CH,TOP_ROW
          MOV  CL,LEFT_COLUMN
          MOV  DH,BOTTOM_ROW
          MOV  DL,RIGHT_COLUMN
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 007H SCROLL WINDOW DOWN
;;What it does:
;;Scrolls the screen down a specified number of lines.
BIOSVID_SCROLL_DOWN MACRO LINE_COUNT,ATTRIBUTE,TOP_ROW, \
                               LEFT_COLUMN,BOTTOM_ROW,RIGHT_COLUMN
          MOV  AH,007H
          MOV  AL,LINE_COUNT
          MOV  BH,ATTRIBUTE
          MOV  CH,TOP_ROW
          MOV  CL,LEFT_COLUMN
          MOV  DH,BOTTOM_ROW
          MOV  DL,RIGHT_COLUMN
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 008H READ CHARACTER AND ATTRIBUTE
;;What it does:
;;Reads the character and attribute at the current cursor
;;location.
BIOSVID_READ_CHAR MACRO PAGE_NUMBER
          MOV  AH,008H
          MOV  BH,PAGE_NUMBER
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 009H WRITE CHARACTER AND ATTRIBUTE
;;What it does:
;;Writes the specified character with the specified attribute
;;starting at the current cursor location.
BIOSVID_WRITE_CHAR_AND_ATTR MACRO CHARACTER,PAGE,ATTRIBUTE,COUNT
          MOV  AH,009H
          MOV  AL,CHARACTER
          MOV  BH,PAGE
          MOV  BL,ATTRIBUTE
          MOV  CX,COUNT
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 00AH WRITE CHARACTER
;;What it does:
;;Writes the specified character starting at the cursor location.
BIOSVID_WRITE_CHAR MACRO CHARACTER,PAGE,CHARACTER_COUNT
          MOV  AH,009H
          MOV  AL,CHARACTER
          MOV  BH,PAGE
          MOV  CX,CHARACTER_COUNT
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 00EH WRITE TEXT IN TELETYPE MODE
;;What it does:
;;Writes the specified character in teletype mode; bell (7),
;;backspace (8), carriage return (0DH) and line feed (0AH) are
;;interpreted as actions to be performed.
BIOSVID_WRITE_TTY MACRO CHARACTER,PAGE_NUMBER
          MOV  AH,00EH
          MOV  AL,CHARACTER
          MOV  BH,PAGE_NUMBER
          INT  010H
          ENDM
;;------------------------------------------------------------
;;Interrupt 010H Function 00FH GET CURRENT DISPLAY MODE
;;What it does:
;;Gets the current display mode, the current display page, and
;;the current number of columns on the screen.
BIOSVID_GET_MODE MACRO
          MOV  AH,00FH
          INT  010H
          ENDM
(h-lh0-o  o  F±t  INCLUDE\DOS_IO.INC¨f;;------------------------------------------------------------
;;Interrupt 021H Function 001H GET CHARACTER FROM STDIN WITH ECHO
;;TO STDOUT
;;What it does:
;;Reads a character from the standard input device and writes it
;;to the standard output device.
DOS_IO_GETCHE MACRO
          MOV  AH,001H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 002H OUTPUT CHARACTER TO STDOUT
;;What it does:
;;Writes a character to the standard output device.
DOS_IO_PUTCH MACRO CHARACTER
          MOV  AH,002H
          MOV  DL,CHARACTER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 003H GET CHARACTER FROM STDAUX
;;What it does:
;;Reads a character from the standard auxiliary device (usually a
;;serial port).
DOS_IO_GETCH_STDAUX MACRO
          MOV  AH,003H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 004H OUTPUT CHARACTER TO STDAUX
;;What it does:
;;Writes a character to the standard auxiliary device (usually a
;;serial port).
DOS_IO_PUTCH_STDAUX MACRO CHARACTER
          MOV  AH,004H
          MOV  DL,CHARACTER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 005H OUTPUT CHARACTER TO STDPRN
;;What it does:
;;Writes a character to the standard printer device.
DOS_IO_PUTCH_STDPRN MACRO CHARACTER
          MOV  AH,005H
          MOV  DL,CHARACTER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 006H DIRECT CONSOLE I/O
;;What it does:
;;Reads a character from the console or writes a character to the
;;console, without checking for CTRL-C or CTRL-BREAK.
DOS_IO_DIRECT_CON_READ MACRO
          MOV  AH,006H
          MOV  DL,0FFH
          INT  021H
          ENDM
DOS_IO_DIRECT_CON_WRITE MACRO CHARACTER
          MOV  AH,006H
          MOV  DL,CHARACTER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 007H GET RAW CHARACTER FROM STDIN
;;What it does:
;;Reads a character from the standard input device without
;;checking for CTRL_C or CTRL-BREAK.
DOS_IO_GETCH_RAW MACRO
          MOV  AH,007H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 008H GET CHARACTER FROM STDIN
;;What it does:
;;Reads a character from the standard input device.
DOS_IO_GETCH MACRO
          MOV  AH,008H
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 009H WRITE STRING TO STDOUT
;;What it does:
;;Writes a string terminated with a dollar sign ('$') to the
;;standard output device.
DOS_IO_WRITE_STRING MACRO STRING
          MOV  AH,009H
          LDS  DX,STRING
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 00AH BUFFERED INPUT FROM STDIN
;;What it does:
;;Reads characters from the standard input device and places them
;;in a buffer.
DOS_IO_GETLINE MACRO BUFFER
          MOV  AH,00AH
          LDS  DX,BUFFER
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 00BH CHECK STDIN STATUS
;;What it does:
;;Checks whether a character is available from the standard input
;;device.
DOS_IO_STAT MACRO
          MOV  AH,00BH
          INT  021H
          ENDM
;;------------------------------------------------------------
;;Interrupt 021H Function 00CH CLEAR STDIN AND EXECUTE FUNCTION
;;What it does:
;;Clears the standard input device buffer and executes the
;;specified function call.
DOS_IO_GETCHE_FLUSH MACRO
          MOV  AX,00C01H
          INT  021H
          ENDM
DOS_IO_CON_READ_FLUSH MACRO
          MOV  AX,00C06H
          MOV  DL,0FFH
          INT  021H
          ENDM
DOS_IO_CON_WRITE_FLUSH MACRO CHARACTER
          MOV  AX,00C06H
          MOV  DL,CHARACTER
          INT  021H
          ENDM
DOS_IO_GETCH_RAW_FLUSH MACRO
          MOV  AX,00C07H
          INT  021H
          ENDM
DOS_IO_GETCH_FLUSH MACRO
          MOV  AX,00C08H
          INT  021H
          ENDM
*¶-lh0-ø  ø  ­³t  INCLUDE\BIOSDISK.INC|è;;------------------------------------------------------------
;;Interrupt 013H Function 000H RESET DISK SYSTEM
;;What it does:
;;Resets the disk controller and forces the drive to pull the
;;heads to track 0.
BIOSDISK_RESET_FLOPPY MACRO DRIVE_ID
          MOV  AH,000H
          MOV  DL,DRIVE_ID
          AND  DL,07FH
          INT  013H
          ENDM
BIOSDISK_RESET_HARDDISK MACRO DRIVE_ID
          MOV  AH,000H
          MOV  DL,DRIVE_ID
          OR   DL,080H
          INT  013H
          ENDM
;;------------------------------------------------------------
;;Interrupt 013H Function 002H READ DISK SECTORS
;;What it does:
;;Reads disk sectors.
BIOSDISK_READ_SECTORS_FLOPPY MACRO N_SECTORS, BUFFER, TRACK, \
                                   SECTOR, HEAD, DRIVE
          MOV  AH,002H
          MOV  AL,N_SECTORS
          LES  BX,BUFFER
          MOV  CX,TRACK
          XCHG CH,CL
          ROR  CL,1
          ROR  CL,1
          AND  CL,0C0H
          MOV  DH,SECTOR
          AND  DH,03FH
          OR   CL,DH
          MOV  DH,HEAD
          MOV  DL,DRIVE
          AND  DL,07FH
          INT  013H
          ENDM
BIOSDISK_READ_SECTORS_HARDDISK MACRO N_SECTORS, BUFFER, TRACK, \
                                     SECTOR, HEAD, DRIVE
          MOV  AH,002H
          MOV  AL,N_SECTORS
          LES  BX,BUFFER
          MOV  CX,TRACK
          XCHG CH,CL
          ROR  CL,1
          ROR  CL,1
          AND  CL,0C0H
          MOV  DH,SECTOR
          AND  DH,03FH
          OR   CL,DH
          MOV  DH,HEAD
          MOV  DL,DRIVE
          OR   DL,080H
          INT  013H
          ENDM
;;------------------------------------------------------------
;;Interrupt 013H Function 003H WRITE DISK SECTORS
;;What it does:
;;Writes disk sectors.
BIOSDISK_WRITE_SECTORS_FLOPPY MACRO N_SECTORS, BUFFER, TRACK, \
                                    SECTOR, HEAD, DRIVE
          MOV  AH,003H
          MOV  AL,N_SECTORS
          LES  BX,BUFFER
          MOV  CX,TRACK
          XCHG CH,CL
          ROR  CL,1
          ROR  CL,1
          AND  CL,0C0H
          MOV  DH,SECTOR
          AND  DH,03FH
          OR   CL,DH
          MOV  DH,HEAD
          MOV  DL,DRIVE
          AND  DL,07FH
          INT  013H
          ENDM
BIOSDISK_WRITE_SECTORS_HARDDISK MACRO N_SECTORS, BUFFER, TRACK, \
                                      SECTOR, HEAD, DRIVE
          MOV  AH,003H
          MOV  AL,N_SECTORS
          LES  BX,BUFFER
          MOV  CX,TRACK
          XCHG CH,CL
          ROR  CL,1
          ROR  CL,1
          AND  CL,0C0H
          MOV  DH,SECTOR
          AND  DH,03FH
          OR   CL,DH
          MOV  DH,HEAD
          MOV  DL,DRIVE
          OR   DL,080H
          INT  013H
          ENDM
;;------------------------------------------------------------
;;Interrupt 013H Function 004H VERIFY DISK SECTORS
;;What it does:
;;Verifies disk sectors (verifies CRCs).
BIOSDISK_VERIFY_SECTORS_FLOPPY MACRO N_SECTORS, BUFFER, TRACK, \
                                     SECTOR, HEAD, DRIVE
          MOV  AH,004H
          MOV  AL,N_SECTORS
          MOV  CX,TRACK
          XCHG CH,CL
          ROR  CL,1
          ROR  CL,1
          AND  CL,0C0H
          MOV  DH,SECTOR
          AND  DH,03FH
          OR   CL,DH
          MOV  DH,HEAD
          MOV  DL,DRIVE
          AND  DL,07FH
          INT  013H
          ENDM
BIOSDISK_VERIFY_SECTORS_HARDDISK MACRO N_SECTORS, BUFFER, \
                                       TRACK, SECTOR, HEAD, DRIVE
          MOV  AH,004H
          MOV  AL,N_SECTORS
          MOV  CX,TRACK
          XCHG CH,CL
          ROR  CL,1
          ROR  CL,1
          AND  CL,0C0H
          MOV  DH,SECTOR
          AND  DH,03FH
          OR   CL,DH
          MOV  DH,HEAD
          MOV  DL,DRIVE
          OR   DL,080H
          INT  013H
          ENDM
;;------------------------------------------------------------
;;Interrupt 013H Function 005H FORMAT DISK TRACK
;;What it does:
;;Formats a disk track.
BIOSDISK_FORMAT_TRACK_FLOPPY MACRO ADDR_LIST,TRACK,HEAD,DRIVE
          MOV  AH,005H
          LES  BX,ADDR_LIST
          MOV  CH,TRACK
          MOV  DH,HEAD
          MOV  DL,DRIVE
          AND  DL,07FH
          INT  013H
          ENDM
BIOSDISK_FORMAT_TRACK_HARDDISK MACRO ADDR_LIST,TRACK,HEAD,DRIVE
          MOV  AH,005H
          LES  BX,ADDR_LIST
          MOV  CH,TRACK
          MOV  DH,HEAD
          MOV  DL,DRIVE
          OR   DL,080H
          INT  013H
          ENDM
)ô-lh0-ž  ž  ¶t  INCLUDE\BIOSCOM.INCÀ;;------------------------------------------------------------
;;Interrupt 014H Function 000H INITIALIZE COMMUNICATIONS PORT
;;What it does:
;;Initializes a communications port.
BIOSCOM_INIT_PORT MACRO BAUD_RATE,PARITY,STOP_BITS,LENGTH,PORT
          MOV  AH,000H
          MOV  AL,BAUD_RATE
          OR   AL,PARITY
          OR   AL,STOP_BITS
          OR   AL,LENGTH
          MOV  DX,PORT
          INT  014H
          ENDM
BAUD_110  EQU 000H
BAUD_150  EQU 020H
BAUD_300  EQU 040H
BAUD_600  EQU 060H
BAUD_1200 EQU 080H
BAUD_2400 EQU 0A0H
BAUD_4800 EQU 0C0H
BAUD_9600 EQU 0E0H
PARITY_NONE EQU 000H
PARITY_ODD  EQU 008H
PARITY_EVEN EQU 018H
STOP_1 EQU 000H
STOP_2 EQU 004H
LENGTH_5 EQU 000H
LENGTH_6 EQU 001H
LENGTH_7 EQU 002H
LENGTH_8 EQU 003H
;;------------------------------------------------------------
;;Interrupt 014H Function 001H WRITE CHARACTER TO SERIAL PORT
;;What it does:
;;Outputs a character to the serial port.
BIOSCOM_WRITE MACRO PORT,CHARACTER
          MOV  AH,001H
          MOV  AL,CHARACTER
          MOV  DX,PORT
          INT  014H
          ENDM
;;------------------------------------------------------------
;;Interrupt 014H Function 002H READ CHARACTER FROM SERIAL PORT
;;What it does:
;;Reads a character from the serial port.
BIOSCOM_READ MACRO PORT
          MOV  AH,002H
          MOV  DX,PORT
          INT  014H
          ENDM
;;------------------------------------------------------------
;;Interrupt 014H Function 003H GET PORT STATUS
;;What it does:
;;Gets the current port and modem status.
BIOSCOM_STAT MACRO PORT
          MOV  AH,002H
          MOV  DX,PORT
          INT  014H
          ENDM
)Z-lh0-ê  ê  L·t  INCLUDE\BIOSKEY.INC©-;;------------------------------------------------------------
;;Interrupt 016H Function 000H READ KEYBOARD CHARACTER
;;What it does:
;;Gets a character from the keyboard.  Waits for character.
BIOSKEY_READ MACRO
          MOV  AH,000H
          INT  016H
          ENDM
;;------------------------------------------------------------
;;Interrupt 016H Function 001H READ KEYBOARD STATUS
;;What it does:
;;Gets keyboard status and the scan code and character that will
;;be read next, if available.
BIOSKEY_STATUS MACRO
          MOV  AH,001H
          INT  016H
          ENDM
;;------------------------------------------------------------
;;Interrupt 016H Function 002H READ KEYBOARD FLAGS
;;What it does:
;;Gets keyboard flags (which auxiliary keys are depressed).
BIOSKEY_GET_FLAGS MACRO
          MOV  AH,002H
          INT  016H
          ENDM
;;------------------------------------------------------------
;;Interrupt 016H Function 005H WRITE TO KEYBOARD BUFFER
;;What it does:
;;Writes a character and scan code to the keyboard buffer; this
;;is only found on systems with support for extended keyboards
;;and can be used to detect such support.
BIOSKEY_WRITE MACRO SCAN_CODE,CHARACTER
          MOV  AH,005H
          MOV  CH,SCAN_CODE
          MOV  CL,CHARACTER
          INT  016H
          ENDM
;;------------------------------------------------------------
;;Interrupt 016H Function 010H READ EXTENDED KEYBOARD CHARACTER
;;What it does:
;;Gets a character from the extended keyboard.  Waits for
;;character.
BIOSKEY_ENHANCED_READ MACRO
          MOV  AH,010H
          INT  016H
          ENDM
;;------------------------------------------------------------
;;Interrupt 016H Function 011H READ ENHANCED KEYBOARD STATUS
;;What it does:
;;Gets keyboard status and the scan code and character that will
;;be read next, if available.
BIOSKEY_ENHANCED_STATUS MACRO
          MOV  AH,011H
          INT  016H
          ENDM
;;------------------------------------------------------------
;;Interrupt 016H Function 012H READ ENHANCED KEYBOARD FLAGS
;;What it does:
;;Gets keyboard flags (which auxiliary keys are depressed).
BIOSKEY_GET_ENHANCED_FLAGS MACRO
          MOV  AH,012H
          INT  016H
          ENDM
*è-lh0-æ
  æ
  ;¸t  INCLUDE\BIOSVARS.INC#BIOS_VARS STRUCT
     COM1_BASE_ADDRESS   WORD ?
     COM2_BASE_ADDRESS   WORD ?
     COM3_BASE_ADDRESS   WORD ?
     COM4_BASE_ADDRESS   WORD ?
     LPT1_BASE_ADDRESS   WORD ?
     LPT2_BASE_ADDRESS   WORD ?
     LPT3_BASE_ADDRESS   WORD ?
     LPT4_BASE_ADDRESS   WORD ?
     INSTALLED_HARDWARE  WORD ?
     POST_STATUS         BYTE ?    ; PC-convertible only
     MEMORY_SIZE         WORD ?
                         WORD ?
     KEYBOARD_CONTROL    WORD ?
     ALT_KEYPAD_ENTRY    BYTE ?
     KEYBOARD_HEAD_PTR   WORD ?
     KEYBOARD_TAIL_PTR   WORD ?
     KEYBOARD_BUFFER     WORD 16 DUP (?)
     FLOPPY_RECAL_STATUS BYTE ?
     FLOPPY_MOTOR_STATUS BYTE ?
     MOTOR_OFF_COUNTER   BYTE ?
     FLOPPY_PREV_STATUS  BYTE ?
     FLOPPY_CTRLR_STATUS BYTE 7 DUP (?)
     DISPLAY_MODE        BYTE ?
     NUMBER_COLUMNS      WORD ?
     REGEN_BUFFER_LENGTH WORD ?
     REGEN_BUFFER_ADDR   WORD ?
     CURSOR_POSITION     WORD 8 DUP (?)
     CURSOR_TYPE         WORD ?
     CURR_DISPLAY_PAGE   BYTE ?
     VIDEO_CTRL_BASE     WORD ?
     CURRENT_3x8_SETTING BYTE ?
     CURRENT_3x9_SETTING BYTE ?
     RESET_CODE_ADDRESS  DWORD ?   ; PS/2 only
                         BYTE ?
     TIMER_COUNTER       DWORD ?
     TIMER_OVERFLOW_FLAG BYTE ?
     BREAK_KEY_STATE     BYTE ?
     RESET_FLAG          WORD ?
     FIXED_DISK_OP_STAT  BYTE ?
     FIXED_DISK_NUMBER   BYTE ?
     FIXED_DISK_CONTROL  BYTE ?    ; XT only
     FIXED_DISK_CTRLR    BYTE ?    ; XT only
     PRINTER_1_TIMEOUT   BYTE ?
     PRINTER_2_TIMEOUT   BYTE ?
     PRINTER_3_TIMEOUT   BYTE ?
     PRINTER_4_TIMEOUT   BYTE ?
     COM1_TIMEOUT        BYTE ?
     COM2_TIMEOUT        BYTE ?
     COM3_TIMEOUT        BYTE ?
     COM4_TIMEOUT        BYTE ?
     KBD_BUFFER_START    WORD ?
     KBD_BUFFER_END      WORD ?
     VIDEO_ROWS_MINUS_1  BYTE ?
     CHARACTER_HEIGHT    WORD ?
     VIDEO_CTRL_STATE1   BYTE ?
     VIDEO_CTRL_STATE2   BYTE ?
                         WORD ?
     MEDIA_CONTROL       BYTE ?
     FIXED_DISK_CTRLR_ST BYTE ?
     FIXED_DISK_CTR_ERR  BYTE ?
     FIXED_DISK_INT_CTRL BYTE ?
                         BYTE ?
     DRIVE_0_MEDIA_STATE BYTE ?
     DRIVE_1_MEDIA_STATE BYTE ?
                         WORD ?
     DRIVE_0_CURR_CYL    BYTE ?
     DRIVE_1_CURR_CYL    BYTE ?
     KEYBOARD_MODE_FLAGS BYTE ?
     KEYBOARD_LED_FLAGS  BYTE ?
     USER_WAIT_COMP_ADDR DWORD ?
     USER_WAIT_COUNT     DWORD ?
     WAIT_ACTIVE_FLAG    BYTE ?
                         BYTE 7 DUP (?)
     VIDEO_PARM_TBL_PTR  DWORD ?
     EGA_SAVE_AREA_PTR   DWORD ?
     ALPHA_CHAR_GEN_PTR  DWORD ?
     GRAPH_CHAR_GEN_PTR  DWORD ?
     SECONDARY_SAVE_PTR  DWORD ?
                         BYTE 68 DUP (?)
     PRINTSCREEN_STATUS  BYTE ?
BIOS_VARS ENDS
)9-lh0-¶  ¶  Ý¸t  INCLUDE\BIOSPRN.INCñ;;------------------------------------------------------------
;;Interrupt 017H Function 000H WRITE CHARACTER TO PRINTER PORT
;;What it does:
;;Writes a character to the printer.
BIOSPRN_WRITE MACRO PRINTER_NUMBER,CHARACTER
          MOV  AH,000H
          MOV  AL,CHARACTER
          MOV  DX,PRINTER_NUMBER
          INT  017H
          ENDM
;;------------------------------------------------------------
;;Interrupt 017H Function 001H INITIALIZE PRINTER PORT
;;What it does:
;;Initializes the printer port.
BIOSPRN_INIT MACRO PRINTER_NUMBER
          MOV  AH,001H
          MOV  DX,PRINTER_NUMBER
          INT  017H
          ENDM
;;------------------------------------------------------------
;;Interrupt 017H Function 002H GET PRINTER STATUS
;;What it does:
;;Gets the printer status byte.
BIOSPRN_STATUS MACRO PRINTER_NUMBER
          MOV  AH,002H
          MOV  DX,PRINTER_NUMBER
          INT  017H
          ENDM
*-lh0-é  é  3¹t  INCLUDE\BIOSMISC.INC[;;------------------------------------------------------------
;;Interrupt 011H GET EQUIPMENT STATUS
;;What it does:
;;Gets the equipment status word.
BIOSMISC_GET_EQUIPMENT_STATUS MACRO
          INT  011H
          ENDM
;;------------------------------------------------------------
;;Interrupt 012H GET MEMORY SIZE
;;What it does:
;;Gets the amount of contiguous memory found, up to 640K, in 1K
;;blocks.
BIOSMISC_GET_MEMORY_SIZE MACRO
          INT  012H
          ENDM
 IMER_OVERFLOW_FLAG BYTE ?
     BREAK_KEY_STATE     BYTE ?
     RESET_FLAG          WORD ?
     FIXED_DI_______________________________________________

  Assembly Language Programming:
                    For Real Programmers Only
_______________________________________________


The software on this disk is stored in a self-
extracting archive file. You must install the
disk before you can use the software:

1. From a DOS prompt, change to the drive that
   contains the book's disk.

2. Type 
   INSTALL <drive>
   and press Enter. <drive> is the drive letter of 
   your hard drive. For example, to install to your
   C: drive, type INSTALL C: and press Enter.

The files will be installed to a directory named
\ALP. Each chapter's files will be stored in separate
subdirectories. For example, the files for chapter 10
are stored in \ALP\CH10.


NOTE: You need at least 900k of free space on your 
      hard drive to install the files.


Using Programmers WorkBench
----------------------------

All of programs were compiled at the command line, with 
no command line switches. If you're building any of the 
sample executable programs from within Programmers 
WorkBench, you may need to change some of the PWB settings. 

* One definite change you'll need to make: specify that you
  do NOT want to include the MS-DOS extender.

* Within the .ASM files, you'll find the .MODEL statements 
  that specify which memory model was used.

* The MAK file for ZAP.ASM (Chapter 1) is a non-PWB MAK file.


<<< End >>>PßPàPáPâPãPäPåPìPçPèPéPÿÿÿÿÿÿµQÿÿïPÿÿñPÿÿÿÿÿÿõPöP÷PøPùPÿÿûPüPýPþPÿPQöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö@ECHO OFF
REM Installation program for 
REM "Assembly Language Programming: For Real Programmers Only"
REM copyright 1993, Sams Publishing
REM -----------------------------------------------------------------
IF .%1==. GOTO NEED_DRIVE
CLS
ECHO ÿ
ECHO ÿ
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³   Assembly Language Programming:    ³
ECHO ³   For Real Programmers Only         ³
ECHO ³                                     ³
ECHO ³   INSTALLATION PROGRAM              ³
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ECHO ÿ
ECHO ÿ
ECHO You have chosen to install all the files 
ECHO on this disk to your %1 hard drive.
ECHO ÿ
ECHO The files will take up about 900K of space.
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO                                      If this is NOT what you want to do, 
ECHO                                      press [Ctrl]-[Break] and start over. 
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
PAUSE Paused... press any key to continue the installation
CLS
ECHO The files will now be copied to your hard drive.
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO                             You'll see a message on your screen telling  
ECHO                             you when the installation is finished.
ECHO ÿ
ECHO ÿ
ECHO ÿ
ALP %1\ALP
COPY README.TXT %1\ALP
%1
CD\ALP
CLS
ECHO 
ECHO ÿ
ECHO The disk installation is finished!
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO You'll find the files in the \ALP directory of your hard drive.
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
GOTO FINISHED
:NEED_DRIVE
CLS
ECHO 
ECHO ÿ
ECHO You have not specified the name of your hard drive.
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO For the installation to work, you need to type 
ECHO ÿ
ECHO INSTALL drive:
ECHO ÿ
ECHO drive:  is the drive letter of your hard drive
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO                            For example, to install to your C: drive...
ECHO                            INSTALL C:
ECHO ÿ
ECHO ÿ
ECHO ÿ
ECHO ÿ
:FINISHED
I¡KÁMáOQ!SAUaöööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööööö