nedoPC.org

;----------------------------------------------------------------
; CHECK FOR OPTIONAL ROM FROM C8000->F4000 IN 2K BLOCKS         :
;       (A VALID MODULE HAS '55AA' IN THE FIRST 2 LOCATIONS,    :
;       LENGTH INDICATOR (LENGTH/512) IN THE 3D LOCATION AND    :
;       TEST/INIT. CODE STARTING IN THE 4TH LOCATION.)          :
;----------------------------------------------------------------
ROM_SCAN:
        MOV     DX,0C800H               ; SET BEGINNING ADDRESS
ROM_SCAN_1:
        MOV     DS,DX
        SUB     BX,BX                   ; SET BX=0000
        MOV     AX,[BX]                 ; GET 1ST WORD FROM MODULE
        PUSH    BX
        POP     BX                      ; BUS SETTLING
        CMP     AX,0AA55H               ; = TO ID WORD?
        JNZ     NEXT_ROM                ; PROCEED TO NEXT ROM IF NOT
        CALL    ROM_CHECK               ; GO CHECK OUT MODULE
        JMP     ARE_WE_DONE             ; CHECK FOR END OF ROM SPACE
NEXT_ROM:
        ADD     DX,0080H                ; POINT TO NEXT 2K ADDRESS
ARE_WE_DONE:
        CMP     DX,0F600H               ; AT F6000 YET?
        JL      ROM_SCAN_1              ; GO CHECK ANOTHER ADD. IF NOT
        JMP     BASE_ROM_CHK            ; GO CHECK BASIC ROM
;------------------------------------------------------------------------
; A CHECKSUM IS DONE FOR THE 4 ROS MODULES CONTAINING BASIC CODE        :
;------------------------------------------------------------------------
BASE_ROM_CHK:
        MOV     AH,4                    ; NO. OF ROS MODULES TO CHECK
E4:
        SUB     BX,BX                   ; SETUP STARTING ROS ADDR
        MOV     DS,DX
                                        ; CHECK ROS
        CALL    ROS_CHECKSUM
        JE      E5                      ; CONTINUE IF OK
        CALL    ROM_ERR                 ; POST ERROR
E5:
        ADD     DX,0200H                ; POINT TO NEXT 8K MODULE
        DEC     AH                      ; ANY MORE TO DO?
        JNZ     E4                      ; YES - CONTINUE

;--------------------------------------------------------
; THIS ROUTINE CHECKSUMS OPTIONAL ROM MODULES AND       :
; IF CHECKSUM IS OK, CALLS INIT/TEST CODE IN MODULE     :
;--------------------------------------------------------

ROM_CHECK       PROC    NEAR
        MOV     AX,DATA                 ; POINT ES TO DATA AREA
        MOV     ES,AX
        SUB     AH,AH                   ; ZERO OUT AH
        MOV     AL,[BX+2]               ; GET LENGTH INDICATOR
        MOV     CL,09H                  ; MULTIPLY BY 512
        SHL     AX,CL
        MOV     CX,AX                   ; SET COUNT
        PUSH    CX                      ; SAVE COUNT
        MOV     CX,4                    ; ADJUST
        SHR     AX,CL
        ADD     DX,AX                   ; SET POINTER TO NEXT MODULE
        POP     CX                      ; RETRIVE COUNT
        CALL    ROS_CHECKSUM_CNT        ; DO CHECKSUM
        JZ      ROM_CHECK_1
        CALL    ROM_ERR                 ; POST CHECKSUM ERROR
        JMP     ROM_CHECK_END           ; AND EXIT
ROM_CHECK_1:
        PUSH    DX                      ; SAVE POINTER
        MOV     ES:IO_ROM_INIT,0003H    ; LOAD OFFSET
        MOV     ES:IO_ROM_SEG,DS        ; LOAD SEGMENT
        CALL    DWORD PTR ES:IO_ROM_INIT        ; CALL INIT./TEST ROUTINE
        POP     DX
ROM_CHECK_END:
        RET                             ; RETURN TO CALLER
ROM_CHECK       ENDP

 0000            CODE      Segment   

                        Assume   cs:CODE
                     
                        org      0h

 0000  55 AA               db      55h, 0AAh      ; ROM extension signature
 0002  08                  db      8            ; length in 512 bytes - 4K
 0003            Start:

 0003            SDbios      Proc far

 0003  FA                  cli

 0004  B0 01               mov      al, 01b
 0006  33 C9               xor      cx, cx
 0008  E6 B3               out      LEDport, al
 000A  EB FE               jmp      $

 000C  EB 17               jmp short BIOSstart

 000E  B0 02               mov      al, 10b
 0010  E6 B3               out      LEDport, al
 0012  F4                  hlt

 0013  53 44 20 63 61 72               db      'SD card BIOS v 0.1'   
       64 20 42 49 4F 53
       20 76 20 30 2E 31
 0025            BIOSstart:
 0025  B0 03               mov      al, 11b
 0027  E6 B3               out      LEDport, al
 0029  F4                  hlt

 002A  CB                  retf
               
 002B            SDbios      EndP
                        
                        org      4096 - 16
 0FF0  45 20 6F 66 20 45      db      'E of ExtROM 04'
       78 74 52 4F 4D 20
       30 34
                        
                        org      0fffh
 0FFF  FF                  db      0ffh            ; checksum byte
                     
 1000            CODE      EndS

         mov  cx,-1
         mov  al,1
outloop: mov  dx,8000h
         out  LEDport,al
         xchg cx,dx
inloop:  nop            ;dummy для обхода неработающих EB FE и иже с ними
         loop inloop
         shl  al,1
         mov  cx,dx
         loop outloop
         cli
         jmp $
         hlt

0008  E6 B3               out      LEDport, al
 000A  EB FE               jmp      $