Megatel Quark/100 Specifications download pdf (Page 86)

.lNr

fi

DCR

E

RZ

i

CHAR

COUNT

iFINISH

COUNT

DOWN

TO

COMPLETE

96

ONTDWN:

MVI

A,21

CNTDWN

EQU

$-XCHARLD+CHARLD

OCR

A

JNZ

CNTDWN

JR

XHSLOOP

i

iMAKE

SURE

THE

SIZE

OF

THE

CHAR

LOADER

IS

NOT

MORE

THAN

30H

.

,

CEND5

i

EBOOT:

BOOT

EQU

$

ENDSPACE

CEND5

ORG

600H

EQU

40H

MVI

A,O

OUT

LATCHADD

LXI

H,LOADADO

MVI

C,EPROMAOD

MVI

B"CODECNT

INIR

JMP

LOADADD

iTHIS

SECTION WILL

,EXECUTE

FROM

40H

iINITIALIZE

TO

ACCESS

'FIRST

PAGE

OF

iTHE

FIRST

EPROM

iPUT EXECUTION

ADDRESS

OF

BOOTSTRAP

CqOE

IN

HL

iPUT

I/O

ADDRESS

OF

1

EPROM

INTO'REG C '

1 " ,

,iPUT

NUMBER

OF

BYT,ES

TO

READ

FROM

EPROM

MAX-256

iJUMP

TO

BOOTSTRAP

CODE

1

,

IBOOTEND

EQU

$

,

CEND6

;

EBOOTFL:

BOOTFL

EQU

$

ENDSPACE

$

ORG

MVI

LXI

LXI

700H

EQU

HIDCODE+OFOOH,

B,24

iTWENTY,

FOUR

LINES

D,130

iLIN~

LENGTH-SORT

OF

H,BOTSCREEN+230H

BOOTLOOP:

STACK

'"

;

XENDFL

•

,

MVI

DAD

DJNZ

HLT

M,80H

ID

BOOT

LOOP

DW

EQU

DW

EQU

iREVERSE

VIDEO,

iNEXT LINE

o

iMINIMUM

OF

THREE

LEVEL

STACK

$-EBOOTFL+BOOTFL

CHARLD,BOOT

;PREPARE

STACK

FOR

A

COUPLE

OF

RET'S .

$,

CEND7

'EQU!

,I

$

E~DSPACE'

CEND7

;CHECK

TO

SEE

CODE

IS

~XTENDEDI:

ABOVE

64

BYTE

OF

EACH PAGE

IRPC

?X,012'34's67

?XX

SET

LOW

(CEND&?}t)'

IF

?XX

GT

40H

os 'PAGE

&?_X

IS

EXTENDED

ABOVE

3FH'.

1 2 ... 81 82 83 84 85 86

Comments to this Manuals

No comments