Assembler 1-0

; It's 8086 asm.

; multi-segment executable file template.

data segment
    ; add your data here!
    pkey db "press any key...$"
ends

stack segment
    dw   128  dup(0)
ends

code segment
start:
; set segment registers:
    mov ax, data
    mov ds, ax
    mov es, ax


   ; Preinit

   core


print macro x, y, attrib, sdat
LOCAL   s_dcl, skip_dcl, s_dcl_end
    pusha
    mov dx, cs
    mov es, dx
    mov ah, 13h
    mov al, 1
    mov bh, 0
    mov bl, attrib
    mov cx, offset s_dcl_end - offset s_dcl
    mov dl, x
    mov dh, y
    mov bp, offset s_dcl
    int 10h
    popa
    jmp skip_dcl
    s_dcl DB sdat
    s_dcl_end DB 0
    skip_dcl:
endm
pause macro
    mov ah, 0
    int 16h
    endm
cls macro
    pusha
    mov ax, 0600h
    mov bh, 0000_1111b
    mov cx, 0
    mov dh, 24
    mov dl, 79
    int 10h
    popa
endm

mouse macro
mov ax, 1
int 33h
print 1,60,1111_0000b, "Mouse initialized..."
endm

halt macro
    cls
      ret
    endm
noblink macro
mov ax, 1003h ; disable blinking.
mov bx, 0
mov cx, 9
int 10h
endm

r400io macro
    jmp r400iA
    endm

setgraph macro

mov ah, 0   ; set display mode function.
mov al, 13h ; mode 13h = 320x200 pixels, 256 colors.
int 10h     ; set it

endm
core macro

                            ; txt: .word 8
        print 1,4,1111_0000b, "Processor : R400I (Intel Remoate 4000)"
        print 1,5,1111_0000b, "Arch 8x."
       ; print 35,2,1001_1110b, "[ R400I GUI ]                             "
        print
        print 5, 20,0000_0000b, " "
        print 6, 20,0001_0000b, " "
        print 7, 20,0010_0000b, " "
        print 8, 20,0100_0000b, " "
        print 9, 20,0101_0000b, " "
        print 10, 20,0110_0000b, " "
        print 11, 20,0111_0000b, " "
        print 12, 20,1000_0000b, " "

        print 13, 20,1111_0000b, " "
        ;print 5, 19,0000_0000b, " "
       ;; print 6, 22,0001_0000b, " "
       ; print 7, 23,0010_0000b, " "
       ; ;print 8, 24,0100_0000b, " "
       ;
    ; print 11, 27,0111_0000b, " "
     ;   print 12, 28,1000_0000b, " "
      ;     print 13, 29,1111_0000b, " "


    endm





; ALL INSTRUCTIONS :






noblink ; For DOS compatiblity.
 r400icode:


   mouse


 r400i:
  ; Instruction for disabling RET.
   r400io
 jmp r400i

 r400iA:

 jmp r400i

ret






    lea dx, pkey
    mov ah, 9
    int 21h        ; output string at ds:dx

    ; wait for any key....
    mov ah, 1
    int 21h

    mov ax, 4c00h ; exit to operating system.
    int 21h
ends

end start ; set entry point and stop the assembler.