Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ; LAST UPDATE: 26.12.2022 savelij
  3.  
  4. ; для кода со сменой конфигурации памяти ниже 0x8000
  5.  
  6. ; ATM CP/M
  7. ATM_CPM         EI
  8.                 HALT
  9.                 DI
  10.         PEC_ON M_SHADOW_BF
  11.                 LD HL,CPM_PAGES
  12.                 LD DE,0x3F
  13. ATM_CPM1        LD BC,CONF_128
  14.                 OUT (C),D
  15.                 LD BC,LOW (WIN_A3)
  16. ATM_CPM2        OUTI
  17.                 LD A,B
  18.                 SUB E
  19.                 LD B,A
  20.                 JR NZ,ATM_CPM2
  21.                 LD A,D
  22.                 XOR 0x10
  23.                 LD D,A
  24.                 JR NZ,ATM_CPM1
  25.                 LD SP,0x8000
  26.                 LD BC,0x177
  27.                 LD A,6
  28.                 OUT (C),A
  29.                 LD BC,FDD_EMU_PORT
  30.                 XOR A
  31.                 OUT (C),A
  32.         PEC_OFF M_SHADOW_BF
  33.                 JP 0x000C
  34.  
  35. CPM_PAGES       DB 3!0x7F,2!0x7F,4!0x7F,0!0x7F
  36.                 DB 3!0x7F,2!0x7F,5!0x7F,ROM_ATMCPM
  37.