home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / sysutl / offctrlc.lbr / OFFCTRLC.ASM next >
Assembly Source File  |  1988-01-17  |  512b  |  43 lines
  1. FREMEM  EQU 8H
  2. OFFSET  EQU 7
  3.     ORG 100H
  4.     LHLD    1
  5.     MVI     A,OFFSET
  6.     ADD    L
  7.     MOV    L,A
  8.     XCHG
  9.     LDAX    D
  10.     STA    FREMEM+1
  11.     INX    D
  12.     LDAX    D
  13.     STA    FREMEM+2
  14.     MVI    A,0CDH
  15.     STA    FREMEM
  16.     MVI    A,0FEH
  17.     STA    FREMEM+3
  18.     MVI    A,3H
  19.     STA    FREMEM+4
  20.     MVI    A,0C2H
  21.     STA    FREMEM+5
  22.     MVI    A,11H
  23.     STA    FREMEM+6
  24.     SUB    A
  25.     STA    FREMEM+7
  26.     MVI    A,97H
  27.     STA    FREMEM+8
  28.     MVI    A,0C9H
  29.     STA    FREMEM+9
  30.     LHLD    1
  31.     MVI    A,OFFSET
  32.     ADD    L
  33.     MOV    L,A
  34.     LXI    D,FREMEM
  35.     MOV    A,E
  36.     MOV    M,A
  37.     INX    H
  38.     MOV    A,D
  39.     MOV    M,A
  40.     JMP    0
  41.     END
  42.  
  43.