&>ASł1 SORT/ Assemble SORT*ASM CPVf1 ABSENBLER - WER KO 0015C Next free address
003H U5E FACTGR Percent of rabie used 00 to ff (hexadedmal) END DE ASSEMBLY
b>DIR SORT,*/
SORT ASM Source file
BORT BAK Back-up from last edit
BORT PRN Prim file {contains tab characters)
BORT HEK Machinę codę file
A>TYPE SORT,PPR/
Source linę
BORT PROGRAM IN CP/M ASSEMBLY LANGUAGE START AT THE BECINNING OF THE TRANBIENT PROGRAM AREA
Machinę cod£ location
0100 ORG 100H
Generared machinę codę | ||
0100 21flG0ł*S0RTj |
LXI HłSN | |
0103 3001 |
MOI Mfl | |
0105 214701 |
LXI H pI | |
0108 3B00 |
MOI MfO | |
i ! |
CDMPARE I | |
010A 7E |
CDfIPL: |
MDU AfM |
010B FE09 |
CPI N-l | |
0100 021S01 |
JNC CQMT |
i
j
iADDRESS SWITCH TOGGLE łSET TO 1 FDR FIRST ITERATION !ADDRESS INDEX 11=0
HITH ARRAY SIZE !A REGISTER = I ;cy set if r<(N-n SCDNTINUE IF I<=<N-2)
END OF ONE PASS THRSUGH DATA