;
;  _===_ _           _                  ______ _     _             _ _ _
; |  ___| |         | |                 | ___ (_)   | |           (_) | |
; | |__ | | ___  ___| |_ _ __ ___ ______| |_/ /_  __| | ___  _   _ _| | | ___ _   _ _ __
; |  __|| |/ _ \/ __| __| '__/ _ \______| ___ \ |/ _` |/ _ \| | | | | | |/ _ \ | | | '__|
; | |___| |  __/ (__| |_| | | (_) |     | |_/ / | (_| | (_) | |_| | | | |  __/ |_| | |
; \____/|_|\___|\___|\__|_|  \___/      \____/|_|\__,_|\___/ \__,_|_|_|_|\___|\__,_|_|
;
; Essai de Basculement de la broche PIO-B0 sur plateforme Z80 PRO-83, utilisant le "Moniteur"
; Code source développé et assemblé sur le site ASM80.com
; Électro-Bidouilleur, V1, Juin 2022. https://www.youtube.com/Électro-Bidouilleur
; Licence de droits: Attribution 4.0 International (CC BY 4.0)  Lisez https://creativecommons.org/licenses/by/4.0/deed.fr  

; DÉFINITION DE MACROS
PIO_B_D equ 041h    ; 0100|0001
PIO_B_C equ 043h    ; 0100|0011

; POSITION DU CODE EXÉCUTABLE AU DÉBUT DE LA RAM
ORG 1000h

; INITIALISATION DU PORT PIO-B
INIT:
    ld A,0Fh                ; Configurer le port PIO-B en mode sortie (mode 0)
    out (PIO_B_C),A         ;     "

; BOUCLE DE BASCULEMENT
BASCULE:
    xor 01h                 ; Basculer le bit 0 de la valeur dans l'accumulateur
    out (PIO_B_D),A         ; Transférer l'accumulateur vers le registre de donnée de PIO-B
    jp BASCULE              ; Boucler
    
; FIN