home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / 28may87r.ark / CXROMK.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-09-27  |  2.3 KB  |  103 lines

  1.     PAGE
  2.  
  3.  
  4. swap$code:
  5.     @sei                ; ffd5
  6.     @lda    3eh,#            ; ffd0    
  7.     @sta    force$map        ; ffd2
  8.     @lda    z80$on,#        ; ffd6
  9.     @sta    mode$reg        ; ffd8
  10.     @nop                ; ffdb
  11.     @jmp    bios$02            ; ffdc
  12.     @nop                ; ffdf
  13.  
  14.     di                ; ffe5
  15.     mvi    a,3eh            ; ffe0
  16.     sta    force$map        ; ffe2
  17.     lxi    b,mode$reg        ; ffe6
  18.     mvi    a,z80$off        ; ffe9
  19.     outp    a            ; ffeb
  20.     nop                ; ffed
  21.     rst    1            ; ffee jump to load CP/M
  22.  
  23. swap$size    equ    $-swap$code
  24. free$space    equ    1000h-230-16-$
  25.  
  26.     page
  27. ;    *********************************
  28. ;    *                *
  29. ;    *    Fixed data tables    *
  30. ;    *                *
  31. ;    *********************************
  32. ;
  33. ;
  34.  
  35.     org    1000h-230-16        ; -246
  36. ;
  37. ;    40 column color to RGBI
  38. ;
  39. color$convert$tbl:
  40.     db    00h            ; 0 black
  41.     db    0fh            ; 1 white
  42.     db    08h            ; 2 red
  43.     db    07h            ; 3 cyan
  44.     db    0bh            ; 4 purple
  45.     db    04h            ; 5 green
  46.     db    02h            ; 6 blue
  47.     db    0dh            ; 7 yellow
  48.     db    0ah            ; 8 orange
  49.     db    0ch            ; 9 brown
  50.     db    09h            ; A light red
  51.     db    06h            ; B gray 1
  52.     db    01h            ; C gray 2
  53.     db    05h            ; D light green
  54.     db    03h            ; E light blue
  55.     db    0eh            ; F gray 3
  56.  
  57. ;
  58. ;
  59.     org    1000h-86-144        ; 8*18 ; -230
  60. ;
  61. extra$char$table:
  62.     db    000h,060h,030h,018h,00ch,006h,003h,000h    ; 1
  63.     db    018h,03ch,066h,000h,000h,000h,000h,000h    ; 2
  64.     db    000h,000h,000h,000h,000h,000h,07fh,000h    ; 3
  65.     db    060h,030h,018h,000h,000h,000h,000h,000h    ; 4
  66.     db    01ch,030h,030h,060h,030h,030h,01ch,000h    ; 5
  67.     db    018h,018h,018h,018h,018h,018h,018h,000h    ; 6
  68.     db    038h,00ch,00ch,006h,00ch,00ch,038h,000h    ; 7
  69.     db    000h,01bh,02ah,066h,000h,000h,000h,000h    ; 8
  70.     db    000h,000h,000h,000h,000h,041h,07fh,000h    ; 9
  71.     db    000h,0f2h,05bh,039h,001h,04eh,065h,037h    ; 10
  72.     db    006h,003h,01eh,007h,00bh,068h,04bh,034h    ; 11
  73.     db    017h,001h,044h,062h,02dh,018h,012h,00bh    ; 12
  74.     db    063h,059h,031h,017h,000h,00bh,059h,072h    ; 13
  75.     db    02bh,018h,00fh,063h,000h,04fh,02bh,005h    ; 14
  76.     db    04ch,068h,02dh,017h,016h,069h,049h,025h    ; 15
  77.     db    017h,013h,045h,068h,029h,018h,017h,007h    ; 16
  78.     db    00ch,068h,04bh,034h,013h,00fh,005h,04bh    ; 17
  79.     db    070h,031h,00dh,00dh,008h,008h,06ch,00dh    ; 18
  80.  
  81.     org    1000h-75-11            ; -86
  82.  
  83. mmu$init$data:
  84.     db    3fh,3fh,7fh,3eh,7eh        ; config regs
  85.     db    z80$on,common$16K
  86.     db    00
  87. dir$ptrs:                    ; part of both MMU data and
  88.     db    00,01                ; dir$ptrs
  89.     db    00
  90.  
  91.  
  92.     org    1000h-75        ; -75
  93.  
  94. special$skew:
  95.     skew    21,5,0
  96.     skew    19,5,0
  97.     skew    18,5,0
  98.     skew    17,5,0
  99.  
  100.     org    free$space
  101.  
  102.     end
  103.