Kafana Objektno Orijentisani Pub

1702039477714.png
 
Juce kupio cerki M$ Office 2019 za 21evro, neka pro plus verzija. Dali mi serijski broj i da odem na MS sajt, registrujem
i downloadujem. Sve proslo bez problema. Potpuno legalno. I sad ko je lud da da 250 evra za Office, kad mozes
legalno da uzmes za 21 evro?
 
Тачно 2 сата треба да се компајлира Strawberry на Slackware-у (и то само главни пакет без зависности) на 1 тред (j1) А8 6410. Ево сад сам морао да надограђујем... Толико је тежак програм. :per:
 
aj pogodite sta je ovo:
Kod:
PrintChar     equ &BB5A   

    org &1200

    ld hl,Message            ;Address of string
    Call PrintString        ;Show String to screen

    ret                ;Finished Hello World

PrintString:
    ld a,(hl)    ;Print a '255' terminated string
    cp 255
    ret z
    inc hl
    call PrintChar
    jr PrintString

Message: db 'Hello World 323!',255

NewLine:
    ld a,13        ;Carriage return
    call PrintChar
    ld a,10        ;Line Feed
    jp PrintChar

a sta je ovo:
Kod:
    org    &100
; Define some ASCII control characters.
;
CR    EQU    &0D
LF    EQU    &0A

; Define the CP/M terminating character for BDOS function 9 (WRITESTR).
;
TERM    EQU    '$'

; Define some useful CP/M BDOS function numbers.
;
TERMCPM     EQU    0
WRITESTR EQU    9

; Define my local stack size.
;
STACK    EQU    128

; Define a useful macro to 'wrap' the call to BDOS.
;
    MACRO    bdos $FUNC

    LD    C,$FUNC    ; The desired BDOS function.
    CALL    5    ; Entry point into CP/M BDOS.

    mEND

; This is the main program...
;
START::

    ; Initialise the local stack to be
    ; at the end of the program as loaded
    ; into the TPA.

    LD    HL,PROGEND    ; Adress of end of program.
    LD    BC,STACK    ; Advance to allow space for stack.
    ADD    HL,BC
    LD    SP,HL        ; Set up the Stack Pointer.
        

    ; Display our message.
    ;
    LD    DE,HELLO    ; DE points to the message.
    BDOS    WRITESTR    ; Display the message.

    ; Bye bye...
    ;
    
    BDOS    TERMCPM        ; Exit back to CP/M.

    ; Should never get here!

HELLO:    DB    CR,LF,"Hello World!",CR,LF,TERM
PROGEND:
 
evo memsetovanje ekrana za cpc 6128 pod cpmom
Kod:
    org    &100
    ld    de,&c000
    ld    hl,start
    ld    bc,&100
    ldir
    jp    &c000
start:
    di
    ld    bc, &7fc1
    out    (c),c
    ld    a,&ff
    ld    de,&4000
    ld    c,64
l1    ld    b,&ff
l2    ld      (de),a
    inc    de
    djnz    l2  
    dec    c
    jr    nz,l1
    ld    bc,&7fc2
    out    (c),c
    ei
    jp    &0000
end:    ld    c,0
    call    5
 

Back
Top