?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     DEVICE ZXSPECTRUM48
  2. SCREEN  EQU $4000
  3.         ORG $8000
  4.         LD HL,BEGIN
  5.         LD DE,SCREEN
  6.         LD BC,ENDOFPROG-BEGIN
  7.         LDIR
  8.         JP SCREEN
  9. BEGIN   DISP SCREEN ;code will compile for address $4000, but to the current ORG
  10. MARKA       DEC A
  11.             HALT
  12.             JP NZ,MARKA
  13.             DI
  14.             HALT
  15.         ENT
  16. ENDOFPROG
  17.  
  18.     ASSERT $800E == BEGIN && $8015 == ENDOFPROG && $4000 == MARKA
  19.     ASSERT $76 == {B $800F}     ; HALT instruction lands at $800F (BEGIN+1)
  20.