sometest_nbasic_asm

nbasic_stack = 256

  .inesprg 1 ;//one PRG bank
  .ineschr 1 ;//one CHR bank
  .inesmir 0 ;//mirroring type 0
  .inesmap 0 ;//memory mapper 0 (none)
  .org 32768
  .bank 0

start:
 jsr waitvbl
 lda #32
 sta 8192
 lda #30
 sta 8193
 jsr waitvbl
 jsr waitvbl
 lda #63
 sta 8198
 lda #0
 sta 8198
 lda #48
 sta 8199
 lda #32
 sta 8199
 lda #45
 sta 8199
 lda #16
 sta 8199
 lda #63
 sta 8198
 lda #4
 sta 8198
 lda #16
 sta 8199
 lda #17
 sta 8199
 lda #18
 sta 8199
 lda #23
 sta 8199
 lda #63
 sta 8198
 lda #8
 sta 8198
 lda #36
 sta 8199
 lda #37
 sta 8199
 lda #38
 sta 8199
 lda #18
 sta 8199
 lda #63
 sta 8198
 lda #12
 sta 8198
 lda #40
 sta 8199
 lda #41
 sta 8199
 lda #42
 sta 8199
 lda #26
 sta 8199
 lda #32
 sta 8198
 lda #0
 sta 8198
 ldx #0

z01_loop:
 lda #65
 sta 8199
 lda #65
 sta 8199
 lda #65
 sta 8199
 lda #65
 sta 8199
 inx
 cpx #240
 bne z01_loop
 lda #35
 sta 8198
 lda #192
 sta 8198
 lda #228
 sta 8199
 ldx #0

q0x_loop:
 lda #228
 sta 8199
 inx
 cpx #63
 bne q0x_loop

mainloop:
 jsr waitvbl
 jmp mainloop

waitvbl:

    lda $2002
    bpl waitvbl ;//wait for start of retrace
  waitvbl_1:
    lda $2002
    bmi waitvbl_1 ;//wait for end of retrace
   lda #0
 sta 8197
 lda #0
 sta 8197
 lda #0
 sta 8198
 lda #0
 sta 8198
 rts

  .bank 1 ;//jump table points to NMI, Reset, and IRQ start points
  .org $fffa
  .dw start, start, start
  .bank 2 ;//include CHR ROM
  .org $0000
  .incbin "25ch.chr"
  .incbin "25ch.chr"