nedoPC.org

   ORG   8100h-512
;EXE-file header:
   dw   5845h     ; EXE Signature
   db   45h     ; Reserved (EXE type)
   db   00h     ; Version of EXE file
   dd   00000200h ; Code offset
   dw   0000h     ; Primary loader size or 0 (no primary loader)
   dd   00000000h ; Reserved
   dw   0000h     ; Reserved
   dw   START     ; Loading address
   dw   START     ; Starting address (register PC)
   dw   0BFFFh     ; Stack address (register SP)
   ds   490     ; Reserved
 
;code of program
 
START   PUSH   IX   ;IX pointer to Command line parameters
   POP   HL   ;ld hl,ix
   INC   HL   ;skip size of Command line
         ;Now, HL pointer to first simbol of parameters
         ;If you typed "TEST.EXE Hello", then HL pointer to " Hello"
         ;with first space.
   LD   C,5Ch   ;system call number (PCHARS)
   RST   10h   ;call kernel
 
;return from your program
   LD      C,41h   ;system call number (EXIT)
   RST     10h     ;call kernel
   RET

;D7...should be 1
;D6...should be 1
;D5...should be 0
;D4...should be 1
;D3...should be 0
;D2...specify access mode (0 - ISA memory, 1 - ISA ports)
;D1...specify index of ISA slot (0 - ISA#1, 1 - ISA#2)
;D0...should be 0

D7...RESET
D6...AEN
D5...A19
D4...A18
D3...A17
D2...A16
D1...A15
D0...A14

ISA_DIR      EQU 9FBDh
SC_PORT      EQU 1FFDh
PAGE3        EQU 0E2h

SAVE_PAGE    DB 0           ;variable for previous status of third memory port

RESET_ISA:                  ; reset ISA device
        LD C, ISA_DIR
        LD A,0C0h
        OUT (C),A
   CALL Pause_10ms
        LD A,0
        OUT (C),A
        RET

Pause_10ms:
        LD HL,10000
Loop:
        DEC HL
        LD A,H
        XOR L
        JR NZ,Loop
        RET

OPEN_ISA_PORTS:             ; open access to ISA
        LD BC,SC_PORT
        LD A,11h ; <<<<<<<<<< corrected in Jan 2021
        OUT (C),A
        IN A,(PAGE3)        ; read value from memory port
        LD (SAVE_PAGE),A    ; save previous status of memory port
        LD A,0D4h           ; control byte for (ports of the 1st ISA slot)
        OUT (PAGE3), A      ; opening ISA port address space
        LD C,ISA_DIR
        LD A,0              ; high ISA addresses RESET and AEN signals.
        OUT (C),A
        RET

CLOSE_ISA_PORTS:            ; close access to ISA
        LD A,(SAVE_PAGE)
        OUT (PAGE3),A       ; restore value of memory port
        LD BC,SC_PORT
        LD A,1 ; <<<<<<<<<< corrected in Jan 2021
        OUT (C),A           ;
        RET

WRITE_ISA_PORT:
        LD HL,ADRESS_PORT+0C000h     ; ISA port address + 0C000h offset 3
memory page
        LD A,DATA_OUT                ; data for writing
        LD (HL),A                    ; write data to port which pointered HL
        RET

READ_ISA_PORT:
        LD HL, ADRESS_PORT+0C000h    ; ISA port address + 0C000h offset 3
memory page
        LD A,(HL)                    ; read data from port which pointered HL
        RET

        ORG     8100h-512
;EXE-file header:
        dw 5845h     ; EXE Signature
        db 45h       ; Reserved (EXE type)
        db 00h       ; Version of EXE file
        dd 00000200h ; Code offset
        dw 0000h     ; Primary loader size or 0 (no primary loader)
        dd 00000000h ; Reserved
        dw 0000h     ; Reserved
        dw START     ; Loading address
        dw START     ; Starting address (register PC)
        dw 0BFFFh    ; Stack address (register SP)
        ds 490       ; Reserved

;code of program

START

;your program here

;return from your program
        LD BC,0041h  ;exit with 0 error code
        RST 10h      ;system call
        RET

;Set 5th color as GREEN
      LD   HL,COLOUR
      LD   DE,#0105
      LD   BC,#FFA4
      XOR   A
      RST   #08

;          B   G   R
COLOUR      DB   #00,#80,#00,#00

...

;Change all colors of palette
      LD   HL,COLOURS
      LD   DE,#0000
      LD   BC,#FFA4
      XOR   A
      RST   #08

;Color's parameters
;          B   G   R
COLOUR      DB   #00,#80,#00,#00

;Palette
COLOURS      DB   #00,#00,#00,#00   ;Colour 0
      DB   #00,#00,#80,#00   ;Colour 1
      DB   #00,#80,#00,#00   ;Colour 2
      DB   #00,#80,#80,#00   ;Colour 3

      DB   #FF,#FF,#FF,#00   ;Colour 255

Replace
        DI             ; disable interrupts
        IN A,($82)     ; get page which set $0000-$3FFFF
        LD (DSSPAGE),A ; store dss page number
        LD A,your_page ;
        OUT ($82),A    ; replace it with your page.

Restore
        LD A,(DSSPAGE) ; restore dss page number
        OUT ($82),A    ; back dss page
        EI             ; enable interrupts

   LD   HL,prog
   LD   BC,DSS_EXEC
   RST   #10

prog   db   "prog.exe",0

CTM644 pins      Sprinter DB15 pins

   2                  GND 1
   4                  composite sync 13
   6                  green 10
   7                  red 11
   8                  blue 9

   LD   C,51h   ;get screen mode
   RST   10h
   LD   C,A   ;move mode number to register C
   PUSH   BC   ;and save to stack BC (B - active page, C - mode)
   .
   .       ;your program
   .

   POP   BC   ;restore mode from stack
   LD   A,C   ;move screen mode to register A
   LD   C,50h   ;set screen mode
   RST   10h
   LD   C,41h   ;terminate program
   RST   10h

   LD   HL,STRING   ;pointer to the string
   LD   C,5Ch      ;outing string
   RST   10h

STRING   DB   "Thank you for using my program..."
   DB   13,10      ;CR and LF codes
   DB   0      ;End of string

; HL - x coord
; DE - y coord
   IN   A,(0E2h)   ;read page number
   LD   C,A      ;move it to C (save)
   LD   A,50h      ;page of video RAM
   OUT   (0E2h),A   ;set it to third frame 0C000-0FFFFh
   LD   A,E      ;Y-coord (0...255)
   OUT   (89h),A      ;set to Y-port
   LD   DE,0C000h   ;frame address
   ADD   HL,DE      ;add x-coord
   LD   A,255      ;point color (0...255) (index to palette)
   LD   (HL),A      ;put pixel
   LD   A,C      ;restore page number
   OUT   (0E2h)      ;set it

        And  #0F
        Cp   #0A
        Sbc  #69
        Daa

GetSwitch:   POP   HL      ;Fetch return address in HL
      POP   DE      ;Fetch cmdline address in DE
      POP   BC      ;Fetch param address in BC
      EX   (SP),HL      ;Push ret addr, buffer addr to HL
      LD   (GS_Param),BC   ;Save param ASCIIZ address
      LD   (GS_OutBf),HL   ;Save output buffer address
      EX   DE,HL      ;CmdLine to HL, OutBuff to DE
      LD   C,(HL)      ;CmdLine len to C (just-a-byte)
      LD   B,0      ;Hi-byte of BC is zero
      INC   HL      ;Point to first char in CmdLine
GS_GetSlash:   LD   A,"/"      ;Char to find to A
      CPIR         ;Find the slash
      JR   Z,GS_ChkParam   ;Slash found. Check param.
      JR   GS_Error   ;Outta chars or no slashes!
GS_ChkParam:   LD   DE,(GS_Param)   ;Param name address to DE
      DEC   HL      ;Compensate for first INC HL
GS_CP_Loop:   DEC   BC      ;Take char into account
      INC   HL      ;Point to next char
      LD   A,(DE)      ;Param name char to A
      INC   DE      ;Point to next char in param name
      OR   A      ;Is End Of String?
      JR   Z,GS_Found   ;Jump if so: Param found!
      CP   (HL)      ;Same as (HL)?
      JR   Z,GS_CP_Loop   ;Continue if so
      XOR   020h      ;Toggle uppercase/lowercase bit
      CP   (HL)      ;Same as (HL)?
      JR   Z,GS_CP_Loop   ;Jump if so
      JR   GS_GetSlash   ;Bad param: Continue search for "/"
GS_Found:   LD   A,(HL)      ;Char should be "="
      CP   "="      ;Is it?
      JR   NZ,GS_GetSlash   ;Jump back if not: Wrong param
      INC   HL      ;Point to char after equals sign
      LD   DE,(GS_OutBf)   ;DE points to start of buffer
GS_CopyBuff:   LD   A,(HL)      ;Move value char to A
      CP   " "      ;Is space?
      JR   Z,GS_Done   ;Jump if so. Transfer finished
      CP   00h      ;End of cmdline?
      JR   Z,GS_Done   ;Jump if so. No more to transfer
      LD   (DE),A      ;Copy char to output buffer
      INC   HL      ;Point to next char
      INC   DE      ;Point to next placeholder
      JR   GS_CopyBuff   ;Loop back until done
GS_Done:   XOR   A      ;Reset A
      LD   (DE),A      ;Terminate the string 
      RET         ;Done :)
