News:

Printed Amstrad Addict magazine announced, check it out here!

Main Menu

I would like to turn on in cp / m plus the graphic mode 1 in asm.

Started by funkheld, 12:39, 04 November 18

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

funkheld


Hi good afternoon.
I would like to turn on in cp / m plus the graphic mode 1 in asm.
how is that possible?


Thank you.
greeting

AMSDOS

Quote from: funkheld on 12:39, 04 November 18
Hi good afternoon.
I would like to turn on in cp / m plus the graphic mode 1 in asm.
how is that possible?


Thank you.
greeting


GSX would be the standard method to get into Mode 1 by using DDMODE1, there's information about it on John Elliott's website, though I don't know how it's accessed from Assembly.
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3

HAL6128

...proudly supported Schnapps Demo, Pentomino and NQ-Music-Disc with GFX

AMSDOS

Not sure if this will work because I'm interpreting it from a bit of Turbo Pascal code, though from the looks of it, it appears BDOS Function 4 followed by number representing mode will give that Screen Mode, but I'm not sure.


If I've interpreted it correctly it should look like this:



ld c,4
ld e,1
call 5
* Using the old Amstrad Languages :D   * with the Firmware :P
* I also like to problem solve code in BASIC :)   * And type-in Type-Ins! :D

Home Computing Weekly Programs
Popular Computing Weekly Programs
Your Computer Programs
Updated Other Program Links on Profile Page (Update April 16/15 phew!)
Programs for Turbo Pascal 3

GUNHED

Use control characters, ESC 2 1 as I remember, see CPC Manual ;-)
http://futureos.de --> Get the revolutionary FutureOS (Update: 2023.11.30)
http://futureos.cpc-live.com/files/LambdaSpeak_RSX_by_TFM.zip --> Get the RSX-ROM for LambdaSpeak :-) (Updated: 2021.12.26)

funkheld

Hello, thanks.
CP/M PLUS and GRAFIK-DEMO.

ASM : PASMO

CP/M PLUS (MODE, PLOT) :

org &100


scr_set_mode equ &bc0e
plot_absolute equ &bbea


ld hl,(&0001)
ld de,&0057
add hl,de
ld (firm_jump+1),hl


jp start
ret


start
ld a,2
call firm_jump
defw scr_set_mode


ld de,100
ld hl,100
call firm_jump
defw plot_absolute
ret


firm_jump
jp 0





CP/M PLUS (MODE, PLOT, DRAW) :

org &100


scr_set_mode equ &bc0e
plot_absolute equ &bbea
gra_line_absolute  equ &bbf6


ld hl,(&0001)
ld de,&0057
add hl,de
ld (firm_jump+1),hl


jp start
ret


start
ld a,2
call firm_jump
defw scr_set_mode


ld de,50
ld hl,100
call firm_jump
defw plot_absolute


ld de,200
ld hl,70
call firm_jump
defw gra_line_absolute
ret


firm_jump
jp 0


greeting

Powered by SMFPacks Menu Editor Mod