;*******************************************************************
; Listing 2.  CP/M call-5, MS-DOS 5+ in HMA
;*******************************************************************

        ; PSP offset 5

xxxx:0005 9AF0FE1DF0 call  F01D:FEF0   ; HMA FFFF:D0 or IVT 0000:C0
F01D:FEF0 EAD010xxxx jmp   xxxx:10D0   ; goto DOS low memory stub

        ; Low-memory DOS stub for CP/M call

xxxx:10D0 90         nop               ; (2 bytes for near patching)
xxxx:10D1 90         nop
xxxx:10D2 E89A00     call  116F        ; ensure A20 line is enabled
xxxx:10D5 2EFF2E7E10 jmp   cs:[107E]   ; then goto CP/M handler in
xxxx:10DA CF         iret              ; HMA (FDC8:40D3)