GS_Error:   SCF         ;Flag "ERROR!!!"
      RET         ;Done :(

GS_OutBf:   DB   00h,00h      ;Output buffer address
GS_Param:   DB   00h,00h      ;Parameter name address

   Src:   DB   "Marcelo %1 %2."
   Param:   DB   00,"made",00,"me.",00
   Desti:   DB   00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00

   Desti:   DB   "Marcelo made me."

ExpandMacros:   POP   HL      ;Fetch ret addr briefly
      POP   DE      ;Fetch OutBuffer in DE
      POP   BC      ;Fetch ParBuffer in BC
      EX   (SP),HL      ;Exchg Ret to (SP) and RawBuff to HL
EM_SavePtr:   LD   (EM_PBuff),BC   ;Save param buffer ptr
EM_Loop:   LD   A,(HL)      ;Char to A
      INC   HL      ;Point to next char
      OR   A      ;Is it a zero?
      RET   Z      ;Finished if so
      CP   "%"      ;Is it the macro indicator?
      JR   NZ,EM_CopyChr   ;Jump if not
      LD   A,(HL)      ;Char after "%" to A
      CP   "0"      ;Is char > "0"?
      JR   NC,EM_ChkNine   ;Jump if so
EM_CopyPct:   LD   A,"%"      ;Restore percentage sign in A
      JR   EM_CopyChr   ;And transfer it to out buffer
EM_ChkNine:   CP   "9"      ;Is char lower than "9"?
      JR   NC,EM_CopyPct   ;Jump if not to transfer the "%"
      SUB   "0"      ;Now is 0 <= A <= 9
      PUSH   HL      ;Save input buffer pointer
      LD   HL,(EM_PBuff)   ;Get Param Buffer address in HL
      LD   B,A      ;Param number to B
      XOR   A      ;Reset A to zero
EM_FindPar:   PUSH   BC      ;Save counter in B
      LD   BC,0      ;Prepare to loop thru 64K
      CPIR         ;Look for a zero char
      POP   BC      ;Restore zeroes counter
      DJNZ   EM_FindPar   ;Loop back until param is found
EM_CopyPar:   LD   A,(HL)      ;Param char to A
      INC   HL      ;Point to next char in param
      OR   A      ;Is it zero?
      JR   NZ,EM_CopyPar2   ;Go on to copy char
      POP   HL      ;Restore main in buffer pointer
      INC   HL      ;Skip param number
      JR   EM_Loop      ;And continue looping
EM_CopyPar2:   LD   (DE),A      ;Copy char in param to output buffer
      INC   DE      ;Advance out buffer pointer
      JR   EM_CopyPar   ;And loop thru all chars in param
EM_CopyChr:   LD   (DE),A      ;Copy char in main to output buffer
      INC   DE      ;Advance out buffer pointer
      JR   EM_Loop      ;And loop thru all chars in main

EM_PBuff:   DW   0000h      ;Param buffer save zone

Ascii2Word:   POP   HL      ;Fetch ret addr briefly
      EX   (SP),HL      ;Exchg Ret (SP) with BufferAddr (HL)
A2W_Init:   LD   DE,0      ;Reset...
      LD   (A2W_RetVal),DE   ;...return value
      LD   A,(HL)      ;Get first char in buffer
      LD   C,0Fh      ;Prepare for HEX
      CP   "#"      ;Is HEX prefix?
      JR   Z,A2W_Nxt   ;Jump if so
      LD   C,07h      ;Prepare for OCT
      CP   "@"      ;Is OCT prefix?
      JR   Z,A2W_Nxt   ;Jump if so
      LD   C,01h      ;Prepare for BIN
      CP   "%"      ;Is BIN prefix?
      JR   Z,A2W_Nxt   ;Jump if so
      LD   C,09h      ;Ok, number is DEC
      DEC   HL      ;Compensate for next INC HL
A2W_Nxt:   INC   HL      ;Point to next char in buffer
      LD   A,(HL)      ;Char to A
      CP   0h      ;End of string?
      JR   Z,A2W_Done   ;Jump if so
      PUSH   HL      ;Save buffer address while adding
      LD   HL,(A2W_RetVal)   ;Get return value so far
      PUSH   HL      ;Copy HL to...
      POP   DE      ;... register DE
      LD   B,C      ;Get loop index to B
A2W_Add:   ADC   HL,DE      ;Perform sum...
      DJNZ   A2W_Add      ;... B times
      JR   C,A2W_Ovfl   ;Abort if overflow
      SUB   "0"      ;Convert ASCII in A to number
      CP   9      ;Less than 9?
      JR   C,A2W_Chk   ;Jump if so.
      RES   5,A      ;Force char uppercase (just in case)
      SUB   7      ;Deduct "A" - "9" diff.
A2W_Chk:   LD   E,A      ;Save number to E
      LD   D,0      ;Reset hi-byte of DE
      INC   C      ;Test if...
      CP   C      ;... A > C, and...
      JR   NC,A2W_Ovfl   ;... abort if so...
      DEC   C      ;... 'cos it's invalid char.
      XOR   A      ;Clear carry flag for next ADC
      ADC   HL,DE      ;Add the number to the return value
      JR   C,A2W_Ovfl   ;Jump if overflow
      LD   (A2W_RetVal),HL   ;Store result so far
      POP   HL      ;Fetch back string pointer
      JR   A2W_Nxt      ;Keep looping
A2W_Ovfl:   SCF         ;Set carry flag to say "Error!"
      POP   HL      ;Stack balancing
      RET         ;Return to caller
A2W_Done:   LD   HL,(A2W_RetVal)   ;Fetch return value
      LD   A,L      ;Lo-byte of result to A
      RET         ;Back to caller

A2W_RetVal:   DEFW   0000h      ;Return value storage

Word2Hex:   POP   DE      ;Get ret address temporarily
      POP   HL      ;Get Buffer address
      LD   (W2HBuf),HL   ;Save Buffer address
      POP   HL      ;Get Number
      LD   (W2HNum),HL   ;Save Number
      PUSH   DE      ;Push return address
      LD   L,H      ;MSB to LSB
      PUSH   HL      ;Push MSB
      LD   HL,(W2HBuf)   ;Retrieve buffer pointer
      PUSH   HL      ;Push buffer address
      CALL   Byte2Hex   ;Fill half buffer
      INC   HL      ;HL points to third char in buffer
      LD   DE,(W2HNum)   ;DE now holds LSB of Number
      PUSH   DE      ;Number to Stack
      PUSH   HL      ;Buffer to Stack
      CALL   Byte2Hex   ;Fill rest of buffer
      RET         ;Done.

W2HBuf:      DW   0000h
W2HNum:      DW   0000h

Byte2Hex:   POP   HL      ;Get ret address temporarily
      POP   DE      ;Get Buffer address
      LD   (B2HBuf),DE   ;Save Buffer address
      POP   DE      ;Get Number
      PUSH   HL      ;Push return value
      LD   HL,(B2HBuf)   ;Make HL point to buffer
      LD   A,E      ;Number to A (H=0, and ignored)
      RRCA         ;Get hi-nibble of A into lo-nibble
      RRCA
      RRCA
      RRCA
      AND   0Fh      ;Isolate lo-nibble
      ADD   A,"0"      ;Add ASCII for zero
      CP   3Ah      ;Greater than "9"?
      JR   C,B2HBig1   ;Jump if so
      ADD   A,07h      ;Add ASCII difference to "A"
B2HBig1:   LD   (HL),A      ;Save char to buffer
      INC   HL      ;Point to next char in buffer
      LD   A,E      ;Rretrieve number
      AND   0Fh      ;Isolate lo-nibble
      ADD   A,"0"      ;Add ASCII for "0"
      CP   3Ah      ;Greater than "9"?
      JR   C,B2HBig2   ;Jump if so
      ADD   A,07h      ;Add ASCII difference to "A"
B2HBig2:   LD   (HL),A      ;Save char to buffer
      RET         ;Done.

B2HBuf:      DW   0000h

Byte2Ascii:   POP   BC      ;Fetch ret address temporarily
      POP   HL      ;Fetch ASCII buffer address
      POP   DE      ;Fetch nmber to convert in E
      PUSH   BC      ;Push back ret address
      LD   A,E      ;Get number to convert in A
      LD   C,"0"-1      ;Prepare character
B2A_3:      INC   C      ;Inc char
      SUB   100      ;Subtract 100 from A
      JR   NC,B2A_3   ;Keep looping until negative
      ADD   A,100      ;Restore positive value
      LD   E,A      ;Save value temporarily
      LD   A,C      ;Hundreds char to A
      CP   "0"      ;Is zero?
      JR   NZ,B2A_Hundreds   ;Jump if not
      LD   C," "      ;Preset to put a space if Hundreds=0
B2A_Hundreds:   LD   (HL),C      ;Save hundreds char
      LD   A,E      ;Retrieve old value
      INC   HL      ;Point to next char
      LD   C,"0"-1      ;Prepare character
B2A_2:      INC   C      ;Inc char
      SUB   10      ;Subtract 10 from A
      JR   NC,B2A_2   ;Keep looping until negative
      ADD   A,"0"+10   ;Restore positive value (and ASCII)
      LD   E,A      ;Save char briefly
      LD   A,C      ;Tens char to A
      CP   "0"      ;Is zero?
                JR   NZ,B2A_Tens   ;Jump if not
      LD   C," "      ;Change char to be a space
      LD   A,E      ;Retrieve last char
B2A_Tens:   LD   (HL),C      ;Save tens char
      INC   HL      ;Point to next char
      LD   (HL),A      ;Save units char (don't check for 0)
      RET         ;Done

;Word2Ascii:   POP   BC      ;Retrieve ret address
;      POP   DE      ;Fetch ASCII buffer
;      POP   HL      ;Fetch number to convert
;      PUSH   BC      ;Push ret address back
Word2Ascii:   POP   HL      ;Ret addr briefly to HL
      POP   DE      ;Fetch ASCII buffer to DE
      EX   (SP),HL      ;Exchg Ret (SP) with Number (HL)
      LD   BC,10000   ;Prepare BC to subtract
      PUSH   IX      ;Save content of IX
      PUSH   DE      ;Transfer content of
      POP   IX      ;Register DE to IX
      LD   (IX+0),"0"-1   ;Insert char in buffer
      XOR   A      ;Clear carry flag
W2A_5:      INC   (IX+0)      ;Inc char
                SBC   HL,BC      ;Deduct 10K from HL
      JR   NC,W2A_5   ;Loop until negative result
      ADD   HL,BC      ;Restore positive in HL
      LD   BC,1000      ;Prepare BC to subtract
      LD   (IX+1),"0"-1   ;Insert char in buffer
      XOR   A      ;Clear carry flag
W2A_4:      INC   (IX+1)      ;Inc char
      SBC   HL,BC      ;Deduct 1K from HL
      JR   NC,W2A_4   ;Loop until negative result
      ADD   HL,BC      ;Restore positive in HL
      LD   BC,100      ;Prepare BC to subtract
      LD   (IX+2),"0"-1   ;Insert char in buffer
      XOR   A      ;Clear carry flag
W2A_3:      INC   (IX+2)      ;Inc char
      SBC   HL,BC      ;Deduct 100 from HL
      JR   NC,W2A_3   ;Loop until negative result
      ADD   HL,BC      ;Restore positive in HL
      LD   BC,10      ;Prepare BC to subtract
      LD   (IX+3),"0"-1   ;Insert char in buffer
      XOR   A      ;Clear carry flag
W2A_2:      INC   (IX+3)      ;Inc char
      SBC   HL,BC      ;Deduct 10 from HL
      JR   NC,W2A_2   ;Loop until negative result
      ADD   HL,BC      ;Restore positive to HL
      LD   A,L      ;Last number to A
      ADD   A,"0"      ;Add the "0" difference
      LD   (IX+4),A   ;Put last char in buffer
      POP   IX      ;Restore original value in IX
      RET